mc_gzoldlist.pas

腾龙餐饮管理软件

unit MC_GZOldList;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids, Db, DBTables, ComCtrls, Buttons;

type
  TGZOldList = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    Query1BDEDesigner: TIntegerField;
    Query1BDEDesigner2: TDateTimeField;
    Query1BDEDesigner3: TDateTimeField;
    Query1BDEDesigner4: TStringField;
    Query1BDEDesigner5: TStringField;
    Query1BDEDesigner6: TStringField;
    Query1BDEDesigner7: TFloatField;
    Query1BDEDesigner8: TStringField;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label2: TLabel;
    DateTimePicker2: TDateTimePicker;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Label3: TLabel;
    SpeedButton1: TSpeedButton;
    BitBtn3: TBitBtn;
    GroupBox2: TGroupBox;
    DBGrid2: TDBGrid;
    Query2: TQuery;
    DataSource2: TDataSource;
    Query2BDEDesigner: TStringField;
    BitBtn4: TBitBtn;
    Query3: TQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GZOldList: TGZOldList;

implementation

{$R *.DFM}

procedure TGZOldList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     GZOldList.Release;
     GZOldList:=Nil;
end;

procedure TGZOldList.FormShow(Sender: TObject);
begin
     DateTimePicker2.Date:=Date;
     DateTimePicker1.Date:=Date-30;
end;

procedure TGZOldList.SpeedButton1Click(Sender: TObject);
begin
     Query2.Close;
     Query2.Open;
     GroupBox2.Visible:=True;
     BitBtn4.SetFocus;
end;

procedure TGZOldList.BitBtn4Click(Sender: TObject);
begin
     if Query2.Active=True then
     if Query2.RecordCount<>0 then
        begin
             Edit1.Text:=Query2.Fields[0].AsString;
             GroupBox2.Visible:=False;
             Edit1.Setfocus;
        end
     else
        begin
             ShowMessage('没有挂帐人.');
             GroupBox2.Visible:=False;
             Edit1.SetFocus;
        end;
end;

procedure TGZOldList.BitBtn2Click(Sender: TObject);
begin
     if Length(Edit1.Text)=0 then
        begin
             ShowMessage('请输入挂帐人');
             Edit1.SetFocus;
        end
     else
        begin
             if Edit1.Text='*' then
                begin
                     Query1.Close;
                     Query1.SQL.Clear;
                     Query1.SQL.Add('Select * From 挂帐历史表');
                     Query1.SQL.Add('Where 还帐时间>:A and 还帐时间<:B');
                     Query1.ParamByName('A').AsDateTime:=DateTimePicker1.DateTime;
                     Query1.ParamByName('B').AsDateTime:=DateTimePicker2.DateTime;
                     if Query1.Prepared=True then Query1.Prepare;
                     Query1.Open;
                     if Query1.RecordCount=0 then ShowMessage('对不起，这段时间离没有挂帐信息。');
                end
             else
                begin
                     Query1.Close;
                     Query1.SQL.Clear;
                     Query1.SQL.Add('Select * From 挂帐历史表');
                     Query1.SQL.Add('Where 还帐时间>:A and 还帐时间<:B and 挂帐人 Like :C');
                     Query1.ParamByName('A').AsDateTime:=DateTimePicker1.DateTime;
                     Query1.ParamByName('B').AsDateTime:=DateTimePicker2.DateTime;
                     Query1.ParamByName('C').AsString:=Edit1.Text+'%';
                     if Query1.Prepared=True then Query1.Prepare;
                     Query1.Open;
                     if Query1.RecordCount=0 then ShowMessage('对不起，这段时间离没有挂帐信息。');
                end
        end;
end;

procedure TGZOldList.BitBtn3Click(Sender: TObject);
begin
     if Query1.Active=True then
     if Query1.RecordCount<>0 then
        begin
             Query3.Close;
             Query3.SQL.Clear;
             Query3.SQL.Add('Delete from 挂帐点单表');
             Query3.SQL.Add('Where 结帐编号=:A');
             Query3.ParamByName('A').AsInteger:=Query1.FieldByName('单据编号').AsInteger;
             Query3.ExecSQL;
             Query1.Delete;
        end;
end;

procedure TGZOldList.BitBtn1Click(Sender: TObject);
begin
     Close;
end;

end.