dfm_ssaleno.pas

来自「仓库管理系统 仓库管理系统」· PAS 代码 · 共 107 行

unit dfm_ssaleno;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Grids, DBGridEh, ComCtrls, DB,
  ADODB, ppVar, ppCtrls, ppBands, ppClass, ppPrnabl, ppCache, ppProd,
  ppReport, ppComm, ppRelatv, ppDB, ppDBPipe;

type
  Tdfmssaleno = class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    DBGridEh1: TDBGridEh;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox1: TComboBox;
    ADOTable1: TADOTable;
    ADOTable2: TADOTable;
    ADOQuery2bmh: TWideStringField;
    ADOQuery2rq: TDateTimeField;
    ADOQuery2sj: TDateTimeField;
    ADOQuery2jyh: TWideStringField;
    ADOQuery2yyyh: TWideStringField;
    ADOQuery2skyh: TWideStringField;
    ADOQuery2spbh: TWideStringField;
    ADOQuery2sl: TIntegerField;
    ADOQuery2lsj: TBCDField;
    ADOQuery2sjje: TBCDField;
    ADOQuery2zke: TBCDField;
    ADOQuery2clabel: TWideStringField;
    ADOQuery2flh: TWideStringField;
    ADOQuery2cname: TWideStringField;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmssaleno: Tdfmssaleno;

implementation

uses dbmRainbowMis, chHeadUnit, dfm_tsaleno;

{$R *.dfm}

procedure Tdfmssaleno.BitBtn1Click(Sender: TObject);
var
  fstr:string;
begin
  fstr:='SELECT t_saledet.bmh, t_saledet.rq, t_saledet.sj, t_saledet.jyh, t_saledet.yyyh, t_saledet.skyh, t_saledet.spbh, t_saledet.sl, t_saledet.lsj, t_saledet.sjje, t_saledet.zke, t_saledet.clabel, t_ware.flh, t_spec.cname'
       +' FROM t_saledet INNER JOIN (t_spec INNER JOIN t_ware ON (t_spec.cstyle = t_ware.flh) AND (t_spec.clabel = t_ware.clabel)) ON (t_saledet.clabel = t_ware.clabel) AND (t_saledet.spbh = t_ware.spbh)'
       +' where t_saledet.bmh like ''%s'' AND t_saledet.jyh like ''%s'' AND ([t_saledet.rq])>=#%s# and ([t_saledet.rq])<=#%s#'
       +' order by t_saledet.bmh,t_saledet.rq,t_saledet.sj';
//       +' GROUP BY t_saledet.bmh, t_saledet.rq, t_saledet.sj, t_saledet.jyh, t_saledet.yyyh, t_saledet.skyh, t_saledet.spbh, t_saledet.sl, t_saledet.lsj, t_saledet.sjje, t_saledet.zke, t_saledet.clabel, t_ware.flh, t_spec.cname';
  with ADOQuery2 do
  begin
    close;
    sql.Clear ;
    sql.Add(Format(fstr,[chHeadUnit.getbmh(ComboBox1.text)+'%',trim(edit1.text)+'%',datetostr(DateTimePicker1.Date),datetostr(DateTimePicker2.Date)]));
    Prepared;
    open;
  end;
end;

procedure Tdfmssaleno.FormCreate(Sender: TObject);
begin
  ADOTable1.Open;
  ADOTable2.Open;
  ComboBox1.Text:=ADOTable2['bmh'];
  chHeadUnit.combolist(combobox1,adotable1,'bmh','bmmc',2);
  DateTimePicker1.Date :=date();
  DateTimePicker2.date :=date();
end;

procedure Tdfmssaleno.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ADOTable1.close;
  ADOTable2.Close;
  action:=cafree;
end;

procedure Tdfmssaleno.BitBtn2Click(Sender: TObject);
begin
    If  Application.FindComponent('dfmtsaleno')=Nil Then
    dfmtsaleno:=Tdfmtsaleno.Create(Application);
  dfmtsaleno.Showmodal;
end;

end.