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
//frm_main.dr2:=1;
frm_main.loaddata_lx();
close;
end;

end.