dfm_imkddata.pas

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

unit dfm_imkddata;

interface

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

type
  Tdfmkcimdata = class(TForm)
    StatusBar1: TStatusBar;
    dstempbkin: TDataSource;
    tbltempbkin: TTable;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    DBLookupComboBox1: TDBLookupComboBox;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DataSource2: TDataSource;
    Table2: TTable;
    Query1: TQuery;
    BatchMove1: TBatchMove;
    DataSource1: TDataSource;
    tbltbkintemp: TTable;
    Query2: TQuery;
    Query3: TQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmkcimdata: Tdfmkcimdata;
//  function getquery(s1:string):string;
//  function getquery(s1,s2:string;value:integer):string;

implementation

{$R *.DFM}

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

procedure Tdfmkcimdata.BitBtn2Click(Sender: TObject);
begin
  tbltempbkin.Active :=false;
  tbltempbkin.TableName :=trim(DBLookupComboBox1.text)+'posin.dbf';
  tbltempbkin.active :=true;
//  UPDATE tbltempsale
//  SET column_ref = update_atom [, column_ref = update_atom...]
//  query1.ExecSQL;
end;

{function getquery(s1:string):string;
begin
  result:=format('insert atoa.dbo.t_possale(SASTOR, SADATE, SASKU, SASTYL, SACOLR, SASIZE, SAQTY, SALPRC, sasal ) SELECT SASTOR, SADATE, SASKU, SASTYL, SACOLR, SASIZE, sum(SAQTY), avg(SALPRC), sum(sasal) FROM %s group by SASTOR, SADATE, SASKU, SASTYL, SACOLR, SASIZE);
//  select * from %s where %s=%d',[s1,s2,value]);
end;}

{procedure TForm1.Button1Click(Sender: TObject);
begin
//  label1.caption:=getquery('customer','custmo',2156);
  query1.close;
  query1.SQL.clear;
  query1.sql.Add(getquery('w02sale.dbf);
  query1.open;
end;}

{function getquery(s1,s2:string;value:integer):string;
begin
  result:=format('select * from %s where %s=%d',[s1,s2,value]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  label1.caption:=getquery('customer','custmo',2156);
  query1.close;
  query1.SQL.clear;
  query1.sql.Add(getquery('customer','custno',2156));
  query1.open;
end;}

procedure Tdfmkcimdata.BitBtn1Click(Sender: TObject);
begin
  tbltempbkin.active :=false;
  tbltempbkin.TableName :=trim(DBLookupComboBox1.text)+'posin.dbf';
  BatchMove1.Execute;

  query3.Prepare;
  query3.ParamByName('vstor').asstring:=trim(DBLookupComboBox1.text);
  query3.ExecSQL;

  query1.sql.Clear ;
  query1.sql.Add('delete from bkinvy');
  query1.sql.add('where iASTOR=:vsastor');
  query1.ParamByName ('vsastor').asstring:=trim(DBLookupComboBox1.text);
  query1.ExecSQL;

  query2.sql.Clear ;
  query2.sql.Add('insert bkinvy');
  query2.sql.add('SELECT * FROM bkintemp');
  query2.ExecSQL;
  Application.MessageBox('数据导入完成！','系统提示',mb_ICONINFORMATION + MB_OK);
end;

end.