娛樂場收費所管理系統(tǒng)—計算機畢業(yè)設(shè)計論文(編輯修改稿)
2024-09-02 08:34 本頁面
【文章內(nèi)容簡介】 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。 客戶出入管理代碼設(shè)計實現(xiàn)及功能界面設(shè)計:代碼設(shè)計:unit ComePas。interfaceuses 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。implementationuses 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。(結(jié)帳標志 = False or 結(jié)帳標志 is NULL)39。 。 with do while not Eof do begin I := FieldByName(39。流水號39。).AsInteger。 (Format(39。%8d39。, [I]))。 。 end。
電大資料相關(guān)推薦
鄂ICP備17016276號-1