vcd租賃管理系統—免費計算機畢業設計論文(編輯修改稿)

　

【文章內容簡介】 :=0 end。 procedure (Sender: TObject。 Button: TMouseButton。 Shift: TShiftState。 X, Y: Integer)。 begin (Left+,Top++ImgSysI)。 end。 procedure (Sender: TObject)。 begin := and (WindowState =wsMaximized)。 := and (WindowState =wsNormal)。 :=。 := 。 end。 procedure (Sender: TObject)。 begin DefWindowProc(Handle, WM_SYSCOMMAND, SC_SIZE, 0)。 end。 procedure (Sender: TObject)。 begin DefWindowProc(Handle, WM_SYSCOMMAND, SC_MOVE, 0)。 end。 procedure (Sender: TObject)。 begin if WindowState=wsNormal then := else if WindowState=wsMaximized then := end。 procedure (var Msg: TWMACTIVATE)。 begin if ( =WA_ACTIVE) or ( =WA_CLICKACTIVE) then begin :=。 :=。 :=。 :=。 end else begin :=。 :=。 :=。 :=。 end。 end。 procedure (Sender: TObject)。 begin :=39。39。 。 end。 procedure (Sender: TObject)。 var kl:variant。 pass:string。 begin zzyname:=。 kl:=(39。操作員 39。,zzyname,39。口令 39。)。 if varisnull(kl) then pass:=39。39。 else pass:=kl。 if =pass then begin i:=i+1。 if i=3 then begin (PChar(39。 密碼驗證錯誤，拒絕訪問！ 39。), PChar(39。提示 39。), MB_ICONEXCLAMATION)。 。 close。 end。 (pchar(39。密碼驗證錯誤，重新錄入！ 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. 會員管理界面與代碼設計實現及功能 代碼設計 : unit hygl。 interface uses 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。//總辦證數，年證數，月證數 implementation uses datam, vipedit, vipcx, viptz。 {$R *.dfm} procedure 。 begin zrs:=。 [1].text:=inttostr(zrs)。 。 。 (39。select count(*) from vip where 證類型 =年 證 39。)。 。 [3].text:=[0].AsString。 //月證數量 。 。 (39。select count(*) from vip where 證類型 =月證 39。)。 。 [5].text:=[0].AsString。 //押金合計 。 。 (39。select sum(押金 ) from vip39。)。 。 [7].text:=[0].AsString+39。元 39。 end。 procedure (Sender: TObject)。 begin inherited。 。 (39。性別 39。).AsString:=39。男 39。 (39。證類型 39。).AsString:=39。年證 39。 (39。押金 39。).AsString:=39。39。 frm_vipedit:=(application)。 :=0。 。 end。 procedure (Sender: TObject)。 begin inherited。 frm_vipedit:=(application)。 :=1。 //檢測會員有無借書 。 。 if (39。證號 39。,(39。證號 39。).AsString,[]) then begin :=false。 。 end。 。 // 。 end。 procedure (Sender: TObject)。 begin inherited。 。 :=39。證號 39。 。 end。 procedure (Sender: TObject。 var Action: TCloseAction)。 begin inherited。 。 。 。 release。 end。 procedure (Sender: TObject)。 var mes:string。 begin inherited。 。 。 if (39。證號 39。,(39。證號 39。).AsString,[]) then begin mes:=39。辦證會員 39。+(39。姓名 39。).AsString +39。 還有租借的圖書或影碟未還，不能刪除！ 39。 (pchar(mes),pchar(39。提示 39。) ,+MB_ICONQUESTION)。 。 exit。 end。 。 mes:=39。 是否要刪除辦證會員 39。+(39。 證號39。).AsString+39。 39。 +(39。姓名 39。).AsString +39。39。 if (pchar(mes),pchar(39。等待確認 39。) ,+MB_ICONQUESTION+mb_okcancel+MB_DEFBUTTON2)=idok then begin 。//刪除會員記錄 。 。 (39。delete from cashbook where 證號=39。+39。39。+(39。證號 39。).AsString+39。39。)。 。//刪除現金收支記錄 。 。 (39。delete from qk where 證號=39。+39。39。+(39。證號 39。).AsString+39。39。)。 。//刪除欠款記錄 。 。//刪除會員記錄 ztljs。