sys910_02.dfm.svn-base

一个用Delphi开发的ERP软件

          'FSMS;CheckBox;True;False'
          'FTimeStr;CustomEdit;edtTime;F')
        Selected.Strings = (
          'FUserName'#9'18'#9#29992#25143#21517#31216
          'FAlter'#9'8'#9#21457#36865#39044#35686
          'FEMail'#9'5'#9#21457#36865'~'#37038#20214
          'FSMS'#9'5'#9#21457#36865'~'#30701#20449
          'FTimeStr'#9'20'#9#21457#36865#26102#38388
          'FLangID'#9'8'#9#35821#31181#31867#21035)
        IniAttributes.Delimiter = ';;'
        TitleColor = clBtnFace
        FixedCols = 1
        ShowHorzScrollBar = True
        EditControlOptions = [ecoCheckboxSingleClick, ecoSearchOwnerForm]
        DataSource = dsSys500A
        KeyOptions = [dgEnterToTab]
        TabOrder = 1
        TitleAlignment = taCenter
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Pitch = fpFixed
        TitleFont.Style = []
        TitleLines = 2
        TitleButtons = False
      end
      object cbLangID: TwwDBComboBox
        Left = 384
        Top = 104
        Width = 49
        Height = 20
        ShowButton = True
        Style = csDropDownList
        MapList = True
        AllowClearKey = False
        DropDownCount = 8
        ItemHeight = 0
        Items.Strings = (
          #31616#20307#9'0'
          #32321#20307#9'1'
          #33521#25991#9'2')
        ItemIndex = 0
        Sorted = False
        TabOrder = 2
        UnboundDataType = wwDefault
      end
      object edtTime: TwwDBComboDlg
        Left = 256
        Top = 104
        Width = 121
        Height = 20
        OnCustomDlg = edtTimeCustomDlg
        ShowButton = True
        Style = csDropDownList
        ReadOnly = True
        TabOrder = 3
        WordWrap = False
        UnboundDataType = wwDefault
      end
    end
    object TabSheet6: TTabSheet
      Caption = 'TabSheet6'
      ImageIndex = 5
      TabVisible = False
      object lblShowMsg: TLabel
        Left = 8
        Top = 8
        Width = 156
        Height = 12
        Caption = #35831#35774#32622#39044#35686#20449#24687#26174#31034#30340#20869#23481#12290
      end
      object edtShowMsg: TEdit
        Left = 8
        Top = 24
        Width = 449
        Height = 20
        TabOrder = 0
      end
      object dxDBGrid1: TdxDBGrid
        Left = 8
        Top = 48
        Width = 449
        Height = 273
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        SummaryGroups = <>
        SummarySeparator = ', '
        TabOrder = 1
        OnDblClick = dxDBGrid1DblClick
        DataSource = dsFields
        Filter.Criteria = {00000000}
        HideFocusRect = True
        OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
        OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
        object dxDBGrid1Field: TdxDBGridMaskColumn
          HeaderAlignment = taCenter
          ReadOnly = True
          Width = 169
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Field'
        end
        object dxDBGrid1FieldName: TdxDBGridMaskColumn
          HeaderAlignment = taCenter
          ReadOnly = True
          Width = 213
          BandIndex = 0
          RowIndex = 0
          FieldName = 'FieldName'
        end
      end
    end
    object TabSheet7: TTabSheet
      Caption = 'TabSheet7'
      ImageIndex = 6
      TabVisible = False
      object Label9: TLabel
        Left = 8
        Top = 8
        Width = 192
        Height = 12
        Caption = #24744#24050#32463#25104#21151#30340#35774#32622#20102#19979#21015#39044#35686#20449#24687#65306
      end
      object Label10: TLabel
        Left = 32
        Top = 32
        Width = 60
        Height = 12
        Caption = #39044#35686#21517#31216#65306
      end
      object Label11: TLabel
        Left = 32
        Top = 56
        Width = 60
        Height = 12
        Caption = #39044#35686#26465#20214#65306
      end
      object Label12: TLabel
        Left = 32
        Top = 80
        Width = 48
        Height = 12
        Caption = #25509#25910#20154#65306
      end
      object Label13: TLabel
        Left = 8
        Top = 120
        Width = 216
        Height = 12
        Caption = #21333#20987#8220#23436#25104#8221#65292#23558#20445#23384#35813#39044#35686#20449#24687#35774#32622#12290
      end
    end
  end
  object Panel2: TPanel
    Left = 136
    Top = 10
    Width = 473
    Height = 12
    BevelOuter = bvNone
    TabOrder = 5
  end
  object Panel3: TPanel
    Left = 136
    Top = 344
    Width = 473
    Height = 12
    BevelOuter = bvNone
    TabOrder = 6
  end
  object Panel4: TPanel
    Left = 136
    Top = 17
    Width = 8
    Height = 336
    BevelOuter = bvNone
    TabOrder = 7
  end
  object Panel5: TPanel
    Left = 606
    Top = 17
    Width = 8
    Height = 336
    BevelOuter = bvNone
    TabOrder = 8
  end
  object dsFields: TDataSource
    DataSet = adsFields
    Left = 184
    Top = 368
  end
  object adsFields: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'Field'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FieldName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FieldType'
        Attributes = [faFixed]
        DataType = ftSmallint
      end>
    Parameters = <>
    StoreDefs = True
    Left = 216
    Top = 368
    object adsFieldsField: TStringField
      DisplayLabel = #23383#27573
      FieldName = 'Field'
      Size = 50
    end
    object adsFieldsFieldName: TStringField
      DisplayLabel = #23383#27573#21517#31216
      FieldName = 'FieldName'
      Size = 50
    end
    object adsFieldsFieldType: TSmallintField
      FieldName = 'FieldType'
      Visible = False
    end
  end
  object dsTables: TDataSource
    DataSet = adsTables
    Left = 256
    Top = 368
  end
  object qrySys910B: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from SYS910B')
    Left = 96
    Top = 224
    object qrySys910BS910B_001: TIntegerField
      FieldName = 'S910B_001'
    end
    object qrySys910BS910B_002: TIntegerField
      FieldName = 'S910B_002'
    end
    object qrySys910BS910B_003: TBooleanField
      FieldName = 'S910B_003'
    end
    object qrySys910BS910B_004: TBooleanField
      FieldName = 'S910B_004'
    end
    object qrySys910BS910B_005: TSmallintField
      FieldName = 'S910B_005'
    end
    object qrySys910BS910B_006: TIntegerField
      FieldName = 'S910B_006'
    end
    object qrySys910BS910B_007: TSmallintField
      FieldName = 'S910B_007'
    end
  end
  object dsSys910B: TDataSource
    DataSet = qrySys910B
    Left = 64
    Top = 224
  end
  object dsSys500A: TDataSource
    DataSet = adsSys500A
    Left = 256
    Top = 120
  end
  object adsSys500A: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'FUserNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FUserName'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FAlter'
        Attributes = [faFixed]
        DataType = ftBoolean
      end
      item
        Name = 'FEMail'
        Attributes = [faFixed]
        DataType = ftBoolean
      end
      item
        Name = 'FSMS'
        Attributes = [faFixed]
        DataType = ftBoolean
      end
      item
        Name = 'FTimeStr'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FType'
        Attributes = [faFixed]
        DataType = ftSmallint
      end
      item
        Name = 'FTime'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FLangID'
        Attributes = [faFixed]
        DataType = ftSmallint
      end>
    Parameters = <>
    StoreDefs = True
    Left = 216
    Top = 120
    object adsSys500AFUserName: TStringField
      DisplayLabel = #29992#25143#21517#31216
      DisplayWidth = 18
      FieldName = 'FUserName'
    end
    object adsSys500AFAlter: TBooleanField
      DisplayLabel = #21457#36865#39044#35686
      DisplayWidth = 8
      FieldName = 'FAlter'
      OnChange = adsSys500AFAlterChange
    end
    object adsSys500AFEMail: TBooleanField
      DisplayLabel = #21457#36865'~'#37038#20214
      DisplayWidth = 5
      FieldName = 'FEMail'
      OnChange = adsSys500AFEMailChange
    end
    object adsSys500AFSMS: TBooleanField
      DisplayLabel = #21457#36865'~'#30701#20449
      DisplayWidth = 5
      FieldName = 'FSMS'
      OnChange = adsSys500AFSMSChange
    end
    object adsSys500AFTimeStr: TStringField
      DisplayLabel = #21457#36865#26102#38388
      DisplayWidth = 20
      FieldName = 'FTimeStr'
    end
    object adsSys500AFLangID: TSmallintField
      DisplayLabel = #35821#31181#31867#21035
      DisplayWidth = 8
      FieldName = 'FLangID'
    end
    object adsSys500AFTime: TIntegerField
      DisplayLabel = #21457#36865#26102#38388
      DisplayWidth = 20
      FieldName = 'FTime'
      Visible = False
    end
    object adsSys500AFType: TSmallintField
      FieldName = 'FType'
      Visible = False
    end
    object adsSys500AFUserNo: TIntegerField
      FieldName = 'FUserNo'
      Visible = False
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 176
    Top = 152
    object mmiAll: TMenuItem
      Caption = #20840#36873
      OnClick = mmiAllClick
    end
    object mmiNotSel: TMenuItem
      Caption = #21453#36873
      OnClick = mmiNotSelClick
    end
  end
  object adsTables: TADODataSet
    Connection = SYSDM.LangsADOC
    Parameters = <>
    Left = 288
    Top = 368
  end
  object qryTables: TADOQuery
    Connection = SYSDM.LangsADOC
    Parameters = <>
    Left = 328
    Top = 368
  end
end