u_lx.pas

很好的合同管理系统完整源码,适合初学者参考

unit U_lx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, OleServer, Word2000, StdCtrls, FileCtrl;

type
  Tfrm_lx = class(TForm)
    listview1: TListView;
    WordApplication1: TWordApplication;
    WordDocument1: TWordDocument;
    procedure FormShow(Sender: TObject);
    procedure listview1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    path:string;
  end;

var
  frm_lx: Tfrm_lx;

implementation

uses U_Data, U_htgl, U_drht, U_Public, U_login;

{$R *.dfm}

procedure Tfrm_lx.FormShow(Sender: TObject);
var
  newitem:Tlistitem;
  i:integer;
begin   
listview1.Items.Clear;
with data1.htlx do
begin
   close;
   sql.Clear;
   sql.Add('select * from 合同类型');
   open;
end;
data1.htlx.First;
while not data1.htlx.Eof do
begin
   newitem:=listview1.Items.Add;
   newitem.Caption:=data1.htlx.fieldbyname('htlx').Value;
   data1.htlx.Next;
end;

end;

procedure Tfrm_lx.listview1DblClick(Sender: TObject);
begin
with data1.ADOQuery1 do
begin
   close;
   sql.Clear;
   sql.Add('select * from 合同类型 where htlx=:a');
   parameters.ParamByName('a').Value:=listview1.Selected.Caption;
   open;
end;
path:=data1.ADOQuery1.fieldbyname('yblj').Value;
if frm_main.dr1=0 then
begin
if WordPath(path) then
begin
close;
OpenWordFile('false',path,WordApplication1,WordDocument1);
Rz_Gl(czy,formatdatetime('yyyy年mm月dd日 hh:mm:ss',now),'打开合同样本');
end
else
application.MessageBox('文件不存在，请检查设置','提示',64);
end
else
begin
frm_drht.Edit3.Text:=listview1.Selected.Caption;
close;
end;
end;

end.