ugdwl.pas

工廠倉庫管理系統

unit ugdwl;

interface

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

type
  Tfrmgdwl = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGrid1TitleClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmgdwl: Tfrmgdwl;

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

procedure Tfrmgdwl.FormCreate(Sender: TObject);
begin
adoquery1.Connection:=dm1.ADOConnection1;
if chang='佳盈' then
   strsql:='select order_wlfp.wldm as 物料代码,pym as 拼音码,wlmc as 物料名称,wlys as 颜色,wlsh as 色号,'+
   'good_yfpsl as 分配数量,good_xql as 需求量,dw as 单位,gysdm as 供应商,'+
   'good_wlsl as 未领数量,good_ylsl as 已领数量,pym as 拼音码 from order_wlfp,wldmk'+
   ' where wldmk.wldm=order_wlfp.wldm and good_wlsl>0 and gdhm='+''''+gdhm+''''+
   ' and order_wlfp.ylbm='+''''+trim(ylbm)+''''+'order by pym asc'
   else
   strsql:='select order_wlfp.wldm as 物料代码,pym as 拼音码,wlmc as 物料名称,wlys as 颜色,wlsh as 色号,'+
   'let_yfpsl as 分配数量,let_xql as 需求量,dw as 单位,gysdm as 供应商,'+
   'let_wlsl as 未领数量,let_ylsl as 已领数量,pym as 拼音码 from order_wlfp,wldmk'+
   ' where wldmk.wldm=order_wlfp.wldm and let_wlsl>0 and gdhm='+''''+gdhm+''''+
   ' and order_wlfp.ylbm='+''''+trim(ylbm)+''''+'order by pym asc';
adoexect(adoquery1,strsql);

end;

procedure Tfrmgdwl.Edit1Change(Sender: TObject);
var
rscx:string;
begin
 if trim(edit1.Text)='' then
   begin
   adoquery1.Filtered:=false;
   exit;
   end;
   adoquery1.Filtered:=true;
   rscx:='拼音码 like '+''''+trim(edit1.Text)+'%'+''''+' or 物料代码 like '+''''+trim(edit1.Text)+'%'+'''';
   adoquery1.Filter:=rscx;
   if adoquery1.Recordset.eof and adoquery1.Recordset.bof then
      begin
      rscx:='物料名称 like '+''''+'%'+trim(edit1.Text)+'%'+'''';
      adoquery1.Filter:=rscx;
      end;


{
   strsql:='select llqk_detail.wldm,wlmc,wlys,wlsh,dw,gysdm,xql,ylsl,wlsl,yfpsl from llqk_detail,wldmk'+
   ' where wldmk.wldm=llqk_detail.wldm and wlsl>0 and gdhm='+''''+gdhm+''''+
   'and llqk_detail.ylbm='+''''+ylbm+''''+'and pym like'+''''+trim(edit1.Text)+'%'+'''';
   adoexect(adoquery1,strsql);
if not(adoquery1.Recordset.EOF and adoquery1.Recordset.BOF) then exit;
   strsql:='select llqk_detail.wldm,wlmc,wlys,wlsh,dw,gysdm,xql,ylsl,wlsl,yfpsl from llqk_detail,wldmk'+
   ' where wldmk.wldm=llqk_detail.wldm and wlsl>0 and gdhm='+''''+gdhm+''''+
   'and llqk_detail.ylbm='+''''+ylbm+''''+'and wlmc like'+''''+'%'+trim(edit1.Text)+'%'+'''';
   adoexect(adoquery1,strsql);
}
end;

procedure Tfrmgdwl.RzBitBtn1Click(Sender: TObject);
begin
if adoquery1.Recordset.BOF and adoquery1.Recordset.EOF then exit;
wldm:=adoquery1.fieldbyname('物料代码').asstring;
sl:=adoquery1.fieldbyname('未领数量').value;
CLOSE;
end;

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

procedure Tfrmgdwl.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
       if adoquery1.FieldByName('分配数量').Value <= 0 then dbgrid1.Canvas.Brush.Color:=clYellow;
dbgrid1.DefaultDrawColumnCell(rect,datacol,column,[gdfixed,gdfocused,gdselected]);
end;

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

end.