uwlbj.pas

工廠採購管理系統

unit uwlbj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBCtrls, RzButton, ComCtrls,
  ExtCtrls, RzPanel, RzSplit, ADODB, Grids, DBGrids, RzDBCmbo, StdCtrls,
  Mask, Buttons, FR_DSet, FR_DBSet, FR_Class;

type
  Tfrmwlbj = class(TForm)
    RzSizePanel1: TRzSizePanel;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    TreeView1: TTreeView;
    RzBitBtn4: TRzBitBtn;
    RzBitBtn5: TRzBitBtn;
    RzBitBtn6: TRzBitBtn;
    DBNavigator1: TDBNavigator;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    ADOQuery1DSDesigner: TStringField;
    ADOQuery1DSDesigner2: TStringField;
    ADOQuery1DSDesigner3: TStringField;
    ADOQuery1DSDesigner4: TStringField;
    ADOQuery1DSDesigner5: TStringField;
    ADOQuery1DSDesigner6: TStringField;
    ADOQuery1DSDesigner7: TStringField;
    ADOQuery1DSDesigner8: TBCDField;
    ADOQuery1DSDesigner9: TBCDField;
    ADOQuery1DSDesigner10: TFloatField;
    ADOQuery1DSDesigner11: TBCDField;
    ADOQuery1DSDesigner12: TStringField;
    ADOQuery1DSDesigner13: TStringField;
    ADOQuery1DSDesigner14: TStringField;
    ADOQuery1DSDesigner15: TStringField;
    ADOQuery1DSDesigner16: TStringField;
    ADOQuery1DSDesigner17: TBCDField;
    ADOQuery1DSDesigner18: TBCDField;
    ADOQuery1DSDesigner19: TDateTimeField;
    ADOQuery1DSDesigner20: TMemoField;
    DBGrid1: TDBGrid;
    RzBitBtn1: TRzBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RzBitBtn6Click(Sender: TObject);
    procedure RzBitBtn4Click(Sender: TObject);
    procedure RzBitBtn5Click(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  frmwlbj: Tfrmwlbj;

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

procedure Tfrmwlbj.FormCreate(Sender: TObject);
begin
adoquery2.Connection:=DM1.ADOConnection1;;
maketree(adoquery2,'wllb',treeview1,'物料类别列表');
      strsql:='select wldm as 物料代码,bigclass as 大类,smallclass as 小类,'+
      'wlmc as 名称,dw as 单位,wlsh as 色号,wlys as 颜色,sjkc as 实际库存,'+
      'sykc as 剩余库存,dj as 单价,aqkc as 安全库存,ylbm as 部门,djr as 操作,gysdm as 供应商代码,'+
      'pym as 拼音码,cgdw as 采购单位,cgbl as 采购比率,yfpkc as 已分配库存,srrq as 日期,'+
      'node as 备注 from wldmk where sykc<aqkc order by wldm asc';
adoexect(adoquery1,strsql);
end;

procedure Tfrmwlbj.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
frReport1.Free;
end;

procedure Tfrmwlbj.RzBitBtn6Click(Sender: TObject);
begin
close;
end;

procedure Tfrmwlbj.RzBitBtn4Click(Sender: TObject);
begin
frReport1.DoublePass := True;
frReport1.Clear;
frReport1.LoadFromFile(strpath+'/report/wlbj.frf');
frVariables['username']:=username;
frreport1.ShowReport;
end;

procedure Tfrmwlbj.RzBitBtn5Click(Sender: TObject);
begin
frmcx:=tfrmcx.Create(self);
frmcx.adocx:=adoquery1;
frmcx.ShowModal;
adoquery1:=frmcx.adocx;
ADOquery1.Requery();
dbgrid1.Refresh;
end;

procedure Tfrmwlbj.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
case node.Level of
   0:
      strsql:='select wldm as 物料代码,bigclass as 大类,smallclass as 小类,'+
      'wlmc as 名称,dw as 单位,wlsh as 色号,wlys as 颜色,sjkc as 实际库存,'+
      'sykc as 剩余库存,dj as 单价,aqkc as 安全库存,ylbm as 部门,djr as 操作,gysdm as 供应商代码,'+
      'pym as 拼音码,cgdw as 采购单位,cgbl as 采购比率,yfpkc as 已分配库存,srrq as 日期,'+
      'node as 备注 from wldmk where sykc<aqkc order by wldm asc';
   1:
      strsql:='select wldm as 物料代码,bigclass as 大类,smallclass as 小类,'+
      'wlmc as 名称,dw as 单位,wlsh as 色号,wlys as 颜色,sjkc as 实际库存,'+
      'sykc as 剩余库存,dj as 单价,aqkc as 安全库存,ylbm as 部门,djr as 操作,gysdm as 供应商代码,'+
      'pym as 拼音码,cgdw as 采购单位,cgbl as 采购比率,yfpkc as 已分配库存,srrq as 日期,'+
      'node as 备注 from wldmk where sykc<aqkc and bigclass='+''''+trim(node.Text)+''''+' order by wldm asc';

   2:
      strsql:='select wldm as 物料代码,bigclass as 大类,smallclass as 小类,'+
      'wlmc as 名称,dw as 单位,wlsh as 色号,wlys as 颜色,sjkc as 实际库存,'+
      'sykc as 剩余库存,dj as 单价,aqkc as 安全库存,ylbm as 部门,djr as 操作,gysdm as 供应商代码,'+
      'pym as 拼音码,cgdw as 采购单位,cgbl as 采购比率,yfpkc as 已分配库存,srrq as 日期,'+
      'node as 备注 from wldmk where sykc<aqkc and smallclass='+''''+trim(node.Text)+''''+' order by wldm asc';
end;
adoexect(adoquery1,strsql);

end;

procedure Tfrmwlbj.RzBitBtn1Click(Sender: TObject);
begin
frReport1.DoublePass := True;
frReport1.Clear;
frReport1.LoadFromFile(strpath+'/report/wlbj.frf');
frVariables['username']:=username;
frreport1.DesignReport;
end;

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

end.