uwlty.pas

工廠採購管理系統

unit uwlty;

interface

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

type
  Tfrmwlty = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzToolbarButton1: TRzToolbarButton;
    RzToolbarButton2: TRzToolbarButton;
    RzToolbarButton3: TRzToolbarButton;
    ADOQuery1: TADOQuery;
    procedure RzToolbarButton3Click(Sender: TObject);
    procedure RzToolbarButton1Click(Sender: TObject);
    procedure RzToolbarButton2Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmwlty: Tfrmwlty;

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

procedure Tfrmwlty.RzToolbarButton3Click(Sender: TObject);
begin
strhthm:='';
frmxqdh_lb:=tfrmxqdh_lb.Create(self);
frmxqdh_lb.ShowModal;
edit4.Text:=strhthm;
end;

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

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

procedure Tfrmwlty.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#8] ) then
    key:=#0;
end;

procedure Tfrmwlty.RzBitBtn1Click(Sender: TObject);
begin
if trim(edit1.Text)='' then
   begin
       showmessage('没有选择原物料，操作无法进行');
       edit1.SetFocus;
       exit;
   end;
if trim(edit2.Text)='' then
   begin
       showmessage('没有选择目标物料，操作无法进行');
       edit2.SetFocus;
       exit;
   end;
if trim(edit3.Text)='' then
   begin
       showmessage('没有输入数量，操作无法进行');
       edit3.SetFocus;
       exit;
   end;
if trim(edit4.Text)='' then
   begin
       showmessage('没有选择目标需求单，操作无法进行');
       edit4.SetFocus;
       exit;
   end;
strsql:='select * from wldmk where wldm='+''''+trim(edit1.text)+''''+'and sykc>='+trim(edit3.Text);
adoexect(adoquery1,strsql);
if adoquery1.Recordset.eof and adoquery1.Recordset.BOF then
   begin
        showmessage('原物料没有足够的数量来进行替用');
        edit3.SetFocus;
        exit;
   end;
if messagebox(handle,'是否真的要进行提用吗？','询问',mb_yesno+mb_iconquestion)=idno then exit;
strsql:='exec p_wlty '+''''+trim(edit1.Text)+''''+','+''''+trim(edit2.Text)+''''+','+
''''+trim(edit3.Text)+''''+','+''''+trim(edit4.Text)+'''';
adodel(adoquery1,strsql);
messagebox(handle,'操作成功','信息',mb_ok+mb_iconinformation);
end;

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

end.