uthwl.pas

工廠採購管理系統

unit uthwl;

interface

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

type
  Tfrmthwl = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    RzToolbarButton1: TRzToolbarButton;
    RzToolbarButton2: TRzToolbarButton;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    ADOQuery1: TADOQuery;
    procedure RzToolbarButton1Click(Sender: TObject);
    procedure RzToolbarButton2Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmthwl: Tfrmthwl;

implementation
uses uwllb,uconst,ufunction;
{$R *.dfm}

procedure Tfrmthwl.RzToolbarButton1Click(Sender: TObject);
begin
wldm:='';
frmwllb.showmodal;
edit1.Text:=wldm;
end;

procedure Tfrmthwl.RzToolbarButton2Click(Sender: TObject);
begin
wldm:='';
frmwllb.showmodal;
edit2.Text:=wldm;
end;

procedure Tfrmthwl.RzBitBtn1Click(Sender: TObject);
var
sjkc:longint;
sykc:longint;
yfpkc:longint;
begin
if messagebox(handle,'是否真的要替换物料！','询问',mb_yesno+mb_iconquestion)=idno then exit;
strsql:='exec p_update_wldm '+''''+trim(edit1.Text)+''''+','+''''+trim(edit2.text)+'''';
adodel(adoquery1,strsql);
strsql:='select * from wldmk where wldm='+''''+trim(edit1.text)+'''';
adoexect(adoquery1,strsql);
sjkc:=adoquery1.fieldbyname('sjkc').Value;
sykc:=adoquery1.fieldbyname('sykc').Value;
yfpkc:=adoquery1.fieldbyname('yfpkc').Value;
strsql:='update wldmk set sjkc=sjkc+'+inttostr(sjkc)+',sykc=sykc+'+inttostr(sykc)+
',yfpkc=yfpkc+'+inttostr(yfpkc)+' where wldm='+''''+trim(edit2.Text)+'''';
adodel(adoquery1,strsql);
strsql:='delete from wldmk where wldm='+''''+trim(edit1.Text)+'''';
adodel(adoquery1,strsql);
strsql:='delete from material_gys where wldm='+''''+trim(edit1.Text)+'''';
adodel(adoquery1,strsql);
messagebox(handle,'替换成功！','信息',mb_ok+mb_iconinformation);
end;

procedure Tfrmthwl.RzBitBtn2Click(Sender: TObject);
begin
close;
end;

end.