basemodule_func.dfm

产品信息系统!关于产品基础信息的系统!功能强大!

inherited frmBaseModule_Func: TfrmBaseModule_Func
  Left = 158
  Top = 98
  Width = 754
  BorderIcons = [biMinimize, biMaximize]
  Caption = #20027#27169#22359'-'#23376#27169#22359#32500#25252
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [0]
    Left = 0
    Top = 176
    Width = 746
    Height = 3
    Cursor = crVSplit
    Align = alTop
    Color = clSkyBlue
    ParentColor = False
  end
  inherited ToolBar: TToolBar
    Width = 746
    ButtonWidth = 46
    inherited tbtModify: TToolButton
      Left = 46
    end
    inherited tbtDelete: TToolButton
      Left = 92
    end
    inherited tbtDivider1: TToolButton
      Left = 138
    end
    inherited tbtFirst: TToolButton
      Left = 147
    end
    inherited tbtPrior: TToolButton
      Left = 193
    end
    inherited tbtNext: TToolButton
      Left = 239
    end
    inherited tbtLast: TToolButton
      Left = 285
    end
    inherited tbtDivider: TToolButton
      Left = 331
    end
    inherited tbtSave: TToolButton
      Left = 339
      Visible = False
    end
    inherited tbtCancel: TToolButton
      Left = 385
      Visible = False
    end
    inherited ToolButton3: TToolButton
      Left = 431
      Visible = False
    end
    inherited ToolButton1: TToolButton
      Left = 477
      Visible = False
    end
    inherited tbtFind: TToolButton
      Left = 485
      Visible = False
    end
    inherited tbtFilter: TToolButton
      Left = 531
    end
    inherited tbtPrint: TToolButton
      Left = 577
      Visible = False
    end
    inherited tbtExport: TToolButton
      Left = 623
      Visible = False
    end
    inherited tbtDivider3: TToolButton
      Left = 669
      Visible = False
    end
    inherited tbtExit: TToolButton
      Left = 677
    end
  end
  object DBGridEh1: TDBGridEh [2]
    Left = 0
    Top = 38
    Width = 746
    Height = 138
    Align = alTop
    AllowedOperations = []
    ColumnDefValues.Title.Alignment = taCenter
    ColumnDefValues.Title.TitleButton = True
    DataSource = dsBaseInfo
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    FooterColor = clWindow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghEnterAsTab, dghDialogFind]
    ParentFont = False
    SortLocal = True
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = [fsBold]
    Columns = <
      item
        Color = clYellow
        EditButtons = <>
        FieldName = 'fID'
        Footers = <>
        Title.Color = clYellow
      end
      item
        Color = clYellow
        EditButtons = <>
        FieldName = 'fName'
        Footers = <>
        Title.Color = clYellow
      end>
  end
  object DBGridEh2: TDBGridEh [3]
    Left = 0
    Top = 179
    Width = 746
    Height = 222
    Align = alClient
    AllowedOperations = [alopUpdateEh]
    ColumnDefValues.Title.Alignment = taCenter
    ColumnDefValues.Title.TitleButton = True
    DataSource = ds_tfunction
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    FooterColor = clWindow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghEnterAsTab, dghDialogFind]
    ParentFont = False
    PopupMenu = PopupMenu1
    SortLocal = True
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = [fsBold]
    Columns = <
      item
        Color = clYellow
        EditButtons = <>
        FieldName = 'fModuleID'
        Footers = <>
        Title.Color = clYellow
      end
      item
        Color = clYellow
        EditButtons = <>
        FieldName = 'fID'
        Footers = <>
        Title.Color = clYellow
      end
      item
        Color = clYellow
        EditButtons = <>
        FieldName = 'fActionName'
        Footers = <>
        Title.Color = clYellow
      end
      item
        Color = clYellow
        EditButtons = <>
        FieldName = 'fName'
        Footers = <>
        Title.Color = clYellow
      end
      item
        Color = clYellow
        EditButtons = <>
        FieldName = 'fRun'
        Footers = <>
        Title.Color = clYellow
      end
      item
        Color = clYellow
        EditButtons = <>
        FieldName = 'fInsert'
        Footers = <>
        Title.Color = clYellow
      end
      item
        Color = clYellow
        EditButtons = <>
        FieldName = 'fEdit'
        Footers = <>
        Title.Color = clYellow
      end
      item
        Color = clYellow
        EditButtons = <>
        FieldName = 'fDelete'
        Footers = <>
        Title.Color = clYellow
      end
      item
        Color = clYellow
        EditButtons = <>
        FieldName = 'fConfirm'
        Footers = <>
        Title.Color = clYellow
      end
      item
        Color = clYellow
        EditButtons = <>
        FieldName = 'fCancel'
        Footers = <>
        Title.Color = clYellow
      end
      item
        Color = clYellow
        EditButtons = <>
        FieldName = 'fFind'
        Footers = <>
        Title.Color = clYellow
      end
      item
        Color = clYellow
        EditButtons = <>
        FieldName = 'fFilter'
        Footers = <>
        Title.Color = clYellow
      end
      item
        Color = clYellow
        EditButtons = <>
        FieldName = 'fPrint'
        Footers = <>
        Title.Color = clYellow
      end
      item
        Color = clYellow
        EditButtons = <>
        FieldName = 'fExport'
        Footers = <>
        Title.Color = clYellow
      end>
  end
  inherited ALToolbar: TActionList
    Left = 373
    Top = 48
    inherited acNew: TAction
      Caption = #20840#36873
    end
    inherited acDelete: TAction
      Caption = #20840#19981#36873
    end
  end
  inherited QBaseInfo: TADOQuery
    LockType = ltOptimistic
    SQL.Strings = (
      'select * from tModule'
      'order by fID')
    Left = 279
    Top = 52
    object QBaseInfofID: TIntegerField
      Alignment = taCenter
      DisplayLabel = #27169#22359#32534#21495
      FieldName = 'fID'
    end
    object QBaseInfofName: TWideStringField
      Alignment = taCenter
      DisplayLabel = #27169#22359#21517#31216
      FieldName = 'fName'
      Size = 50
    end
  end
  inherited dsBaseInfo: TDataSource
    Left = 342
    Top = 48
  end
  inherited QIsUnique: TADOQuery
    Left = 312
    Top = 48
  end
  inherited wwLookupDlg: TwwLookupDialog
    Left = 248
    Top = 49
  end
  inherited dsQTemp: TDataSource
    Left = 139
    Top = 49
  end
  inherited QTemp: TADOQuery
    Left = 179
    Top = 49
  end
  inherited SaveDialog1: TSaveDialog
    Left = 215
    Top = 49
  end
  object qry_tfunction: TADOQuery
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    AfterPost = qry_tfunctionAfterPost
    DataSource = dsBaseInfo
    Parameters = <
      item
        Name = 'fID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from tFunction'
      'where fModuleID=:fID'
      'order by fModuleID,fID')
    Left = 160
    Top = 202
    object qry_tfunctionfModuleID: TIntegerField
      Alignment = taCenter
      DisplayLabel = #20027#27169#22359'ID'
      FieldName = 'fModuleID'
      ReadOnly = True
    end
    object qry_tfunctionfID: TIntegerField
      Alignment = taCenter
      DisplayLabel = #23376#27169#22359'ID'
      FieldName = 'fID'
      ReadOnly = True
    end
    object qry_tfunctionfActionName: TWideStringField
      Alignment = taCenter
      DisplayLabel = #21160#20316#21517
      FieldName = 'fActionName'
      ReadOnly = True
      Size = 50
    end
    object qry_tfunctionfName: TWideStringField
      Alignment = taCenter
      DisplayLabel = #21160#20316#21517#65288#27880#37322#65289
      FieldName = 'fName'
      ReadOnly = True
      Size = 50
    end
    object qry_tfunctionfRun: TBooleanField
      Alignment = taCenter
      DisplayLabel = #36816#34892
      FieldName = 'fRun'
    end
    object qry_tfunctionfInsert: TBooleanField
      Alignment = taCenter
      DisplayLabel = #26032#22686
      FieldName = 'fInsert'
    end
    object qry_tfunctionfEdit: TBooleanField
      Alignment = taCenter
      DisplayLabel = #32534#36753
      FieldName = 'fEdit'
    end
    object qry_tfunctionfDelete: TBooleanField
      Alignment = taCenter
      DisplayLabel = #21024#38500
      FieldName = 'fDelete'
    end
    object qry_tfunctionfConfirm: TBooleanField
      Alignment = taCenter
      DisplayLabel = #20445#23384
      FieldName = 'fConfirm'
    end
    object qry_tfunctionfCancel: TBooleanField
      Alignment = taCenter
      DisplayLabel = #21462#28040
      FieldName = 'fCancel'
    end
    object qry_tfunctionfFind: TBooleanField
      Alignment = taCenter
      DisplayLabel = #26597#25214
      FieldName = 'fFind'
    end
    object qry_tfunctionfFilter: TBooleanField
      Alignment = taCenter
      DisplayLabel = #36807#28388
      FieldName = 'fFilter'
    end
    object qry_tfunctionfPrint: TBooleanField
      Alignment = taCenter
      DisplayLabel = #25171#21360
      FieldName = 'fPrint'
    end
    object qry_tfunctionfExport: TBooleanField
      Alignment = taCenter
      DisplayLabel = #23548#20986
      FieldName = 'fExport'
    end
  end
  object ds_tfunction: TDataSource
    AutoEdit = False
    DataSet = qry_tfunction
    OnStateChange = ds_tfunctionStateChange
    OnDataChange = ds_tfunctionDataChange
    Left = 266
    Top = 204
  end
  object ADOQuery1: TADOQuery
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'cfFunctionID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 0
      end>
    SQL.Strings = (
      'select * from tGroupRight'
      'where fFunctionID=:cfFunctionID')
    Left = 163
    Top = 320
  end
  object ADOQuery2: TADOQuery
    Connection = dmClient.adocnequip_manage
    Parameters = <>
    SQL.Strings = (
      'select * from tFunction')
    Left = 161
    Top = 279
  end
  object PopupMenu1: TPopupMenu
    Left = 109
    Top = 276
    object m1: TMenuItem
      Caption = #21024#38500
      OnClick = m1Click
    end
  end
end