formhuizongchaxun.pas

来自「这是一个关于药品进销存的管理软件」· PAS 代码 · 共 168 行

unit FormHuizongchaxun;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Thuizongchaxun = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  huizongchaxun: Thuizongchaxun;

implementation

uses FormHuizongtongjichaxun;

{$R *.dfm}

procedure Thuizongchaxun.Button1Click(Sender: TObject);
begin
if caption='进货汇总查询' then
  begin
  huizongtongjichaxun.caption:='进货汇总查询' ;
  huizongtongjichaxun.Label1.Caption:='各种药品汇总统计查询';
  huizongtongjichaxun.Label3.Caption:=label2.caption;
  huizongtongjichaxun.Label5.Caption:=label4.caption;
  huizongtongjichaxun.Show;
  huizongtongjichaxun.ADOQuery1.Close;
  huizongtongjichaxun.ADOQuery1.SQL.Clear;
  huizongtongjichaxun.ADOQuery1.SQL.Text:='select  药品信息.药品名称,入库信息查询.入库数量,入库信息查询.入库金额 from 入库信息查询 where 入库信息查询.进货日期 between d1 and d2';
  huizongtongjichaxun.ADOQuery1.Parameters.ParamByName('d1').Value:=label2.Caption;
  huizongtongjichaxun.ADOQuery1.Parameters.ParamByName('d2').Value:=label4.Caption;
  huizongtongjichaxun.ADOQuery1.Open;
  end;
if caption='销售汇总查询' then
  begin
  huizongtongjichaxun.caption:='销售汇总查询' ;
  huizongtongjichaxun.Label1.Caption:='各种药品汇总统计查询';
  huizongtongjichaxun.Label3.Caption:=label2.caption;
  huizongtongjichaxun.Label5.Caption:=label4.caption;
  huizongtongjichaxun.Show;
  huizongtongjichaxun.ADOQuery1.Close;
  huizongtongjichaxun.ADOQuery1.SQL.Clear;
  huizongtongjichaxun.ADOQuery1.SQL.Text:='select  药品信息.药品名称,销售信息查询.销售数量,销售信息查询.销售金额 from 销售信息查询 where 销售信息查询.销售日期 between d1 and d2';
  huizongtongjichaxun.ADOQuery1.Parameters.ParamByName('d1').Value:=label2.Caption;
  huizongtongjichaxun.ADOQuery1.Parameters.ParamByName('d2').Value:=label4.Caption;
  huizongtongjichaxun.ADOQuery1.Open;
  end;
end;

procedure Thuizongchaxun.Button2Click(Sender: TObject);
begin
if caption='进货汇总查询' then
  begin
  huizongtongjichaxun.caption:='进货汇总查询' ;
  huizongtongjichaxun.Label1.Caption:='各供应商汇总统计查询';
  huizongtongjichaxun.Label3.Caption:=label2.caption;
  huizongtongjichaxun.Label5.Caption:=label4.caption;
  huizongtongjichaxun.Show;
  huizongtongjichaxun.ADOQuery1.Close;
  huizongtongjichaxun.ADOQuery1.SQL.Clear;
  huizongtongjichaxun.ADOQuery1.SQL.Text:='select 供应商信息.供应商名称,供应商信息.供应商电话,供应商信息.手机,供应商信息.电子邮件,供应商信息.地址,供应商信息.联系人,入库信息查询.进货日期 from 入库信息查询,供应商信息 where 入库信息查询.进货日期 between d1 and d2';
  huizongtongjichaxun.ADOQuery1.Parameters.ParamByName('d1').Value:=label2.Caption;
  huizongtongjichaxun.ADOQuery1.Parameters.ParamByName('d2').Value:=label4.Caption;
  huizongtongjichaxun.ADOQuery1.Open;
  end;
if caption='销售汇总查询' then
  begin
  huizongtongjichaxun.caption:='销售汇总查询' ;
  huizongtongjichaxun.Label1.Caption:='各种供应商汇总统计查询';
  huizongtongjichaxun.Label3.Caption:=label2.caption;
  huizongtongjichaxun.Label5.Caption:=label4.caption;
  huizongtongjichaxun.Show;
  huizongtongjichaxun.ADOQuery1.Close;
  huizongtongjichaxun.ADOQuery1.SQL.Clear;
  huizongtongjichaxun.ADOQuery1.SQL.Text:='select  供应商信息.供应商名称,供应商信息.供应商电话,供应商信息.手机,供应商信息.电子邮件,供应商信息.地址,供应商信息.联系人,销售信息查询.销售日期 from 销售信息查询,供应商信息 where 销售信息查询.销售日期 between d1 and d2';
  huizongtongjichaxun.ADOQuery1.Parameters.ParamByName('d1').Value:=label2.Caption;
  huizongtongjichaxun.ADOQuery1.Parameters.ParamByName('d2').Value:=label4.Caption;
  huizongtongjichaxun.ADOQuery1.Open;
  end;
end;

procedure Thuizongchaxun.Button3Click(Sender: TObject);
begin
if caption='进货汇总查询' then
  begin
  huizongtongjichaxun.caption:='进货汇总查询' ;
  huizongtongjichaxun.Label1.Caption:='各业务员汇总统计查询';
  huizongtongjichaxun.Label3.Caption:=label2.caption;
  huizongtongjichaxun.Label5.Caption:=label4.caption;
  huizongtongjichaxun.Show;
  huizongtongjichaxun.ADOQuery1.Close;
  huizongtongjichaxun.ADOQuery1.SQL.Clear;
  huizongtongjichaxun.ADOQuery1.SQL.Text:='select  业务员信息.业务员编号,业务员信息.业务员姓名,业务员信息.性别,入库信息查询.进货日期 from 入库信息查询,业务员信息 where 入库信息查询.进货日期 between d1 and d2';
  huizongtongjichaxun.ADOQuery1.Parameters.ParamByName('d1').Value:=label2.Caption;
  huizongtongjichaxun.ADOQuery1.Parameters.ParamByName('d2').Value:=label4.Caption;
  huizongtongjichaxun.ADOQuery1.Open;
  end;
if caption='销售汇总查询' then
  begin
  huizongtongjichaxun.caption:='销售汇总查询' ;
  huizongtongjichaxun.Label1.Caption:='各业务员汇总统计查询';
  huizongtongjichaxun.Label3.Caption:=label2.caption;
  huizongtongjichaxun.Label5.Caption:=label4.caption;
  huizongtongjichaxun.Show;
  huizongtongjichaxun.ADOQuery1.Close;
  huizongtongjichaxun.ADOQuery1.SQL.Clear;
  huizongtongjichaxun.ADOQuery1.SQL.Text:='select  业务员信息.业务员编号,业务员信息.业务员姓名,业务员信息.性别,销售信息查询.销售日期 from 销售信息查询,业务员信息 where 销售信息查询.销售日期 between d1 and d2';
  huizongtongjichaxun.ADOQuery1.Parameters.ParamByName('d1').Value:=label2.Caption;
  huizongtongjichaxun.ADOQuery1.Parameters.ParamByName('d2').Value:=label4.Caption;
  huizongtongjichaxun.ADOQuery1.Open;
end;
end;

procedure Thuizongchaxun.Button4Click(Sender: TObject);
begin
if caption='进货汇总查询' then
  begin
  huizongtongjichaxun.caption:='进货汇总查询' ;
  huizongtongjichaxun.Label1.Caption:='各仓库汇总统计查询';
  huizongtongjichaxun.Label3.Caption:=label2.caption;
  huizongtongjichaxun.Label5.Caption:=label4.caption;
  huizongtongjichaxun.Show;
  huizongtongjichaxun.ADOQuery1.Close;
  huizongtongjichaxun.ADOQuery1.SQL.Clear;
  huizongtongjichaxun.ADOQuery1.SQL.Text:='select  仓库信息.仓库编号,仓库信息.仓库名称,入库信息查询.进货日期 from 入库信息查询,仓库信息 where 入库信息查询.进货日期 between d1 and d2';
  huizongtongjichaxun.ADOQuery1.Parameters.ParamByName('d1').Value:=label2.Caption;
  huizongtongjichaxun.ADOQuery1.Parameters.ParamByName('d2').Value:=label4.Caption;
  huizongtongjichaxun.ADOQuery1.Open;
  end;
  if caption='销售汇总查询' then
  begin
  huizongtongjichaxun.caption:='销售汇总查询' ;
  huizongtongjichaxun.Label1.Caption:='各仓库汇总统计查询';
  huizongtongjichaxun.Label3.Caption:=label2.caption;
  huizongtongjichaxun.Label5.Caption:=label4.caption;
  huizongtongjichaxun.Show;
  huizongtongjichaxun.ADOQuery1.Close;
  huizongtongjichaxun.ADOQuery1.SQL.Clear;
  huizongtongjichaxun.ADOQuery1.SQL.Text:='select  仓库信息.仓库编号,仓库信息.仓库名称,销售信息查询.销售日期 from 销售信息查询,仓库信息 where 销售信息查询.销售日期 between d1 and d2';
  huizongtongjichaxun.ADOQuery1.Parameters.ParamByName('d1').Value:=label2.Caption;
  huizongtongjichaxun.ADOQuery1.Parameters.ParamByName('d2').Value:=label4.Caption;
  huizongtongjichaxun.ADOQuery1.Open;
end;
end;

end.