?? pfm_updatefdspxx.pas
字號:
unit pfm_updatefdspxx;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
DBTables, Db, StdCtrls, Buttons, pvar_lib;
type
Tfm_updatefdspxx = class(TForm)
BatMove1: TBatchMove;
Query1: TQuery;
Table1: TTable;
GroupBox1: TGroupBox;
BBtnSpxx: TBitBtn;
Memo1: TMemo;
BBtnSomespxx: TBitBtn;
BitBtn1: TBitBtn;
procedure BBtnSpxxClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BBtnSomespxxClick(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fm_updatefdspxx: Tfm_updatefdspxx;
implementation
uses pfm_updatespxx;
{$R *.DFM}
procedure Tfm_updatefdspxx.BBtnSpxxClick(Sender: TObject);
begin
if application.messagebox(pchar('導出商品明細表所有的記錄將花一定的時間,確定要導出?'),
pchar('警告!'),MB_OKCANCEL)<>IDOK then
begin
exit;
end;
memo1.Lines.add('導出商品明細表所有的記錄......');
if fileexists('comdata\spmx\spmx.db') then
begin
deletefile('comdata\spmx\spmx.db');
end;
with BatMove1.Mappings do
begin
add('spbm=spbm');
add('sptxm=sptxm');
add('spmc=spmc');
add('baozhuangdw=baozhuangdw');
add('ggxh=ggxh');
add('wsdj=wsdj');
add('yhl=yhl');
end;
query1.databasename:='posdb';
query1.sql.Clear;
query1.sql.Add('select * from t_spxx');
batMove1.mode:=batCopy;
batMove1.source:=query1;
batmove1.destination:=table1;
table1.Tablename:='comdata\spmx\spmx.db';
batMove1.Execute;
memo1.Lines.add('導出完畢,共導出商品明細表記錄'+
inttostr(batMove1.movedcount)+'條');
AddOptRecord('導出商品明細表');
end;
procedure Tfm_updatefdspxx.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=CaFree;
end;
procedure Tfm_updatefdspxx.BBtnSomespxxClick(Sender: TObject);
begin
if application.messagebox(pchar('導出商品明細表所有的記錄將花一定的時間,確定要導出?'),
pchar('警告!'),MB_OKCANCEL)<>IDOK then
begin
exit;
end;
memo1.Lines.add('導出商品明細表所有的記錄......');
if fileexists('comdata\spmx\updatespmx.db') then
begin
deletefile('comdata\spmx\updatespmx.db');
end;
with BatMove1.Mappings do
begin
add('spbm=spbm');
add('sptxm=sptxm');
add('spmc=spmc');
add('baozhuangdw=baozhuangdw');
add('ggxh=ggxh');
add('wsdj=wsdj');
add('yhl=yhl');
end;
query1.databasename:='posdb';
query1.sql.Clear;
query1.sql.Add('select * from t_spxx where spbm in (select spbm from tab_updatespmx)');
batMove1.mode:=batCopy;
batMove1.source:=query1;
batmove1.destination:=table1;
table1.Tablename:='comdata\spmx\updatespmx.db';
batMove1.Execute;
memo1.Lines.add('導出完畢,共導出商品明細表記錄'+
inttostr(batMove1.movedcount)+'條');
query1.SQL.clear;
query1.sql.Add('delete from tab_updatespmx');
query1.ExecSQL;
AddOptRecord('導出用于更新的部分商品明細表');
end;
procedure Tfm_updatefdspxx.BitBtn1Click(Sender: TObject);
begin
Application.CreateForm(Tfm_updatespxx, fm_updatespxx);
fm_updatespxx.showmodal;
fm_updatespxx.free;
AddOptRecord('編輯用于更新的部分商品明細表');
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -