unit umain;
uses 【程序编程相关:A First Look At BizT】
interface 【推荐阅读:一个简单而又灵活的数据库操作类】
windows, messages, sysutils, variants, classes, graphics, controls, forms, 【扩展信息:A First Look At BizT】 dialogs, extctrls, dxcntner, dxeditor, dxexedtr, dxedlib, stdctrls, comctrls,comobj, buttons;type
tfrmmain = class(tform) panel1: tpanel; bevel1: tbevel; bevel2: tbevel; bevel4: tbevel; label1: tlabel; hostname: tdxpickedit; label2: tlabel; databasename: tdxpickedit; groupbox1: tgroupbox; label3: tlabel; dxedit1: tdxedit; bitbtn1: tbitbtn; bitbtn2: tbitbtn; label4: tlabel; label5: tlabel; userid: tdxedit; userpass: tdxedit; label6: tlabel; passlogin: tradiobutton; ntlogin: tradiobutton; procedure hostnamedropdown(sender: tobject); procedure bitbtn2click(sender: tobject); ... 下一页