unitlogin.dfm

在delphi下基于MapX5.0的GIS程序

object FrmLogin: TFrmLogin
  Left = 282
  Top = 195
  BorderIcons = [biSystemMenu]
  BorderStyle = bsToolWindow
  Caption = #29992#25143#36523#20221#30830#35748
  ClientHeight = 195
  ClientWidth = 241
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object RGroupUserType: TRadioGroup
    Left = 8
    Top = 8
    Width = 225
    Height = 49
    Caption = #29992#25143#31867#22411
    Columns = 3
    ItemIndex = 0
    Items.Strings = (
      #26222#36890#29992#25143
      #39640#32423#29992#25143
      #31649#29702#21592)
    TabOrder = 0
    OnClick = RGroupUserTypeClick
  end
  object GBoxLoginInfo: TGroupBox
    Left = 8
    Top = 64
    Width = 225
    Height = 93
    Caption = #30830#35748#20449#24687
    TabOrder = 1
    object LEditUser: TLabeledEdit
      Left = 64
      Top = 16
      Width = 145
      Height = 21
      BevelKind = bkSoft
      BorderStyle = bsNone
      EditLabel.Width = 48
      EditLabel.Height = 12
      EditLabel.Caption = #29992#25143#21517#65306
      LabelPosition = lpLeft
      LabelSpacing = 3
      TabOrder = 0
    end
    object LEditPassword: TLabeledEdit
      Left = 64
      Top = 40
      Width = 145
      Height = 21
      BevelKind = bkSoft
      BorderStyle = bsNone
      EditLabel.Width = 48
      EditLabel.Height = 12
      EditLabel.Caption = #23494'  '#30721#65306
      LabelPosition = lpLeft
      LabelSpacing = 3
      PasswordChar = '*'
      TabOrder = 1
    end
    object LEditDataSourse: TLabeledEdit
      Left = 64
      Top = 64
      Width = 145
      Height = 21
      BevelKind = bkSoft
      BorderStyle = bsNone
      EditLabel.Width = 48
      EditLabel.Height = 12
      EditLabel.Caption = #26381#21153#22120#65306
      LabelPosition = lpLeft
      LabelSpacing = 3
      TabOrder = 2
    end
  end
  object BBtnOK: TBitBtn
    Left = 32
    Top = 165
    Width = 75
    Height = 25
    Caption = #30830#23450
    Default = True
    TabOrder = 2
    OnClick = BBtnOKClick
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object BBtnCancel: TBitBtn
    Left = 136
    Top = 165
    Width = 75
    Height = 25
    Caption = #21462#28040
    TabOrder = 3
    OnClick = BBtnCancelClick
    Kind = bkCancel
  end
  object CSocket: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 6000
    OnLookup = CSocketLookup
    OnConnecting = CSocketConnecting
    OnConnect = CSocketConnect
    OnRead = CSocketRead
    OnError = CSocketError
    Left = 72
    Top = 64
  end
  object SSocket: TServerSocket
    Active = False
    Port = 6000
    ServerType = stNonBlocking
    OnClientConnect = SSocketClientConnect
    OnClientRead = SSocketClientRead
    Left = 112
    Top = 64
  end
end