【導讀】護以及前端應用程序的開發(fā)兩個方面。全性好的數(shù)據(jù)庫，開發(fā)出功能完備，易使用的應用程序。過調試、編譯與實現(xiàn)，該程序界面友好、程序設計風格樸素，使用起來美觀大方、方便易用。尤其是系統(tǒng)的“查詢模塊”。點取代人工操作，提高了光盤管理工作效率。工作學習及生活中，成為我們日常生活中不可缺少的輔助工具。以前開發(fā)Windows應用軟件是專業(yè)人員的工作，需要。掌握許多專業(yè)知識和經過特殊的培訓才能勝任。前臺管理員進行更有效的光盤出借管理工作。對于前者要求建立起數(shù)據(jù)一致性。和完整性強、數(shù)據(jù)安全性好的庫。都有待于我在以后的工作學習中進一步改進。它易學易用，如同VB，因而被稱為“第四代編程語。從1995年推出至今已經經歷了7個版本，運行在win9x或winme，win2020，winxp，這里把“VB”比作是傻瓜相機，Delphi是帶有自動功能。用VC，聰明的程序員用Delphi”。也有的把Delphi稱作VB. 數(shù)據(jù)庫是依照某種數(shù)據(jù)模型組織起來并存放二級存。儲器中的數(shù)據(jù)集合。這些數(shù)據(jù)為多個應用服務，獨立于具體

　　

【正文】 tton: 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。 var Key: Char)。 begin if not ( Key in [39。039。..39。939。,13,8]) then Key := 0。 if key=13 then begin ()。 end。 end。 procedure (Sender: TObject)。 begin :=1。 :=true。 :=true。 :=39。39。 :=39。39。 :=false。 :=false。 :=false。 :=false。 :=true。 :=true。 :=false。 :=false。 ()。 end。 procedure (Sender: TObject)。 begin 。 if (39。小類 39。,[])=true then begin (pchar(39。此類別已經使用，不可修改其內容！ 39。) ,pchar(39。提示 39。),MB_ICONEXCLAMATION)。 exit。 end。 。 :=2。 :=true。 :=true。 :=true。 :=true。 :=false。 :=false。 :=false。 :=false。 end。 procedure (Sender: TObject。 Field: TField)。 begin :=(39。編號 39。).asstring。 :=(39。類別 39。).asstring。 end。 procedure (Sender: TObject)。 begin :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=false。 :=false。 :=false。 :=false。 // :=(39。編號 39。).asstring。 :=(39。類別 39。).asstring。 end。 procedure (Sender: TObject。 var Key: Char)。 begin if key=13 then begin (b_save)。 end。 end。 procedure (Sender: TObject)。 var bh,lbname:string。 begin bh:=。 lbname:=。 if Length()2 then begin (PChar(39。編號不能為空或小于 2 位 ,請重新錄入！ 39。) , PChar(39。提示 39。),MB_ICONEXCLAMATION)。 ()。 exit。 end。 if =1 then begin try ([bh,lbname])。 except 。 :=39。39。 :=39。39。 mes:=39。錄入錯誤！ 39。+13+13+39。注意 :編號 、 類別名 均不能為空 39。 +13+39。 且不可重復 ,請重新錄入！ 39。 (pchar(mes),pchar(39。 提示39。),MB_ICONEXCLAMATION)。 exit。 end。 :=39。編號 39。 :=39。39。 :=39。39。 ()。 end else begin 。 (39。編號 39。).AsString:=bh。 (39。類別 39。).AsString:=lbname。 try 。 except mes:=39。錄入錯誤！ 39。+13+13+39。注意 :編號 、 類別名 均不能為空 39。 +13+39。 且不可重復 ,請重新錄入！ 39。 (pchar(mes),pchar(39。 提示39。),MB_ICONEXCLAMATION)。 。 exit。 end。 :=39。編號 39。 end。 end。 procedure (Sender: TObject)。 begin 。 if (39。小類 39。,[])=true then begin (pchar(39。此類別已經使用，不可刪除！ 39。) ,pchar(39。提示 39。),MB_ICONEXCLAMATION)。 exit。 end。 。 mes:=39。是否要刪除類別 39。+(39。類別 39。).AsString +39。39。 if (pchar(mes),pchar(39。等待確認 39。) ,+MB_ICONQUESTION+mb_okcancel)=idok then 。 end。 procedure (Sender: TObject。 var Action: TCloseAction)。 begin 。 release。 end。 end. 還租結算界面與代碼設計 代碼設計 : unit vcdhz。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Menus, ComCtrls, ToolWin, Buttons, StdCtrls, AppEvnts, LabelButton, TradeImage, MaskImageButton, MoveImageButton, Grids, DBGrids, DB。 type Tfrm_vcdhz = 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: TImage。 imgSysIcon: TImage。 popSystemMenu: TPopupMenu。 N_Restore: TMenuItem。 N_Max: TMenuItem。 N_Min: TMenuItem。 N_Move: TMenuItem。 N_Size: TMenuItem。 N_Speater: TMenuItem。 N_Close: TMenuItem。 palClient: TPanel。 lbCaption: TLabel。 CoolBarMenu: TCoolBar。 ToolBarMenu: TToolBar。 imgLeft: TImage。 imgColorLeftUp: TImage。 imgGrayCaption: TImage。 imgGrayMenuBar: TImage。 imgGrayRightUp: TImage。 imgColorCaption: TImage。 imgGrayLeftUp: TImage。 imgColorRightUp: TImage。 imgRightUp1: TImage。 imgLeftUp1: TImage。 imgColorMenubar: TImage。 group_hy: TGroupBox。 Group_hz: TGroupBox。 Group_zl: TGroupBox。 Group_js: TGroupBox。 DBGrid1: TDBGrid。 group_zlr: TRadioGroup。 Label1: TLabel。 e_hyid: TEdit。 Label2: TLabel。 e_zlname: TEdit。 Label3: TLabel。 e_zlsex: TEdit。 Label4: TLabel。 e_zlzlx: TEdit。 Label5: TLabel。 e_zlyj: TEdit。 Label6: TLabel。 e_zltel: TEdit。 Label7: TLabel。 e_vcdid: TEdit。 Group_lz: TGroupBox。 Label8: TLabel。 e_yjid: TEdit。 Label9: TLabel。 e_yj: TEdit。 Label10: TLabel。 e_qk: TEdit。 e_ys: TEdit。 Label11: TLabel。 Label12: TLabel。 e_ss: TEdit。 Label13: TLabel。 e_thyj: TEdit。 b_ok: TMoveImgBtn。 blabel_ok: TLabelBtn。 ZTL: TStatusBar。 Group_qp: TGroupBox。 Label14: TLabel。 DataSource1: TDataSource。 procedure imgMinButtonClick(Sender: TObject)。 procedure imgSizeButtonClick(Sender: TObject)。 procedure imgCloseButtonClick(Sender: TObject