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;
    DBGridEh3: TDBGridEh;
    DBGridEh4: TDBGridEh;
    DBGridEh5: TDBGridEh;
    TreeView1: TTreeView;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    ADOQuery5: TADOQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    DataSource5: 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 ddhm as 订购单号,bjdh as 报价单号,jhdh as 计划单号,xqdh as 需求单号,bb as 币别,'+
'gysmc as 供应商,fkfs as 付款方式,cgrq as 日期,ldrq as 落单日期,djr as 开单 from cgdd_main where djr='+''''+
trim(username)+''''+' order by ddhm asc';
adoexect(adoquery1,strsql);
adoquery1.Filter:='日期='+''''+datetostr(date)+'''';
adoquery1.Filtered:=true;
strsql:='select cgjhdh as 计划单号,cgxqdh as 需求单号, shhe as 审核,sfxd as 下单,'+
'gysdm as 供应商,djr as 开单,srrq as 日期 from cgjh_main where djr='+''''+trim(username)+''''+
' order by cgjhdh 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 bjdh as 报价单号,cgjhdh as 计划单号,ybjdh as 原报价单号,gysdm as 供应商,'+
'djr as 开单,srrq as 日期 from wlbj where djr='+''''+trim(username)+''''+
' order by bjdh asc';
adoexect(adoquery4,strsql);
adoquery4.Filtered:=true;
adoquery4.Filter:='日期='+''''+datetostr(date)+'''';
strsql:='select cgxqdh as 需求单号,gdhm as 用料工单,yclwl as 处理物料,ysh as 已送货,yfpwl as 分配物料,'+
'cgjh as 采购计划,xqwcjs as 需求结算,djr as 开单,srrq as 日期 from cgwl_mail where djr='+''''+trim(username)+''''+
' order by cgxqdh asc';
adoexect(adoquery5,strsql);
adoquery5.Filtered:=true;
adoquery5.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)+'''';
    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)+'''';
    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)+'''';
    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)+'''';
    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)+'''';
    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)+'''';
    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)+'''';
    end;
    8:
    begin
    adoquery1.Filter:='日期='+''''+datetostr(date)+'''';
    adoquery2.Filter:='日期='+''''+datetostr(date)+'''';
    adoquery3.Filter:='日期='+''''+datetostr(date)+'''';
    adoquery4.Filter:='日期='+''''+datetostr(date)+'''';
    adoquery5.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.