uscylqk.pas

工廠倉庫管理系統

unit uscylqk;

interface

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

type
  Tfrmscylqk = class(TForm)
    RzSizePanel1: TRzSizePanel;
    Panel1: TPanel;
    RzBitBtn4: TRzBitBtn;
    RzBitBtn5: TRzBitBtn;
    RzBitBtn6: TRzBitBtn;
    dtp1: TRzDateTimePicker;
    dtp2: TRzDateTimePicker;
    Label1: TLabel;
    DBNavigator1: TDBNavigator;
    TreeView1: TTreeView;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    DataSource1: TDataSource;
    RzBitBtn7: TRzBitBtn;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure csh();
    procedure dtp1Exit(Sender: TObject);
    procedure dtp2Exit(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RzBitBtn7Click(Sender: TObject);
    procedure RzBitBtn6Click(Sender: TObject);
    procedure RzBitBtn5Click(Sender: TObject);
    procedure RzBitBtn4Click(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
  private
    { Private declarations }
    gcdh:string;
    hthm:string;
    rq1:string;
    rq2:string;
    n:integer;                    //用来标记报表选用那种
  public
    { Public declarations }
  end;

var
  frmscylqk: Tfrmscylqk;

implementation
uses uconst,ufunction,udm1,ucx;
{$R *.dfm}
procedure tfrmscylqk.csh();
var
node:ttreenode;
node1:ttreenode;
begin
TreeView1.Items.Clear;
strsql:='select distinct gdhm from ddk,hld_main where ddk.srrq>=:rq1 and ddk.srrq<=:rq2 and '+
'ddk.gdhm=hld_main.gcdh order by gdhm asc';
if adoquery2.Active then adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add(strsql);
adoquery2.Parameters.ParamByName('rq1').Value:=dtp1.Date;
adoquery2.Parameters.ParamByName('rq2').Value:=dtp2.Date;
adoquery2.Open;
if not(adoquery2.Recordset.EOF and adoquery2.Recordset.BOF) then
      begin
            adoquery2.First;
            node:=treeview1.Items.AddFirst(nil,'排单安排列表');
            while not adoquery2.Eof do
            begin
                  node1:=treeview1.Items.AddChild(node,trim(adoquery2.fieldbyname('gdhm').AsString));
                  adoquery2.Next;
            end;
       end;
adoquery2.Close;
end;
procedure Tfrmscylqk.FormCreate(Sender: TObject);
begin
adoquery1.Connection:=dm1.ADOConnection1;
adoquery2.Connection:=dm1.ADOConnection1;
adoquery3.Connection:=dm1.ADOConnection1;
dtp1.Date:=date-30;
dtp2.Date:=date;
csh;
end;

procedure Tfrmscylqk.dtp1Exit(Sender: TObject);
begin
csh;
end;

procedure Tfrmscylqk.dtp2Exit(Sender: TObject);
begin
csh;
end;

procedure Tfrmscylqk.TreeView1Change(Sender: TObject; Node: TTreeNode);

begin
case node.Level of
   0:
     begin
          strsql:='select hld_detail.wldm as 物料代码,wlmc as 物料名称,wlys as 颜色,wlsh as 色号,'+
          'dw as 单位,gysdm as 供应商,sum(hld_detail.sl) as 数量 from hld_detail,hld_main,wldmk'+
          ' where hld_detail.hcdh=hld_main.hcdh and hld_detail.wldm=wldmk.wldm and gcdh in(select'+
          ' gdhm from ddk where ddk.srrq>='+''''+datetostr(dtp1.Date)+''''+' and ddk.srrq<='+''''+
          datetostr(dtp2.Date)+''''+') group by hld_detail.wldm,wlmc,wlys,wlsh,dw,gysdm order by'+
          ' hld_detail.wldm asc';
          n:=1;
          rq1:=datetostr(dtp1.Date);
          rq2:=datetostr(dtp2.Date);
     end;
   1:
     begin
          strsql:='select hld_detail.wldm as 物料代码,wlmc as 物料名称,wlys as 颜色,wlsh as 色号,'+
          'dw as 单位,gysdm as 供应商,sum(hld_detail.sl) as 数量 from hld_detail,hld_main,wldmk'+
          ' where hld_detail.hcdh=hld_main.hcdh and hld_detail.wldm=wldmk.wldm and '+
          'gcdh='+''''+trim(node.Text)+''''+' group by hld_detail.wldm,pym,wlmc,wlys,wlsh,dw,gysdm'+
          ' order by wldmk.pym asc';
          n:=2;
          hthm:=trim(node.Text);
     end;
end;

adoexect(adoquery1,strsql);


end;

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

procedure Tfrmscylqk.RzBitBtn7Click(Sender: TObject);
begin
close;
end;

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

procedure Tfrmscylqk.RzBitBtn5Click(Sender: TObject);
begin
frReport1.DoublePass := True;
frReport1.Clear;
case n of
   1:
   begin
   frReport1.LoadFromFile(strpath+'/report/hldtj_3.frf');
   frVariables['rq1']:=rq1;
   frVariables['rq2']:=rq2;
   end;
   2:
   begin
   frReport1.LoadFromFile(strpath+'/report/hldtj_2.frf');
   frVariables['hthm']:=hthm;
   end;
end;
frVariables['username']:=username;
frreport1.ShowReport;
end;

procedure Tfrmscylqk.RzBitBtn4Click(Sender: TObject);
begin
frReport1.DoublePass := True;
frReport1.Clear;
case n of
   1:
   begin
   frReport1.LoadFromFile(strpath+'/report/hldtj_3.frf');
   frVariables['rq1']:=rq1;
   frVariables['rq2']:=rq2;
   end;
   2:
   begin
   frReport1.LoadFromFile(strpath+'/report/hldtj_2.frf');
   frVariables['hthm']:=hthm;
   end;
end;
frVariables['username']:=username;
frreport1.DesignReport;
end;

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

end.