wj_fujian_day.pas

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

unit WJ_FuJian_DaY;

interface

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

type
  TfrmWJ_FuJian_DaY = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ImageList1: TImageList;
    ADOQuery1: TADOQuery;
    ComboBox1: TComboBox;
    Button1: TButton;
    Label2: TLabel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ListView1: TListView;
    Image1: TImage;
    Label1: TLabel;
    CheckBox1: TCheckBox;
    ADOTable1: TADOTable;
    procedure CheckBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
    StrL : TStringList;
  end;
  function FuJianPrint(const HtID,HtName : string; var StrL : TStringList) : boolean;
var
  frmWJ_FuJian_DaY: TfrmWJ_FuJian_DaY;

implementation
  uses pdm,pub,Pub_ChooseHT;
{$R *.dfm}
function FuJianPrint(const HtID,HtName : string; var StrL : TStringList) : boolean;
begin
  Application.CreateForm(TfrmWJ_FuJian_DaY,frmWJ_FuJian_DaY);
  with frmWJ_FuJian_DaY do
       begin
           CreateStringList(HtID , HtName ,StrL , ComBobox1);
           FuJian_ViewData( HtID, ADOQuery1, ListView1) ;
           if ShowModal=mrok then begin
             //  if GetResult(HtID,HtName) then begin
                  result := true;
             //  end else
             //     result := false;
            end else result := false;
       end;

end;

procedure TfrmWJ_FuJian_DaY.CheckBox1Click(Sender: TObject);
var i : integer;
begin
   for i:=0 to ListView1.Items.Count-1 do
       ListView1.Items.Item[i].Checked := CheckBox1.Checked;

end;

procedure TfrmWJ_FuJian_DaY.Button1Click(Sender: TObject);
   function Check(const HtName : string) : boolean ;
     var i : integer;
     begin
       result := true;
       for i:=0 to StrL.Count-1 do begin
         if SameText(StrL.Names[i],HtName) then begin
            result:=false;
            ComBobox1.Text := HtName;
            Abort;
         end;
       end;
     end;

var HtID,HtName : string;
begin
  if GetHtID(HtID,HtName) then begin
     FuJian_ViewData( HtID, ADOQuery1, ListView1) ;
     if Check(HtName) then
        AddStringList(HtID , HtName ,StrL , ComBobox1);
     end;
end;

procedure TfrmWJ_FuJian_DaY.ComboBox1Change(Sender: TObject);
begin
  FuJian_ViewData(Strl.Values[ComboBox1.Text], ADOQuery1, ListView1) ;
end;

procedure TfrmWJ_FuJian_DaY.ListView1DblClick(Sender: TObject);
var NewDir : string;
begin
  if Assigned(ListView1.selected) then
     begin
        NewDir := Strl.Values[ComboBox1.Text];
        if FuJian_GetSaveLocation(NewDir,adoTable1) 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.