filterprojectfrm.pas

考勤管理是企业内部管理的重要环节和基础

unit FilterProjectFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, Grids, DBGrids, CheckLst;

resourcestring
  sName='名称栏不能为空!!';

type
  TFilterProjectForm = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    clbProjectName: TCheckListBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Enter(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    procedure ShowModalPopup(popup: integer);
    { Public declarations }
  end;

var
  FilterProjectForm: TFilterProjectForm;

implementation

uses unDM2;

{$R *.DFM}

procedure TFilterProjectForm.ShowModalPopup(popup : integer);
Var
  i:integer;
begin
  case popup of
    0:DM2.tblProjectFilter.append;
    1:DM2.tblProjectFilter.edit;
  end;
  i:=0;
  DM2.tblProjectFilterItem.First;
  while not DM2.tblProjectFilterItem.Eof do begin
    clbProjectName.Items.Add(DM2.tblProjectFilterItemName.Value);
    if DM2.tblProjectFilterItemChosed.Value then
      clbProjectName.Checked[i]:=True
    else
      clbProjectName.Checked[i]:=False;
    DM2.tblProjectFilterItem.Next;
    inc(i);
  end;
  ShowModal;
end;

procedure TFilterProjectForm.Button1Click(Sender: TObject);
Var
  i:integer;
begin
  DM2.tblProjectFilterItem.First;
  for i:=0 to clbProjectName.Items.Count-1 do begin
    DM2.tblProjectFilterItem.Edit;
    DM2.tblProjectFilterItemChosed.Value:=clbProjectName.Checked[i];
    DM2.tblProjectFilterItem.Next;
  end;
  DM2.tblProjectFilter.Post;
end;

procedure TFilterProjectForm.Button2Click(Sender: TObject);
begin
  DM2.tblProjectFilterAfterCancel(DM2.tblProjectFilter);
end;

procedure TFilterProjectForm.Button1Enter(Sender: TObject);
begin
  if DM2.tblProjectFilterFilterName.value='' then begin
    MessageDlg(Pchar(sName), mtConfirmation, [mbYes], 0);
    DBEdit1.SetFocus;
    abort;
  end;
end;

procedure TFilterProjectForm.Button3Click(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to clbProjectName.Items.Count-1 do
    clbProjectName.Checked[i]:=True;
end;

procedure TFilterProjectForm.Button4Click(Sender: TObject);
Var
  i:integer;
begin
  for i:=0 to clbProjectName.Items.Count-1 do
    clbProjectName.Checked[i]:=False;
end;

procedure TFilterProjectForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TFilterProjectForm.FormDestroy(Sender: TObject);
begin
  FilterProjectForm:=Nil;
end;

end.