uwllb.pas

工廠採購管理系統

unit uwllb;

interface

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

type
  Tfrmwllb = 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);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmwllb: Tfrmwllb;

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

procedure Tfrmwllb.FormCreate(Sender: TObject);
begin
strsql:='select pym as 助记码,wldm as 物料代码,wlmc as 物料名称,wlys as 颜色,wlsh as 色号'+
',dw as 单位,cgbl as 采购比率,sykc as 剩余库存,gysdm as 供应商,'+
'sjkc as 实际库存,dj as 单价,ylbm as 用料部门 from wldmk order by wldm asc';
adoexect(adoquery1,strsql);
end;

procedure Tfrmwllb.Edit1Change(Sender: TObject);
begin
strsql:='select pym as 助记码,wldm as 物料代码,wlmc as 物料名称,wlys as 颜色,wlsh as 色号'+
',dw as 单位,cgbl as 采购比率,sjkc as 实际库存,dj as 单价,ylbm as 用料部门,'+
'sykc as 剩余库存,gysdm as 供应商 from wldmk where pym like'+''''+trim(edit1.Text)+'%'+''''+
' or wldm like'+''''+trim(edit1.Text)+'%'+''''+' order by pym asc';
adoexect(adoquery1,strsql);
if adoquery1.Eof and adoquery1.Bof then
   begin
        strsql:='select pym as 助记码,wldm as 物料代码,wlmc as 物料名称,wlys as 颜色,wlsh as 色号'+
',dw as 单位,cgbl as 采购比率,sjkc as 实际库存,dj as 单价,ylbm as 用料部门'+
',sykc as 剩余库存,gysdm as 供应商 from wldmk where wlmc like'+''''+'%'+trim(edit1.Text)+'%'+
        ''''+'order by wldm asc';
        adoexect(adoquery1,strsql);
   end;
end;

procedure Tfrmwllb.RzBitBtn1Click(Sender: TObject);
begin
if adoquery1.Recordset.EOF and adoquery1.Recordset.BOF then exit;
{strsql:='select wldm from wlpd_detail where wldm='+''''+trim(adoquery1.fieldbyname('wldm').AsString)+'''';
adoexect(adoquery2,strsql);
if adoquery2.Recordset.EOF and adoquery2.Recordset.BOF then
   begin
        messagebox(handle,'该物料尚未进行盘点出始化,不能使用!','信息',mb_ok+mb_iconinformation);
        exit;
   end;
   }
wldm:=trim(adoquery1.fieldbyname('物料代码').AsString);
ylbm:=trim(adoquery1.fieldbyname('用料部门').AsString);
wlmc:=trim(adoquery1.fieldbyname('物料名称').AsString);
wlys:=trim(adoquery1.fieldbyname('颜色').AsString);
close;
end;

procedure Tfrmwllb.RzBitBtn2Click(Sender: TObject);
begin
wldm:='';
close;
end;

procedure Tfrmwllb.FormShow(Sender: TObject);
begin
Edit1.SetFocus;
end;

procedure Tfrmwllb.DBGrid1TitleClick(Column: TColumn);
begin
dgridpx(adoquery1,DBGrid1,Column);
end;

end.