mc_fydjgl.pas

异洲酒店管理系统

unit MC_FYDJGL;

interface

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

type
  TFYDJGL = class(TForm)
    GroupBox1: TGroupBox;
    Query1: TQuery;
    DataSource1: TDataSource;
    Panel2: TPanel;
    Query1BDEDesigner: TIntegerField;
    Query1BDEDesigner2: TStringField;
    Query1BDEDesigner3: TFloatField;
    Query1BDEDesigner4: TDateTimeField;
    Query1BDEDesigner5: TStringField;
    Query2: TQuery;
    DataSource2: TDataSource;
    Query2BDEDesigner: TIntegerField;
    Query2BDEDesigner2: TStringField;
    Query2BDEDesigner3: TFloatField;
    Query2BDEDesigner4: TDateTimeField;
    Query2BDEDesigner5: TStringField;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox3: TGroupBox;
    DBGrid2: TDBGrid;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Query3: TQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FYDJGL: TFYDJGL;

implementation

uses MC_CHXXLLCK, MC_JHXXLLCK;

{$R *.DFM}
// 设置查询信息框内容
procedure TFYDJGL.FormShow(Sender: TObject);
begin
DateTimePicker1.Date:=Date-30;
DateTimePicker2.Date:=Date;
ComboBox1.ItemIndex:=0;
ComboBox2.ItemIndex:=0;
Edit1.Text:='*';
end;

procedure TFYDJGL.Edit1Enter(Sender: TObject);
begin
Edit1.Color:=ClAqua;
end;

procedure TFYDJGL.Edit1Exit(Sender: TObject);
begin
Edit1.Color:=ClWindow;
end;
//确认筛选条件
procedure TFYDJGL.BitBtn1Click(Sender: TObject);
begin
 If Length(Edit1.Text) = 0 Then
 begin
 ShowMessage('请输入查询的信息.');
 Edit1.SetFocus;
 End
 Else
 begin
 if ComboBox2.Items[ComboBox2.ItemIndex]='Like' then
 begin//开始Like的判断
 if Edit1.Text='*' then
 begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('Select * From 出货历史单据表');
  Query1.SQL.Add('Where 记录日期 >= :A and 记录日期 <= :B');
  Query1.SQL.Add('ORDER BY 单据编号 ASC');
  Query1.ParamByName('A').AsDateTime:=DatetimePicker1.DateTime;
  Query1.ParamByName('B').AsDateTime:=DatetimePicker2.DateTime;
  Query1.Open;//打开出货单据表
  Label4.Caption:=IntToStr(Query1.RecordCount)+'次';
  Query2.Close;
  Query2.SQL.Clear;
  Query2.SQL.Add('Select * From 进货历史单据表');
  Query2.SQL.Add('Where 记录日期 >= :A and 记录日期 <= :B');
  Query2.SQL.Add('ORDER BY 单据编号 ASC');
  Query2.ParamByName('A').AsDateTime:=DatetimePicker1.DateTime;
  Query2.ParamByName('B').AsDateTime:=DatetimePicker2.DateTime;
  Query2.Open;//打开进货单据表
  Label8.Caption:=IntToStr(Query2.RecordCount)+'次';
  Query3.Close;
  Query3.SQL.Clear;
  Query3.SQL.Add('Select Sum(总计金额) From 进货历史单据表');
  Query3.SQL.Add('Where 记录日期 >= :A and 记录日期 <= :B');
  Query3.ParamByName('A').AsDateTime:=DatetimePicker1.DateTime;
  Query3.ParamByName('B').AsDateTime:=DatetimePicker2.DateTime;
  Query3.Open;//打开进货单据表统计总计金额
  Label10.Caption:=Query3.Fields[0].AsString;
  Query3.Close;
  Query3.SQL.Clear;
  Query3.SQL.Add('Select Sum(总计金额) From 出货历史单据表');
  Query3.SQL.Add('Where 记录日期 >= :A and 记录日期 <= :B');
  Query3.ParamByName('A').AsDateTime:=DatetimePicker1.DateTime;
  Query3.ParamByName('B').AsDateTime:=DatetimePicker2.DateTime;
  Query3.Open;//打开出货单据表统计总计金额
  Label6.Caption:=Query3.Fields[0].AsString;;
 End
 Else
 begin
 if ComboBox1.Items[ComboBox1.ItemIndex]='经手人' then
 begin//判断是否为经手人
   Query1.Close;
   Query1.SQL.Clear;
   Query1.SQL.Add('Select * From 出货历史单据表');
   Query1.SQL.Add('Where 记录日期 >= :A and 记录日期 <= :B and 经受人 Like :C');
   Query1.SQL.Add('ORDER BY 单据编号 ASC');
   Query1.ParamByName('A').AsDateTime:=DatetimePicker1.DateTime;
   Query1.ParamByName('B').AsDateTime:=DatetimePicker2.DateTime;
   Query1.ParamByName('C').AsString:=Edit1.Text+'%';
   Query1.Open;//打开出货单据表
   Label4.Caption:=IntToStr(Query1.RecordCount)+'次';
   Query2.Close;
   Query2.SQL.Clear;
   Query2.SQL.Add('Select * From 进货历史单据表');
   Query2.SQL.Add('Where 记录日期 >= :A and 记录日期 <= :B and 经受人 Like :C');
   Query2.SQL.Add('ORDER BY 单据编号 ASC');
   Query2.ParamByName('A').AsDateTime:=DatetimePicker1.DateTime;
   Query2.ParamByName('B').AsDateTime:=DatetimePicker2.DateTime;
   Query2.ParamByName('C').AsString:=Edit1.Text+'%';
   Query2.Open;//打开进货单据表
   Label8.Caption:=IntToStr(Query1.RecordCount)+'次';
   Query3.Close;
   Query3.SQL.Clear;
   Query3.SQL.Add('Select Sum(总计金额) From 进货历史单据表');
   Query3.SQL.Add('Where 记录日期 >= :A and 记录日期 <= :B and 经受人 Like :C');
   Query3.ParamByName('A').AsDateTime:=DatetimePicker1.DateTime;
   Query3.ParamByName('B').AsDateTime:=DatetimePicker2.DateTime;
   Query3.ParamByName('C').AsString:=Edit1.Text+'%';
   Query3.Open;//打开进货单据表统计总计金额
   Label10.Caption:=Query3.Fields[0].AsString;;
   //-------------------------------------------
   Query3.Close;
   Query3.SQL.Clear;
   Query3.SQL.Add('Select Sum(总计金额) From 出货历史单据表');
   Query3.SQL.Add('Where 记录日期 >= :A and 记录日期 <= :B and 经受人 Like :C');
   Query3.ParamByName('A').AsDateTime:=DatetimePicker1.DateTime;
   Query3.ParamByName('B').AsDateTime:=DatetimePicker2.DateTime;
   Query3.ParamByName('C').AsString:=Edit1.Text+'%';
   Query3.Open;//打开出货单据表统计总计金额
   Label6.Caption:=Query3.Fields[0].AsString;;
 End
 Else  //不是经手人时
 begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('Select * From 出货历史单据表');
  Query1.SQL.Add('Where 记录日期 >= :A and 记录日期 <= :B and 单据编号 Like :C');
  Query1.SQL.Add('ORDER BY 单据编号 ASC');
  Query1.ParamByName('A').AsDateTime:=DatetimePicker1.DateTime;
  Query1.ParamByName('B').AsDateTime:=DatetimePicker2.DateTime;
  Query1.ParamByName('C').AsString:=Edit1.Text+'%';
  Query1.Open;//打开出货单据表
  Label4.Caption:=IntToStr(Query1.RecordCount)+'次';
  Query2.Close;