wj_fujian.pas

完整的公司合同管理系统,基于ACSESS数据库开发,无须安装任何其他插件.附带源码.免费提供.

unit WJ_FuJian;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, Mask, Buttons, ComCtrls, ExtCtrls, ToolWin,
  DB, ADODB, ImgList,shellApi;

type
  TfrmWJ_FuJian = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Image1: TImage;
    Label1: TLabel;
    ListView1: TListView;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    ImageList1: TImageList;
    OpenDialog1: TOpenDialog;
    ADOTable1: TADOTable;
    ADOTable2: TADOTable;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    tHtID : string;
    procedure SetLabelCaption(const HtName : string);
  end;

  procedure GetHtFuJian(const HtID,HtName : string);
var
  frmWJ_FuJian: TfrmWJ_FuJian;

implementation
  uses pdm,pub,WJ_FuJian_FJBH;
{$R *.dfm}

procedure GetHtFuJian(const HtID,HtName : string);
begin
  Application.CreateForm(TfrmWJ_FuJian,frmWJ_FuJian);
  with frmWJ_FuJian do
       begin
            tHtID := HtID;
            SetLabelCaption(HtName);
            FuJian_ViewData(HtID,ADOQuery1,ListView1);
            ShowModal ;
       end;
end;

procedure TfrmWJ_FuJian.SetLabelCaption(const HtName : string);
begin
  Label1.Caption := '“'+HtName+'”'+'添加了下列附件';
end;

procedure TfrmWJ_FuJian.Button1Click(Sender: TObject);
var FileDir ,FJBH: string;
begin
  OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist];
  OpenDialog1.Title := '选择附件';
  OpenDialog1.Filter := 'Text files (*.doc)|*.doc|bmp (*.bmp)|*.bmp|All files (*.*)|*.*';
  OpenDialog1.FilterIndex := 3; { start the dialog showing all files }
  if OpenDialog1.Execute then
     begin
        if OpenDialog1.Files.Count>1 then
           begin
              application.MessageBox('对不起，一次只能添加一个附件！','提示',MB_OK+MB_ICONINFORMATION);
           end
        else
           begin
                FileDir := OpenDialog1.FileName;
                if  FuJian_GetFileName(FileDir) then
                    if EditFuJianBH(tHtID,FileDir,FJBH) then
                       if FuJian_PostInTable (tHtID,FileDir,FJBH,OpenDialog1.FileName,ADOTable1,ADOTable2) then
                          FuJian_ViewData(tHtID,ADOQuery1,ListView1);
           end;
     end;

end;

procedure TfrmWJ_FuJian.Button2Click(Sender: TObject);
begin
  if Assigned(ListView1.Selected) then
     if FuJIan_DelteFile(tHtID,ListView1,ADOTable2,ADOQuery1) then
         FuJian_ViewData(tHtID,ADOQuery1,ListView1);
end;

procedure TfrmWJ_FuJian.ListView1DblClick(Sender: TObject);
var NewDir : string;
begin
  if Assigned(ListView1.selected) then
     begin
        NewDir := tHtID;
        if FuJian_GetSaveLocation(NewDir,adoTable2) then  begin
           shellExecute(handle,nil,pchar(NewDir+ListView1.Selected.Caption),nil,nil,SW_SHOWNORMAL);
        end else
            application.MessageBox('请先在“系统维护”中设置附件存取路径！','提示',MB_OK+MB_ICONSTOP);
     end;

end;


end.