【正文】 Ctrls, ExtCtrls, DBActns, DB, ActnList。 end。 procedure (Sender: TObject)。 。 :=39。 。39。 pass:string。 end。 :=。 end。 procedure (Sender: TObject)。 end。 begin :=Caption。 with Canvas do begin Rectangle(,+Width,+Height)。 Rectangle(,+Width,+Height)。 //end if end。 Handle :=GetDC(0)。 Shift: TShiftState。 :=。 end。 procedure WMActivate(var Msg:TWMACTIVATE)。 var Action: TCloseAction)。 procedure e_zzyChange(Sender: TObject)。 procedure imgSysIconMouseDown(Sender: TObject。 procedure imgCaptionMouseMove(Sender: TObject。 LabelBtn1: TLabelBtn。 Label2: TLabel。 imgGrayRightUp: TImage。 palClient: TPanel。 popSystemMenu: TPopupMenu。 palRight: TPanel。 imgRightUp: TImage。 并在此數(shù)據(jù)庫下創(chuàng)建了六個(gè)表，用于存放原始數(shù)據(jù)。因?yàn)橐院笠O(shè)計(jì)到主鍵，外鍵的問題。數(shù)據(jù)庫的建立則時(shí)在 access2020 中建立的，在這 里你可以設(shè)置數(shù)據(jù)庫的密碼，對(duì)數(shù)據(jù)庫進(jìn)行保護(hù)。本系統(tǒng)對(duì)人事的管理比較全面，可長期使用。Delphi 應(yīng)用程序一般包含以下三個(gè)基本部分： 應(yīng)用程序運(yùn)行的接口：負(fù)責(zé)系統(tǒng)整體環(huán)境的設(shè)置，運(yùn)行狀態(tài)的監(jiān)視，應(yīng)用程序的啟動(dòng)等。由于對(duì)數(shù)據(jù)庫的操作都由數(shù)據(jù)庫管理系統(tǒng)完成，所以數(shù)據(jù)庫就可以獨(dú)立于具體的應(yīng)用程序而存在，從而數(shù)據(jù)庫又可以為多個(gè)用戶所共享。數(shù)據(jù)庫管理員一般是由業(yè)務(wù)水平較高、資歷較深的人員擔(dān)任。它通常由軟件、數(shù)據(jù)庫和數(shù)據(jù)管理員組成。 因?yàn)楸救四芰τ邢蓿由蠒r(shí)間緊迫，所以設(shè)計(jì)出來的本系統(tǒng)可能功能比較簡單，另外本系統(tǒng)是單機(jī)版，不能實(shí)現(xiàn) 網(wǎng)絡(luò)互聯(lián)操作 ,這些都有待于我在以后的工作學(xué)習(xí)中進(jìn)一步改進(jìn)。以前開發(fā) Windows 應(yīng)用軟件是專業(yè)人員的工作，需要掌握許多專業(yè)知識(shí)和經(jīng)過特殊的培訓(xùn)才能勝任。利用 DELPHI 軟件及其提供的各種面向?qū)ο蟮拈_發(fā)工具，建立完整性強(qiáng)、安全性好的數(shù)據(jù)庫，開發(fā)出功能完備，易使用的應(yīng)用程序。 它已經(jīng)深入到日常工作和生活的方方面面，比如文字處理、信息管理、輔助設(shè)計(jì)、圖形圖像處理、教育培訓(xùn)以及游戲娛樂等。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。前些年，軟件界流行一句話叫“真正的程序員用 VC，聰明的程序員用 Delphi”。數(shù)據(jù)庫管理系統(tǒng)是一種系統(tǒng)軟件，它的主要功能是維護(hù)數(shù)據(jù)庫并有效地訪問數(shù)據(jù)庫中任意部分?jǐn)?shù)據(jù)。在它之前的文件系統(tǒng)雖然也能處理持久數(shù)據(jù)，但是文件系統(tǒng)不提供對(duì)任意部分?jǐn)?shù)據(jù)的快速訪問，而這對(duì)數(shù)據(jù)量不斷增大的應(yīng)用來說是至關(guān) 重要的。主界面是一個(gè) 圖型界面 窗口，整個(gè)平臺(tái)顯示采用圖標(biāo)方式，可以非常方便的 管理會(huì)員 、 圖書影碟 、 租金結(jié)算 、 影碟查詢等 基本信息， 管理日常經(jīng)營的 基本情況，通過各種條件查詢出 影碟出借 的基本信息，以及打印出查詢出的基本信息，總之一切 影碟出借 基本信息都會(huì)顯示在系統(tǒng)平臺(tái)上。下面從四方面來討論： 經(jīng)濟(jì)可行性 主要是只指算一個(gè)新的系統(tǒng)開發(fā)所需要的投資費(fèi)用和運(yùn)算費(fèi)用，并與估計(jì)的新系統(tǒng)收益進(jìn)行比較，看是否有利。開發(fā)本系統(tǒng)的目標(biāo)不 僅是提高工作效率，減輕勞動(dòng)強(qiáng)度，而且減少出錯(cuò)率，具有很好的社會(huì)意義。你可以通過 Access 進(jìn)行建表，也可以通過在 主程序中建表，也可以通過powerdesigner 進(jìn)行可視化的建立，不過用這種方法，在導(dǎo)入的時(shí)候要把數(shù) 據(jù)庫要先斷開，否則數(shù)據(jù)庫的數(shù)據(jù)容易丟失。 系統(tǒng)的總體設(shè)計(jì) 這個(gè)管理系統(tǒng)從 4 月 1 日開始著手設(shè)計(jì)開發(fā) ,經(jīng)過一段時(shí)間的分析，并根據(jù)對(duì) 影音店光盤 管理的具體要求及需要本軟件實(shí)現(xiàn)的功能，將本軟件 分為 5 個(gè)大的模塊，分別是：第一部分： 系統(tǒng)管理 ； 第二部分： 日常統(tǒng)計(jì) ； 第三部分： 查詢統(tǒng)計(jì) 模塊； 第四部分： 幫助其他 。 palLeftUp: TPanel。 imgRightDown: TImage。 imgMaxButton: TImage。 N_Size: TMenuItem。 imgColorLeftUp: TImage。 imgLeftUp1: TImage。 blabel_exit: TLabelBtn。 Button: TMouseButton。 Shift: TShiftState。 procedure N_SizeClick(Sender: TObject)。 procedure e_passKeyPress(Sender: TObject。 i:integer。 {$R *.dfm} procedure (var Params:TCreateParams)。 begin if = wsNormal then begin DefWindowProc(Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 0)。 end。 :=bsClear。 :=Top。 with Canvas do begin Rectangle(,+Width,+Height)。 Shift: TShiftState。 canmove:=not canmove。操作員 39。 X, Y: Integer)。 end。 begin if WindowState=wsNormal then := else if WindowState=wsMaximized then := end。 :=。 end?？诹?39。), PChar(39。),pchar(39。 。 procedure (Sender: TObject)。 procedure (Sender: TObject。 。 DataSetPrior1: TDataSetPrior。 tiHelp: TTradeImg。 tiDelete: TTradeImg。 LabelBtn5: TLabelBtn。 procedure DataSetInsert1Execute(Sender: TObject)。 procedure tiLocateClick(Sender: TObject)。 begin zrs:=。 [3].text:=[0].AsString。 //押金合計(jì) 。 end。 (39。 frm_vipedit:=(application)。 //檢測會(huì)員有無借書 。 end。證號(hào) 39。 。 if (39。).AsString +39。 。姓名 39。 (39。)。+(39。//刪除會(huì)員記錄 ztljs。 procedure (Sender: TObject)。 end。 begin inherited。 imgLeftUp: TImage。 imgDownMin: TImage。 imgRestoreButton: TImage。 N_Speater: TMenuItem。 imgGrayCaption: TImage。 imgColorMenubar: TImage。 b_del: TMoveImgBtn。 e_name: TEdit。 X, Y: Integer)。 procedure FormCreate(Sender: TObject)。 procedure FormShow(Sender: TObject)。 procedure e_nameKeyPress(Sender: TObject。 oldPoint:TPoint。 mes:string。 end。 procedure (Sender: TObject)。 Canvas:=。 :=Y。 X, Y: Integer)。 procedure (Sender: TObject。 Free。編號(hào) 39。 procedure (Sender: TObject)。 end。 :=。 end。 if key=13 then begin ()。39。 :=true。小類 39。 。 :=false。 :=(39。 :=true。編號(hào) 39。 begin if key=13 then begin (b_save)。編號(hào)不能為空或小于 2 位 ,請(qǐng)重新錄入！ 39。 except 。注意 :編號(hào) 、 類別名 均不能為空 39。 :=39。 (39。錄入錯(cuò)誤！ 39。 。 begin 。 exit。39。 release。 imgRightUp: TImage。 palRight: TPanel。 popSystemMenu: TPopupMenu。 palClient: TPanel。 imgGrayRightUp: TImage。 Group_hz: TGroupBox。 e_zlname: TEdit。 e_zltel: TEdit。 Label10: TLabel。 b_ok: TMoveImgBtn。 procedure imgCloseButtonClick(Sender: TObject)。 ZTL: TStatusBar。 e_ys: TEdit。 e_vcdid: TEdit。 e_zlsex: TEdit。 Group_js: TGroupBox。 imgGrayLeftUp: TImage。 CoolBarMenu: TCoolBar。 N_Max: TMenuItem。 imgCloseButton: TImage。 imgCaption: TImage。 end. 還租結(jié)算界面與代碼設(shè)計(jì) 代碼設(shè)計(jì) : unit vcdhz。等待確認(rèn) 39。 。小類 39。 end。注意 :編號(hào) 、 類別名 均不能為空 39。).AsString:=bh。 :=39。 且不可重復(fù) ,請(qǐng)重新錄入！ 39。39。提示 39。 end。 :=(39。 :=true。).asstring。 end。 :=true。此類別已經(jīng)使用，不可修改其內(nèi)容！ 39。 :=false。39。 end。 var Key: Char)。 :=。 begin DefWindowProc(Handle, WM_SYSCOMMAND, SC_MOVE, 0)。 := and (WindowState =wsNormal)。 procedure (Sender: TObject。 canmove:=not canmove。 Shift: TShiftState。 with Canvas do begin Rectangle(,+Width,+Height)。 :=Top。 :=bsClear。 end。 begin if = wsNormal then begin DefWindowProc(Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 0)。 {$R *.dfm} procedure (var Params:TCreateParams)。 protected procedure CreateParams(var Params:TCreateParams)。 procedure b_saveClick(Sender: TObject)。 var Key: Char)。 Button: TMouseButton。 Shift: TShiftState。