sys_reportctrl.dfm

一个MRPII系统源代码版本

inherited Frm_Sys_ReportCtrl: TFrm_Sys_ReportCtrl
  Left = 18
  Top = 51
  Caption = '系统报表属性'
  ClientHeight = 494
  ClientWidth = 769
  FormStyle = fsMDIChild
  Position = poDefault
  Visible = True
  Windowstate = wsMaximized
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 769
    inherited ToolBar: TToolBar
      inherited TlBtn_New: TToolButton
        Visible = False
      end
      inherited TlBtn_Delete: TToolButton
        Visible = False
      end
      inherited TlBtn_Filter: TToolButton
        Visible = False
      end
      inherited ToolButton3: TToolButton
        Visible = False
      end
      inherited TlBtn_Order: TToolButton
        Visible = False
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 769
    Caption = '系统报表属性'
  end
  inherited Pnl_Head: TPanel
    Width = 769
    Height = 18
    inherited Lbl_OrderTitle: TLabel
      Visible = False
    end
    inherited Lbl_ConditionTitle: TLabel
      Visible = False
    end
    inherited Lbl_Order: TLabel
      Visible = False
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 489
    Width = 769
    Height = 5
  end
  inherited Pnl_Body: TPanel
    Top = 75
    Width = 769
    Height = 414
    inherited DBGridEh: TDBGridEh
      Width = 769
      Height = 414
      FrozenCols = 2
      Columns = <
        Item
          FieldName = 'SysMenuCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '菜单代码'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SysMenuName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '菜单名称'
          Width = 238
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ReportName1'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '报表名称1'
          Width = 261
          KeyList.Strings = ()
        end
        Item
          FieldName = 'isoCode1'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '控制码1'
          Width = 140
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ReportName2'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '报表名称2'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'isoCode2'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '控制码2'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ReportName3'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '报表名称3'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'isoCode3'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '控制码3'
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 5
    Top = 27
  end
  inherited ActionList: TActionList
    Left = 133
    Top = 52
    inherited Act_New: TAction
      Enabled = False
    end
    inherited Act_Delete: TAction
      Enabled = False
    end
    inherited Act_Filter: TAction
      Enabled = False
    end
    inherited Act_Order: TAction
      Enabled = False
    end
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=192.168.0.8'
    CurSorType = ctStatic
    SQL.Strings = (
      
        'select m.SysMenuid,m.SysMenuCode,m.SysMenuName,r.ReportName1,r.i' +
        'soCode1,r.ReportName2,r.isoCode2,r.ReportName3,r.isoCode3 from s' +
        'ysmenu m'
      '  left join ReportCtrl r on r.SysMenuid=m.SysMenuid'
      '  Order by SysMenuCode')
    Left = 176
    Top = 65
    object AdoQry_MainSysMenuCode: TStringField
      FieldName = 'SysMenuCode'
      Size = 14
    end
    object AdoQry_MainSysMenuName: TStringField
      FieldName = 'SysMenuName'
      Size = 40
    end
    object AdoQry_MainReportName1: TStringField
      FieldName = 'ReportName1'
      Size = 60
    end
    object AdoQry_MainisoCode1: TStringField
      FieldName = 'isoCode1'
      Size = 40
    end
    object AdoQry_MainReportName2: TStringField
      FieldName = 'ReportName2'
      Size = 60
    end
    object AdoQry_MainisoCode2: TStringField
      FieldName = 'isoCode2'
      Size = 40
    end
    object AdoQry_MainReportName3: TStringField
      FieldName = 'ReportName3'
      Size = 60
    end
    object AdoQry_MainisoCode3: TStringField
      FieldName = 'isoCode3'
      Size = 40
    end
    object AdoQry_MainSysMenuid: TBCDField
      FieldName = 'SysMenuid'
      ReadOnly = True
      Precision = 18
      Size = 0
    end
  end
  inherited DataSource: TDataSource
    Left = 89
    Top = 40
  end
  inherited ExtPrintReport: TExtPrintReport
    Title1 = '外币主文件'
    Left = 32
    Top = 25
  end
end