u_mccx.pas

一套完整的合同管理系统,大家可以下载来看一看

unit U_mccx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  Tfrm_mccx = class(TForm)
    Panel1: TPanel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_mccx: Tfrm_mccx;

implementation

uses U_Data, U_htgl;

{$R *.dfm}

procedure Tfrm_mccx.BitBtn1Click(Sender: TObject);
var
b,c:string;
begin
frm_main.treeview1.Items.Clear;
with data1.ADOQuery1 do
begin
   close;
   sql.Clear;
   sql.Add('select * from 单位信息表');
   open;
end;
if data1.ADOQuery1.FieldByName('单位名称').Value<>null then
begin
frm_main.subt1:=frm_main.treeview1.Items.Add(nil,frm_main.a);
b:='名称查询';
frm_main.subt2:=frm_main.treeview1.Items.AddChild(frm_main.subt1,b);
with data1.htb do
begin
   close;
   sql.Clear;
   sql.Add('select * from 合同 where htmc=:aa');
   parameters.ParamByName('aa').Value:=trim(edit1.Text);
   open;
end;
while not data1.htb.Eof do
begin
   c:=data1.htb.FieldByName('htmc').Value;
   frm_main.treeview1.Items.AddChild(frm_main.subt2,c);
   data1.htb.Next;
end;
data1.htlx.Next;
end;
frm_main.TreeView1.FullExpand;
end;

procedure Tfrm_mccx.BitBtn2Click(Sender: TObject);
var
b,c:string;
begin
frm_main.treeview1.Items.Clear;
with data1.ADOQuery1 do
begin
   close;
   sql.Clear;
   sql.Add('select * from 单位信息表');
   open;
end;
if data1.ADOQuery1.FieldByName('单位名称').Value<>null then
begin
frm_main.subt1:=frm_main.treeview1.Items.Add(nil,frm_main.a);
b:='名称查询';
frm_main.subt2:=frm_main.treeview1.Items.AddChild(frm_main.subt1,b);
with data1.htb do
begin
   close;
   sql.Clear;
   sql.Add('select * from 合同 where htmc like :aa');
   parameters.ParamByName('aa').Value:=trim(edit1.Text)+'%';
   open;
end;
while not data1.htb.Eof do
begin
   c:=data1.htb.FieldByName('htmc').Value;
   frm_main.treeview1.Items.AddChild(frm_main.subt2,c);
   data1.htb.Next;
end;
data1.htlx.Next;
end;
frm_main.TreeView1.FullExpand;
end;

procedure Tfrm_mccx.BitBtn4Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_mccx.BitBtn3Click(Sender: TObject);
begin
frm_main.loaddata;
end;

end.