dabrlinkmen.dfm

详细的ERP设计资料

inherited DALinkMenBrowseForm: TDALinkMenBrowseForm
  Left = 39
  Top = 41
  VertScrollBar.Range = 0
  AutoScroll = False
  Caption = #32852#31995#20154#31649#29702
  ClientHeight = 482
  ClientWidth = 701
  Position = poScreenCenter
  Visible = False
  WindowState = wsNormal
  PixelsPerInch = 96
  TextHeight = 12
  inherited ToolBar: TToolBar
    Width = 701
    ButtonWidth = 55
    object tbtAdd: TToolButton
      Left = 0
      Top = 2
      Action = AddNewAction
    end
    object ToolButton1: TToolButton
      Left = 55
      Top = 2
      Action = EditAction
    end
    object ToolButton2: TToolButton
      Left = 110
      Top = 2
      Action = DeleteAction
    end
    object ToolButton3: TToolButton
      Left = 165
      Top = 2
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object ToolButton8: TToolButton
      Left = 173
      Top = 2
      Action = PrintPreviewAction
    end
    object ToolButton6: TToolButton
      Left = 228
      Top = 2
      Action = PrintAction
    end
    object ToolButton7: TToolButton
      Left = 283
      Top = 2
      Width = 8
      Caption = 'ToolButton7'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object ToolButton9: TToolButton
      Left = 291
      Top = 2
      Action = ExportAction
    end
    object ToolButton10: TToolButton
      Left = 346
      Top = 2
      Width = 8
      Caption = 'ToolButton10'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object ToolButton12: TToolButton
      Left = 354
      Top = 2
      Action = FiltrateAction
    end
    object ToolButton11: TToolButton
      Left = 409
      Top = 2
      Action = RefreshAction
    end
    object ToolButton14: TToolButton
      Left = 464
      Top = 2
      Width = 8
      Caption = 'ToolButton14'
      ImageIndex = 9
      Style = tbsSeparator
    end
    object ToolButton13: TToolButton
      Left = 472
      Top = 2
      Action = ExitAction
    end
    object ToolButton4: TToolButton
      Left = 527
      Top = 2
      Action = CustomizeViewAction
      Caption = #26174#31034#21015
    end
  end
  inherited Panel1: TPanel
    Width = 701
    Height = 441
    inherited PageControl: TPageControl
      Top = 419
      Width = 701
      OnChanging = PageControlChanging
      inherited TabSheet1: TTabSheet
        Tag = 1
        Caption = #32852#31995#26041#24335
      end
      object TabSheet2: TTabSheet
        Tag = 2
        Caption = #31038#20250#20851#31995
        ImageIndex = 1
      end
      object TabSheet3: TTabSheet
        Tag = 3
        Caption = #23621#20303#22320#22336
        ImageIndex = 2
      end
      object TabSheet4: TTabSheet
        Tag = 4
        Caption = #25945#32946#22521#35757
        ImageIndex = 3
      end
      object TabSheet5: TTabSheet
        Tag = 5
        Caption = #20852#36259#29233#22909
        ImageIndex = 4
      end
      object TabSheet6: TTabSheet
        Tag = 6
        Caption = #29983#29702#25351#26631
        ImageIndex = 5
      end
      object TabSheet7: TTabSheet
        Tag = 7
        Caption = #20307#26816#25253#21578
        ImageIndex = 6
      end
      object TabSheet8: TTabSheet
        Tag = 8
        Caption = #24037#20316#23653#21382
        ImageIndex = 7
      end
    end
    inherited DBGrid: TQLDBGrid
      Width = 701
      Height = 419
      ReadOnly = False
    end
  end
  inherited ActionList: TActionList
    object RolePermissionsAction: TAction
      Caption = #25480#26435
      Hint = #25480#26435
      ImageIndex = 9
    end
  end
  object adsDALinkMode: TADODataSet
    Tag = 1
    Connection = CommonData.acnConnection
    BeforePost = adsDALinkModeBeforePost
    AfterPost = adsDALinkModeAfterPost
    CommandText = 
      'select * from DALinkMode where RecordState<>'#39#21024#38500#39' and LinkMenID=:' +
      'ID'
    Parameters = <
      item
        Name = 'ID'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 16
    Top = 240
    object adsDALinkModeID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object adsDALinkModeCreateDate: TDateTimeField
      FieldName = 'CreateDate'
      Visible = False
    end
    object adsDALinkModeCreateUserID: TIntegerField
      FieldName = 'CreateUserID'
      Visible = False
    end
    object adsDALinkModeRecordState: TStringField
      FieldName = 'RecordState'
      Visible = False
      Size = 12
    end
    object adsDALinkModeLinkMenID: TIntegerField
      FieldName = 'LinkMenID'
      Visible = False
    end
    object adsDALinkModeLikeMode: TStringField
      DisplayLabel = #32852#31995#26041#24335
      FieldName = 'LikeMode'
    end
    object adsDALinkModePhoneZip: TStringField
      DisplayLabel = #32852#31995#21495#30721
      FieldName = 'PhoneZip'
    end
    object adsDALinkModeLinkPlace: TStringField
      DisplayLabel = #22320#22336#20301#32622
      FieldName = 'LinkPlace'
      Size = 60
    end
    object adsDALinkModeMemo: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Memo'
      Size = 60
    end
  end
  object adsDASocialRelations: TADODataSet
    Tag = 2
    Connection = CommonData.acnConnection
    BeforePost = adsDASocialRelationsBeforePost
    CommandText = 'select * from DASocialRelations WHERE LinkMenID=:ID'
    Parameters = <
      item
        Name = 'ID'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 80
    Top = 240
    object adsDASocialRelationsID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object adsDASocialRelationsLinkMenID: TIntegerField
      FieldName = 'LinkMenID'
      Visible = False
    end
    object adsDASocialRelationsName: TStringField
      DisplayLabel = #22995#21517
      FieldName = 'Name'
    end
    object adsDASocialRelationsPost: TStringField
      DisplayLabel = #32844#20301
      FieldName = 'Post'
    end
    object adsDASocialRelationsDeportment: TStringField
      DisplayLabel = #24037#20316#21333#20301
      FieldName = 'Deportment'
      Size = 60
    end
    object adsDASocialRelationsPoliteTitle: TStringField
      DisplayLabel = #31216#35859#20851#31995
      FieldName = 'PoliteTitle'
    end
    object adsDASocialRelationsBirthDate: TDateTimeField
      DisplayLabel = #29983#26085
      FieldName = 'BirthDate'
    end
    object adsDASocialRelationsSpecialDate: TDateTimeField
      DisplayLabel = #32426#24565#26085
      FieldName = 'SpecialDate'
    end
    object adsDASocialRelationsNickName: TStringField
      DisplayLabel = #26165#31216
      FieldName = 'NickName'
    end
    object adsDASocialRelationsHabitLove: TStringField
      DisplayLabel = #29233#22909#20852#36259
      FieldName = 'HabitLove'
      Size = 50
    end
    object adsDASocialRelationsPostDate: TDateTimeField
      DisplayLabel = #22312#32844#26085#26399
      FieldName = 'PostDate'
    end
    object adsDASocialRelationsLeaveDate: TDateTimeField
      DisplayLabel = #31163#32844#26085#26399
      FieldName = 'LeaveDate'
    end
    object adsDASocialRelationsMemo: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Memo'
      Size = 60
    end
  end
  object adsDALivePlace: TADODataSet
    Tag = 3
    Connection = CommonData.acnConnection
    BeforePost = adsDALivePlaceBeforePost
    CommandText = 'select * from DALivePlace WHERE LinkMenID=:ID'
    Parameters = <
      item
        Name = 'ID'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 144
    Top = 240
    object adsDALivePlaceID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object adsDALivePlaceLinkMenID: TIntegerField
      FieldName = 'LinkMenID'
      Visible = False
    end
    object adsDALivePlaceAddress: TStringField
      DisplayLabel = #35814#32454#22320#22336
      FieldName = 'Address'
      Size = 60
    end
    object adsDALivePlaceliveMode: TStringField
      DisplayLabel = #23621#20303#26041#24335