departmentfrm.pas

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

unit DepartmentFrm;

interface

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

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

type
  TDepartMentForm = class(TChildform)
    DBGrid1: TDBGrid;
    bbtnEdit: TBitBtn;
    pmedit: TPopupMenu;
    pmiAdd: TMenuItem;
    pmiEdit: TMenuItem;
    pmiDelete: TMenuItem;
    N1: TMenuItem;
    pmiPrint: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormResize(Sender: TObject);
    procedure bbtnEditClick(Sender: TObject);
    procedure pmiAddClick(Sender: TObject);
    procedure pmiEditClick(Sender: TObject);
    procedure pmiDeleteClick(Sender: TObject);
  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;
  LxDBGrid1Height:integer;
  LxDBGrid1Width:integer;
  OldColumnWidth:Myarray;
  NewColumn1Width:Myarray;
  DepartMentForm: TDepartMentForm;

implementation

uses unDM2, DepartmentEditFrm, Globals, dialog;

{$R *.DFM}

procedure TDepartMentForm.FormCreate(Sender: TObject);
var
  i:integer;
begin
  inherited;
  DM2.tblDepartment.Open;
   ParentClientHeight:=ClientHeight;
   ParentClientWidth:=ClientWidth;
   LxButton1Left:=bbtnEdit.Left;
   LxButton1Top:=bbtnEdit.Top;
//   LxButton2Left:=bbtnReport.Left;
//   LxButton2Top:=bbtnReport.top;
   LxDBGrid1Height:=DBGrid1.Height;
   LxDBGrid1Width:=DBGrid1.Width;
   for i:=0 to DBGrid1.FieldCount-1 do begin
     OldColumnWidth[i]:=DBGrid1.columns[i].Width;
     NewColumn1Width[i]:=DBGrid1.columns[i].Width;
   end;
end;

procedure TDepartMentForm.FormActivate(Sender: TObject);
begin
  inherited;
  DM2.tblDepartment.Refresh;
  DBGrid1.Refresh;
end;

procedure TDepartMentForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  DM2.tblDepartment.Close;
end;

procedure TDepartMentForm.FormResize(Sender: TObject);
var
  i:integer;
begin
  inherited;
   bbtnEdit.left:=LxButton1Left;
   bbtnEdit.top:=ClientHeight-30;
   DBGrid1.Width:=ClientWidth;
   DBGrid1.Height:=ClientHeight-40;
   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 TDepartMentForm.bbtnEditClick(Sender: TObject);
begin
  inherited;
  pmEdit.Popup((left+bbtnEdit.Left+6),(top+bbtnEdit.top+88+CoolBar2Height));
end;

procedure TDepartMentForm.pmiAddClick(Sender: TObject);
begin
  inherited;
  DepartmentEditForm:=TDepartmentEditForm.Create(Self);
  DepartmentEditForm.showModalPopup(0);
end;

procedure TDepartMentForm.pmiEditClick(Sender: TObject);
begin
  inherited;
  DepartmentEditForm:=TDepartmentEditForm.Create(Self);
  DepartmentEditForm.showModalPopup(1);
end;

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

end.