【正文】
end. 會(huì)員查詢界面與代碼設(shè)計(jì)實(shí)現(xiàn) 代碼設(shè)計(jì) : unit memo。 cxDBRadioGroup1: TcxDBRadioGroup。 cxLabel5: TcxLabel。 cxLabel2: TcxLabel。 cxDBTextEdit1: TcxDBTextEdit。 type Tfrmregister = class(TForm) Panel1: TPanel。 else 會(huì)員瀏覽界面與代碼設(shè)計(jì)實(shí)現(xiàn) 代碼設(shè)計(jì) : unit register。 else if (x = 4) or (x = 8) then birthpet := 39。 else if (x = 5) or (x = 7) then birthpet := 39。 else if (x = 6) or (x = 6) then birthpet := 39。 birthpet := 39。 cxLabel7: TcxLabel。 edtbirth: TcxDBDateEdit。 cxDBRadioGroup1: TcxDBRadioGroup。 cxLabel5: TcxLabel。 cxLabel2: TcxLabel。 cxDBTextEdit1: TcxDBTextEdit。 type Tfrmregister = class(TForm) Panel1: TPanel。 end. 會(huì)員登記界面與代碼設(shè)計(jì) 實(shí)現(xiàn) 代碼設(shè)計(jì) : unit register。 begin if key = 13 then 。 var Key: Word。 end。 end。 end。 。提示 39。 39。 end else begin MessageBox(0, 39。).AsString) = then begin rightpwd := True。).AsString) = then begin if Trim(FieldByName(39。 while not eof do begin if Trim(FieldByName(39。 with do begin if not Active then open。 procedure (Sender: TObject)。 begin 。 implementation uses md, main。 //成功登錄標(biāo)志 public { Public declarations } end。 Shift: TShiftState)。 procedure edtUserKeyDown(Sender: TObject。 procedure FormKeyPress(Sender: TObject。 var Key: Word。 創(chuàng)建各表的具體結(jié)構(gòu)如下 : 信息表 信息表 : 信息表 : 信息表 信息表 信息表 信息表 3 本程序的技術(shù)實(shí)現(xiàn)及具體功能 登錄的 界面與程序設(shè)計(jì) 實(shí)現(xiàn) 代碼設(shè)計(jì) : unit login。 并在此數(shù)據(jù)庫(kù)下創(chuàng)建了 七 個(gè)表,用于存放原始數(shù)據(jù)。 程序流程圖如下: 程序登陸 主界面 會(huì)員登記 會(huì)員瀏覽 會(huì)員查詢 城市目錄