📄 umain.dfm
字号:
object amain: Tamain
Left = 177
Top = 165
Width = 700
Height = 500
Caption = #25209#37327#30701#20449#20851#38381#31243#24207' CopyRight by '#35745#31639#26426#25903#25745#20013#24515' '#26753#23665' TEL'#65306'13850552396'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object StatusBar1: TStatusBar
Left = 0
Top = 454
Width = 692
Height = 19
Panels = <>
SimplePanel = True
end
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 692
Height = 454
ActivePage = TabSheet1
Align = alClient
TabOrder = 1
object TabSheet1: TTabSheet
Caption = #25968#25454#23548#20837
object DBGrid1: TDBGrid
Left = 0
Top = 83
Width = 684
Height = 344
Align = alClient
DataSource = HMDS
PopupMenu = PopupMenu1
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'msisdn'
Title.Alignment = taCenter
Width = 106
Visible = True
end
item
Expanded = False
FieldName = 'ins_date'
Title.Alignment = taCenter
Width = 128
Visible = True
end
item
Expanded = False
FieldName = 'finshed'
Title.Alignment = taCenter
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'finsh_time'
Title.Alignment = taCenter
Width = 126
Visible = True
end
item
Expanded = False
FieldName = 'hd'
Title.Alignment = taCenter
Width = 58
Visible = True
end
item
Expanded = False
FieldName = 'hlr'
Title.Alignment = taCenter
Visible = True
end
item
Expanded = False
FieldName = 'IMSI'
Title.Alignment = taCenter
Visible = True
end
item
Expanded = False
FieldName = 'node'
Title.Alignment = taCenter
Width = 179
Visible = True
end>
end
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 684
Height = 83
Align = alTop
TabOrder = 1
object Label1: TLabel
Left = 8
Top = 21
Width = 48
Height = 12
Caption = #28304#25991#20214#65306
end
object Label2: TLabel
Left = 8
Top = 63
Width = 354
Height = 12
Caption = #28304#25991#20214#35828#26126#65306#37319#29992'Excel'#25991#20214#26684#24335#65292#20869#23481#21482#26377#19968#21015#65292#19981#38656#35201#23383#27573#21517#12290
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Edit1: TEdit
Left = 56
Top = 17
Width = 377
Height = 20
TabOrder = 0
end
object BitBtn1: TBitBtn
Left = 448
Top = 16
Width = 75
Height = 25
Caption = #24320' '#25171
TabOrder = 1
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
555555FFFFFFFFFF55555000000000055555577777777775FFFF00B8B8B8B8B0
0000775F5555555777770B0B8B8B8B8B0FF07F75F555555575F70FB0B8B8B8B8
B0F07F575FFFFFFFF7F70BFB0000000000F07F557777777777570FBFBF0FFFFF
FFF07F55557F5FFFFFF70BFBFB0F000000F07F55557F777777570FBFBF0FFFFF
FFF075F5557F5FFFFFF750FBFB0F000000F0575FFF7F777777575700000FFFFF
FFF05577777F5FF55FF75555550F00FF00005555557F775577775555550FFFFF
0F055555557F55557F755555550FFFFF00555555557FFFFF7755555555000000
0555555555777777755555555555555555555555555555555555}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 528
Top = 16
Width = 75
Height = 25
Caption = #23548' '#20837
TabOrder = 2
OnClick = BitBtn2Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
7700333333337777777733333333008088003333333377F73377333333330088
88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
NumGlyphs = 2
end
object BitBtn5: TBitBtn
Left = 608
Top = 16
Width = 75
Height = 25
Caption = #23548' '#20986
TabOrder = 3
OnClick = BitBtn5Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003333333333333777333333333333
300033FFFFFF3333377739999993333333333777777F3333333F399999933333
3300377777733333337733333333333333003333333333333377333333333333
3333333333333333333F333333333333330033333F33333333773333C3333333
330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
333333377F33333333FF3333C333333330003333733333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
end
object GroupBox2: TGroupBox
Left = 64
Top = 272
Width = 545
Height = 81
Caption = #36827#24230
TabOrder = 2
Visible = False
object Gauge1: TGauge
Left = 40
Top = 44
Width = 489
Height = 21
ForeColor = clBlue
Progress = 0
end
object Label3: TLabel
Left = 40
Top = 16
Width = 96
Height = 16
Caption = #23548#20837#21495#30721#28165#21333
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
end
end
object TabSheet2: TTabSheet
Caption = 'HLR'#25511#21046
ImageIndex = 1
object BitBtn3: TBitBtn
Left = 16
Top = 8
Width = 75
Height = 25
Caption = #24320#22987#25191#34892
TabOrder = 0
OnClick = BitBtn3Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
00333FF777777777773F0000FFFFFFFFFF0377773F3F3F3F3F7308880F0F0F0F
0FF07F33737373737337088880FFFFFFFFF07F3337FFFFFFFFF7088880000000
00037F3337777777777308888033330F03337F3337F3FF7F7FFF088880300000
00007F3337F7777777770FFFF030FFFFFFF07F3FF7F7F3FFFFF708008030F000
00F07F7737F7F77777F70FFFF030F0AAE0F07F3FF7F7F7F337F708008030F0DA
D0F07F7737F7F7FFF7F70FFFF030F00000F07F33F7F7F77777370FF9F030FFFF
FFF07F3737F7FFFFFFF70FFFF030000000007FFFF7F777777777000000333333
3333777777333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object BitBtn4: TBitBtn
Left = 104
Top = 8
Width = 75
Height = 25
Caption = #26029#24320#36830#25509
TabOrder = 1
OnClick = BitBtn4Click
end
object Memo1: TMemo
Left = 0
Top = 48
Width = 684
Height = 379
Align = alBottom
ScrollBars = ssBoth
TabOrder = 2
OnKeyPress = Memo1KeyPress
end
object GroupBox3: TGroupBox
Left = 80
Top = 128
Width = 529
Height = 81
Caption = #36827#24230
TabOrder = 3
Visible = False
object Label4: TLabel
Left = 39
Top = 16
Width = 96
Height = 16
Caption = #23548#20837#21495#30721#28165#21333
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Gauge2: TGauge
Left = 16
Top = 44
Width = 489
Height = 21
ForeColor = clBlue
Progress = 0
end
end
end
end
object IdTelnet1: TIdTelnet
MaxLineAction = maException
ReadTimeout = 0
OnDisconnected = IdTelnet1Disconnected
OnConnected = IdTelnet1Connected
Port = 23
OnDataAvailable = IdTelnet1DataAvailable
Terminal = 'dumb'
OnConnect = IdTelnet1Connect
Left = 452
Top = 184
end
object HMQU: TADOQuery
Connection = conn
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from t_msisdn')
Left = 452
Top = 247
object HMQUid: TAutoIncField
FieldName = 'id'
ReadOnly = True
end
object HMQUmsisdn: TWideStringField
DisplayLabel = #25163#26426#21495#30721
FieldName = 'msisdn'
Size = 12
end
object HMQUins_date: TDateTimeField
DisplayLabel = #23548#20837#26102#38388
FieldName = 'ins_date'
end
object HMQUfinshed: TBooleanField
DisplayLabel = #23436#25104#21542
FieldName = 'finshed'
end
object HMQUfinsh_time: TDateTimeField
DisplayLabel = #23436#25104#26102#38388
FieldName = 'finsh_time'
end
object HMQUhd: TWideStringField
DisplayLabel = #21495#30721#27573
FieldName = 'hd'
Size = 6
end
object HMQUhlr: TWideStringField
DisplayLabel = #24402#23646'HLR'
FieldName = 'hlr'
Size = 6
end
object HMQUIMSI: TWideStringField
FieldName = 'IMSI'
end
object HMQUnode: TWideStringField
DisplayLabel = #25805#20316#35828#26126
FieldName = 'node'
Size = 50
end
end
object conn: TADOConnection
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\'#31243#24207'\HLR'#27966#21333#31243#24207'\data.' +
'mdb;Persist Security Info=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 452
Top = 215
end
object HMDS: TDataSource
DataSet = HMQU
Left = 452
Top = 279
end
object OpenDialog1: TOpenDialog
Filter = 'Excel'#25991#20214'|*.xls'
Left = 380
Top = 79
end
object PopupMenu1: TPopupMenu
Left = 412
Top = 191
object N1: TMenuItem
Caption = #35760#24405#21024#38500
OnClick = N1Click
end
object N2: TMenuItem
Caption = #26597' '#35810
OnClick = N2Click
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -