u_htsy.pas

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

unit U_htsy;

interface

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

type
  Tfrm_htsy = class(TForm)
    WordApplication1: TWordApplication;
    WordDocument1: TWordDocument;
    Panel1: TPanel;
    listview1: TListView;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    FileListBox1: TFileListBox;
    BitBtn3: TBitBtn;  
    procedure FormShow(Sender: TObject);
    procedure listview1DblClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
    path:string;
  end;

var
  frm_htsy: Tfrm_htsy;

implementation

uses U_htgl, U_Public, U_login;

{$R *.dfm}


procedure Tfrm_htsy.FormShow(Sender: TObject);
var
 newitem:Tlistitem;
  i:integer;
begin
listview1.Clear;
if directoryExists(cg_path) then
begin
filelistbox1.Update;
filelistbox1.Directory:=cg_path;
begin
for i:=0 to filelistbox1.Count - 1 do
begin
   newitem:=listview1.Items.Add;
   newitem.Caption:=filelistbox1.Items.Strings[i];
end;
end;
end
else
application.MessageBox('件夹不存在','提示',64);
end;

procedure Tfrm_htsy.listview1DblClick(Sender: TObject);
begin
path:=cg_path+'\'+listview1.Selected.Caption;
if Wordpath(path) then
begin
OpenWordFile('False',path,WordApplication1,WordDocument1);
Rz_Gl(czy,formatdatetime('yyyy年mm月dd日 hh:mm:ss',now),'打开Word');
end
else
application.MessageBox('文件不存在，请检查设置','提示',64);
end;

procedure Tfrm_htsy.BitBtn1Click(Sender: TObject);
var
i,s:integer;
begin
for s:=0 to listview1.Items.Count-1  do
begin
if listview1.Items[s].Checked=false then
begin
CONTINUE;
end
else
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(cg_path+'\'+listview1.Items[i].Caption),Pchar(sy_path+'\'+ExtractFileName(path+'\'+listview1.Items[i].Caption)),False);
         DeleteFile(Pchar(cg_path+'\'+listview1.Items[i].Caption));
      end;
   end;
application.MessageBox('保存成功','明日科技');
Rz_Gl(czy,formatdatetime('yyyy年mm月dd日 hh:mm:ss',now),'审阅通过');
except
application.MessageBox('保存失败','明日科技',64);
end;
end;
end;
self.OnShow(sender);
exit;
end;

procedure Tfrm_htsy.BitBtn2Click(Sender: TObject);
var
i,s:integer;
begin
for s:=0 to listview1.Items.Count-1  do
begin
if listview1.Items[s].Checked=false then
begin
CONTINUE;
end
else
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(cg_path+'\'+listview1.Items[i].Caption),Pchar(xg_path+'\'+ExtractFileName(path+'\'+listview1.Items[i].Caption)),False);
         DeleteFile(Pchar(cg_path+'\'+listview1.Items[i].Caption));
      end;
   end;
application.MessageBox('保存成功','明日科技');
Rz_Gl(czy,formatdatetime('yyyy年mm月dd日 hh:mm:ss',now),'审阅修改');
except
application.MessageBox('保存失败','明日科技',64);
end;
end;
end;  
self.OnShow(sender);
exit;
end;

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

end.