用于开发税务票据管理的软件

源代码在线查看: mainformpas.dfm

软件大小: 36519 K
上传用户: jill
关键词: 软件
下载地址: 免注册下载 普通下载 VIP

相关代码

				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
							

相关资源