expressionfrm.pas

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

unit ExpressionFrm;

interface

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

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

type
  TExpressionForm = class(TChildGridform)
    bbtnEdit: TBitBtn;
    pmedit: TPopupMenu;
    pmiAdd: TMenuItem;
    pmiEdit: TMenuItem;
    pmiDelete: TMenuItem;
    N1: TMenuItem;
    pmiPrint: TMenuItem;
    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 FormClose(Sender: TObject; var Action: TCloseAction);
  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;
  ExpressionForm: TExpressionForm;

implementation

uses unDM2, Dialog, Globals, ExpressionEditFrm;

{$R *.DFM}

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

procedure TExpressionForm.pmiAddClick(Sender: TObject);
begin
  inherited;
  ExpressionEditForm:=TExpressionEditForm.Create(Self);
  ExpressionEditForm.showModalPopup(0);
end;

procedure TExpressionForm.pmiEditClick(Sender: TObject);
begin
  inherited;
  ExpressionEditForm:=TExpressionEditForm.Create(Self);
  ExpressionEditForm.showModalPopup(1);
end;

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

procedure TExpressionForm.FormCreate(Sender: TObject);
var
  i:integer;
begin
  inherited;
  DM2.tblExpressions.Open;
  top:=15;
   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 TExpressionForm.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 TExpressionForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  DM2.tblExpressions.Close;
end;

end.