uclient.dfm

delphi简单的考勤系统 使用tcp ip 协议 包括服务器端和客户端 使用了 ClientSocket和ServerSocket组件

object FrClient: TFrClient
  Left = 191
  Top = 105
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #32771#21220#31995#32479#23458#25143#31471
  ClientHeight = 261
  ClientWidth = 365
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 365
    Height = 242
    Align = alClient
    TabOrder = 0
    object StringGrid1: TStringGrid
      Left = 2
      Top = 131
      Width = 361
      Height = 109
      Align = alBottom
      Ctl3D = False
      DefaultRowHeight = 20
      ParentCtl3D = False
      TabOrder = 0
      ColWidths = (
        64
        64
        71
        69
        66)
      RowHeights = (
        20
        20
        20
        20
        20)
    end
    object Panel1: TPanel
      Left = 2
      Top = 10
      Width = 361
      Height = 31
      BevelInner = bvSpace
      BevelOuter = bvLowered
      TabOrder = 1
      object Label1: TLabel
        Left = 6
        Top = 8
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #21592#24037#32534#21495#65306
      end
      object Label2: TLabel
        Left = 146
        Top = 9
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #30331#24405#21475#20196#65306
      end
      object Btn_login: TSpeedButton
        Left = 301
        Top = 4
        Width = 55
        Height = 23
        Caption = #30331#24405
        Flat = True
        OnClick = Btn_loginClick
      end
      object CBox_ID: TComboBox
        Left = 64
        Top = 3
        Width = 78
        Height = 24
        BevelKind = bkFlat
        Ctl3D = False
        ItemHeight = 16
        ParentCtl3D = False
        TabOrder = 0
        Text = '010001'
      end
      object Ed_Pwd: TEdit
        Left = 206
        Top = 3
        Width = 92
        Height = 24
        AutoSize = False
        Ctl3D = False
        ParentCtl3D = False
        PasswordChar = '*'
        TabOrder = 1
      end
    end
    object PageControl1: TPageControl
      Left = 3
      Top = 43
      Width = 357
      Height = 87
      ActivePage = TabSheet2
      Style = tsFlatButtons
      TabIndex = 1
      TabOrder = 2
      object TabSheet1: TTabSheet
        Caption = #32771#21220
        object Btn_Go: TSpeedButton
          Left = 12
          Top = 2
          Width = 89
          Height = 22
          Caption = #19978#29677
          Enabled = False
          Flat = True
          OnClick = Btn_GoClick
        end
        object Btn_Over: TSpeedButton
          Left = 12
          Top = 26
          Width = 89
          Height = 22
          Caption = #19979#29677
          Enabled = False
          Flat = True
          OnClick = Btn_OverClick
        end
        object Btn_History: TSpeedButton
          Left = 197
          Top = 30
          Width = 89
          Height = 22
          Caption = #21382#21490#32771#21220#35760#24405
          Enabled = False
          Flat = True
          OnClick = Btn_HistoryClick
        end
        object Label4: TLabel
          Left = 151
          Top = 5
          Width = 65
          Height = 16
          Caption = #26597#25214#26085#26399#65306
        end
        object DatetimePicker1: TDateTimePicker
          Left = 208
          Top = 1
          Width = 78
          Height = 24
          BevelInner = bvSpace
          BevelOuter = bvNone
          CalAlignment = dtaLeft
          Date = 37504.634969213
          Time = 37504.634969213
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 0
        end
        object Btn_Search: TBitBtn
          Left = 288
          Top = 0
          Width = 61
          Height = 25
          Caption = #26597#25214
          Enabled = False
          TabOrder = 1
          OnClick = Btn_SearchClick
        end
      end
      object TabSheet2: TTabSheet
        Caption = #35774#32622
        ImageIndex = 1
        object Ed_host: TLabeledEdit
          Left = 171
          Top = 24
          Width = 101
          Height = 22
          Ctl3D = False
          EditLabel.Width = 78
          EditLabel.Height = 16
          EditLabel.Caption = #26381#21153#22120#22320#22336#65306
          LabelPosition = lpAbove
          LabelSpacing = 3
          ParentCtl3D = False
          TabOrder = 0
          Text = '127.0.0.1'
        end
        object Ed_port: TLabeledEdit
          Left = 281
          Top = 24
          Width = 68
          Height = 22
          Ctl3D = False
          EditLabel.Width = 39
          EditLabel.Height = 16
          EditLabel.Caption = #31471#21475#65306
          LabelPosition = lpAbove
          LabelSpacing = 3
          ParentCtl3D = False
          TabOrder = 1
          Text = '2188'
        end
        object CBox_local: TCheckBox
          Left = 4
          Top = 8
          Width = 75
          Height = 17
          Caption = #26412#22320#30331#24405
          TabOrder = 2
        end
        object CBox_Record: TCheckBox
          Left = 4
          Top = 31
          Width = 164
          Height = 17
          Caption = #32771#21220#35760#24405#21516#26102#20445#23384#22312#26412#22320
          Checked = True
          State = cbChecked
          TabOrder = 3
        end
        object CBox_Time: TCheckBox
          Left = 83
          Top = 8
          Width = 75
          Height = 17
          Caption = #21516#27493#26102#38388
          Checked = True
          State = cbChecked
          TabOrder = 4
        end
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 242
    Width = 365
    Height = 19
    Panels = <
      item
        Text = #27809#26377#30331#24405#65292#35831#20808#30331#24405
        Width = 150
      end
      item
        Width = 50
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object ClientSocket1: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Host = '192.168.0.24'
    Port = 2188
    OnConnecting = ClientSocket1Connecting
    OnConnect = ClientSocket1Connect
    OnDisconnect = ClientSocket1Disconnect
    OnRead = ClientSocket1Read
    OnError = ClientSocket1Error
    Left = 5
    Top = 208
  end
  object ADOQuery1: TADOQuery
    Parameters = <>
    Left = 7
    Top = 176
  end
  object IdTime1: TIdTime
    RecvBufferSize = 1024
    Port = 37
    BaseDate = 2
    Left = 40
    Top = 208
  end
  object ADOConnection1: TADOConnection
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 40
    Top = 176
  end
end