【正文】 字段。導(dǎo)致數(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ài) ； 第二部分： 開臺(tái) ； 第三部分： 結(jié)帳 ； 第四部分： 日結(jié) 。 程序流程圖如下： 3 本 程序的技術(shù)實(shí)現(xiàn)及具體功能 登錄的 界面與程序設(shè)計(jì) 實(shí)現(xiàn) 程序登陸 主界面 狀 態(tài) 管理 開臺(tái) 結(jié)帳 日結(jié) 信息 退出 代碼設(shè)計(jì) : 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。長(zhǎng)整 39。 7: S := 39。浮點(diǎn) 39。 8: S := 39。BCDm39。 9: S := 39。字節(jié) 39。 10: S := 39。時(shí)間 39。 11: S := 39。郵戳 39。 else S := 39。未知 39。 + inttostr(iFldType)。 end。 FieldList := szName + StringofChar(32, 10 Length(trim(szName))) + Format(39。(%4s,%3d,%2d)39。, [S, iUnits1, iUnits2])。 (Trim(FieldList))。 inc(pCurFld)。 end。 finally FreeMem(pfldDes, MemSize)。 end。 。 end。 procedure (Sender: TObject)。 var T: TDataBase。 begin T := (Self)。 := False。 if = false then 。 ()。 end。 procedure (Sender: TObject)。 begin if = 1 then Exit。 (, 39。39。, true, false, )。 end。 procedure (Sender: TObject)。 begin with Alias do if (Text 39。39。) and ((Text) = 1) then begin (Text)。 := (Text)。 AliasChange(Self)。 end。 end。 procedure (Sender: TObject。 var Key: Char)。 begin if Key = 13 then AliasExit(Self)。 end。 procedure (Sender: TObject)。 var T: TTable。 begin T := (Self)。 := 。 with List1 do := Items[ItemIndex]。 ShowFields(T)。 end。 end. 客戶出入管理代碼設(shè)計(jì)實(shí)現(xiàn)及功能 界面設(shè)計(jì) : 代碼設(shè)計(jì) : 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 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。