selectfrm.pas

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

unit selectfrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons, Db, DBTables, ComCtrls;

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

type
  TselectForm = class(TForm)
    bbtnConfirm: TBitBtn;
    bbtnAdd: TBitBtn;
    bbtnCancel: TBitBtn;
    bbtnDelete: TBitBtn;
    dbgAccSet: TDBGrid;
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bbtnConfirmClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbtnDeleteClick(Sender: TObject);
    procedure bbtnCancelClick(Sender: TObject);
    procedure bbtnAddClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    TheGraphic: TBitmap; { Add this declaration for the graphic}
  public
    { Public declarations }
  end;

var
  selectForm: TselectForm;

implementation

uses SiBoFrm, Globals, DM, logofrm, unDM2;

{$R *.DFM}

procedure TselectForm.FormPaint(Sender: TObject); { OnPaint event handler}
begin
  selectForm.Canvas.Draw(0, 0, TheGraphic); { Draw the graphic on the Canvas }
end;

procedure TselectForm.FormCreate(Sender: TObject); { OnCreate event handler }
begin
  TheGraphic := TBitmap.Create; { Create the bitmap object }
  WorkDir:=myGetCurrentDirectory()+'\bmp\b0000224.BMP';
  TheGraphic.LoadFromFile(WorkDir);
  DM1.tblAccSet.open;
{ Load the bitmap from a file}
end;

procedure TselectForm.bbtnConfirmClick(Sender: TObject);
begin
//   WorkDir:=myGetCurrentDirectory()+'\data\'+DM1.tblAccSet['AccountSetName'];
   WorkDir:=DM1.tblAccSet['AccountSetName'];
   CorpName:=DM1.tblAccSet['CorpName'];
   Application.CreateForm(TDM2, DM2);
   Dm2.tblLogo.Open;
   if not Assigned(LogoForm) then begin
     LogoForm:=TLogoForm.Create(self);
     LogoForm.ShowModal;
//     AccSetselected:=True;
   end;
end;

procedure TselectForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   AccSetselected:=True;
   QuitApp:=True;
   DM1.tblAccSet.close;
//   Action:=caFree;
end;

procedure TselectForm.bbtnDeleteClick(Sender: TObject);
begin
  with DM1.tblAccSet do begin
    if IsEmpty then
      messagedlg(Pchar(sDelete),mtinformation,[mbOk],0)
    else
      delete;
  end;
end;

procedure TselectForm.bbtnCancelClick(Sender: TObject);
begin
   AccSetselected:=True;
   QuitApp:=True;
   DM1.tblAccSet.close;
end;

procedure TselectForm.bbtnAddClick(Sender: TObject);
begin
//  AddAccSetfrm:=TAddAccSetFrm.Create(self);
//  AddAccSetfrm.show;
end;

procedure TselectForm.FormDestroy(Sender: TObject);
begin
   SelectForm:=nil;
end;

end.