sys_sysmenu_selectmodule.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 80 行

unit Sys_SysMenu_SelectModule;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  BaseDialogIme, StdCtrls, Db, AdODB;

Type
  TFrm_Sys_SysMenu_SelectModule = Class(TFrm_BaseDialogIme)
    cmbbx_SelectModule: TComboBox;
    AdoQry_Tmp1: TAdoQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
  private
    { Private declarations }
  public
    SysModuleCode:string;
    SysModuleName:string;

    procedure InitForm(AdoConnection:TAdoConnection);
    { Public declarations }
  end;

var
  Frm_Sys_SysMenu_SelectModule: TFrm_Sys_SysMenu_SelectModule;

implementation

uses Sys_Global;
{$R *.DFM}

procedure TFrm_Sys_SysMenu_SelectModule.FormCreate(Sender: TObject);
begin
  SysModuleCode:='';
  SysModuleName:='';
  inherited;
end;

procedure TFrm_Sys_SysMenu_SelectModule.FormActivate(Sender: TObject);
begin
  cmbbx_SelectModule.SetFocus;
end;

procedure TFrm_Sys_SysMenu_SelectModule.btn_okClick(Sender: TObject);
begin
  inherited;
  if checkResult then
  begin
    SysModuleCode:=GetCode(CmbBx_SelectModule.Text);
    SysModuleName:=GetName(CmbBx_SelectModule.Text);
    modalResult:=mrok;
  end;
end;

procedure TFrm_Sys_SysMenu_SelectModule.InitForm(
  AdoConnection: TAdoConnection);
begin
  AdoQry_Tmp1.Connection:=AdoConnection;
  with AdoQry_Tmp1 do
  begin
    Close;
    sql.clear;
    sql.Add('select SysModuleCode,SysModuleName '+
            'from SysModule Order by Sysmoduleid ');
    open;
    cmbbx_SelectModule.Items.clear;
    while not eof do
    begin
      cmbbx_SelectModule.Items.Add(fieldbyname('SysModuleCode').asstring+' '+fieldbyname('SysModuleName').asstring);
      next;
    end;
  end;

end;

end.