【正文】 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。 且不可重復(fù) ,請重新錄入！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。 且不可重復(fù) ,請重新錄入！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。此類別已經(jīng)使用，不可刪除！ 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. 還租結(jié)算界面與代碼設(shè)計代碼設(shè)計:unit vcdhz。interfaceuses 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)。 procedure imgCaptionMouseDown(Sender: TObject。 Button: TMouseButton。 Shift: TShiftState。 X, Y: Integer)。 procedure imgCaptionMouseMove(Sender: TObject。 Shift: TShiftState。 X, Y: Integer)。 procedure imgCaptionMouseUp(Sender: TObject。 Button: TMouseButton。 Shift: TShiftState。 X, Y: Integer)。 procedure FormCreate(Sender: TObject)。 procedure imgSysIconMouseDown(Sender: TObject。 Button: TMouseButton。 Shift: TShiftState。 X, Y: Integer)。 procedure popSystemMenuPopup(Sender: TObject)。 procedure N_SizeClick(Sender: TObject)。 procedure N_MoveClick(Sender: TObject)。 procedure FormShow(Sender: TObject)。 procedure FormActivate(Sender: TObject)。 procedure group_zlrClick(Sender: TObject)。 procedure e_hyidChange(Sender: TObject)。 procedure e_ssKeyPress(Sender: TObject。 var Key: Char)。 procedure e_thyjKeyPress(Sender: TObject。 var Key: Char)。 procedure FormKeyPress(Sender: TObject。 var Key: Char)。 procedure e_hyidExit(Sender: TObject)。 procedure e_yjidExit(Sender: TObject)。 procedure FormClose(Sender: TObject。 var Action: TCloseAction)。 procedure e_vcdidExit(Sender: TObject)。 procedure DBGrid1DrawColumnCell(Sender: TObject。 const Rect: TRect。 DataCol: Integer。 Column: TColumn。 State: TGridDrawState)。 procedure e_yjidChange(Sender: TObject)。 procedure b_okClick(Sender: TObject)。 procedure e_thyjExit(Sender: TObject)。 procedure e_ssExit(Sender: TObject)。 private { Private declarations } canmove:boolean。 curPoint:TPoint。 oldPoint:TPoint。 Canvas:TCanvas。 protected procedure CreateParams(var Params:TCreateParams)。override。 procedure WMActivate(var Msg:TWMACTIVATE)。 message WM_ACTIVATE。 public { Public declarations } procedure ysje。//應(yīng)收金額計算 procedure hylzcx。//vcdid 反查會員零租 end。var frm_vc