mainformpas.dfm

来自「用于开发税务票据管理的软件」· DFM 代码 · 共 116 行

object Form1: TForm1
  Left = 221
  Top = 219
  Width = 696
  Height = 480
  Caption = #20116#23376#26827#28216#25103#20013#24515#26381#21153#31471
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  DesignSize = (
    688
    453)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 328
    Width = 41
    Height = 13
    AutoSize = False
    Caption = #22312#32447#65306
  end
  object Label2: TLabel
    Left = 56
    Top = 328
    Width = 97
    Height = 17
    AutoSize = False
  end
  object online_ListView: TListView
    Left = 8
    Top = 8
    Width = 673
    Height = 313
    Anchors = [akLeft, akTop, akRight, akBottom]
    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 Button1: TButton
    Left = 8
    Top = 352
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 120
    Top = 352
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 2
    OnClick = Button2Click
  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 = 648
    Top = 416
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from userdata')
    Left = 616
    Top = 416
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Se' +
      'ttings\Administrator\'#26700#38754'\game\server\userdata.mdb;Persist Securit' +
      'y Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 576
    Top = 416
  end
end