u_htgl.pas

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

unit U_htgl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,shellapi, Buttons, StdCtrls, ExtCtrls, Menus, ComCtrls, ImgList,
  Word2000, OleServer, FileCtrl, jpeg, RpCon, RpConDS, RpDefine, RpRave;

type
  Tfrm_main = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    ImageList1: TImageList;
    Panel3: TPanel;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    WordApplication1: TWordApplication;
    WordDocument1: TWordDocument;
    N26: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton9: TSpeedButton;
    Image2: TImage;
    TreeView1: TTreeView;
    Image3: TImage;
    ListView1: TListView;
    FileListBox1: TFileListBox;
    RichEdit1: TRichEdit;
    PopupMenu1: TPopupMenu;
    N110: TMenuItem;
    N27: TMenuItem;
    N31: TMenuItem;
    RvProject1: TRvProject;
    RvDataSetConnection1: TRvDataSetConnection;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure Skin_Change();
    procedure SpeedButton3Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure TreeView1DblClick(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure loaddata;
    procedure loaddata_zf();
    procedure loaddata_lx();
    procedure SpeedButton9Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N16Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N110Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
    gg,dcx:string;
    path:string;
    a,b,c:string;
    dr2,zf,cx1,cx:integer;
    subt1,subt2:TTreenode;
  end;

var
  frm_main: Tfrm_main;

implementation

uses U_lx, U_Data, U_drht, U_xtsz, U_htsy, U_dwxx, U_htqd, U_lxsz, U_htxg,
  U_htcx, U_cx, U_login, U_ri, U_Public, U_czygl, U_mccx;

{$R *.dfm}

procedure Tfrm_main.loaddata;
var
i:integer;
begin
treeview1.Items.Clear;
with data1.htb do
begin
   close;
   sql.Clear;
   sql.Add('select * from 单位信息表');
   open;
end;
if data1.htb.FieldByName('单位名称').Value<>null then
begin
a:=data1.htb.fieldbyname('单位名称').Value;
subt1:=treeview1.Items.Add(nil,a);
with data1.htlx do
begin
   close;
   sql.Clear;
   sql.Add('select * from 合同类型');
   open;
end;
while not data1.htlx.Eof do
begin
b:=data1.htlx.FieldByName('htlx').Value;
subt2:=treeview1.Items.AddChild(subt1,b);
with data1.ADOQuery1 do
begin
   close;
   sql.Clear;
   sql.Add('select * from 合同 where htlx=:aa');
   parameters.ParamByName('aa').Value:=b;
   open;
end;
while not data1.ADOQuery1.Eof do
begin
   c:=data1.ADOQuery1.FieldByName('htmc').Value;
   treeview1.Items.AddChild(subt2,c);
   data1.ADOQuery1.Next;
end;
data1.htlx.Next;
end;
TreeView1.FullExpand;
end;
end;

procedure Tfrm_main.loaddata_zf();
var
i:integer;
lk:string;
begin
   treeview1.Items.Clear;
with data1.htb do
begin
   close;
   sql.Clear;
   sql.Add('select * from 单位信息表');
   open;
end;
if data1.htb.FieldByName('单位名称').Value<>null then
begin
a:=data1.htb.fieldbyname('单位名称').Value;
subt1:=treeview1.Items.Add(nil,a);
b:='作废合同';
subt2:=treeview1.Items.AddChild(subt1,b);
filelistbox1.Directory:=hsz_path;
for i:=0 to filelistbox1.Count - 1 do
begin
   c:=filelistbox1.Items.Strings[i];
   treeview1.Items.AddChild(subt2,c);
end;
end;
TreeView1.FullExpand;
end;

procedure Tfrm_main.loaddata_lx();
var
kk,c:string;
begin
   TreeView1.Items.Clear;
with data1.htb do
begin
   close;
   sql.Clear;
   sql.Add('select * from 单位信息表');
   open;
end;
if data1.htb.FieldByName('单位名称').Value<>null then
begin
a:=data1.htb.fieldbyname('单位名称').Value;
subt1:=treeview1.Items.Add(nil,a);
   kk:=frm_lx.listview1.Selected.Caption;
   subt2:=treeview1.Items.AddChild(subt1,kk);
   with data1.ADOPublic do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 合同 where htlx=:a');
      parameters.ParamByName('a').Value:=kk;
      open;
   end;
   while not data1.ADOPublic.Eof do
   begin
      c:=data1.ADOPublic.FieldByName('htmc').Value;
      TreeView1.Items.AddChild(subt2,c);
      data1.ADOPublic.Next;
   end;
TreeView1.FullExpand;
end;
end;

procedure Tfrm_main.FormShow(Sender: TObject);
var
i:integer;
kk:string;
begin
application.CreateForm(Tfrm_login,frm_login);
frm_login.ShowModal;
frm_login.Free;
xt_path;
net_path;
skin_change;
loaddata;
end;

procedure Tfrm_main.SpeedButton1Click(Sender: TObject);
begin
dr2:=0;
application.CreateForm(Tfrm_lx,frm_lx);
frm_lx.ShowModal;
frm_lx.Free;
end;

procedure Tfrm_main.TreeView1Click(Sender: TObject);
var
listitem:Tlistitem;
begin
if dr2<>1 then
begin
listview1.Clear;
if treeview1.Selected.Selected then
richedit1.Visible:=false;
if treeview1.Selected.Parent=nil then  //只是第一级
begin
listview1.Visible:=false;
richedit1.Visible:=false;
exit;
end
else
begin
richedit1.Visible:=false;
with data1.htb do
begin
   close;
   sql.Clear;
   sql.Add('select * from 合同 where htlx= :a');
   parameters.ParamByName('a').Value:=treeview1.Selected.Text;
   open;
end;
while not data1.htb.Eof do
begin
   listitem:=listview1.Items.Add;
   listitem.Caption:=data1.htb.fieldbyname('htmc').Value;
   data1.htb.Next;
end;
   listview1.Align:=alClient;
   listview1.Visible:=true;
end;
if treeview1.Selected.Parent.Parent<>nil then
begin
with data1.ADOQuery1 do
begin
   close;
   sql.Clear;
   sql.Add('select * from 合同 where htmc=:b');
   parameters.ParamByName('b').Value:=treeview1.Selected.Text;
   open;
end;
//path:=data1.ADOQuery1.fieldbyname('htlj').Value;
richedit1.Text:=data1.ADOQuery1.fieldbyname('htnr').Value;
richedit1.Align:=alClient;
richedit1.Visible:=true;
end;
end
else
exit;
end;

procedure Tfrm_main.N24Click(Sender: TObject);
begin
application.CreateForm(Tfrm_xtsz,frm_xtsz);
frm_xtsz.ShowModal;
frm_xtsz.Free;
end;

procedure Tfrm_main.SpeedButton2Click(Sender: TObject);