dfm_loop.pas

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

unit dfm_loop;

interface

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

type
  Tdfmloop = class(TForm)
    StatusBar1: TStatusBar;
    Panel2: TPanel;
    postbtn: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    UpDown1: TUpDown;
    Edit1: TEdit;
    Edit2: TEdit;
    UpDown2: TUpDown;
    ADOQuery1: TADOQuery;
    ADOTable1: TADOTable;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure quitbtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure postbtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmloop: Tdfmloop;

implementation

uses  dbmRainbowMis;

{$R *.DFM}

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

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

procedure Tdfmloop.FormShow(Sender: TObject);
begin
  edit1.text:=copy(datetimetostr(date()),1,4);
//  edit2.text:=copy(datetimetostr(date()),5,2);
end;

procedure Tdfmloop.postbtnClick(Sender: TObject);
var
  fstr,s:string;
begin
  if length(trim(edit2.Text))<2 then
  begin
    s:='0'+trim(edit2.Text);
  end;
  if ADOTable1.Locate('cyear;cmonth',VarArrayOf([edit1.Text,s]),[loPartialKey])=false then
  begin
    fstr:='insert into t_storehst (bmh, spbh, sqsl, sqcb, sqsje, dqsl,kccb, clabel, cyear, cmonth)'
      +' select bmh, spbh, sqsl, sqcb, sqsje, dqsl,kccb, clabel,''%s'',''%s'' from t_store';
    with ADOQuery1 do
    begin
      close;
      sql.Clear ;
      sql.Add(Format(fstr,[trim(Edit1.text),s]));
      Prepared;
      ExecSql;
    end;
    Application.MessageBox('转帐完毕!','系统提示',MB_OK);
    ADOTable1.close;
    ADOTable1.Open;
  end
  else
  begin
    Application.MessageBox('你选的月份库存已转出，无法再次转出！',
          '提示信息', MB_OK);
    abort;
  end;  
end;

procedure Tdfmloop.FormCreate(Sender: TObject);
begin
  ADOTable1.Active :=true;
end;

end.