ugysdd.pas

工廠倉庫管理系統

unit ugysdd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBCtrls, ComCtrls, RzDTP, RzButton, ExtCtrls, Grids, DBGridEh,
  StdCtrls, DB, ADODB, RzTabs, FR_Class, RzDBCmbo, Mask, Buttons;

type
  Tfrmgysdd = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    dtp1: TRzDateTimePicker;
    dtp2: TRzDateTimePicker;
    DBNavigator1: TDBNavigator;
    TreeView1: TTreeView;
    Label1: TLabel;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    DataSource1: TDataSource;
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet2: TRzTabSheet;
    DBGridEh1: TDBGridEh;
    DBGridEh2: TDBGridEh;
    ADOQuery3: TADOQuery;
    DataSource2: TDataSource;
    frReport1: TfrReport;
    TabSheet3: TRzTabSheet;
    DBGridEh3: TDBGridEh;
    DataSource3: TDataSource;
    ADOQuery4: TADOQuery;
    TabSheet4: TRzTabSheet;
    TabSheet5: TRzTabSheet;
    DBGridEh4: TDBGridEh;
    DBGridEh5: TDBGridEh;
    ADOQuery5: TADOQuery;
    ADOQuery6: TADOQuery;
    DataSource4: TDataSource;
    DataSource5: TDataSource;
    TabSheet6: TRzTabSheet;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label17: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    DBEdit1: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit13: TDBEdit;
    DBMemo1: TDBMemo;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit9: TDBEdit;
    RzDBLookupComboBox2: TRzDBLookupComboBox;
    RzDBLookupComboBox6: TRzDBLookupComboBox;
    DBEdit6: TDBEdit;
    DataSource6: TDataSource;
    ADOQuery7: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RzBitBtn4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure csh();
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure dtp1Exit(Sender: TObject);
    procedure dtp2Exit(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure DBGridEh1TitleClick(Column: TColumnEh);
    procedure DBGridEh2TitleClick(Column: TColumnEh);
    procedure DBGridEh3TitleClick(Column: TColumnEh);
    procedure DBGridEh4TitleClick(Column: TColumnEh);
    procedure DBGridEh5TitleClick(Column: TColumnEh);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmgysdd: Tfrmgysdd;

implementation
uses uconst,ufunction,udm1,ucx, Unit3;
{$R *.dfm}
procedure tfrmgysdd.csh();
var
node:ttreenode;
begin
adoquery3.SQL.Clear;
adoquery4.SQL.Clear;
adoquery1.SQL.Clear;
if adoquery1.Active then adoquery1.Open;
strsql:='select ddhm as 订单号码,xqdh as 需求单号,jhdh as 计划单号,bjdh as 报价单号,'+
'djr as 登记人,lxr as 联络人,gysdm as 供应商代码,gysmc as 供应商名称,'+
'fkfs as 付款方式,bb as 币种,cgrq as 采购日期,ldrq as 落单日期 from cgdd_main where cgrq>=:rq1 and'+
' cgrq<=:rq2 order by ddhm asc';
adoquery1.sql.Add(strsql);
if adoquery3.Active then adoquery3.Close;
strsql:='select shdh as 收货单号,ddhm as 订单号码,yshdh as 送货单号,shr as 送货人,bb as 币种,srrq as 日期,'+
'bz as 备注,gysdm as 供应商代码,gysmc as 供应商名称 from shd_main where srrq>='+''''+datetostr(dtp1.date)+''''+
' and srrq<='+''''+datetostr(dtp2.date)+'''';
adoquery3.SQL.Add(strsql);
if adoquery4.Active then adoquery4.Close;
strsql:='select thdh as 退货单号,shdh as 收货单号,ddhm as 订单号码,gysdm as 供应商代码,bb as 币种,'+
'srrq as 日期,djr as 操作,node as 备注 from thgl_main where srrq>='+''''+datetostr(dtp1.date)+''''+
' and srrq<='+''''+datetostr(dtp2.date)+'''';
adoquery4.SQL.Add(strsql);
if adoquery5.Active then adoquery5.Close;
strsql:='select cgjhdh as 计划单号,cgxqdh as 需求单号,gysdm as 供应商代码,shhe as 审核,sfxd as 下单,'+
'srrq as 日期,djr as 操作,node as 备注 from cgjh_main where srrq>='+''''+datetostr(dtp1.date)+''''+
' and srrq<='+''''+datetostr(dtp2.date)+'''';
adoquery5.SQL.Add(strsql);
if adoquery6.Active then adoquery6.Close;
strsql:='select bjdh as 报价单号,cgjhdh as 计划单号,ybjdh as 原报价单号,gysdm as 供应商代码,'+
'srrq as 日期,djr as 操作,node as 备注 from wlbj where srrq>='+''''+datetostr(dtp1.date)+''''+
' and srrq<='+''''+datetostr(dtp2.date)+'''';
adoquery6.SQL.Add(strsql);
adoquery1.Open;
adoquery3.Open;
adoquery4.Open;
adoquery5.Open;
adoquery6.Open;

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

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

procedure Tfrmgysdd.FormCreate(Sender: TObject);
var
node:ttreenode;
node1:ttreenode;
begin
adoquery1.Connection:=dm1.ADOConnection1;
adoquery2.Connection:=dm1.ADOConnection1;
adoquery3.Connection:=dm1.ADOConnection1;
adoquery4.Connection:=dm1.ADOConnection1;
adoquery5.Connection:=dm1.ADOConnection1;
adoquery6.Connection:=dm1.ADOConnection1;
strsql:='select distinct fr from gysdmk order by fr asc';
adoexect(adoquery2,strsql);
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('fr').AsString));
                  strsql:='select gysmc from gysdmk where fr='+''''+trim(adoquery2.fieldbyname('fr').AsString)+
                  ''''+'order by gysmc asc';
                  adoexect(adoquery3,strsql);
                  adoquery3.First;
                  while not adoquery3.Eof do
                  begin
                       treeview1.Items.AddChild(node1,trim(adoquery3.fieldbyname('gysmc').AsString));
                       adoquery3.Next;
                  end;
                  adoquery2.Next;
            end;
       end;
strsql:='select gysdm as 供应商代码,gysmc as 供应商名称,fr as 地区,lxr as 联系人,'+
        'cz as 传真,dh as 电话,wz as 网站,email,dz as 地址,djr as 操作,'+
        'srrq as 日期,node as 备注,bb as 币别,fkfs as 付款方式 from gysdmk'+
        ' order by gysdm asc';
adoexect(adoquery7,strsql);
dtp1.Date:=date-30;
dtp2.Date:=date;
csh;
end;

procedure Tfrmgysdd.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if node.Level<>2 then exit;
strsql:='供应商名称='+''''+trim(node.Text)+'''';
adoquery7.Filtered:=true;
adoquery7.Filter:=strsql;
adoquery1.Filtered:=true;
adoquery1.Filter:='供应商代码='+''''+trim(adoquery7.fieldbyname('供应商代码').asstring)+'''';
adoquery3.Filtered:=true;
adoquery3.Filter:='供应商代码='+''''+trim(adoquery7.fieldbyname('供应商代码').asstring)+'''';
adoquery4.Filtered:=true;
adoquery4.Filter:='供应商代码='+''''+trim(adoquery7.fieldbyname('供应商代码').asstring)+'''';
adoquery5.Filtered:=true;
adoquery5.Filter:='供应商代码='+''''+trim(adoquery7.fieldbyname('供应商代码').asstring)+'''';
adoquery6.Filtered:=true;
adoquery6.Filter:='供应商代码='+''''+trim(adoquery7.fieldbyname('供应商代码').asstring)+'''';
end;

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

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

procedure Tfrmgysdd.RzBitBtn3Click(Sender: TObject);
begin
form3.frDBDataSet1.dataset:=adoquery1;
form3.frReport1.DoublePass := True;
form3.frReport1.Clear;
form3.frReport1.LoadFromFile(strpath+'/report/gysdd.frf');
frVariables['username']:=username;
frVariables['rq1']:=datetostr(dtp1.Date);
frVariables['rq2']:=datetostr(dtp2.Date);
form3.frReport1.Preview := Form3.frPreview1;
if form3.frReport1.PrepareReport then
  begin
    form3.frReport1.ShowPreparedReport;
  end;
form3.ShowModal;
end;

procedure Tfrmgysdd.RzBitBtn2Click(Sender: TObject);
begin
form3.frDBDataSet1.dataset:=adoquery1;
form3.frReport1.DoublePass := True;
form3.frReport1.Clear;
form3.frReport1.LoadFromFile(strpath+'/report/gysdd.frf');
frVariables['username']:=username;
frVariables['rq1']:=datetostr(dtp1.Date);
frVariables['rq2']:=datetostr(dtp2.Date);
form3.frReport1.DesignReport;
end;

procedure Tfrmgysdd.DBGridEh1TitleClick(Column: TColumnEh);
begin
 Compositor(adoquery1,Column);
end;

procedure Tfrmgysdd.DBGridEh2TitleClick(Column: TColumnEh);
begin
 Compositor(adoquery1,Column);
end;

procedure Tfrmgysdd.DBGridEh3TitleClick(Column: TColumnEh);
begin
 Compositor(adoquery1,Column);
end;

procedure Tfrmgysdd.DBGridEh4TitleClick(Column: TColumnEh);
begin
 Compositor(adoquery1,Column);
end;

procedure Tfrmgysdd.DBGridEh5TitleClick(Column: TColumnEh);
begin
 Compositor(adoquery1,Column);
end;

end.