【文章內(nèi)容簡介】 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。 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. 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。 。 。 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。結(jié)束時間 39。] := 。 。 ShowMessage(39。[初次 ]截鐘時間已經(jīng)增加 39。)。 end else begin //再次截鐘 。 //得到最后截鐘時間 while [39。流水號 39。] Code do 。 T := [39。結(jié)束時間 39。]。 。 [39。流水號 39。] := Code。 [39。開始時間 39。] := T。 [39。結(jié)束時間 39。] := 。 。 ShowMessage(39。[新的 ]截鐘時間已經(jīng)增加 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。數(shù)量 39。]。 Edit。 end else begin Append。 FieldByName(39。流水號 39。).asInteger := Code。 FieldByName(39。名稱 39。).AsString := 。 end。 FieldByName(39。數(shù)量 39。).AsInteger := Num9。 FieldByName(39。單價 39。).AsCurrency := Price。 FieldByName(39。金額 39。).AsCurrency := Round(Num9 * Price)。 Post。 := 39。39。 := 39。39。 Showmessage(39。新的酒水記錄已經(jīng)增加 39。)。 end。 := False。 end。 procedure (Sender: TObject)。 var LastCode: Boolean。 Pri1: Real。 Num1: Word。 B: TBookMark。 begin if Trim() = 39。39。 then Exit。 if Trim() = 39。39。 then Exit。 := False。 := True。 。 := True。 with do begin Locate(39。流水號 39。, , [])。 LastCode := VarIsNull([39。娛樂類別 39。])。 Edit。 [39。日期 39。] := 。 [39。開始時間 39。] := 。 [39。娛樂類別 39。] := 。 [39。編號 39。] := Copy(, 4, 2)。 [39。結(jié)帳標志 39。] := False。 if Trim() = 39。39。 then := 39。039。 Pri1 := [39。租拍單價 39。]。 Num1 := StrToInt()。 [39。租拍數(shù)量 39。] := Num1。 [39。租拍金額 39。] := Pri1 * Num1。 Post。 end。 := clWhite。 := 39。該客戶的數(shù)據(jù)已經(jīng)記錄 39。 if LastCode then begin B := 。 。 。 NtCode := [39。流水號 39。]。 (Format(39。%8d39。, [NtCode]))。 (B)。 end。 end。 procedure (Sender: TObject)。 var Code, Sort: Word。 // Indx: Word。 Codes, SortName: string。 begin Newer := = Format(39。%8d39。, [NtCode])。 := not Newer。 := False。 := False。 // := Newer。 if Newer then begin := clWhite。 := 39。提示信息：新的客戶記錄 39。 := Now。 := 1。 := 39。39。 := 1。 := 39。039。 end else begin := clGray。 := 39。提示信息：已有客戶記錄 39。 with do if Locate(39。流水號 39。, , []) then begin := FieldByName(39。開始時間 39。).AsDateTime。 Sort := [39。娛樂類別 39。]。 (39。娛樂類別 39。, Sort, [])。 SortName := [39。名稱 39。]。 := (SortName)。 Edit03Change(Self)。 Code := FieldByName(39。編號 39。).Value。 Codes := Format(39。第 %2d 號 39。, [Code])。 (CodeS)。 := (Codes)。 。 if VarIsNull([39。租拍數(shù)量 39。]) then := 39。039。 else := FieldByName(39。租拍數(shù)量 39。).Value。 end。 end。 end。 procedure (Sender: TObject。 var Action: TCloseAction)。 begin 。 。 。 。 。 。 Action := caFree。 end。 procedure (Sender: TObject)。 var Prnt: TextFile。 begin := False。 := 39。提示信息：正在打印客戶開臺單 ....39。 AssignPRN(Prnt)。 Rewrite(Prnt)。 := 39。宋體 39。 := []。 := GetDeviceCaps(, LOGPIXELSY)。 := 16。 := 39。黑體 39。 Writeln(Prnt, 39。雄 祺 體 育 活 動 中 心 39。)。 Writeln(Prnt)。 := 39。宋體 39。 := 12。