employfrm.pas

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

unit EmployFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ChildGridfrm, ExtCtrls, StdCtrls, Buttons, Grids, DBGrids, Menus,
  Childfrm;

resourcestring
  sDelete='这是一个空表,不能用删除命令!';

type
  TEmployForm = class(TChildGridform)
    bbtnReport: TBitBtn;
    bbtnEdit: TBitBtn;
    pmedit: TPopupMenu;
    pmiAdd: TMenuItem;
    pmiEdit: TMenuItem;
    pmiDelete: TMenuItem;
    N1: TMenuItem;
    pmiPrint: TMenuItem;
    bbtnFind: TBitBtn;
    ECase: TRadioGroup;
    procedure FormActivate(Sender: TObject);
    procedure bbtnEditClick(Sender: TObject);
    procedure pmiAddClick(Sender: TObject);
    procedure pmiEditClick(Sender: TObject);
    procedure pmiDeleteClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure bbtnFindClick(Sender: TObject);
    procedure ECaseClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  Myarray=array [0..20] of integer;
var
  ParentClientHeight:integer;
  ParentClientWidth:integer;
  LxButton1Left:integer;
  LxButton1Top:integer;
  LxButton2Left:integer;
  LxButton2Top:integer;
  LxButton3Left:integer;
  LxButton3Top:integer;
  LxDBGrid1Height:integer;
  LxDBGrid1Width:integer;
  OldColumnWidth:Myarray;
  NewColumn1Width:Myarray;
  EmployForm: TEmployForm;
  ECaseLeft:integer;
  ECaseTop:integer;

implementation

uses unDM2, EmployEditFrm, Globals, dialog, SrchDlg;

{$R *.DFM}

procedure TEmployForm.FormActivate(Sender: TObject);
begin
  inherited;
//  DM2.tblEmploy.Refresh;
//  DBgrid1.Refresh;
end;

procedure TEmployForm.bbtnEditClick(Sender: TObject);
begin
  inherited;
  pmEdit.Popup((left+bbtnEdit.Left+6),(top+bbtnEdit.top+88+CoolBar2Height));
end;

procedure TEmployForm.pmiAddClick(Sender: TObject);
begin
  inherited;
  EmployEditForm:=TEmployEditForm.Create(Self);
  EmployEditForm.showModalPopup(0);
end;

procedure TEmployForm.pmiEditClick(Sender: TObject);
begin
  inherited;
  EmployEditForm:=TEmployEditForm.Create(Self);
  EmployEditForm.showModalPopup(1);
end;

procedure TEmployForm.pmiDeleteClick(Sender: TObject);
begin
  inherited;
  if   DM2.tblEmploy.IsEmpty then
    Dialog.messagedlg(Pchar(sDelete),mtinformation,[mbOK],0)
  else
    DM2.tblEmploy.delete;
end;

procedure TEmployForm.FormCreate(Sender: TObject);
var
  i:integer;
begin
  inherited;
  DM2.tblEmploy.Open;
  Top:=10;
   ParentClientHeight:=ClientHeight;
   ParentClientWidth:=ClientWidth;
   LxButton1Left:=bbtnEdit.Left;
   LxButton1Top:=bbtnEdit.Top;
   LxButton2Left:=bbtnReport.Left;
   LxButton2Top:=bbtnReport.top;
   LxButton3Left:=bbtnFind.Left;
   LxButton3Top:=bbtnFind.top;
   LxDBGrid1Height:=DBGrid1.Height;
   LxDBGrid1Width:=DBGrid1.Width;
   ECaseLeft:=Ecase.Left;
   ECaseTop:=Ecase.Top;
   for i:=0 to DBGrid1.FieldCount-1 do begin
     OldColumnWidth[i]:=DBGrid1.columns[i].Width;
     NewColumn1Width[i]:=DBGrid1.columns[i].Width;
   end;
  DM2.tblEmploy.Filter:='sign=True';
  DM2.tblEmploy.Filtered:=True;
end;

procedure TEmployForm.FormResize(Sender: TObject);
var
  i:integer;
begin
  inherited;
   bbtnEdit.left:=LxButton1Left;
   bbtnEdit.top:=ClientHeight-30;
   ECase.Left:=ECaseLeft;
   ECase.Top:=ClientHeight-40;
   bbtnReport.Left:=LxButton2Left;
   bbtnReport.top:=ClientHeight-30;
   bbtnFind.Left:=LxButton3Left;
   bbtnFind.Top:=ClientHeight-30;
   DBGrid1.Width:=ClientWidth;
   DBGrid1.Height:=ClientHeight-60;
   for i:=0 to DBGrid1.FieldCount-1 do begin
    DBGrid1.columns[i].Width:=round((ClientWidth-34)/ParentClientWidth
            *(OldColumnWidth[i]+34/dbgrid1.Columns.count));
   end;
end;

procedure TEmployForm.bbtnFindClick(Sender: TObject);
begin
  inherited;
  SearchDlg:=TSearchDlg.Create(self);
  if not DM2.tblEmployEmpID.IsNull then
    SearchDlg.WareID := DM2.tblEmployEmpID.Value;
  if SearchDlg.ShowModalParts(DM2.tblEmploy) = mrOk then begin
//    DM2.tblMakeNo.Locate('MakeID',SearchDlg.WareID,[]);
  end;
{  if SearchDlg.ShowModalParts(DM2.tbllaborage) = mrOk then begin
//    DM2.tblMakeNo.Locate('MakeID',SearchDlg.WareID,[]);
  end;
}
end;

procedure TEmployForm.ECaseClick(Sender: TObject);
begin
  inherited;
//  ECase.Filtered:=True;
  if ECase.ItemIndex=0 then
    DM2.tblEmploy.Filter:='sign=True'
  else
    DM2.tblEmploy.Filter:='sign=False';
  DM2.tblEmploy.Filtered:=True;
end;

procedure TEmployForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  inherited;
  DM2.tblEmploy.Close;
end;

end.