unit Shortcutset;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseChildForm, StdCtrls, Buttons, ExtCtrls, Mask, DBCtrls, DB,
  ADODB,DataMod;

type
  TfShortCutSet = class(TfBaseChildForm)
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    ADOQuery1cUserid: TStringField;
    ADOQuery1cUserName: TStringField;
    ADOQuery1cRightGroup: TStringField;
    ADOQuery1cDepartment: TStringField;
    ADOQuery1lEnable: TBooleanField;
    ADOQuery1cPassword: TStringField;
    ADOQuery1cShortCut1: TStringField;
    ADOQuery1cShortCut2: TStringField;
    ADOQuery1cShortCut3: TStringField;
    ADOQuery1ShotcutName1: TStringField;
    ADOQuery1ShortCutName2: TStringField;
    ADOQuery1ShortCutName3: TStringField;
    ADOQuery1cShortCut4: TStringField;
    ADOQuery1ShortCutName4: TStringField;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DataSource1StateChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    Procedure ShortCutSet(Const ShortCutNumber:Integer);
  public
    { Public declarations }
  end;

var
  fShortCutSet: TfShortCutSet;

implementation

uses FunctionSelect;

{$R *.dfm}

procedure TfShortCutSet.BitBtn1Click(Sender: TObject);
begin
  inherited;
  AdoQuery1.Post ;

end;

procedure TfShortCutSet.BitBtn2Click(Sender: TObject);
begin
  inherited;
  AdoQuery1.Cancel ;
  bitbtn1.Enabled :=false;
end;

procedure TfShortCutSet.ShortCutSet(const ShortCutNumber: Integer);
var
   strMenuID:String;
begin
    fFunctionSelect:=tfFunctionSelect.Create(self);
    Case ShortCutNumber of
         1:strMenuID:=AdoQuery1.FieldbyName('cShortCut1').asString;
         2:strMenuID:=AdoQuery1.FieldbyName('cShortCut2').asString;
         3:strMenuID:=AdoQuery1.FieldbyName('cShortCut3').asString;
         4:strMenuID:=AdoQuery1.FieldbyName('cShortCut4').asString;
    end;
    fFunctionSelect.ShowModal ;
    if fFunctionSelect.ModalResult=mrOK then Begin
        strMenuID:=fFunctionSelect.ADOQuery1.fieldbyName('cMenuID').asString;
        if Not (AdoQuery1.State  in [dsEdit]) then
           AdoQuery1.Edit;
        Case ShortCutNumber of
             1:AdoQuery1.FieldbyName('cShortCut1').asString:=strMenuID;
             2:AdoQuery1.FieldbyName('cShortCut2').asString:=strMenuID;
             3:AdoQuery1.FieldbyName('cShortCut3').asString:=strMenuID;
             4:AdoQuery1.FieldbyName('cShortCut4').asString:=strMenuID;
        end;
    end;
    fFunctionSelect.Free;
end;

procedure TfShortCutSet.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  ShortCutSet(1);
end;

procedure TfShortCutSet.SpeedButton2Click(Sender: TObject);
begin
   ShortCutSet(2);
end;

procedure TfShortCutSet.SpeedButton3Click(Sender: TObject);
begin
  ShortCutSet(3);
end;

procedure TfShortCutSet.SpeedButton4Click(Sender: TObject);
begin
    ShortCutSet(4);
end;

procedure TfShortCutSet.FormCreate(Sender: TObject);
begin
  inherited;
  if fdatamod.UserInfo.UserID ='' then Begin
     application.MessageBox('眤惠