u_htqd.pas

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

unit U_htqd;

interface

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

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

var
  frm_htqd: Tfrm_htqd;

implementation

uses U_htgl, U_drht, U_Data, U_Public;

{$R *.dfm}

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

procedure Tfrm_htqd.loaddata;
var
newitem:Tlistitem;
i:integer;
begin
listview1.Clear;
if directoryexists(sy_path) then
begin
filelistbox1.Update;
filelistbox1.Directory:=sy_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_htqd.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_htqd.mcqr;
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
for i:=0 to listview1.Items.Count - 1 do
begin
   if listview1.Items[i].Checked=true then
   with data1.ADOQuery1 do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 合同 where htmc=:a');
      parameters.ParamByName('a').Value:=listview1.Items[i].Caption;
      open;
   end;
end;
   if data1.ADOQuery1.RecordCount>0 then
      application.MessageBox('文件名称已经存在，为避免数据库出错，请更改文件名称！','提示',64)
   else
   begin
     frm_main.dr2:=1;
     application.CreateForm(Tfrm_drht,frm_drht);
     frm_drht.ShowModal;
     frm_drht.Free;
   end;
end;
loaddata;
exit;
end;

procedure Tfrm_htqd.BitBtn1Click(Sender: TObject);
begin
mcqr;
end;

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

procedure Tfrm_htqd.listview1DblClick(Sender: TObject);
begin
path:=sy_path+'\'+listview1.Selected.Caption;
OpenWordFile('true',Path,WordApplication1,worddocument1);
end;

end.