📄 umain.dfm
字号:
object frmMain: TfrmMain
Left = 196
Top = 132
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Wry2Mdb v0.1'
ClientHeight = 225
ClientWidth = 307
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnShow = FormShow
DesignSize = (
307
225)
PixelsPerInch = 96
TextHeight = 12
object pgcMain: TPageControl
Left = 1
Top = 30
Width = 305
Height = 163
ActivePage = ts1
Anchors = [akLeft, akTop, akRight]
Style = tsButtons
TabIndex = 0
TabOrder = 0
object ts1: TTabSheet
DesignSize = (
297
133)
object lbl1: TLabel
Left = 4
Top = 2
Width = 288
Height = 48
Anchors = [akLeft, akTop, akRight]
Caption =
#12288#12288'QQ IP'#25968#25454#24211'(QQWry.dat)'#25910#38598#20102#21253#25324#20013#22269#30005#20449#12289#20013#22269#32593#36890#12289#38271#22478#23485#24102#12289#32593#36890#23485#24102#12289#32858#21451#23485#24102#31561' ISP '#30340#26368#26032#20934#30830' IP' +
' '#22320#22336#25968#25454#12290#21253#25324#26368#20840#30340#32593#21543#25968#25454#12290#26412#31243#24207#23558'QQWry'#26684#24335#30340#25968#25454#36716#25442#20026'MDB'#26684#24335#12290
WordWrap = True
end
object btnOpen: TBitBtn
Left = 72
Top = 57
Width = 145
Height = 25
Caption = #25171#24320'QQWry.dat'#25991#20214'(&O)'
TabOrder = 0
OnClick = btnOpenClick
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
18000000000000030000C40E0000C40E00000000000000000000CED3D6CED3D6
CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
D6CED3D6CED3D6CED3D6CED3D600000000000000000000000000000000000000
0000000000000000000000CED3D6CED3D6CED3D6CED3D6CED3D6000000000000
008684008684008684008684008684008684008684008684008684000000CED3
D6CED3D6CED3D6CED3D600000000FFFF00000000868400868400868400868400
8684008684008684008684008684000000CED3D6CED3D6CED3D6000000FFFFFF
00FFFF0000000086840086840086840086840086840086840086840086840086
84000000CED3D6CED3D600000000FFFFFFFFFF00FFFF00000000868400868400
8684008684008684008684008684008684008684000000CED3D6000000FFFFFF
00FFFFFFFFFF00FFFF0000000000000000000000000000000000000000000000
0000000000000000000000000000FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00
FFFFFFFFFF00FFFF000000CED3D6CED3D6CED3D6CED3D6CED3D6000000FFFFFF
00FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF000000CED3D6CED3
D6CED3D6CED3D6CED3D600000000FFFFFFFFFF00FFFF00000000000000000000
0000000000000000000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6000000
000000000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D60000
00000000000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
D3D6CED3D6CED3D6CED3D6CED3D6CED3D6000000000000CED3D6CED3D6CED3D6
CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6000000CED3D6CED3D6CED3D60000
00CED3D6000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
D3D6CED3D6000000000000000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6
CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
D3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6}
end
object grpMain: TGroupBox
Left = 4
Top = 90
Width = 292
Height = 43
Anchors = [akLeft, akTop, akRight]
Caption = 'QQWry'#25968#25454#24211#20449#24687
TabOrder = 1
object edtUpdateDate: TLabeledEdit
Left = 184
Top = 19
Width = 89
Height = 12
BorderStyle = bsNone
Color = clBtnFace
EditLabel.Width = 54
EditLabel.Height = 12
EditLabel.Caption = #26356#26032#26085#26399':'
LabelPosition = lpLeft
LabelSpacing = 3
ReadOnly = True
TabOrder = 1
Text = #26410#30693
end
object edtRecCount: TLabeledEdit
Left = 53
Top = 19
Width = 68
Height = 12
BorderStyle = bsNone
Color = clBtnFace
EditLabel.Width = 42
EditLabel.Height = 12
EditLabel.Caption = #35760#24405#25968':'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
LabelPosition = lpLeft
LabelSpacing = 3
ParentFont = False
ReadOnly = True
TabOrder = 0
Text = '0'
end
end
end
object ts2: TTabSheet
ImageIndex = 1
DesignSize = (
297
133)
object btnSelectFile: TSpeedButton
Left = 272
Top = 15
Width = 23
Height = 21
Hint = #23558'mdb'#25991#20214#20445#23384#21040'...'
Anchors = [akTop, akRight]
Caption = '...'
Flat = True
ParentShowHint = False
ShowHint = True
OnClick = btnSelectFileClick
end
object edtMdbFileName: TLabeledEdit
Left = 4
Top = 16
Width = 270
Height = 20
Anchors = [akLeft, akTop, akRight]
BevelKind = bkTile
BorderStyle = bsNone
EditLabel.Width = 96
EditLabel.Height = 12
EditLabel.Caption = #23558'Mdb'#25991#20214#20445#23384#21040':'
LabelPosition = lpAbove
LabelSpacing = 3
ReadOnly = True
TabOrder = 0
end
object grpOption: TGroupBox
Left = 4
Top = 44
Width = 292
Height = 88
Anchors = [akLeft, akTop, akRight]
Caption = #20445#23384#25968#25454#24211#36873#39033
TabOrder = 1
DesignSize = (
292
88)
object edtFilter: TLabeledEdit
Left = 8
Top = 60
Width = 274
Height = 20
Anchors = [akLeft, akTop, akRight]
BevelKind = bkTile
BorderStyle = bsNone
EditLabel.Width = 150
EditLabel.Height = 12
EditLabel.Caption = #21482#36716#25442#21253#21547#20197#19979#23383#31526#30340#35760#24405':'
LabelPosition = lpAbove
LabelSpacing = 3
TabOrder = 0
end
object chkTwoFields: TCheckBox
Left = 8
Top = 19
Width = 257
Height = 17
Caption = #23558'IP'#20449#24687#20998#20026#30465#20221#21644#22478#24066#20004#20010#23383#27573
TabOrder = 1
end
end
end
object ts3: TTabSheet
ImageIndex = 2
DesignSize = (
297
133)
object lblProcess: TLabel
Left = 4
Top = 96
Width = 54
Height = 12
Caption = #22788#29702#36827#24230':'
end
object lbl3: TLabel
Left = 4
Top = 8
Width = 54
Height = 12
Caption = #27491#22312#22788#29702':'
end
object lblStartIP: TLabel
Left = 12
Top = 24
Width = 6
Height = 12
end
object lblEndIP: TLabel
Left = 12
Top = 40
Width = 6
Height = 12
end
object lblCountry: TLabel
Left = 12
Top = 56
Width = 263
Height = 33
AutoSize = False
WordWrap = True
end
object pgbConvert: TProgressBar
Left = 5
Top = 113
Width = 290
Height = 16
Anchors = [akLeft, akTop, akRight]
Min = 0
Max = 100
TabOrder = 0
end
end
object ts4: TTabSheet
ImageIndex = 3
object lblResult: TLabel
Left = 4
Top = 8
Width = 6
Height = 12
end
object lblFileSize: TLabel
Left = 4
Top = 32
Width = 66
Height = 12
Caption = 'lblFileSize'
end
object lblFileName: TLabel
Left = 4
Top = 72
Width = 66
Height = 12
Caption = 'lblFileName'
WordWrap = True
end
object lblTickCount: TLabel
Left = 4
Top = 48
Width = 72
Height = 12
Caption = 'lblTickCount'
end
end
end
object pnlTop: TPanel
Left = 0
Top = 0
Width = 307
Height = 50
Align = alTop
BevelOuter = bvNone
Color = clWhite
TabOrder = 1
object imgLogo: TImage
Left = 15
Top = 8
Width = 32
Height = 32
end
object lblGameName: TLabel
Left = 56
Top = 15
Width = 215
Height = 16
Caption = 'IP'#25968#25454#24211#36716#25442#20026'MDB'#26684#24335#24037#20855
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
end
object btnNext: TBitBtn
Left = 149
Top = 194
Width = 73
Height = 25
Caption = #19979#19968#27493'(&N)'
Enabled = False
TabOrder = 2
OnClick = btnNextClick
end
object btnClose: TBitBtn
Left = 226
Top = 194
Width = 75
Height = 25
Caption = #20851#38381'(&C)'
TabOrder = 3
OnClick = btnCloseClick
Kind = bkClose
end
object btnAbout: TBitBtn
Left = 8
Top = 194
Width = 73
Height = 25
Caption = #20851#20110'(&A)'
TabOrder = 4
OnClick = btnAboutClick
end
object dlgOpen: TOpenDialog
DefaultExt = '.Dat'
FileName = 'QQWry.Dat'
Filter = 'IP'#25968#25454#24211#25991#20214'(QQWry.dat)|*.dat'
Left = 72
Top = 256
end
object con: TADOConnection
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 8
Top = 256
end
object tbl: TADOTable
Connection = con
Left = 40
Top = 256
end
object dlgSave: TSaveDialog
DefaultExt = '*.mdb'
FileName = 'ip.mdb'
Filter = 'Access'#25991#20214'(*.mdb)|*.mdb'
Left = 104
Top = 256
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -