u_htxg.pas

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

unit U_htxg;

interface

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

type
  Tfrm_htxg = class(TForm)
    Panel1: TPanel;
    listview1: TListView;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    FileListBox1: TFileListBox;
    WordApplication1: TWordApplication;
    WordDocument1: TWordDocument;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure listview1DblClick(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    path:string;
  end;

var
  frm_htxg: Tfrm_htxg;

implementation

uses U_htgl, U_Public, U_login;

{$R *.dfm}

procedure Tfrm_htxg.FormShow(Sender: TObject);
var
 newitem:Tlistitem;
  i:integer;
begin
listview1.Clear;
filelistbox1.Directory:=xg_path;
for i:=0 to filelistbox1.Count - 1 do
begin
   newitem:=listview1.Items.Add;
   newitem.Caption:=filelistbox1.Items.Strings[i];
end;
end;

procedure Tfrm_htxg.BitBtn1Click(Sender: TObject);
var
i:integer;
begin
if messagebox(self.Handle,'确定通过吗？','提示',mb_yesno+mb_iconquestion)=idyes then
begin
try
   for i:=0 to listview1.Items.Count-1  do
   begin
      if listview1.Items[i].Checked=True then
      begin
      CopyFile(Pchar(xg_path+'\'+listview1.Items[i].Caption),Pchar(cg_path+'\'+ExtractFileName(path+'\'+listview1.Items[i].Caption)),False);
      DeleteFile(Pchar(xg_path+'\'+listview1.Items[i].Caption));
      end;
   end;
application.MessageBox('保存成功','明日科技');
Rz_Gl(czy,formatdatetime('yyyy年mm月dd日 hh:dd:ss',now),'修改后提交');
self.OnShow(sender);
except
application.MessageBox('保存失败','明日科技',64);
end;
end;
end;

procedure Tfrm_htxg.listview1DblClick(Sender: TObject);
begin
path:=xg_path+'\'+listview1.Selected.Caption;
OpenWordFile('True',path,WordApplication1,WordDocument1);
end;

procedure Tfrm_htxg.BitBtn3Click(Sender: TObject);
begin
close;
end;

end.