uxqdh_wllb.pas

工廠採購管理系統

unit uxqdh_wllb;

interface

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

type
  Tfrmcgxq_wllb = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmcgxq_wllb: Tfrmcgxq_wllb;

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

procedure Tfrmcgxq_wllb.FormCreate(Sender: TObject);
begin
strsql:='select * from view_cgwl where 采购需求单号='+''''+strhthm+''''+
'and 计划数量<采购数量 order by 助记码 asc';
adoexect(adoquery1,strsql);
end;

procedure Tfrmcgxq_wllb.Edit1Change(Sender: TObject);
begin
strsql:='select * from view_cgwl where 采购需求单号='+''''+strhthm+''''+
'and 计划数量<采购数量 and 助记码 like'+''''+trim(edit1.Text)+'%'+''''+'order by 助记码 asc';
adoexect(adoquery1,strsql);
if adoquery1.Eof and adoquery1.Bof then
   begin
        strsql:='select * from view_cgwl where 采购需求单号='+''''+strhthm+''''+
       'and 计划数量<采购数量 and 物料名称 like'+''''+'%'+trim(edit1.Text)+'%'+''''+'order by 物料代码 asc';
        adoexect(adoquery1,strsql);
   end;
end;

procedure Tfrmcgxq_wllb.RzBitBtn1Click(Sender: TObject);
begin
if adoquery1.Recordset.EOF and adoquery1.Recordset.BOF then exit;
strsql:='select cgbl from wldmk where wldm='+''''+trim(adoquery1.fieldbyname('物料代码').asstring)+'''';
adoexect(adoquery2,strsql);
if adoquery2.Recordset.eof and adoquery2.Recordset.BOF then exit;
title:=adoquery1.fieldbyname('物料代码').AsString;
xql:= round(int(adoquery1.fieldbyname('需求数').value) / int(adoquery2.fieldbyname('cgbl').value)+0.4499);
jhsl:=round(int(adoquery1.fieldbyname('采购数量').value-adoquery1.fieldbyname('计划数量').value) / int(adoquery2.fieldbyname('cgbl').value)+0.4499);
close;
end;

procedure Tfrmcgxq_wllb.RzBitBtn2Click(Sender: TObject);
begin
title:='';
close;
end;

end.