uprofession.pas

工廠倉庫管理系統

unit uprofession;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzPanel, RzSplit, ExtCtrls, Grids, DBGridEh, RzTabs, RzButton,
  DB, ADODB, ComCtrls;

type
  Tfrmprofession = class(TForm)
    Panel1: TPanel;
    RzSizePanel1: TRzSizePanel;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet2: TRzTabSheet;
    DBGridEh1: TDBGridEh;
    DBGridEh2: TDBGridEh;
    TabSheet3: TRzTabSheet;
    TabSheet4: TRzTabSheet;
    TabSheet5: TRzTabSheet;
    TabSheet6: TRzTabSheet;
    TabSheet7: TRzTabSheet;
    DBGridEh3: TDBGridEh;
    DBGridEh4: TDBGridEh;
    DBGridEh5: TDBGridEh;
    DBGridEh6: TDBGridEh;
    DBGridEh7: TDBGridEh;
    TreeView1: TTreeView;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    ADOQuery5: TADOQuery;
    ADOQuery6: TADOQuery;
    ADOQuery7: TADOQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    DataSource5: TDataSource;
    DataSource6: TDataSource;
    DataSource7: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure RzBitBtn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmprofession: Tfrmprofession;

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

procedure Tfrmprofession.FormCreate(Sender: TObject);
begin
{
node:=treeview1.Items.AddFirst(nil,'我的工作夹');
treeview1.Items.AddChild(node,'二年内');
treeview1.Items.AddChild(node,'一年内');
treeview1.Items.AddChild(node,'半年内');
treeview1.Items.AddChild(node,'3个月内');
treeview1.Items.AddChild(node,'一个月内');
treeview1.Items.AddChild(node,'半个月内');
treeview1.Items.AddChild(node,'一个星期内');
treeview1.Items.AddChild(node,'三天内');
treeview1.Items.AddChild(node,'昨天');
treeview1.Items.AddChild(node,'今天');
}
strsql:='select shdh as 收货单号,yshdh as 送货单号,ddhm as 订单号码,gysmc as 供应商,'+
'shr as 送货人,shhe as 质检,srrq as 日期,djr as 开单 from shd_main where djr='+''''+
trim(username)+''''+' order by shdh asc';
adoexect(adoquery1,strsql);
adoquery1.Filter:='日期='+''''+datetostr(date)+'''';
adoquery1.Filtered:=true;
strsql:='select fldh as 发料单号,lldh as 领料单号, gdhm as 工单号码,ylbm as 领料部门,llr as 领料人,'+
'chang as 厂别,djr as 开单,srrq as 日期 from fld_main where djr='+''''+trim(username)+''''+
' order by fldh asc';
adoexect(adoquery2,strsql);
adoquery2.Filtered:=true;
adoquery2.Filter:='日期='+''''+datetostr(date)+'''';
strsql:='select thdh as 退货单号,shdh as 收货单号,ddhm as 订单号码,gysdm as 供应商,'+
'djr as 开单,srrq as 日期 from thgl_main where djr='+''''+trim(username)+''''+
'  order by thdh asc';
adoexect(adoquery3,strsql);
adoquery3.Filtered:=true;
adoquery3.Filter:='日期='+''''+datetostr(date)+'''';
strsql:='select bfdh as 补发单号,bldh as 补料单号,ylbm as 补料部门,blr as 补料人,'+
'djr as 开单,srrq as 日期 from bld_main where djr='+''''+trim(username)+''''+
' order by bfdh asc';
adoexect(adoquery4,strsql);
adoquery4.Filtered:=true;
adoquery4.Filter:='日期='+''''+datetostr(date)+'''';
strsql:='select hcdh as 回仓单号,hldh as 回料单号,ylbm as 回料部门,hlr as 回料人,'+
'djr as 开单,srrq as 日期 from hld_main where djr='+''''+trim(username)+''''+
' order by hcdh asc';
adoexect(adoquery5,strsql);
adoquery5.Filtered:=true;
adoquery5.Filter:='日期='+''''+datetostr(date)+'''';
strsql:='select bsdh as 报损单号,ylbm as 报损部门,djr as 开单,srrq as 日期 from bsd_main where djr='+''''+trim(username)+''''+
' order by bsdh asc';
adoexect(adoquery6,strsql);
adoquery6.Filtered:=true;
adoquery6.Filter:='日期='+''''+datetostr(date)+'''';
strsql:='select pddh as 盘点单号,pdr as 盘点人,djr as 开单,srrq as 日期 from wlpd_main where djr='+''''+trim(username)+''''+
' order by pddh asc';
adoexect(adoquery7,strsql);
adoquery7.Filtered:=true;
adoquery7.Filter:='日期='+''''+datetostr(date)+'''';
end;

procedure Tfrmprofession.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin

case node.Index of
    1:
    begin
      adoquery1.Filter:='日期>='+''''+datetostr(date-730)+''''+
     ' and 日期<='+''''+datetostr(date)+'''';
    adoquery2.Filter:='日期>='+''''+datetostr(date-730)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery3.Filter:='日期>='+''''+datetostr(date-730)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery4.Filter:='日期>='+''''+datetostr(date-730)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery5.Filter:='日期>='+''''+datetostr(date-730)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery6.Filter:='日期>='+''''+datetostr(date-730)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery7.Filter:='日期>='+''''+datetostr(date-730)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    end;
    2:
    begin
    adoquery1.Filter:='日期>='+''''+datetostr(date-365)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery2.Filter:='日期>='+''''+datetostr(date-365)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery3.Filter:='日期>='+''''+datetostr(date-365)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery4.Filter:='日期>='+''''+datetostr(date-365)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery5.Filter:='日期>='+''''+datetostr(date-365)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery6.Filter:='日期>='+''''+datetostr(date-365)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery7.Filter:='日期>='+''''+datetostr(date-365)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    end;
    3:
    begin
    adoquery1.Filter:='日期>='+''''+datetostr(date-180)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery2.Filter:='日期>='+''''+datetostr(date-180)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery3.Filter:='日期>='+''''+datetostr(date-180)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery4.Filter:='日期>='+''''+datetostr(date-180)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery5.Filter:='日期>='+''''+datetostr(date-180)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery6.Filter:='日期>='+''''+datetostr(date-180)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery7.Filter:='日期>='+''''+datetostr(date-180)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    end;
    4:
    begin
    adoquery1.Filter:='日期>='+''''+datetostr(date-30)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery2.Filter:='日期>='+''''+datetostr(date-30)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery3.Filter:='日期>='+''''+datetostr(date-30)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery4.Filter:='日期>='+''''+datetostr(date-30)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery5.Filter:='日期>='+''''+datetostr(date-30)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery6.Filter:='日期>='+''''+datetostr(date-30)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery7.Filter:='日期>='+''''+datetostr(date-30)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    end;
    5:
    begin
    adoquery1.Filter:='日期>='+''''+datetostr(date-15)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery2.Filter:='日期>='+''''+datetostr(date-15)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery3.Filter:='日期>='+''''+datetostr(date-15)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery4.Filter:='日期>='+''''+datetostr(date-15)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery5.Filter:='日期>='+''''+datetostr(date-15)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery6.Filter:='日期>='+''''+datetostr(date-15)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery7.Filter:='日期>='+''''+datetostr(date-15)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    end;
    6:
    begin
    adoquery1.Filter:='日期>='+''''+datetostr(date-3)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery2.Filter:='日期>='+''''+datetostr(date-3)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery3.Filter:='日期>='+''''+datetostr(date-3)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery4.Filter:='日期>='+''''+datetostr(date-3)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery5.Filter:='日期>='+''''+datetostr(date-3)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery6.filter:='日期>='+''''+datetostr(date-3)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    adoquery7.Filter:='日期>='+''''+datetostr(date-3)+''''+
    ' and 日期<='+''''+datetostr(date)+'''';
    end;
    7:
    begin
    adoquery1.Filter:='日期='+''''+datetostr(date-1)+'''';
    adoquery2.Filter:='日期='+''''+datetostr(date-1)+'''';
    adoquery3.Filter:='日期='+''''+datetostr(date-1)+'''';
    adoquery4.Filter:='日期='+''''+datetostr(date-1)+'''';
    adoquery5.Filter:='日期='+''''+datetostr(date-1)+'''';
    adoquery6.Filter:='日期='+''''+datetostr(date-1)+'''';
    adoquery7.Filter:='日期='+''''+datetostr(date-1)+'''';
    end;
    8:
    begin
    adoquery1.Filter:='日期='+''''+datetostr(date)+'''';
    adoquery2.Filter:='日期='+''''+datetostr(date)+'''';
    adoquery3.Filter:='日期='+''''+datetostr(date)+'''';
    adoquery4.Filter:='日期='+''''+datetostr(date)+'''';
    adoquery5.Filter:='日期='+''''+datetostr(date)+'''';
    adoquery6.Filter:='日期='+''''+datetostr(date)+'''';
    adoquery7.Filter:='日期='+''''+datetostr(date)+'''';
    end;
end;
end;

procedure Tfrmprofession.RzBitBtn4Click(Sender: TObject);
begin
close;
end;

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

end.