sys_accessctrl1_qry.pas

一个MRPII系统源代码版本

unit Sys_AccessCtrl1_Qry;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Qry, Menus, ExtPrintReport, Db, ActnList, AdODB, Grids, DBGridEh,
  StdCtrls, ExtCtrls, ComCtrls, ToolWin;

Type
  TFrm_Sys_AccessCtrl1_Qry = Class(TFrm_Base_Qry)
    AdoQry_MainDeptCode: TStringField;
    AdoQry_MainDeptName: TStringField;
    AdoQry_MainDeptB: TStringField;
    AdoQry_MainEmployeeCode: TStringField;
    AdoQry_MainEmployeeName: TStringField;
    AdoQry_MainEmployeeB: TStringField;
    AdoQry_MainSysMenuID: TFloatField;
    AdoQry_MainSysMenuCode: TStringField;
    AdoQry_MainSysMenuName: TStringField;
    AdoQry_MainSysMenuB: TStringField;
    AdoQry_MainSysModuleCode: TStringField;
    AdoQry_MainSysmoduleName: TStringField;
    AdoQry_MainSysmoduleB: TStringField;
    AdoQry_MainCANAccess: TIntegerField;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
  end;

var
  Frm_Sys_AccessCtrl1_Qry: TFrm_Sys_AccessCtrl1_Qry;

implementation

{$R *.DFM}
procedure TFrm_Sys_AccessCtrl1_Qry.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  SelectFromSql:=' select Employee.DeptCode,'+
                 ' Dept.DeptName,'+
                 ' Employee.DeptCode+'' ''+Dept.DeptName as DeptB,'+
                 ' SysMenuAccessCtrl.EmployeeCode,'+
                 ' Employee.EmployeeName,'+
                 ' SysMenuAccessCtrl.EmployeeCode+'' ''+Employee.EmployeeName as EmployeeB,'+
                 ' SysMenuAccessCtrl.SysMenuID,'+
                 ' SysMenu.SysMenuCode,'+
                 ' SysMenu.SysMenuName,'+
                 ' SysMenu.SysMenuCode+'' ''+SysMenu.SysMenuName as SysMenuB,'+
                 ' SysMenu.SysModuleCode,'+
                 ' Sysmodule.SysmoduleName,'+
                 ' SysMenu.SysModuleCode+'' ''+Sysmodule.SysmoduleName as SysmoduleB,'+
                 ' SysMenuAccessCtrl.CANAccess'+
          ' from  SysMenuAccessCtrl'+
          ' join Employee on SysMenuAccessCtrl.EmployeeCode=Employee.EmployeeCode'+
          ' join Dept on Employee.DeptCode=Dept.DeptCode'+
          ' join SysMenu on SysMenuAccessCtrl.SysMenuID=SysMenu.SysMenuID'+
          ' join  Sysmodule on SysMenu.SysModuleCode=Sysmodule.SysModuleCode';
  OrderByFields:='DeptCode,EmployeeCode,SysModuleCode,SysMenuCode ' ;
  Getdata;
end;


end.