vcd租赁管理系统—免费计算机毕业设计论文

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。