fram.pas

已经给出使用的每个SQL Server数据库

unit fram;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, ToolWin, ExtCtrls;

type
  Tf_fram = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    B1: TToolButton;
    B2: TToolButton;
    B3: TToolButton;
    B4: TToolButton;
    B5: TToolButton;
    B6: TToolButton;
    B7: TToolButton;
    B8: TToolButton;
    B9: TToolButton;
    ImageList1: TImageList;
    Panel1: TPanel;
    B10: TToolButton;
    B11: TToolButton;
    B12: TToolButton;
    procedure B8Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);virtual;
    procedure B1Click(Sender: TObject);
    procedure B2Click(Sender: TObject);
    procedure B3Click(Sender: TObject);
    procedure B4Click(Sender: TObject);
    procedure B5Click(Sender: TObject);
    procedure B6Click(Sender: TObject);
    procedure B7Click(Sender: TObject);
    procedure B9Click(Sender: TObject);
    procedure B10Click(Sender: TObject);
    procedure B11Click(Sender: TObject);
    procedure B12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_fram: Tf_fram;

implementation

{$R *.dfm}

procedure Tf_fram.B8Click(Sender: TObject);
begin
  Close;
end;

procedure Tf_fram.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Case Key of
    VK_INSERT : if B1.Enabled = True then
                  B1.OnClick(Sender);
    VK_F2: if B2.Enabled = True then
             B2.OnClick(Sender);
    VK_F3: if B3.Enabled = True then
           B3.OnClick(Sender);
    VK_End: if B4.Enabled = True then
              B4.OnClick(Sender);
    VK_F4: if B6.Enabled = True then
             B6.OnClick(Sender);
    VK_F5: if B7.Enabled = True then
               B7.OnClick(Sender);
    VK_Left: if (B9.Enabled = True)and(Shift =[ssAlt]) then
               B9.OnClick(Sender);
    VK_Up: if (B10.Enabled = True)and(Shift =[ssAlt]) then 
             B10.OnClick(Sender);
    VK_Down: if (B11.Enabled = True)and(Shift =[ssAlt]) then 
               B11.OnClick(Sender);
    VK_Right: if (B12.Enabled = True)and(Shift =[ssAlt]) then
                B12.OnClick(Sender);
    VK_DELETE: if B5.Enabled = True then
                 B5.OnClick(Sender);
    VK_ESCAPE: if B8.Enabled = True then
                 B8.OnClick(Sender);
  end;
end;

procedure Tf_fram.B1Click(Sender: TObject);
begin
  //Add code
end;

procedure Tf_fram.B2Click(Sender: TObject);
begin
  //Add code
end;
                          
procedure Tf_fram.B3Click(Sender: TObject);
begin
  //Add code
end;

procedure Tf_fram.B4Click(Sender: TObject);
begin
  //Add code
end;

procedure Tf_fram.B5Click(Sender: TObject);
begin
  //Add code
end;

procedure Tf_fram.B6Click(Sender: TObject);
begin
  //Add code
end;

procedure Tf_fram.B7Click(Sender: TObject);
begin
  //Add code
end;

procedure Tf_fram.B9Click(Sender: TObject);
begin
  //Add code
end;

procedure Tf_fram.B10Click(Sender: TObject);
begin
  //Add code
end;

procedure Tf_fram.B11Click(Sender: TObject);
begin
  //Add code
end;

procedure Tf_fram.B12Click(Sender: TObject);
begin
  //Add code
end;

end.