syspms.dfm

包含控件及安装说明、含数据库

        Height = 36
        ButtonHeight = 30
        Caption = 'ToolBar'
        Color = 16703685
        ParentColor = False
        TabOrder = 1
        object ToolButton1: TToolButton
          Left = 0
          Top = 2
          Width = 51
          Caption = 'ToolButton1'
          ImageIndex = 0
          Style = tbsSeparator
        end
        object BTNINS: TSpeedButton
          Left = 51
          Top = 2
          Width = 75
          Height = 30
          Cursor = crHandPoint
          AllowAllUp = True
          Caption = '&A 新增'
          Flat = True
          OnClick = BTNINSClick
        end
        object BTNUPD: TSpeedButton
          Left = 126
          Top = 2
          Width = 75
          Height = 30
          Cursor = crHandPoint
          Caption = '&U 修改'
          Flat = True
          OnClick = BTNUPDClick
        end
        object BTNDEL: TSpeedButton
          Left = 201
          Top = 2
          Width = 75
          Height = 30
          Cursor = crHandPoint
          Caption = '&D 删除'
          Flat = True
          OnClick = BTNDELClick
        end
        object BTNYES: TSpeedButton
          Left = 276
          Top = 2
          Width = 75
          Height = 30
          Cursor = crHandPoint
          Caption = '&Y 确定'
          Flat = True
          OnClick = BTNYESClick
        end
        object BTNCAL: TSpeedButton
          Left = 351
          Top = 2
          Width = 75
          Height = 30
          Cursor = crHandPoint
          Caption = '&C 取消'
          Flat = True
          OnClick = BTNCALClick
        end
        object BTNSER: TSpeedButton
          Left = 426
          Top = 2
          Width = 75
          Height = 30
          Cursor = crHandPoint
          Caption = '&F 查询'
          Flat = True
          OnClick = BTNSERClick
        end
        object BTNQUT: TSpeedButton
          Left = 501
          Top = 2
          Width = 75
          Height = 30
          Cursor = crHandPoint
          Caption = '&Q 退出'
          Flat = True
          OnClick = BTNQUTClick
        end
      end
      object PMSPMS: TDBCheckBox
        Left = 430
        Top = 49
        Width = 97
        Height = 17
        Caption = '附加权限'
        DataField = 'PMSPMS'
        DataSource = DSSYSPMS
        TabOrder = 2
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object PMSFUN: JDBLOOKUPBOX
        Left = 75
        Top = 71
        Width = 336
        Height = 24
        DataField = 'PMSFUN'
        DataSource = DSSYSPMS
        ImeName = '中文 (简体) - 智能 ABC'
        MaxLength = 20
        TabOrder = 3
        OnKeyDown = BNENOKeyDown
        _DatabaseName = 'MAIN'
        _TableName = 'SYSLST'
        _Field_IDNO = 'LSTID2'
        _Field_NAME = 'LSTNAM'
        _Field_KEY1 = 'LSTID1'
        _Field_KEY2 = 'SYSPMS'
        _EDIT_WIDTH = 80
        _CHANGE_QUERY = True
        _INSERT_RECORD = True
        _INSERT_SYSLST = 'SYSPMS'
        _SHOW_MESSAGE = True
      end
      object BNENO: JDBLOOKUPBOX
        Left = 75
        Top = 46
        Width = 336
        Height = 24
        DataField = 'BNENO'
        DataSource = DSSYSPMS
        ImeName = '中文 (简体) - 智能 ABC'
        MaxLength = 20
        TabOrder = 4
        OnKeyDown = BNENOKeyDown
        _DatabaseName = 'MAIN'
        _TableName = 'BMAN'
        _Field_IDNO = 'BNENO'
        _Field_NAME = 'BNNAM'
        _EDIT_WIDTH = 80
        _CHANGE_QUERY = True
        _INSERT_RECORD = False
        _SHOW_MESSAGE = False
      end
    end
  end
  object QSYSPMS: TQuery
    CachedUpdates = True
    DatabaseName = 'MAIN'
    SQL.Strings = (
      'SELECT * FROM SYSPMS')
    UpdateObject = USYSPMS
    Left = 365
    Top = 85
    object QSYSPMSBNENO: TStringField
      FieldName = 'BNENO'
      Origin = 'SYSPMS.BNENO'
      Size = 10
    end
    object QSYSPMSPMSFUN: TStringField
      FieldName = 'PMSFUN'
      Origin = 'SYSPMS.PMSFUN'
      Size = 10
    end
    object QSYSPMSPMSNAM: TStringField
      FieldName = 'PMSNAM'
      Origin = 'SYSPMS.PMSNAM'
      Size = 40
    end
    object QSYSPMSPMSPMS: TBooleanField
      FieldName = 'PMSPMS'
      Origin = 'SYSPMS.PMSPMS'
    end
    object QSYSPMS_PMSFUN: TStringField
      FieldKind = fkLookup
      FieldName = '_PMSFUN'
      LookupDataSet = QPMSFUN
      LookupKeyFields = 'LSTID2'
      LookupResultField = 'LSTNAM'
      KeyFields = 'PMSFUN'
      Size = 40
      Lookup = True
    end
    object QSYSPMS_BNNAM: TStringField
      FieldKind = fkLookup
      FieldName = '_BNNAM'
      LookupDataSet = QBMAN
      LookupKeyFields = 'BNENO'
      LookupResultField = 'BNNAM'
      KeyFields = 'BNENO'
      Lookup = True
    end
  end
  object DSSYSPMS: TDataSource
    DataSet = QSYSPMS
    Left = 430
    Top = 85
  end
  object USYSPMS: TUpdateSQL
    Left = 495
    Top = 85
  end
  object QBMAN: TQuery
    DatabaseName = 'MAIN'
    SQL.Strings = (
      'SELECT BNENO, BNNAM'
      'FROM BMAN'
      'ORDER BY BNENO')
    Left = 365
    Top = 145
    object QBMANBNENO: TStringField
      FieldName = 'BNENO'
      Origin = 'BMAN.BNENO'
      Size = 10
    end
    object QBMANBNNAM: TStringField
      FieldName = 'BNNAM'
      Origin = 'BMAN.BNNAM'
    end
  end
  object DSBMAN: TDataSource
    DataSet = QBMAN
    Left = 430
    Top = 145
  end
  object QPMSFUN: TQuery
    CachedUpdates = True
    DatabaseName = 'MAIN'
    SQL.Strings = (
      'SELECT *'
      'FROM SYSLST'
      'WHERE LSTID1 = '#39'SYSPMS'#39
      'ORDER BY LSTID2, LSTNAM')
    Left = 365
    Top = 205
    object QPMSFUNLSTID1: TStringField
      FieldName = 'LSTID1'
      Origin = 'SYSLST.LSTID1'
      Size = 10
    end
    object QPMSFUNLSTID2: TStringField
      FieldName = 'LSTID2'
      Origin = 'SYSLST.LSTID2'
      Size = 10
    end
    object QPMSFUNLSTNAM: TStringField
      FieldName = 'LSTNAM'
      Origin = 'SYSLST.LSTNAM'
      Size = 40
    end
    object QPMSFUNLSTMRK: TStringField
      FieldName = 'LSTMRK'
      Origin = 'SYSLST.LSTMRK'
      Size = 40
    end
  end
  object QSYSPMSLST: TQuery
    CachedUpdates = True
    DatabaseName = 'MAIN'
    SQL.Strings = (
      'SELECT * FROM SYSLST')
    Left = 370
    Top = 290
    object QSYSPMSLSTLSTID1: TStringField
      FieldName = 'LSTID1'
      Origin = 'SYSLST.LSTID1'
      Size = 10
    end
    object QSYSPMSLSTLSTID2: TStringField
      FieldName = 'LSTID2'
      Origin = 'SYSLST.LSTID2'
      Size = 10
    end
    object QSYSPMSLSTLSTNAM: TStringField
      FieldName = 'LSTNAM'
      Origin = 'SYSLST.LSTNAM'
      Size = 40
    end
    object QSYSPMSLSTLSTMRK: TStringField
      FieldName = 'LSTMRK'
      Origin = 'SYSLST.LSTMRK'
      Size = 40
    end
  end
  object DSSYSPMSLST: TDataSource
    DataSet = QSYSPMSLST
    Left = 459
    Top = 290
  end
  object QALLPMS: TQuery
    CachedUpdates = True
    DatabaseName = 'MAIN'
    SQL.Strings = (
      'SELECT * FROM SYSLST')
    Left = 370
    Top = 360
    object StringField1: TStringField
      FieldName = 'LSTID1'
      Origin = 'SYSLST.LSTID1'
      Size = 10
    end
    object StringField2: TStringField
      FieldName = 'LSTID2'
      Origin = 'SYSLST.LSTID2'
      Size = 10
    end
    object StringField3: TStringField
      FieldName = 'LSTNAM'
      Origin = 'SYSLST.LSTNAM'
      Size = 40
    end
    object StringField4: TStringField
      FieldName = 'LSTMRK'
      Origin = 'SYSLST.LSTMRK'
      Size = 40
    end
  end
end