update.pas

来自「商品销售系统完全的功能SQL和JAVA」· PAS 代码 · 共 51 行

unit update;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  Tupdatefrm = class(TForm)
    BitBtn1: TBitBtn;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  updatefrm: Tupdatefrm;

implementation
   uses data;
{$R *.dfm}

procedure Tupdatefrm.BitBtn1Click(Sender: TObject);
begin
  try
    dataman.ADOCon.BeginTrans;
    with Dataman.dcQuery do
     begin
        close;
        sql.Clear;
        sql.Add('use pos');
        sql.Add('insert myrpos.dbo.kc (货物条形码,库存数量,单价)');
        sql.Add('(select pos.dbo.kc.货物条形码,pos.dbo.kc.库存数量,pos.dbo.movein.零售价 from pos.dbo.kc,pos.dbo.movein where pos.dbo.kc.货物条形码=pos.dbo.movein.货物条形码)');
        execsql;
     end;
     dataman.ADOCon.CommitTrans;
     showmessage('升级成功！');
    except
    begin
     dataman.ADOCon.RollbackTrans;
     showmessage('升级失败！');
    end;
   end;
end;

end.