purviewform.pas

地址档案管理系统

unit PurviewForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, DB, DbNav97,
  wwSpeedButton, wwDBNavigator, wwclearpanel, CheckLst, ADODB, DataModule;
type
  TFormPurview = class(TForm)
    DBGrid1: TDBGrid;
    tDbNav971: tDbNav97;
    clbFunc: TCheckListBox;
    Button1: TButton;
    Button2: TButton;
    btnSave: TButton;
    tblPP: TADOTable;
    dsPurviewPerson: TDataSource;
    tblPPp_name: TStringField;
    tblPPpassword: TWideStringField;
    tblPPfunctions: TWideStringField;
    tblPPnote: TWideStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure tblPPAfterScroll(DataSet: TDataSet);
    procedure btnSaveClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormPurview: TFormPurview;
//  mydv:TMyDBNavigator;
  DBN: TDBNavigator;
implementation

{$R *.dfm}

procedure TFormPurview.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  tblPP.Close;
  Free;
end;

procedure TFormPurview.FormResize(Sender: TObject);
begin
//  Caption:=IntToStr(Width)+','+IntToStr(Height);
end;

procedure TFormPurview.FormCreate(Sender: TObject);
begin
  clbFunc.ItemEnabled[0]:=False;
  tblPP.Open;
  {
  dbn:=TDBNavigator.CreateParented(Self.Handle);
  dbn.Left:=0;
  dbn.Top:=0;
  dbn.VisibleButtons:= DBNavigator1.VisibleButtons;
  dbn.Visible:=True;
  dbn.Show;
  }
end;

procedure TFormPurview.Button1Click(Sender: TObject);
var
  I:Integer;
begin
  for I:=1 to clbFunc.Count-1 do
    clbFunc.Checked[I]:=True;
end;

procedure TFormPurview.Button2Click(Sender: TObject);
var
  I:Integer;
begin
  for I:=1 to clbFunc.Count-1 do
    clbFunc.Checked[I]:=False;
end;

procedure TFormPurview.tblPPAfterScroll(DataSet: TDataSet);
var
  I:Integer;
  procedure ShowFunc;
  var
    I:Integer;
    fs:TStringList;
  begin
    fs:=TStringList.Create;
    fs.CommaText:=tblPPfunctions.Value; //DataSet.FieldValues['functions'];
    for I:=0 to clbFunc.Count-1 do clbFunc.Checked[I]:=False;
    for I:=0 to fs.Count-1 do
      clbFunc.Checked[StrToInt(fs.Strings[I])]:=Enabled;
  end;
begin
  if (tblPP.State in [dsBrowse,dsInsert,dsEdit]) and (tblPPp_name.Value<>'') then
  begin
    ShowFunc;
    Button1.Enabled:=True;
    Button2.Enabled:=True;
    btnSave.Enabled:=True;
    clbFunc.Enabled:=True;
  end
  else
  begin
    Button1.Enabled:=False;
    Button2.Enabled:=False;
    btnSave.Enabled:=False;
    clbFunc.Enabled:=False;
    Button2Click(nil);
  end;
end;

procedure TFormPurview.btnSaveClick(Sender: TObject);
var
  fs:TStringList;
  I:Integer;
begin

//  if tblPP.State = dsInsert then Exit;

  tblPP.Refresh;

  fs:=TStringList.Create;
  with clbFunc do
  begin
    for I:=0 to Count-1 do
      if Checked[I] then fs.Add(IntToStr(I));
  end;

  tblPP.Edit;
  tblPPfunctions.Value:=fs.CommaText;
  tblPP.Post;

  fs.Free;
end;

end.