【文章內(nèi)容簡(jiǎn)介】 :=。 end。end。procedure (Sender: TObject)。begin :=39。39。 。end。procedure (Sender: TObject)。var kl:variant。 pass:string。begin zzyname:=。 kl:=(39。操作員39。,zzyname,39?？诹?9。)。 if varisnull(kl) then pass:=39。39。 else pass:=kl。 if =pass then begin i:=i+1。 if i=3 then begin (PChar(39。密碼驗(yàn)證錯(cuò)誤，拒絕訪問(wèn)！39。), PChar(39。提示39。), MB_ICONEXCLAMATION)。 。 close。 end。 (pchar(39。密碼驗(yàn)證錯(cuò)誤，重新錄入！ 39。),pchar(39。提示39。), MB_ICONQUESTION)。 :=39。39。 ()。 exit。 end。 。 。 frm_main:=(application)。 。end。procedure (Sender: TObject)。begin。end。procedure (Sender: TObject)。begin close。end。procedure (Sender: TObject)。begin zzyname:=。 frm_passedit:=(application)。 。end。procedure (Sender: TObject。 var Key: Char)。begin if key=13 then begin (b_ok)。 end。end。procedure (Sender: TObject。 var Action: TCloseAction)。begin 。 。end。end. 會(huì)員管理界面與代碼設(shè)計(jì)實(shí)現(xiàn)及功能代碼設(shè)計(jì):unit hygl。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, TEMPLETFORM, Grids, DBGrids, LabelButton, TradeImage, ComCtrls, Menus, ToolWin, StdCtrls, ExtCtrls, DBActns, DB, ActnList。type Tfrm_hygl = class(TMyForm) ztl: TStatusBar。 DBGrid: TDBGrid。 BActionList1: TActionList。 DataSetFirst1: TDataSetFirst。 DataSetPrior1: TDataSetPrior。 DataSetNext1: TDataSetNext。 DataSetLast1: TDataSetLast。 DataSetDelete1: TDataSetDelete。 DataSetInsert1: TDataSetInsert。 DataSetEdit1: TDataSetEdit。 Action_Help: TAction。 palToolbar: TPanel。 tiHelp: TTradeImg。 tiPrint: TTradeImg。 tiLocate: TTradeImg。 tiLast: TTradeImg。 tiNext: TTradeImg。 tiPrior: TTradeImg。 tiFirst: TTradeImg。 b_tz: TTradeImg。 tiDelete: TTradeImg。 tiEdit: TTradeImg。 tiNew: TTradeImg。 LabelBtn1: TLabelBtn。 LabelBtn2: TLabelBtn。 LabelBtn3: TLabelBtn。 blabel_tz: TLabelBtn。 LabelBtn4: TLabelBtn。 LabelBtn5: TLabelBtn。 LabelBtn6: TLabelBtn。 LabelBtn7: TLabelBtn。 LabelBtn8: TLabelBtn。 LabelBtn9: TLabelBtn。 LabelBtn10: TLabelBtn。 DataSource1: TDataSource。 group: TRadioGroup。 procedure DataSetInsert1Execute(Sender: TObject)。 procedure DataSetEdit1Execute(Sender: TObject)。 procedure FormCreate(Sender: TObject)。 procedure FormClose(Sender: TObject。 var Action: TCloseAction)。 procedure DataSetDelete1Execute(Sender: TObject)。 procedure FormShow(Sender: TObject)。 procedure groupClick(Sender: TObject)。 procedure tiLocateClick(Sender: TObject)。 procedure b_tzClick(Sender: TObject)。 private { Private declarations } public { Public declarations } procedure ztljs。 end。var frm_hygl: Tfrm_hygl。 zrs,nzs,yzs:integer。//總辦證數(shù)，年證數(shù)，月證數(shù)implementationuses datam, vipedit, vipcx, viptz。{$R *.dfm}procedure 。begin zrs:=。 [1].text:=inttostr(zrs)。 。 。 (39。select count(*) from vip where 證類(lèi)型= 年證39。)。 。 [3].text:=[0].AsString。 //月證數(shù)量 。 。 (39。select count(*) from vip where 證類(lèi)型= 月證39。)。 。 [5].text:=[0].AsString。 //押金合計(jì) 。 。 (39。select sum(押金) from vip39。)。 。 [7].text:=[0].AsString+39。元39。end。procedure (Sender: TObject)。begin inherited。 。 (39。性別39。).AsString:=39。 男39。 (39。證類(lèi)型39。).AsString:=39。 年證 39。 (39。押金39。).AsString:=39。39。 frm_vipedit:=(application)。 :=0。 。 end。procedure (Sender: TObject)。begin inherited。 frm_vipedit:=(application)。 :=1。 //檢測(cè)會(huì)員有無(wú)借書(shū) 。 。 if (39。證號(hào)39。,(39。證號(hào)39。).AsString,[]) then begin :=false。 。 end。 。 // 。end。procedure (Sender: TObject)。begin inherited。 。 :=39。證號(hào) 39。 。end。procedure (Sender: TObject。 var Action: TCloseAction)。begin inherited。 。 。 。 release。end。procedure (Sender: TObject)。var mes:string。begin inherited。 。 。 if (39。證號(hào)39。,(39。證號(hào)39。).AsString,[]) then begin mes:=39。辦證會(huì)員 39。+(39。姓名39。).AsString +39。 還有租借的圖書(shū)或影碟未還，不能刪除！39。 (pchar(mes),pchar(39。提示 39。) ,+MB_ICONQUESTION)。 。 exit。 end。 。 mes:=39。是否要?jiǎng)h除辦證會(huì)員 39。+(39。證號(hào)39。).AsString+39。 39。 +(39。姓名39。).AsString +39。39。 if (pchar(mes),pchar(39。等待確認(rèn)39。) ,+MB_ICONQUESTION+mb_okcancel+MB_DEFBUTTON2)=idok then begin 。//刪除會(huì)員記錄 。 。 (39。delete from cashbook where 證號(hào)=39。+39。39。+(39。證號(hào)39。).AsString+39。39。)。 。//刪除現(xiàn)金收支記錄 。 。 (39。delete from qk where 證號(hào)=39。+39。39。+(39。證號(hào)39。).AsString+39。39。)。 。//刪除欠款記錄 。 。//刪除會(huì)員記錄 ztljs。 end。end。procedure (Sender: TObject)。begin inherited。 ztljs。 ()。end。procedure (Sender: TObject)。begin inherited。 case of 0::=39。證號(hào)39。 1::=39。姓名39。 2::=39。辦證日期39。 end。end。procedure (Sender: TObject)。begin inherited。 frm_vipcx:=(application)。 。end。procedure (Sender: TObject)。begin inherited。 frm_viptz:=(application)。 。end。end. 影碟圖書(shū)界面與代碼設(shè)計(jì)實(shí)現(xiàn)代碼設(shè)計(jì):unit lb。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Menus, ComCtrls, ToolWin, Buttons, StdCtrls, AppEvnts, LabelButton, TradeImage, MaskImageButton, MoveImageButton, Grids, DBGrids, DB, Mask。type Tfrm_lb = class(TForm) palUp: TPanel。 palLeftUp: TPanel。 imgLeftUp: TImage。 palRightUp: TPanel。 imgRightUp: TImage。 palUpMid: TPanel。 imgCaption: TImage。 palDown: TPanel。 imgLeftDown: TImage。 imgRightDown: TImage。 imgDownMin: TImage。 palLeft: TPanel。 palRight: TPanel。 imgRight: TImage。 imgCloseButton: TImage。 imgMinButton: TImage。 imgSizeButton: TImage。 imgMaxButton: TImage。 imgRestoreButton: TIm