u_cx.pas

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

unit U_cx;

interface

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

type
  Tfrm_cx = class(TForm)
    Panel1: TPanel;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Panel2: TPanel;
    RichEdit1: TRichEdit;
    Panel3: TPanel;
    ListView1: TListView;
    BitBtn6: TBitBtn;
    BitBtn1: TBitBtn;
    FileListBox1: TFileListBox;
    WordApplication1: TWordApplication;
    WordDocument1: TWordDocument;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn6Click(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure loaddata;
  private
    { Private declarations }
  public
    { Public declarations }
    path:string;
  end;

var
  frm_cx: Tfrm_cx;

implementation

uses U_htgl, U_Data, U_Public;

{$R *.dfm}

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

procedure Tfrm_cx.FormShow(Sender: TObject);
begin
loaddata;
end;

procedure Tfrm_cx.BitBtn1Click(Sender: TObject);
var
i:integer;
begin
if messagebox(self.Handle,'确实要删除回收站中的全部文件吗？','提示',mb_yesno+mb_iconquestion)=idyes then
begin
for i:=0 to listview1.Items.Count - 1 do
begin
   DeleteFile(hsz_path+'\'+listview1.Items[i].Caption);
end;
application.MessageBox('删除成功','提示',64);
Rz_Gl(czy,formatdatetime('yyyy年mm月dd日 hh:mm:ss',now),'删除无效合同');
loaddata;
end;
end;

procedure Tfrm_cx.BitBtn3Click(Sender: TObject);
var
i:integer;
begin
try
for i:=0 to listview1.Items.Count - 1 do
begin
   if listview1.Items[i].Checked=true then
   begin
     DeleteFile(hsz_path+'\'+listview1.Items[i].Caption);
     filelistbox1.DeleteSelected;
   end;
   application.MessageBox('删除成功','提示',64);
end;
except
   application.MessageBox('系统出错','提示',64);
end;
Rz_Gl(czy,formatdatetime('yyyy年mm月dd日 hh:mm:ss',now),'删除无效合同');
loaddata;
end;

procedure Tfrm_cx.FormCreate(Sender: TObject);
begin
if frm_main.zf=1 then
   begin
      caption:='作废合同删除';
      bitbtn1.Visible:=true;
      bitbtn3.Visible:=true;
   end;
end;

procedure Tfrm_cx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
frm_main.zf:=0;
end;

procedure Tfrm_cx.BitBtn6Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to listview1.Items.Count - 1 do
   begin
      if listview1.Items[i].Checked=true then
         begin
           path:=hsz_path+'\'+listview1.Items[i].Caption;
           OpenWordFile('true',Path,WordApplication1,worddocument1);
         end;
   end;
end;

procedure Tfrm_cx.ListView1DblClick(Sender: TObject);
begin
{path:=hsz_path+'\'+listview1.Selected.Caption;
OpenWordFile('true',Path,WordApplication1,worddocument1);}
end;

procedure Tfrm_cx.BitBtn4Click(Sender: TObject);
begin
close;
end;

end.