dfm_updasto.pas

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

unit dfm_updasto;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, DB, ADODB;

type
  Tdfmupdasto = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    RadioGroup1: TRadioGroup;
    ADOQuery3: TADOQuery;
    ADOQuery1: TADOQuery;
    ADOTable1: TADOTable;
    ADOQuery2: TADOQuery;
    ADOQuery4: TADOQuery;
    ADOQuery5: TADOQuery;
    ADOQuery6: TADOQuery;
    ADOQuery7: TADOQuery;
    procedure OKBtnClick(Sender: TObject);
    procedure adddel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmupdasto: Tdfmupdasto;
  fst:string;

implementation

uses dbmRainbowMis, f_loss;

{$R *.dfm}

procedure Tdfmupdasto.adddel;
var
  fstr:string;
begin
  ADOQuery2.ExecSQL ;   {保存盘点记录}
  {删除盘点记录}
  fstr:='delete * from t_checkin'
     +' where t_checkin.bmh=''%s'' and t_checkin.cdate=#%s#';
  with ADOQuery4 do
  begin
    close;
    sql.Clear ;
    sql.Add(Format(fstr,[trim(adotable1['bmh']),datetostr(adotable1['cDate'])]));
    Prepared;
    ExecSql;
  end;
  ADOQuery5.ExecSQL; {删除盘点总表}
end;

procedure Tdfmupdasto.OKBtnClick(Sender: TObject);
begin
  if Application.MessageBox('你确定用盘点数更新库存吗？',
        '提示信息', MB_OKCANCEL) = IDOK then
  begin
    if RadioGroup1.ItemIndex=0 then
    begin
      ADOQuery7.ExecSQL;  {追加原库存中没有的货品}
      ADOQuery6.ExecSQL ; {算出要更新的数量}
      ADOQuery3.ExecSQL ; {更新库存}
      adddel;
      application.messagebox('库存更新完毕！','提示信息', MB_OK);
    end
    else
    begin
      ADOQuery7.ExecSQL;
      ADOQuery6.ExecSQL ;
      ADOQuery3.ExecSQL ;
      ADOQuery1.ExecSQL ;
      adddel;
      application.messagebox('库存更新完毕！','提示信息', MB_OK);
    end;
  end;
  dfmloss.ADOQuery1.Close;
  dfmloss.ADOQuery1.open;
  dfmloss.ADOQuery2.Close;
  dfmloss.ADOQuery2.open;
end;

procedure Tdfmupdasto.FormCreate(Sender: TObject);
begin
  fst := ExtractFilePath(Application.ExeName);
  ADOTable1.Active :=true;
end;

procedure Tdfmupdasto.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ADOTable1.Active :=false;
  action:=cafree;
end;

end.