【正文】 ，導致數據庫出錯，有時還要向表中新加入字段。導致數據窗口不好用的連鎖反映。 系統的總體設計 這個管理系統從 4 月 1 日開始著手設計開發(fā) ,經過一段時間的分析，并根據對 影音店光盤 管理的具體要求及需要本軟件實現的功能，將本軟件分為 5 個大的模塊，分別是：第一部分： 狀態(tài) ； 第二部分： 開臺 ； 第三部分： 結帳 ； 第四部分： 日結 。 程序流程圖如下： 3 本 程序的技術實現及具體功能 登錄的 界面與程序設計 實現 程序登陸 主界面 狀 態(tài) 管理 開臺 結帳 日結 信息 退出 代碼設計 : unit GetStru。 interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DbTables, BDE, ExtCtrls。 type TReadStru = class(TForm) List1: TListBox。 List2: TListBox。 Label3: TLabel。 Alias: TComboBox。 procedure FormCreate(Sender: TObject)。 procedure AliasChange(Sender: TObject)。 procedure AliasExit(Sender: TObject)。 procedure AliasKeyPress(Sender: TObject。 var Key: Char)。 procedure List1Click(Sender: TObject)。 private { Private declarations } procedure ShowFields(T: TTable)。 public { Public declarations } end。 var ReadStru: TReadStru。 implementation {$R *.DFM} procedure (T: TTable)。 var curProp: CURProps。 pfldDes, pCurFld: pFLDDesc。 i: Integer。 MemSize: Integer。 FieldList: string。 S: string。 begin 。 Check(DbiGetCursorProps(, curProp))。 MemSize := * SizeOf(FLDDesc)。 pfldDes := AllocMem(MemSize)。 。 try pCurFld := pfldDes。 DbiGetFieldDescs(, pfldDes)。 for I := 0 to 1 do with pCurFld^ do begin case iFldType of 1: S := 39。字符 39。 2: S := 39。日期 39。 3: S := 39。備注 39。 4: S := 39。邏輯 39。 5: S := 39。短整 39。 6: S := 39。長整 39。 7: S := 39。浮點 39。 8: S := 39。BCDm39。 9: S := 39。字節(jié) 39。 10: S := 39。時間 39。 11: S := 39。郵戳 39。 inc(pCurFld)。 end。 finally FreeMem(pfldDes, MemSize)。 end。 。 end。 客戶出入管理代碼設計實現及功能 界面設計 : 代碼設計 : unit ComePas。 interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Variants, DB, Xeduser, StdCtrls, DBCtrls, Mask, ComCtrls, Grids, DBGrids, ExtCtrls。 type TComeForm = class(TForm) Group1: TGroupBox。 Label1: TLabel。 Label2: TLabel。 Label3: TLabel。 Label4: TLabel。 Group2: TGroupBox。 Edit13: TEdit。 Label5: TLabel。 Label8: TLabel。 Label9: TLabel。 Button3: TButton。 Label7: TLabel。 Edit06: TEdit。 Label10: TLabel。 Edit14: TEdit。 Button1: TButton。 Edit05: TComboBox。 Edit11: TDBLookupComboBox。 Label6: TLabel。 Label11: TLabel。 Edit01: TComboBox。 Edit02: TDateTimePicker。 Edit03: TComboBox。 Edit12: TDBEdit。 SBar: TPanel。 Edit04: TEdit。 Edit21: TDateTimePicker。 Check1: TCheckBox。 Button4: TButton。 Timer1: TTimer。 Image1: TImage。 Button2: TButton。 Label12: TLabel。 CardList: TComboBox。 Label13: TLabel。 DBEdit1: TDBEdit。 procedure FormCreate(Sender: TObject)。 procedure Edit03Click(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 procedure Edit01Click(Sender: TObject)。 procedure FormClose(Sender: TObject。 var Action: TCloseAction)。 procedure Button4Click(Sender: TObject)。 procedure Edit13Exit(Sender: TObject)。 procedure Check1Exit(Sender: TObject)。 procedure Edit03Change(Sender: TObject)。 procedure Edit05Click(Sender: TObject)。 procedure Edit06KeyPress(Sender: TObject。 var Key: Char)。 procedure Timer1Timer(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 procedure Edit01DrawItem(Control: TWinControl。 Index: Integer。 Rect: TRect。 State: TOwnerDrawState)。 procedure FormCanResize(Sender: TObject。 var NewWidth, NewHeight: Integer。 var Resize: Boolean)。 private { Private declarations } public { Public declarations } end。 var ComeForm: TComeForm。 implementation uses Work01, Data, Printers。 {$R *.DFM} var Change: Boolean = False。 NtCode: Word。 Newer: Boolean。 PSort: Word。 procedure (Sender: TObject)。 var I: Word。 begin 。 。 。 。 。 。 。 if or not VarIsNull([39。娛樂類別 39。]) then ([])。 NtCode := [39。流水號 39。]。 。 := 39。Select 流水號 From Ball01 Where 39。 + 39。(結帳標志 = False or 結帳標志 is NULL)39。 。 with do while not Eof do begin I := FieldByName(39。流水號 39。).AsInteger。 (Format(39。%8d39。, [I]))。 。 end。 。 。 repeat ([39。名稱 39。])。 。 until 。 := 1。 Edit01Click(Self)。 end。 procedure (Sender: TObject)。 begin Edit03Change(Self)。 Edit05Click(Self)。 end。 procedure (Sender: TObject)。 var T: TDateTime。 Code, Num9: Word。 Price: Real。 begin Code := StrToInt(Trim())。 if then begin if not (39。流水號 39。, Code, []) then begin T := [39。開始時間 39。]。 // 初次截鐘 。 [39。流水號 39。] := Code。 [39。開始時間 39。] := T。 [39。結束時間 39。] := 。 。 ShowMessage(39。[初次 ]截鐘時間已經增加 39。)。 end else begin //再次截鐘 。 //得到最后截鐘時間 while [39。流水號 39。] Code do 。 T := [39。結束時間 39。]。 。 [39。流水號 39。] := Code。 [39。開始時間 39。] := T。 [39。結束時間 39。] := 。 。 ShowMessage(39。[新的 ]截鐘時間已經增加 39。)。 end。 := False。 end。 if Trim() = 39。39。 then Exit。 Num9 := StrToInt()。 if Num9 = 0 then Exit。 Price := [39。單價 39。]。 := FloatToStr(Price * Num9)。 with do begin if Locate(39。流水號 。名稱 39。, VarArrayof([Code, ]), []) then begin Num9 := Num9 + [39。數量 39。]。 Edit。 end else begin Append。 FieldByName(39。流水號 39。).asInteger := Code。 FieldByName(39。名稱 39。).AsString := 。 end。