dfm_check.pas

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

unit dfm_check;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, Db, DBTables, Mask,
  DBCtrls, ADODB, DBGridEh;

type
  Tdfmcheck = class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    Panel2: TPanel;
    addbtn: TBitBtn;
    postbtn: TBitBtn;
    quitbtn: TBitBtn;
    dsvcheck: TDataSource;
    Label2: TLabel;
    Label11: TLabel;
    DateTimePicker1: TDateTimePicker;
    cancelbtn: TBitBtn;
    aqrycheckin: TADOQuery;
    aqrycheckincdate: TDateTimeField;
    aqrycheckinbmh: TWideStringField;
    aqrycheckinccheckno: TWideStringField;
    aqrycheckinsnum: TFloatField;
    ComboBox1: TComboBox;
    DBGridEh1: TDBGridEh;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOTable1: TADOTable;
    ADOTable2: TADOTable;
    sumbtn: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure quitbtnClick(Sender: TObject);
    procedure dsvcheckStateChange(Sender: TObject);
    procedure cancelbtnClick(Sender: TObject);
    procedure addbtnClick(Sender: TObject);
    procedure postbtnClick(Sender: TObject);
    procedure ComboBox1Enter(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure sumbtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmcheck: Tdfmcheck;

implementation

uses  dbmRainbowMis, f_stocheck, chHeadUnit, dfm_tcheck;

{$R *.DFM}

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

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

procedure Tdfmcheck.dsvcheckStateChange(Sender: TObject);
begin
{    case tbltmanrec.State of
      dsbrowse:
        begin
          addbtn.Enabled :=true;
          delbtn.Enabled :=true;
//          BitBtn_edit.Enabled :=true;
          postbtn.Enabled :=false;
          cancelbtn.Enabled :=false;
        end;
      dsinsert:
        begin
          addbtn.Enabled :=false;
          delbtn.Enabled :=false;
//          BitBtn_edit.Enabled :=true;
          postbtn.Enabled :=true;
          cancelbtn.Enabled :=true;
        end;
      dsedit:
        begin
          addbtn.Enabled :=false;
          delbtn.Enabled :=false;
//          BitBtn_edit.Enabled :=true;
          postbtn.Enabled :=true;
          cancelbtn.Enabled :=true;
        end;
    end;}
end;

procedure Tdfmcheck.cancelbtnClick(Sender: TObject);
var
  fstr:String;
begin
  fstr:='SELECT cdate, bmh, ccheckno, sum(cnumber) AS snum FROM t_checkin'
       +' WHERE t_checkin.bmh=''%s'' and t_checkin.cdate=#%s#'
       +' GROUP BY cdate, bmh, ccheckno';
  with aqrycheckin do
  begin
    close;
    sql.Clear ;
    sql.Add(Format(fstr,[trim(combobox1.text),datetostr(DateTimePicker1.Date)]));
    Prepared;
    open;
  end;
end;

procedure Tdfmcheck.addbtnClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmstocheck')=Nil Then
    dfmstocheck:=Tdfmstocheck.Create(Application);
  dfmstocheck.Show;
end;

procedure Tdfmcheck.postbtnClick(Sender: TObject);
var
  fstr,fstr2:String;
begin
  fstr:='insert into t_checktemp'
       +' SELECT t_checkin.ccheckno, t_checkin.cdate, t_checkin.clabel, t_checkin.spbh, t_checkin.cnumber, t_checkin.freno, t_checkin.cuser, t_checkin.bmh'
       +' from t_checkin'
       +' WHERE t_checkin.bmh=''%s'' and t_checkin.ccheckno=''%s'' and t_checkin.cdate=#%s#';
  fstr2:='delete from t_checkin'
       +' WHERE t_checkin.bmh=''%s'' and t_checkin.ccheckno=''%s'' and t_checkin.cdate=#%s#';
  If Application.FindComponent('dfmstocheck')=Nil Then
  begin
    with ADOQuery1 do
    begin
      close;
      sql.Clear ;
      sql.Add(Format(fstr,[trim(aqrycheckin['bmh']),trim(aqrycheckin['ccheckno']),datetostr(aqrycheckin['cDate'])]));
      Prepared;
      execsql;
    end;
    with ADOQuery2 do
    begin
      close;
      sql.Clear ;
      sql.Add(Format(fstr2,[trim(aqrycheckin['bmh']),trim(aqrycheckin['ccheckno']),datetostr(aqrycheckin['cDate'])]));
      Prepared;
      execsql;
    end;
    dfmstocheck:=Tdfmstocheck.Create(Application);
  end;
  dfmstocheck.Show;
end;

procedure Tdfmcheck.ComboBox1Enter(Sender: TObject);
begin
  chHeadUnit.combolist(combobox1,adotable1,'bmh','bmmc',1)
end;

procedure Tdfmcheck.FormCreate(Sender: TObject);
begin
  adotable2.Active := true;
  adotable1.Open;
  combobox1.Text:=adotable2['cbmh'];
  DateTimePicker1.Date :=date();
end;

procedure Tdfmcheck.sumbtnClick(Sender: TObject);
begin
      If  Application.FindComponent('dfmtcheck')=Nil Then
    dfmtcheck:=Tdfmtcheck.Create(Application);
  dfmtcheck.show;
end;

end.