dfm_dresslis.pas

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

unit dfm_dresslis;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, Db, DBTables, Mask,
  DBCtrls, ADODB, DBGridEh, ppModule, daDataModule, ppCtrls, ppBands,
  ppClass, ppVar, ppPrnabl, ppDB, ppCache, ppProd, ppReport, ppComm,
  ppRelatv, ppDBPipe;

type
  Tdfmsdress = class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    Panel2: TPanel;
    postbtn: TBitBtn;
    quitbtn: TBitBtn;
    Label2: TLabel;
    Label11: TLabel;
    Label1: TLabel;
    DataSource1: TDataSource;
    DBGridEh1: TDBGridEh;
    DateTimePicker1: TDateTimePicker;
    Label3: TLabel;
    DateTimePicker2: TDateTimePicker;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    ADOQuery1: TADOQuery;
    ppDBPipeline1: TppDBPipeline;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel1: TppLabel;
    ppVariable1: TppVariable;
    ppVariable2: TppVariable;
    ppGroup1: TppGroup;
    ppGroupHeaderBand1: TppGroupHeaderBand;
    ppGroupFooterBand1: TppGroupFooterBand;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBCalc1: TppDBCalc;
    ppLabel2: TppLabel;
    ppDBText3: TppDBText;
    daDataModule1: TdaDataModule;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppDBCalc2: TppDBCalc;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppGroup2: TppGroup;
    ppGroupHeaderBand2: TppGroupHeaderBand;
    ppGroupFooterBand2: TppGroupFooterBand;
    ppLabel5: TppLabel;
    ppDBCalc3: TppDBCalc;
    ppLabel6: TppLabel;
    atblbranch: TADOTable;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure quitbtnClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure postbtnClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ppVariable1Calc(Sender: TObject; var Value: Variant);
    procedure ppVariable2Calc(Sender: TObject; var Value: Variant);
    procedure DBGridEh1TitleClick(Column: TColumnEh);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmsdress: Tdfmsdress;

implementation

uses  dbmRainbowMis, chHeadUnit;

{$R *.DFM}

procedure Tdfmsdress.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure Tdfmsdress.quitbtnClick(Sender: TObject);
begin
  close;
end;

procedure Tdfmsdress.FormKeyPress(Sender: TObject; var Key: Char);
begin
  chHeadUnit.tabventer(dfmsdress,key);
end;

procedure Tdfmsdress.postbtnClick(Sender: TObject);
var
  fstr:string;
begin
  fstr:='SELECT sum(t_dress.cnumber) as cnumber, t_dress.csort, man.Fshop,man.freno,man.fname'
       +' FROM t_dress left JOIN man ON t_dress.cworkerid = man.Freno'
       +' where man.fshop like ''%s'' and t_dress.csort like ''%s'' and cdate>=#%s# and cdate<=#%s#'
       +' GROUP BY t_dress.csort, man.Fshop, man.freno,man.fname'
       +' order BY t_dress.csort, man.Fshop, man.freno';
  with ADOQuery1 do
  begin
    close;
    sql.Clear ;
    sql.Add(Format(fstr,[trim(ComboBox1.text)+'%',trim(edit1.text)+'%',datetostr(DateTimePicker1.Date),datetostr(DateTimePicker2.Date)]));
    Prepared;
    open;
  end;
end;

procedure Tdfmsdress.BitBtn1Click(Sender: TObject);
begin
  postbtnClick(postbtn);
  ppReport1.Print ;
end;

procedure Tdfmsdress.FormCreate(Sender: TObject);
begin
  DateTimePicker1.Date :=date();
  DateTimePicker2.Date :=date();
  atblbranch.Open;
  chHeadunit.combolist(combobox1,atblbranch,'bmh','bmmc',1);  
end;

procedure Tdfmsdress.ppVariable1Calc(Sender: TObject; var Value: Variant);
begin
  value:=datetimepicker1.date;
end;

procedure Tdfmsdress.ppVariable2Calc(Sender: TObject; var Value: Variant);
begin
  value:=DateTimePicker2.Date ;
end;

procedure Tdfmsdress.DBGridEh1TitleClick(Column: TColumnEh);
begin
  chHeadUnit.ehtitclick(column); 
end;

end.