dfm_sstoin.pas

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

unit dfm_sstoin;

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
  Tdfmsstoin = class(TForm)
    StatusBar1: TStatusBar;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOTable1: TADOTable;
    ADOTable2: TADOTable;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGridEh1: TDBGridEh;
    Panel1: TPanel;
    Label11: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    postbtn: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Edit1: TEdit;
    Panel2: TPanel;
    Label6: TLabel;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    DBGridEh2: TDBGridEh;
    DataSource2: TDataSource;
    Aqrystinno: TADOQuery;
    BitBtn2: TBitBtn;
    ppDBPipeline1: TppDBPipeline;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel1: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppLabel2: TppLabel;
    ppSystemVariable2: TppSystemVariable;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppSummaryBand1: TppSummaryBand;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppShape1: TppShape;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppLabel10: TppLabel;
    ppLabel11: TppLabel;
    ppLabel12: TppLabel;
    ppLabel13: TppLabel;
    ppLine2: TppLine;
    ppLine11: TppLine;
    ppLine20: TppLine;
    ppLine21: TppLine;
    ppLabel14: TppLabel;
    ppDBCalc1: TppDBCalc;
    ppLine1: TppLine;
    ppLine3: TppLine;
    ppLine4: TppLine;
    ppLine5: TppLine;
    ppLine6: TppLine;
    ppLine7: TppLine;
    ppLine8: TppLine;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppLine9: TppLine;
    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);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmsstoin: Tdfmsstoin;

implementation

uses  dbmRainbowMis, chHeadUnit;

{$R *.DFM}

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

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

procedure Tdfmsstoin.postbtnClick(Sender: TObject);
var
  fstr:string;
begin
  fstr:='SELECT cdate, csendbra, cinceptbra, clabel, left(t_stoin.spbh,%d) as spbh, sum(t_stoin.sl) as sl FROM t_stoin'
       +' where cinceptbra like ''%s'' and csendbra like ''%s'' and clabel like ''%s'' and cdate>=#%s# and cdate<=#%s#'
       +' GROUP BY cdate, csendbra, cinceptbra, clabel, left(t_stoin.spbh,%d)';
//  combobox1.Text := getbmh(ComboBox1.text);
  with ADOQuery1 do
  begin
    close;
    sql.Clear ;
    sql.Add(Format(fstr,[strtoint(trim(edit1.Text)), chHeadUnit.getbmh(ComboBox1.text)+'%',chHeadUnit.getbmh(ComboBox2.text)+'%',
    trim(ComboBox3.text)+'%',datetostr(DateTimePicker1.Date),datetostr(DateTimePicker2.Date),strtoint(trim(edit1.Text))]));
    Prepared;
    open;
  end;
end;

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

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

procedure Tdfmsstoin.BitBtn1Click(Sender: TObject);
begin
  with Aqrystinno do
  begin
    close;
    Parameters.ParamByName ('vstinno').value:=trim(Edit2.text);
    open;
  end;  
end;

procedure Tdfmsstoin.BitBtn2Click(Sender: TObject);
begin
  ppReport1.Print ;
end;

end.