setuserunit.dfm

东华休闲山庄洗浴、餐饮、客房管理系统

          Visible = True
        end>
    end
    object suiButton3: TsuiButton
      Left = 64
      Top = 336
      Width = 50
      Height = 25
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Caption = #28155#21152
      AutoSize = False
      ParentFont = False
      UIStyle = MacOS
      TabOrder = 1
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton3Click
      ResHandle = 0
    end
    object suiButton4: TsuiButton
      Left = 128
      Top = 336
      Width = 50
      Height = 25
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Caption = #32534#36753
      AutoSize = False
      ParentFont = False
      UIStyle = MacOS
      TabOrder = 2
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton4Click
      ResHandle = 0
    end
    object suiButton5: TsuiButton
      Left = 192
      Top = 336
      Width = 50
      Height = 25
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Caption = #21024#38500
      AutoSize = False
      ParentFont = False
      UIStyle = MacOS
      TabOrder = 3
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton5Click
      ResHandle = 0
    end
    object suiButton6: TsuiButton
      Left = 384
      Top = 336
      Width = 50
      Height = 25
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Caption = #36864#20986
      AutoSize = False
      ParentFont = False
      UIStyle = MacOS
      TabOrder = 4
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton6Click
      ResHandle = 0
    end
    object suiButton9: TsuiButton
      Left = 320
      Top = 337
      Width = 50
      Height = 25
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Caption = #21462#28040
      AutoSize = False
      ParentFont = False
      UIStyle = MacOS
      TabOrder = 5
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton9Click
      ResHandle = 0
    end
    object suiButton10: TsuiButton
      Left = 256
      Top = 337
      Width = 50
      Height = 25
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Caption = #25552#20132
      AutoSize = False
      ParentFont = False
      UIStyle = MacOS
      TabOrder = 6
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton10Click
      ResHandle = 0
    end
    object dbedtuser_bh: TDBEdit
      Left = 104
      Top = 256
      Width = 150
      Height = 22
      DataField = 'user_bh'
      DataSource = ds4
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
      OnKeyPress = dbedtuser_bhKeyPress
    end
    object dbedtuser_xm: TDBEdit
      Left = 104
      Top = 304
      Width = 150
      Height = 22
      DataField = 'user_xm'
      DataSource = ds4
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 8
      OnKeyPress = dbedtuser_xmKeyPress
    end
    object dbedtuser_mm: TDBEdit
      Left = 104
      Top = 280
      Width = 150
      Height = 22
      DataField = 'user_mm'
      DataSource = ds4
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 9
      OnKeyPress = dbedtuser_mmKeyPress
    end
    object dbedtuser_fby: TDBEdit
      Left = 352
      Top = 256
      Width = 150
      Height = 22
      DataField = 'user_fby'
      DataSource = ds4
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 10
      OnKeyPress = dbedtuser_fbyKeyPress
    end
    object dbedtuser_departBM: TDBEdit
      Left = 104
      Top = 232
      Width = 150
      Height = 22
      DataField = 'user_departBM'
      DataSource = ds4
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 11
    end
    object suiDBComboBox1: TsuiDBComboBox
      Left = 352
      Top = 280
      Width = 150
      Height = 22
      DataField = 'user_zt'
      DataSource = ds4
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ItemHeight = 14
      Items.Strings = (
        #21487#29992
        #20572#29992)
      ParentFont = False
      TabOrder = 12
      OnKeyPress = suiDBComboBox1KeyPress
      UIStyle = DeepBlue
      BorderColor = clBlack
      ArrowColor = clBlack
      ButtonColor = 15263976
    end
    object dbedtuser_groupID: TDBEdit
      Left = 352
      Top = 304
      Width = 89
      Height = 22
      DataField = 'user_groupID'
      DataSource = ds4
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 13
    end
  end
  object ds1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspDepart'
    RemoteServer = LoginForm.SocketConnection1
    AfterScroll = ds1AfterScroll
    Left = 12
    Top = 67
    object wdstrngfldds1depart_bm: TWideStringField
      FieldName = 'depart_bm'
      Size = 50
    end
    object wdstrngfldds1depart_mc: TWideStringField
      FieldName = 'depart_mc'
      Size = 50
    end
  end
  object ds2: TDataSource
    DataSet = ds1
    Left = 44
    Top = 67
  end
  object ds3: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'user_departBM'
    MasterFields = 'depart_bm'
    MasterSource = ds2
    PacketRecords = 0
    Params = <>
    ProviderName = 'dspUser'
    RemoteServer = LoginForm.SocketConnection1
    Left = 12
    Top = 228
    object wdstrngfldds3user_bh: TWideStringField
      FieldName = 'user_bh'
      Size = 50
    end
    object wdstrngfldds3user_xm: TWideStringField
      FieldName = 'user_xm'
      Size = 50
    end
    object wdstrngfldds3user_mm: TWideStringField
      FieldName = 'user_mm'
      Size = 50
    end
    object wdstrngfldds3user_zt: TWideStringField
      FieldName = 'user_zt'
      Size = 50
    end
    object ds3user_fby: TFloatField
      Alignment = taLeftJustify
      FieldName = 'user_fby'
    end
    object ds3user_groupID: TIntegerField
      Alignment = taLeftJustify
      FieldName = 'user_groupID'
    end
    object wdstrngfldds3user_departBM: TWideStringField
      FieldName = 'user_departBM'
      Size = 50
    end
  end
  object ds4: TDataSource
    DataSet = ds3
    Left = 44
    Top = 228
  end
end