stand_un.pas

布林电话收费管理系统

unit stand_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, BusinessSkinForm,bsDBGrids,dbgrids;

type
  Tstand = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinXFormButton1: TbsSkinXFormButton;
    procedure bsSkinXFormButton1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  stand: Tstand;

implementation
  uses globe,dm_un,main_un;
{$R *.dfm}

procedure Tstand.bsSkinXFormButton1Click(Sender: TObject);
begin
close;
end;

procedure Tstand.FormKeyPress(Sender: TObject; var Key: Char);
Begin
  if key=#27 then close;
// if key=#13 then { 判断是按执行键}
//  if not (ActiveControl is TDbgrid) Then
//   Begin { 不是在TDbgrid控件内}
//    key:=#0;
//    perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
//  end
//  else
//  if (ActiveControl is TDbgrid) Then{是在 TDbgrid 控件内}
//  begin
//  With TDbgrid(ActiveControl) Do
//  if Selectedindex<(FieldCount-1) then
//    Selectedindex:=Selectedindex+1{ 移动到下一字段}
//   else Selectedindex:=0;
//   end;
End;
end.