www.pudn.com > 200589952618.rar > mainformpas.dfm

object Form1: TForm1 
  Left = 171 
  Top = 201 
  Width = 696 
  Height = 376 
  BorderIcons = [biSystemMenu, biMinimize] 
  Caption = #20420#32599#26031#26041#22359#20013#24515#26381#21153#31471 
  Color = clBtnFace 
  Font.Charset = DEFAULT_CHARSET 
  Font.Color = clWindowText 
  Font.Height = -11 
  Font.Name = 'MS Sans Serif' 
  Font.Style = [] 
  Icon.Data = { 
    0000010002002020100000000000E80200002600000010101000000000002801 
    00000E0300002800000020000000400000000100040000000000000200000000 
    0000000000000000000000000000000000000000800000800000008080008000 
    0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00 
    0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000078 
    888870000000078887F877000000007FFFFF770000000078887788700000007F 
    FFFF787000000007FBFBFBFB0000007FFFFF788700000000777777777000007F 
    FFFF788870000000000000000000007FFFFF788870000000000000000000007F 
    FFFF788870000000000000000000004CCCCC48887070BFBFBFB777770000004C 
    CCCC448870770777777077777000004CCCCC444870778078F87707877700004C 
    CCCC444470770000000000877770004CCCCC044440778888888888877770007F 
    FFFF00444088FFFFFFFFFFF77770077FFFFF0804407777777777777877707787 
    777788F040000000000000778770787888778FFF007788888888870778707F87 
    888077777088FFFFFFFF8770777007F87807FFFF80077777777F87700000007F 
    8007FFFF804CCCCCCC7F877000000007F00077777CCC7FFFFF7F877000000000 
    70007F70C0007FFFFF7F87700000000000007F70C7FF7FFFFF7F877000000000 
    00007F70C7FF4444447F87700000000000007F70C7FFFFF0CC7F877000000000 
    00007F70C0000000CC7F87700000000000007F7000000000007F877000000000 
    00007F7777777777777F87700000000000007F88888888888888877000000000 
    000007FFFFFFFFFFFFFFF77000000000000000788888888888888F7000000000 
    0000000777777777777777700000C07F003FC03F801FC01FC00FC00FE007C007 
    F003C003FFFFC003FFFFC000000FC0000007C0000003C0000001C0000000C000 
    0000C0000000800000000000000000000000000000018000000FC200000FE300 
    000FF300000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00 
    000FFF80000FFFC0000FFFE0001F280000001000000020000000010004000000 
    0000800000000000000000000000000000000000000000000000000080000080 
    00000080800080000000800080008080000080808000C0C0C0000000FF0000FF 
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00077700000777000008FF 
    70000788870008FF78000000000008FF78000000000004CC48077883770004CC 
    4407077007700788040788888870788874000000077087878807888870700870 
    FF7444487000007077448FF870000000804F777870000000804770C870000000 
    870000087000000078888888800000000788888880008703FFFF8381FFFF81C1 
    FFFF8003FFFF8001FFFF8000FFFF8000FFFF0000FFFF0000FFFF0003FFFF9003 
    FFFFF003FFFFF003FFFFF003FFFFF003FFFFF803FFFF} 
  Menu = MainMenu1 
  OldCreateOrder = False 
  Position = poDesktopCenter 
  OnCreate = FormCreate 
  DesignSize = ( 
    688 
    330) 
  PixelsPerInch = 96 
  TextHeight = 13 
  object online_ListView: TListView 
    Left = 8 
    Top = -1 
    Width = 673 
    Height = 329 
    Anchors = [] 
    Columns = < 
      item 
        Caption = #29992#25143#21517 
        Width = 100 
      end 
      item 
        Caption = 'IP '#22320#22336 
        Width = 200 
      end 
      item 
        Caption = #26368#21518#32852#26426#26102#38388 
        MinWidth = 200 
        Width = 200 
      end 
      item 
        Caption = #31471#21475 
      end> 
    GridLines = True 
    TabOrder = 0 
    ViewStyle = vsReport 
  end 
  object IdTCPServer1: TIdTCPServer 
    Active = True 
    Bindings = <> 
    CommandHandlers = <> 
    DefaultPort = 1102 
    Greeting.NumericCode = 0 
    MaxConnectionReply.NumericCode = 0 
    OnExecute = IdTCPServer1Execute 
    OnDisconnect = IdTCPServer1Disconnect 
    ReplyExceptionCode = 0 
    ReplyTexts = <> 
    ReplyUnknownCommand.NumericCode = 0 
    Left = 624 
    Top = 288 
  end 
  object ADOQuery1: TADOQuery 
    Connection = ADOConnection1 
    Parameters = <> 
    SQL.Strings = ( 
      'select * from userdata') 
    Left = 576 
    Top = 288 
  end 
  object ADOConnection1: TADOConnection 
    Connected = True 
    ConnectionString =  
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=USERD' + 
      'ATA.MDB;Mode=Share Deny None;Extended Properties="";Persist Secu' + 
      'rity Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry ' + 
      'Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;J' + 
      'et OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk O' + 
      'ps=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database' + 
      ' Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:En' + 
      'crypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=Fals' + 
      'e;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=F' + 
      'alse' 
    LoginPrompt = False 
    Mode = cmShareDenyNone 
    Provider = 'Microsoft.Jet.OLEDB.4.0' 
    Left = 544 
    Top = 288 
  end 
  object MainMenu1: TMainMenu 
    Left = 504 
    Top = 296 
    object File1: TMenuItem 
      Caption = '&File' 
      object Exit1: TMenuItem 
        Caption = '&Exit' 
        OnClick = Exit1Click 
      end 
    end 
    object About1: TMenuItem 
      Caption = '&Help' 
      object About2: TMenuItem 
        Caption = '&About' 
        OnClick = About2Click 
      end 
    end 
  end 
  object SkinData: TSkinData 
    Active = False 
    DisableTag = 99 
    SkinControls = [xcMainMenu, xcPopupMenu, xcToolbar, xcControlbar, xcCombo, xcCheckBox, xcRadioButton, xcProgress, xcScrollbar, xcEdit, xcButton, xcBitBtn, xcSpeedButton, xcPanel, xcGroupBox, xcStatusBar, xcTab] 
    SkinStore = '(none)' 
    SkinFormtype = sfMainform 
    Left = 40 
    Top = 48 
    SkinStream = {00000000} 
  end 
end