dfm_creatbd.pas

仓库管理系统 仓库管理系统

unit dfm_creatbd;

interface

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

type
  Tdfmcreatdb = class(TForm)
    StatusBar1: TStatusBar;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOTable1: TADOTable;
    ADOTable2: TADOTable;
    Panel1: TPanel;
    DBGridEh1: TDBGridEh;
    postbtn: TBitBtn;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    BitBtn1: TBitBtn;
    Label3: TLabel;
    ComboBox2: TComboBox;
    ADOTable3: TADOTable;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure quitbtnClick(Sender: TObject);
    procedure postbtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmcreatdb: Tdfmcreatdb;

implementation

uses  dbmRainbowMis, chHeadUnit, dfm_sstoin, f_loss;

{$R *.DFM}

procedure Tdfmcreatdb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  adotable1.close;
  adotable2.close;
  ADOTable3.Close;
  action:=cafree;
end;

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

procedure Tdfmcreatdb.postbtnClick(Sender: TObject);
var
  fstr:string;
begin
  fstr:='SELECT ''%s'' as bmh, cdate, clabel, spbh, sum(t_checkhst.cnumber) as cnumber FROM t_checkhst'
       +' where bmh like ''%s'' and clabel like ''%s'' and cdate=#%s#'
       +' GROUP BY cdate,clabel,spbh';
  with ADOQuery1 do
  begin
    close;
    sql.Clear ;
    sql.Add(Format(fstr,[ADOTable3['cbmh'],chHeadUnit.getbmh(ComboBox1.text)+'%',
    trim(ComboBox2.text)+'%',datetostr(DateTimePicker1.Date)]));
    Prepared;
    open;
  end;
end;

procedure Tdfmcreatdb.FormCreate(Sender: TObject);
begin
  adotable1.Open;
  adotable2.Open;
  ADOTable3.Open;
  chHeadUnit.combolist(combobox1,adotable1,'bmh','bmmc',2);
  chHeadUnit.combolist(combobox2,adotable2,'clabel','cfactory',1);
  DateTimePicker1.Date:=date();
  combobox1.Text:=dmRainbowMIS.atbldefault['cbmh'];
  combobox2.Text:=dmRainbowMIS.atbldefault['clabel'];
end;

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

procedure Tdfmcreatdb.BitBtn1Click(Sender: TObject);
begin
  if ADOQuery1.IsEmpty = false then
    begin
      ADOQuery1.SaveToFile(fst+'dataout\'+trim(ADOTable3['cbmh'])+'pd'+formatdatetime('yyyymmdd',ADOQuery1['cdate'])+'.dtg');
      Application.MessageBox('已生成报告单!','提示信息', MB_OK);
    end
  else
    Application.MessageBox('没有查询到记录，无法生成!','提示信息', MB_OK);
end;

end.