【文章內(nèi)容簡(jiǎn)介】 procedure (Sender: TObject)。begin [0].Text:=39。181。177。199。176。178。217。247。212。177。:39。 [2].Text:=FormatDateTime(39。207。181。205。179。202。177。188。228。163。186。yyyymmdd hh:nn:ss mmmm dddd39。, now)。 [1].Text:=39。 39。+。 [3].Text:=39。200。237。188。254。191。170。162。213。223。163。186。196。170。189。168。198。194。39。 :=true。 :=true。 :=false。 :=false。 :=false。 :=false。 :=39。195。197。213。239。185。220。192。237。199。248。39。 。end。procedure (Sender: TObject)。begin [2].Text:=FormatDateTime(39。207。181。205。179。202。177。188。228。163。186。yyyymmdd hh:nn:ss mmmm dddd39。, now)。end。procedure (sender:tobject)。begin :=(application)。 if =mrok then begin (39。39。)。 。 :=false。 end。end。procedure (sender:tobject)。begin :=(application)。 。end。procedure (sender:tobject)。begin if then begin :=true。 :=false。 :=false。 :=false。 :=false。 :=39。210。169。198。185。220。192。237。199。248。39。 。 end。end。procedure (Sender: TObject)。begin :=(application)。 。 :=true。end。procedure (sender:tobject)。begin if then begin :=true。 :=false。 :=false。 :=false。 :=false。 :=39。195。197。213。239。185。220。192。237。199。248。39。 。 end。end。procedure (Sender: TObject)。begin :=(application)。 。end。procedure (Sender: TObject)。begin if then begin :=true。 :=false。 :=false。 :=false。 :=false。 :=39。210。189。206。241。200。203。212。177。185。220。192。237。199。248。39。 。 end。end。procedure (Sender: TObject)。begin :=(application)。 。end。procedure (Sender: TObject)。begin :=(application)。 。end。procedure (Sender: TObject)。begin :=(application)。 。end。procedure (sender:tobject)。begin :=(application)。 。end。procedure (Sender: TObject)。begin if then begin :=true。 :=false。 :=false。 :=false。 :=false。 :=39。161。212。186。185。220。192。237。199。248。39。 。 end。end。procedure (Sender: TObject)。begin :=(application)。 。end。procedure (Sender: TObject)。begin :=(application)。 。end。procedure (Sender: TObject)。begin :=(application)。 。end。procedure (sender:tobject)。begin 。end。procedure (Sender: TObject)。begin :=(application)。 。end。procedure (Sender: TObject)。begin :=(application)。 。end。procedure (Sender: TObject)。begin :=(application)。 。end。procedure (Sender: TObject)。begin :=(application)。 。 end。procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。begin 。 // :=39。 provider =。persist security info=false。userid=sa。initial catalog=data39。 // Provider=。Persist Security Info=False。User ID=sa。Initial Catalog=data。Data Source=.。Use Procedure for Prepare=1。Auto Translate=True。Packet Size=4096。Workstation ID=TOND_MO。Use Encryption for Data=False。Tag with column collation when possible=False try with do begin close。 。 (39。backup database data to disk = 39。39。e:\177。207。210。181。201。232。188。198。\208。163。210。189。212。186。202。213。209。185。220。192。237。207。181。205。179。\202。253。190。221。177。184。221。\39。39。39。)。 execsql。 end。 showmessage(39。177。184。221。179。201。185。166。39。)。 except on e:exception do showmessage(39。177。184。221。202。167。176。220。39。)。 end。end。procedure (Sender: TObject)。begin 。 :=39。 Provider=。Persist Security 39。 :=+39。Info=False。User ID=sa。Initial Catalog=master。Data Source=.。Use Procedure 39。 :=+39。for Prepare=1。Auto Translate=True。Packet Size=4096。Workstation ID=TOND_MO。Use Encryption for Data=False。Tag with column collation when possible=False39。 try with ADOQuery1 do begin close。 。 (39。restore database data from disk = 39。39。e:\177。207。210。181。201。232。188。198。\208。163。210。189。212。186。202。213。209。185。220。192。237。207。181。205。179。\202。253。190。221。177。184。221。\39。39。39。)。 execsql。 end。 showmessage(39。187。185。212。173。179。201。185。166。39。)。 except on e:exception do showmessage(39。187。185。212。173。202。167。176。220。39。)。 end。end。end.登陸界面代碼:unit login。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, ComCtrls, Mask, DBCtrls。type TForm1 = class(TForm) RichEdit1: TRichEdit。 GroupBox2: TGroupBox。 Image1: TImage。 GroupBox1: TGroupBox。 Label1: TLabel。 Label2: TLabel。 e_password: TEdit。 b_register: TBitBtn。 b_cancel: TBitBtn。 c_username: TComboBox。 DBEdit1: TDBEdit。 DBEdit2: TDBEdit。 DBEdit3: TDBEdit。 procedure FormShow(Sender: TObject)。 procedure e_passwordKeyPress(Sender: TObject。 var Key: Char)。 procedure b_cancelClick(Sender: TObject)。 procedure b_registerClick(Sender: TObject)。 procedure c_usernameChange(Sender: TObject)。 private { Private declarations } public { Public declarations } end。var Form1: TForm1。 flag:integer。implementation{$R *.dfm} uses dmlogin, main。procedure (Sender: TObject)。var i:integer。begin 。 。 (39。select * from 181。199。194。189。177。237。39。)。 。 :=true。 。 。 for i:=0 to do begin ([1].asstring)。 。 end。 。 :=39。178。217。247。212。177。195。39。 :=1。 flag:=0。 end。procedure (Sender: TObject。 var Key: Char)。begin if key=13 then 。end。procedure (Sender: TObject)。begin :=1。 :=39。178。217。247。212。177。195。39。 :=39。39。end。procedure (Sender: TObject)。begin flag:=flag+1。 。 。 (39。select * from 181。199。194。189。177。237。 where 178。217。247。212。177。208。213。195。=39。)。 (39。39。39。39。+[]+39。39。39。39。)。 。 :=[1].DisplayName。 :=[2].DisplayName。 :=[3].DisplayName。