ubgkz.pas

工廠採購管理系統

unit ubgkz;

interface

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

type
  Tfrmbgkz = class(TForm)
    Panel1: TPanel;
    RzSizePanel1: TRzSizePanel;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    dtp1: TRzDateTimePicker;
    dtp2: TRzDateTimePicker;
    Label1: TLabel;
    TreeView1: TTreeView;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    DBGridEh2: TDBGridEh;
    procedure RzBitBtn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure csh();
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure dtp1Change(Sender: TObject);
    procedure dtp2Change(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmbgkz: Tfrmbgkz;

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

procedure Tfrmbgkz.csh();
begin
    strsql:='select shd_main.shdh as 送货单号,shd_main.ddhm as 订单号码,shd_main.djr as 收货人,'+
    'shd_main.srrq as 送货日期,gysmc as 供应商,isbg as 是否报关 from shd_main'+
    ' where shd_main.srrq>='+''''+datetostr(dtp1.Date)+''''+' and shd_main.srrq<='+
    ''''+datetostr(dtp2.Date)+''''+' order by shd_main.srrq asc';
if RadioButton2.Checked then
   begin
    strsql:='select shd_main.shdh as 送货单号,shd_main.ddhm as 订单号码,shd_main.djr as 收货人,'+
    'shd_main.srrq as 送货日期,gysmc as 供应商,isbg as 是否报关 from '+
    'shd_main where shd_main.isbg=0 and shd_main.srrq>='+''''+datetostr(dtp1.Date)+''''+
    ' and shd_main.srrq<='+
    ''''+datetostr(dtp2.Date)+''''+' order by shd_main.srrq asc';
    end;
if RadioButton1.Checked then
   begin
    strsql:='select shd_main.shdh as 送货单号,shd_main.ddhm as 订单号码,shd_main.djr as 收货人,'+
    'shd_main.srrq as 送货日期,gysmc as 供应商,isbg as 是否报关 from shd_main '+
    ' where shd_main.isbg=1 and shd_main.srrq>='+''''+
    datetostr(dtp1.Date)+''''+' and shd_main.srrq<='+
    ''''+datetostr(dtp2.Date)+''''+' order by shd_main.srrq asc';
    end;
adoexect(adoquery1,strsql);
end;
procedure Tfrmbgkz.RzBitBtn4Click(Sender: TObject);
begin
close;
end;

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

procedure Tfrmbgkz.FormCreate(Sender: TObject);
var
node:ttreenode;
node1:ttreenode;
begin
dtp1.Date:=date-30;
dtp2.Date:=date;
adoquery1.Connection:=dm1.ADOConnection1;
adoquery3.Connection:=dm1.ADOConnection1;
strsql:='select distinct fr from gysdmk where sfbg=1 order by fr asc';
adoexect(adoquery3,strsql);
if not(adoquery3.Recordset.EOF and adoquery3.Recordset.BOF) then
      treeview1.Items.Clear;
      begin
            adoquery3.First;
            node:=treeview1.Items.AddFirst(nil,'供应商列表');
            while not adoquery3.Eof do begin
                  node1:=treeview1.Items.AddChild(node,trim(adoquery3.fieldbyname('fr').AsString));
                  strsql:='select distinct jianch from gysdmk where sfbg=1 and fr='+''''+
                  trim(adoquery3.fieldbyname('fr').AsString)+''''+' order by jianch asc';
                  adoexect(adoquery4,strsql);
                  while not adoquery4.Eof do
                  begin
                      treeview1.Items.AddChild(node1,trim(adoquery4.fieldbyname('jianch').AsString));
                      adoquery4.Next;
                  end;
                  adoquery3.Next;
            end;
       end;
      adoquery3.Close;
      adoquery4.close;
      csh;
end;

procedure Tfrmbgkz.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
case node.Level of
    0:
    csh;
    1:
    begin
    adoquery1.Filtered:=true;
    adoquery1.Filter:='供应商='+''''+trim(node.Text)+'''';
    end;
end;
end;

procedure Tfrmbgkz.RzBitBtn1Click(Sender: TObject);
begin
frmcx:=tfrmcx.Create(self);
frmcx.adocx:=adoquery1;
frmcx.ShowModal;
adoquery1:=frmcx.adocx;
ADOquery1.Requery();
end;

procedure Tfrmbgkz.dtp1Change(Sender: TObject);
begin
csh;
end;

procedure Tfrmbgkz.dtp2Change(Sender: TObject);
begin
csh;
end;

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

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

procedure Tfrmbgkz.RadioButton1Click(Sender: TObject);
begin
csh;
end;

procedure Tfrmbgkz.RadioButton2Click(Sender: TObject);
begin
csh;
end;

procedure Tfrmbgkz.RadioButton3Click(Sender: TObject);
begin
csh;
end;

end.