ufrmreport.pas

工廠採購管理系統

unit ufrmreport;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DB, ADODB;

type
  Tfrmreport = class(TForm)
    TreeView1: TTreeView;
    GroupBox1: TGroupBox;
    comxm1: TComboBox;
    Label1: TLabel;
    comtj1: TComboBox;
    editz1: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label2: TLabel;
    comxm2: TComboBox;
    comtj2: TComboBox;
    Button1: TButton;
    Button2: TButton;
    editz2: TEdit;
    ADOQuery1: TADOQuery;
    procedure csh();
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
  private
    { Private declarations }
    bb:string;
     public
    { Public declarations }
  end;

var
  frmreport: Tfrmreport;

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


procedure tfrmreport.csh();
var
i:integer;
begin
comxm1.Clear;
comxm2.Clear;
for i:=0 to adoquery1.Fields.Count-1 do begin

comxm1.Items.Add(adoquery1.Recordset.Fields[i].Name);
comxm2.Items.Add(adoquery1.Recordset.Fields[i].Name);
next;
end;
end;


procedure Tfrmreport.FormCreate(Sender: TObject);
begin
comxm1.Items.Clear;
comxm2.Items.Clear;
comtj1.Items.Clear;
comtj2.Items.Clear;
comtj1.Items.Add('=');
comtj1.Items.Add('>');
comtj1.Items.Add('<');
comtj1.Items.Add('like');
comtj2.Items.Add('=');
comtj2.Items.Add('>');
comtj2.Items.Add('<');
comtj2.Items.Add('like');
end;

procedure Tfrmreport.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tfrmreport.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
n:integer;
begin
n:=node.Index;
showmessage(inttostr(n));
case n of
0,9,10 : begin
adoquery1:=dm1.adomaterial;
bb:='/report/material_lb.apt';
end;
1,8,11 : begin
adoquery1:=dm1.adoproduct;
bb:='/report/product_lb.apt';
end;
4 : adoquery1:=dm1.adowarehouse;
5 : adoquery1:=dm1.adotransport;
end;
csh;
end;

end.