dfm_imdata.pas

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

unit dfm_imdata;

interface

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

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

var
  dfmimdata: Tdfmimdata;
//  function getquery(s1:string):string;
//  function getquery(s1,s2:string;value:integer):string;

implementation

{$R *.DFM}

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

procedure Tdfmimdata.BitBtn2Click(Sender: TObject);
begin
  tbltempsale.Active :=false;
  tbltempsale.TableName :=trim(DBLookupComboBox1.text)+'sale.dbf';
  tbltempsale.active :=true;
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;}

procedure Tdfmimdata.BitBtn1Click(Sender: TObject);
begin
  tbltempsale.TableName :=trim(DBLookupComboBox1.text)+'sale.dbf';
  BatchMove1.Execute;
  query2.Prepare;
  query2.ParamByName('vstor').asstring:=trim(DBLookupComboBox1.text);
  query2.ExecSQL;
  query1.sql.Clear ;
  query1.sql.Add('insert t_possale(SASTOR, SADATE, SASKU, SASTYL, SACOLR, SASIZE, SAQTY, SALPRC, sasal )');
  query1.sql.add('SELECT SASTOR, SADATE, SASKU, SASTYL, SACOLR, SASIZE, sum(SAQTY), avg(SALPRC), sum(sasal) FROM postemp');
  query1.sql.add('group by SASTOR, SADATE, SASKU, SASTYL, SACOLR, SASIZE');
  query1.ExecSQL;
  Application.MessageBox('数据导入完成！','系统提示',mb_ICONINFORMATION + MB_OK);
end;

end.