📄 frmopt.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form FrmOpt
BorderStyle = 1 'Fixed Single
Caption = "业务查询"
ClientHeight = 5385
ClientLeft = 45
ClientTop = 330
ClientWidth = 9600
Icon = "FrmOpt.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 5385
ScaleWidth = 9600
Begin VB.Frame FramOpt
Height = 5460
Left = 0
TabIndex = 0
Top = -90
Width = 9600
Begin VB.ComboBox CombOrder
Height = 300
Left = 5625
Style = 2 'Dropdown List
TabIndex = 47
Top = 4200
Width = 1590
End
Begin VB.ComboBox CombStatus
Height = 300
Left = 1800
Style = 2 'Dropdown List
TabIndex = 23
Top = 4200
Width = 1635
End
Begin MSComCtl2.DTPicker DTCond
Height = 330
Left = 1800
TabIndex = 22
Top = 4185
Width = 1635
_ExtentX = 2884
_ExtentY = 582
_Version = 393216
Format = 25755649
CurrentDate = 37417
End
Begin VB.ComboBox CombPage
Height = 300
Left = 180
Style = 2 'Dropdown List
TabIndex = 14
Top = 4935
Width = 1005
End
Begin VB.CommandButton CommPN
Caption = ">>"
Height = 375
Index = 3
Left = 2790
TabIndex = 13
Top = 4905
Width = 465
End
Begin VB.CommandButton CommPN
Caption = ">"
Height = 375
Index = 2
Left = 2340
TabIndex = 12
Top = 4905
Width = 465
End
Begin VB.CommandButton CommPN
Caption = "<"
Height = 375
Index = 1
Left = 1890
TabIndex = 11
Top = 4905
Width = 465
End
Begin VB.CommandButton CommPN
Caption = "<<"
Height = 375
Index = 0
Left = 1440
TabIndex = 10
Top = 4905
Width = 465
End
Begin VB.CommandButton CommExit
Caption = "退出"
Height = 375
Left = 7920
TabIndex = 9
Top = 4905
Width = 1500
End
Begin VB.CommandButton CommDel
Caption = "删除"
Height = 375
Left = 6435
TabIndex = 8
Top = 4905
Width = 1500
End
Begin VB.CommandButton CommEdit
Caption = "修改"
Height = 375
Left = 4950
TabIndex = 7
Top = 4905
Width = 1500
End
Begin VB.CommandButton CommQuery
Caption = "查询"
Height = 375
Left = 3465
TabIndex = 6
Top = 4905
Width = 1500
End
Begin VB.CommandButton CommCondClear
Caption = "清除条件"
Height = 330
Left = 8505
TabIndex = 5
Top = 4185
Width = 960
End
Begin VB.CommandButton CommCondAdd
Caption = "叠加条件"
Height = 330
Left = 7380
TabIndex = 4
Top = 4185
Width = 960
End
Begin VB.TextBox TxtCond
Height = 330
Left = 1800
TabIndex = 3
Top = 4185
Width = 3660
End
Begin VB.ComboBox CombCond
Height = 300
Left = 90
Style = 2 'Dropdown List
TabIndex = 2
Top = 4200
Width = 1590
End
Begin ComctlLib.ListView ListVW
Height = 3165
Left = 90
TabIndex = 1
Top = 495
Width = 9420
_ExtentX = 16616
_ExtentY = 5583
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 327682
SmallIcons = "ImageLst"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin VB.Label LabCond
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 330
Left = 90
TabIndex = 27
Top = 3780
Width = 9420
End
Begin VB.Label LabStatue
Caption = "条记录"
ForeColor = &H00FF0000&
Height = 180
Index = 8
Left = 1395
TabIndex = 26
Top = 270
Width = 540
End
Begin VB.Label LabStatue
Caption = "0"
ForeColor = &H000000FF&
Height = 180
Index = 7
Left = 495
TabIndex = 25
Top = 270
Width = 765
End
Begin VB.Label LabStatue
Caption = "共"
ForeColor = &H00FF0000&
Height = 180
Index = 6
Left = 270
TabIndex = 24
Top = 270
Width = 180
End
Begin ComctlLib.ImageList ImageLst
Left = 8190
Top = 2610
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 1
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "FrmOpt.frx":0442
Key = ""
EndProperty
EndProperty
End
Begin VB.Label LabStatue
Caption = "页"
ForeColor = &H00FF0000&
Height = 180
Index = 5
Left = 3780
TabIndex = 21
Top = 270
Width = 180
End
Begin VB.Label LabStatue
Caption = "0"
ForeColor = &H000000FF&
Height = 180
Index = 4
Left = 3285
TabIndex = 20
Top = 270
Width = 495
End
Begin VB.Label LabStatue
Caption = "第"
ForeColor = &H00FF0000&
Height = 180
Index = 3
Left = 3060
TabIndex = 19
Top = 270
Width = 180
End
Begin VB.Label LabStatue
Caption = "页"
ForeColor = &H00FF0000&
Height = 180
Index = 2
Left = 2745
TabIndex = 18
Top = 270
Width = 180
End
Begin VB.Label LabStatue
Caption = "0"
ForeColor = &H000000FF&
Height = 180
Index = 1
Left = 2295
TabIndex = 17
Top = 270
Width = 405
End
Begin VB.Label LabStatue
Caption = "共"
ForeColor = &H00FF0000&
Height = 180
Index = 0
Left = 2025
TabIndex = 16
Top = 270
Width = 180
End
Begin VB.Label LabPage
AutoSize = -1 'True
Caption = "页"
Height = 180
Left = 1215
TabIndex = 15
Top = 4995
Width = 180
End
Begin VB.Line LBlack
BorderColor = &H00808080&
X1 = 195
X2 = 9395
Y1 = 4725
Y2 = 4725
End
Begin VB.Line LWhite
BorderColor = &H00FFFFFF&
X1 = 195
X2 = 9395
Y1 = 4710
Y2 = 4710
End
End
Begin VB.Frame FramEdit
Height = 5460
Left = 0
TabIndex = 28
Top = -90
Visible = 0 'False
Width = 9600
Begin VB.ComboBox CombOk
Height = 300
ItemData = "FrmOpt.frx":061C
Left = 7725
List = "FrmOpt.frx":061E
Style = 2 'Dropdown List
TabIndex = 37
Top = 1620
Width = 1680
End
Begin VB.CommandButton CommCalcal
Caption = "取消"
Height = 375
Left = 6420
TabIndex = 36
Top = 4725
Width = 1500
End
Begin VB.CommandButton CommEditOK
Caption = "修改"
Height = 375
Left = 1470
TabIndex = 35
Top = 4725
Width = 1500
End
Begin VB.TextBox TxtComp
Height = 330
Left = 1215
Locked = -1 'True
TabIndex = 34
Top = 450
Width = 8160
End
Begin VB.TextBox TxtLinkm
Height = 330
Left = 1245
TabIndex = 33
Top = 1035
Width = 1680
End
Begin VB.TextBox TxtPhone
Height = 330
Left = 1245
TabIndex = 32
Top = 1620
Width = 4785
End
Begin VB.TextBox TxtEmail
Height = 330
Left = 4350
TabIndex = 31
Top = 1035
Width = 1680
End
Begin VB.TextBox TxtAddress
Height = 330
Left = 1245
TabIndex = 30
Top = 2205
Width = 8160
End
Begin VB.TextBox TxtContent
Height = 1455
Left = 1245
MaxLength = 250
MultiLine = -1 'True
TabIndex = 29
Top = 2790
Width = 8160
End
Begin MSComCtl2.DTPicker DT_ckdate
Height = 330
Left = 7725
TabIndex = 38
Top = 1035
Width = 1680
_ExtentX = 2963
_ExtentY = 582
_Version = 393216
Format = 25755649
CurrentDate = 37417
MaxDate = 402133
MinDate = 36526
End
Begin VB.Label LabOK
Caption = "业务情况"
Height = 180
Left = 6510
TabIndex = 46
Top = 1695
Width = 720
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
X1 = 180
X2 = 9380
Y1 = 4500
Y2 = 4500
End
Begin VB.Line Line2
BorderColor = &H00808080&
X1 = 180
X2 = 9380
Y1 = 4515
Y2 = 4515
End
Begin VB.Label LabComp
Caption = "公司名称"
ForeColor = &H00FF0000&
Height = 180
Left = 255
TabIndex = 45
Top = 525
Width = 720
End
Begin VB.Label LabAddress
Caption = "详细地址"
ForeColor = &H00FF0000&
Height = 180
Left = 255
TabIndex = 44
Top = 2250
Width = 720
End
Begin VB.Label LabLinkman
Caption = "联 系 人"
ForeColor = &H00FF0000&
Height = 180
Left = 255
TabIndex = 43
Top = 1110
Width = 720
End
Begin VB.Label LabPhone1
Caption = "电 话"
ForeColor = &H00FF0000&
Height = 180
Left = 255
TabIndex = 42
Top = 1695
Width = 630
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -