wj_taiz_xsxx.~pas

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

unit WJ_TaiZ_XSXX;

interface

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

type
  TfrmWJ_TaiZ_XSXX = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Image1: TImage;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    CheckListBox1: TCheckListBox;
    CheckBox1: TCheckBox;
    TabSheet2: TTabSheet;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    ColorBox1: TColorBox;
    ColorBox2: TColorBox;
    ColorBox3: TColorBox;
    ColorBox4: TColorBox;
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ListField(const StrL : TStringList)  ;
    procedure GetShowFiledList (var StrL : TStringList);
  end;
  function Get_TaiZCanS(var StrL : TStringList) : boolean ;
var
  frmWJ_TaiZ_XSXX: TfrmWJ_TaiZ_XSXX;

implementation

{$R *.dfm}
function Get_TaiZCanS(var StrL : TStringList) : boolean ;
begin
  Application.CreateForm(TfrmWJ_TaiZ_XSXX,frmWJ_TaiZ_XSXX);
  with frmWJ_TaiZ_XSXX do
       begin
           ListField(StrL);
           if ShowModal=mrok then begin
              GetShowFiledList(StrL);
              result := true;
           end else result := false;
       end;
end;

procedure TfrmWJ_TaiZ_XSXX.GetShowFiledList (var StrL : TStringList);
var i : integer ;
begin
   with StrL do begin
        Clear;
        for i:=0 to CheckListBox1.Items.Count-1 do
            if  CheckListBox1.Checked[i] then
                Add(CheckListBox1.Items.Strings[i]);
   end;
end;

procedure TfrmWJ_TaiZ_XSXX.ListField(const StrL : TStringList)  ;
var i : integer ;
begin
  with StrL do
       begin
         for i:=0 to Count-1 do begin
             CheckListBox1.Items.Add(Names[i]);
             if Values[Names[i]]<>'Off' then
                CheckListBox1.Checked[i]:=true;
         end;
       end;

end;

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

end.