?? comepas.pas
字號:
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 TComeForm.FormCreate(Sender: TObject);
var
I: Word;
begin
DM.Water.Open;
DM.Ball00.Open;
DM.Ball01.Open;
DM.Ball02.Open;
DM.Ball03.Open;
DM.Rate.Open;
DM.Ball01.Last;
if DM.Ball01.Bof or not VarIsNull(DM.Ball01['娛樂類別']) then
DM.Ball01.AppendRecord([]);
NtCode := DM.Ball01['流水號'];
DM.State.Close;
DM.State.SQL.Text :=
'Select 流水號 From Ball01 Where ' +
'(結帳標志 = False or 結帳標志 is NULL)';
DM.State.Open;
with DM.State do while not Eof do begin
I := FieldByName('流水號').AsInteger;
Edit01.Items.Add(Format('%8d', [I]));
DM.State.Next;
end;
DM.State.Close;
DM.Ball00.First;
repeat
Edit03.Items.Add(DM.Ball00['名稱']);
DM.Ball00.Next;
until DM.Ball00.Eof;
Edit01.ItemIndex := Edit01.Items.Count - 1;
Edit01Click(Self);
end;
procedure TComeForm.Edit03Click(Sender: TObject);
begin
Edit03Change(Self);
Edit05Click(Self);
end;
procedure TComeForm.Button3Click(Sender: TObject);
var
T: TDateTime;
Code, Num9: Word;
Price: Real;
begin
Code := StrToInt(Trim(Edit01.Text));
if Check1.Checked then begin
if not DM.Ball03.Locate('流水號', Code, []) then begin
T := DM.Ball01['開始時間']; // 初次截鐘
DM.Ball03.Append;
DM.Ball03['流水號'] := Code;
DM.Ball03['開始時間'] := T;
DM.Ball03['結束時間'] := Edit21.DateTime;
DM.Ball03.POST;
ShowMessage('[初次]截鐘時間已經(jīng)增加');
end else begin //再次截鐘
DM.Ball03.Last; //得到最后截鐘時間
while DM.Ball03['流水號'] <> Code do DM.Ball03.Prior;
T := DM.Ball03['結束時間'];
DM.Ball03.Append;
DM.Ball03['流水號'] := Code;
DM.Ball03['開始時間'] := T;
DM.Ball03['結束時間'] := Edit21.DateTime;
DM.Ball03.Post;
ShowMessage('[新的]截鐘時間已經(jīng)增加');
end;
Check1.Checked := False;
end;
if Trim(Edit13.Text) = '' then Exit;
Num9 := StrToInt(Edit13.Text);
if Num9 = 0 then Exit;
Price := DM.Water['單價'];
Edit14.Text := FloatToStr(Price * Num9);
with DM.Ball02 do begin
if Locate('流水號;名稱', VarArrayof([Code, Edit11.Text]), [])
then begin
Num9 := Num9 + DM.Ball02['數(shù)量'];
Edit;
end else begin
Append;
FieldByName('流水號').asInteger := Code;
FieldByName('名稱').AsString := Edit11.Text;
end;
FieldByName('數(shù)量').AsInteger := Num9;
FieldByName('單價').AsCurrency := Price;
FieldByName('金額').AsCurrency := Round(Num9 * Price);
Post;
Edit13.Text := '';
Edit14.Text := '';
Showmessage('新的酒水記錄已經(jīng)增加');
end;
Button3.Enabled := False;
end;
procedure TComeForm.Button1Click(Sender: TObject);
var
LastCode: Boolean;
Pri1: Real;
Num1: Word;
B: TBookMark;
begin
if Trim(Edit03.Text) = '' then Exit;
if Trim(Edit05.Text) = '' then Exit;
Button1.Enabled := False;
Button4.Enabled := True;
Button4.SetFocus;
Group2.Enabled := True;
with DM.Ball01 do begin
Locate('流水號', Edit01.Text, []);
LastCode := VarIsNull(DM.Ball01['娛樂類別']);
Edit;
DM.Ball01['日期'] := Edit02.DateTime;
DM.Ball01['開始時間'] := Edit02.DateTime;
DM.Ball01['娛樂類別'] := Edit04.Text;
DM.Ball01['編號'] := Copy(Edit05.Text, 4, 2);
DM.Ball01['結帳標志'] := False;
if Trim(Edit06.Text) = '' then Edit06.Text := '0';
Pri1 := DM.Ball00['租拍單價'];
Num1 := StrToInt(Edit06.Text);
DM.Ball01['租拍數(shù)量'] := Num1;
DM.Ball01['租拍金額'] := Pri1 * Num1;
Post;
end;
SBar.Font.Color := clWhite;
SBar.Caption := '該客戶的數(shù)據(jù)已經(jīng)記錄';
if LastCode then begin
B := DM.Ball01.GetBookMark;
DM.Ball01.Append;
DM.Ball01.Post;
NtCode := DM.Ball01['流水號'];
Edit01.Items.Add(Format('%8d', [NtCode]));
DM.Ball01.GotoBookMark(B);
end;
end;
procedure TComeForm.Edit01Click(Sender: TObject);
var
Code, Sort: Word;
// Indx: Word;
Codes, SortName: string;
begin
Newer := Edit01.Text = Format('%8d', [NtCode]);
Group2.Enabled := not Newer;
Button4.Enabled := False;
Button1.Enabled := False;
// Edit03.Enabled := Newer;
if Newer then begin
SBar.Font.Color := clWhite;
SBar.Caption := '提示信息：新的客戶記錄';
Edit02.DateTime := Now;
Edit03.ItemIndex := -1;
Edit04.Text := '';
Edit05.ItemIndex := -1;
Edit06.Text := '0';
end else begin
SBar.Font.Color := clGray;
SBar.Caption := '提示信息：已有客戶記錄';
with DM.Ball01 do
if Locate('流水號', Edit01.Text, []) then begin
Edit02.DateTime := FieldByName('開始時間').AsDateTime;
Sort := DM.Ball01['娛樂類別'];
DM.Ball00.Locate('娛樂類別', Sort, []);
SortName := DM.Ball00['名稱'];
Edit03.ItemIndex := Edit03.Items.IndexOf(SortName);
Edit03Change(Self);
Code := FieldByName('編號').Value;
Codes := Format('第 %2d 號', [Code]);
Edit05.Items.Add(CodeS);
Edit05.ItemIndex := Edit05.Items.IndexOf(Codes);
Edit05.Update;
if VarIsNull(DM.Ball01['租拍數(shù)量']) then
Edit06.Text := '0' else Edit06.Text :=
FieldByName('租拍數(shù)量').Value;
end;
end;
end;
procedure TComeForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DM.Water.Close;
DM.Ball00.Close;
DM.Ball01.Close;
DM.Ball02.Close;
DM.Ball03.Close;
DM.Rate.Close;
Action := caFree;
end;
procedure TComeForm.Button4Click(Sender: TObject);
var
Prnt: TextFile;
begin
Button4.Enabled := False;
SBar.Caption := '提示信息：正在打印客戶開臺單....';
AssignPRN(Prnt);
Rewrite(Prnt);
Printer.Canvas.Font.Name := '宋體';
Printer.Canvas.Font.Style := [];
Printer.Canvas.Font.PixelsPerInch :=
GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY);
Printer.Canvas.Font.Size := 16;
Printer.Canvas.Font.Name := '黑體';
Writeln(Prnt, '雄 祺 體 育 活 動 中 心');
Writeln(Prnt);
Printer.Canvas.Font.Name := '宋體';
Printer.Canvas.Font.Size := 12;
Writeln(Prnt, '流水號: ' + Edit01.text);
Writeln(Prnt, Edit03.Text + Edit05.Text);
Writeln(Prnt, '收費標準:');
DM.Ball00.Locate('娛樂類別', PSort, []);
Writeln(Prnt,
DM.Ball00['時間1']: 8, '--',
DM.Ball00['時間2'], '單價:': 8,
DM.Ball00['單價1']: 2, '元/小時');
Writeln(Prnt,
DM.Ball00['時間2'], '--',
DM.Ball00['時間3']: 2, '單價:': 8,
DM.Ball00['單價2'], '元/小時');
Writeln(Prnt,
DM.Ball00['時間3'], '以后', '': 6, '單價:': 8,
DM.Ball00['單價3']: 2, '元/小時');
Writeln(Prnt);
Printer.Canvas.Font.Name := '黑體';
Printer.Canvas.Font.Size := 14;
Writeln(Prnt, '開臺時間: ' + timetostr(Edit02.time));
Writeln(Prnt);
Writeln(Prnt, '注：最低消費時間一小時起');
Printer.Canvas.Font.Name := '宋體';
Printer.Canvas.Font.Size := 11;
CloseFile(Prnt);
end;
procedure TComeForm.Edit13Exit(Sender: TObject);
var
Price, Num9: Real;
begin
Button3.Enabled := Check1.Checked or (Edit13.Text <> '');
if not Button3.Enabled then Exit;
Num9 := StrToInt(Edit13.Text);
if Num9 = 0 then Exit;
Price := DM.Water.FieldByName('單價').AsFloat;
Edit14.Text := FloatToStr(Price * Num9);
end;
procedure TComeForm.Check1Exit(Sender: TObject);
begin
Edit21.DateTime := Now;
Button3.Enabled := Check1.Checked or (Edit13.Text <> '');
end;
procedure TComeForm.Edit03Change(Sender: TObject);
var
I, Sort, Summ: Word;
S: string;
begin
Button3.Enabled := False;
DM.Ball00.Locate('名稱', Edit03.Text, []);
Sort := DM.Ball00['娛樂類別'];
PSort := Sort;
Summ := DM.Ball00['數(shù)量'];
Edit04.Text := Format('%d', [Sort]);
DM.State.SQL.Text :=
'Select * From Ball01 Where ' +
'(結帳標志 = False or 結帳標志 is NULL) ' +
'and 娛樂類別="' + Edit04.Text + '"';
DM.State.Open;
Edit05.Items.Clear;
for I := 1 to Summ do Edit05.Items.Add(Format('第 %2d 號', [I]));
while not DM.State.Eof do begin
I := DM.State['編號'];
S := Format('第 %2d 號', [I]);
with Edit05.Items do Delete(Indexof(S));
DM.State.Next;
end;
DM.State.Close;
end;
procedure TComeForm.Edit05Click(Sender: TObject);
begin
Button1.Enabled := (Edit03.Text <> '') and (Edit05.Text <> '');
end;
procedure TComeForm.Edit06KeyPress(Sender: TObject; var Key: Char);
begin
Button1.Enabled := (Edit03.Text <> '') and (Edit05.Text <> '');
end;
procedure TComeForm.Timer1Timer(Sender: TObject);
begin
ShowTime(image1);
end;
procedure TComeForm.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TComeForm.Edit01DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
if odSelected in State then Begin
Edit01.Canvas.Brush.Color := clBlue;
End;
Edit01.Canvas.FillRect(Rect);
Edit01.Canvas.TextOut(Rect.Left + 01, Rect.Top + 1, Edit01.Items[Index]);
end;
procedure TComeForm.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
NewHeight := 450;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -