billfrm.pas

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

unit BillFrm;

interface

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

type
  TBillForm = class(TChildform)
    Panel1: TPanel;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    bbtnSave: TBitBtn;
    bbtnClose: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    ActiveSource: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    Panel3: TPanel;
    sbFind: TSpeedButton;
    sbPreview: TSpeedButton;
    sbPrint: TSpeedButton;
    DBNavigator2: TDBNavigator;
    DBNavigator1: TDBNavigator;
    bbtnCancel: TBitBtn;
    pmClose: TPopupMenu;
    pmiClose: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure pmiCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BillForm: TBillForm;

implementation

uses unDM2;

{$R *.DFM}

procedure TBillForm.FormCreate(Sender: TObject);
var
  i:integer;
begin
  inherited;
  top:=0;
  left:=(Screen.Width-Width) div 2;
  for i:=0 to DBGrid1.FieldCount-1 do begin
    DBGrid1.columns[i].Title.Alignment:=taCenter;
    DBGrid1.columns[i].Title.Color:=clTeal;
    DBGrid1.columns[i].Title.Font.Color:=clWhite;
  end;
end;

procedure TBillForm.pmiCloseClick(Sender: TObject);
begin
  inherited;
  Close;
end;

end.