uddwl.pas

工廠倉庫管理系統

unit uddwl;

interface

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

type
  Tfrmddwl = 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
  frmddwl: Tfrmddwl;

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

procedure Tfrmddwl.FormCreate(Sender: TObject);
begin
adoquery1.Connection:=dm1.ADOConnection1;
strsql:='select cgdd_detail.*,wlmc,wlys,wlsh,cgdw,gysdm from cgdd_detail,wldmk'+
' where wldmk.wldm=cgdd_detail.wldm and ddhm='+''''+ddhm+''''+'order by cgdd_detail.wldm asc';
adoexect(adoquery1,strsql);
end;

procedure Tfrmddwl.Edit1Change(Sender: TObject);
begin
if trim(edit1.Text)='' then exit;
strsql:='select cgdd_detail.*,wlmc,wlys,wlsh,cgdw,pym,gysdm from cgdd_detail,wldmk'+
' where wldmk.wldm=cgdd_detail.wldm and ddhm='+''''+ddhm+''''+
'and pym like'+''''+trim(edit1.Text)+'%'+''''+' or cgdd_detail.wldm='+''''+trim(edit1.Text)+
''''+' order by pym asc';
adoexect(adoquery1,strsql);
if not(adoquery1.Recordset.EOF and adoquery1.Recordset.BOF) then exit;
strsql:='select cgdd_detail.*,wlmc,wlys,wlsh,cgdw,gysdm from cgdd_detail,wldmk'+
' where wldmk.wldm=cgdd_detail.wldm and ddhm='+''''+ddhm+''''+
'and wlmc like'+''''+'%'+trim(edit1.Text)+'%'+''''+' order by pym asc';
adoexect(adoquery1,strsql);
end;

procedure Tfrmddwl.RzBitBtn1Click(Sender: TObject);
begin
if adoquery1.Recordset.BOF and adoquery1.Recordset.EOF then exit;
wldm:=adoquery1.fieldbyname('wldm').asstring;
close;
end;

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

procedure Tfrmddwl.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
if adoquery1.FieldByName('wssl').Value > 0 then begin
   dbgrid1.Canvas.Brush.Color:=rgb(220,125,100);
   dbgrid1.DefaultDrawColumnCell(rect,datacol,column,[gdfixed,gdfocused,gdselected]);
end;
end;
procedure Tfrmddwl.DBGrid1TitleClick(Column: TColumn);
begin
dgridpx(adoquery1,DBGrid1,Column);
end;

end.