📄 qry_in.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form qry_in
Caption = "系统集成项目查询"
ClientHeight = 6270
ClientLeft = 60
ClientTop = 390
ClientWidth = 7845
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "qry_in.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 6270
ScaleWidth = 7845
StartUpPosition = 1 'CenterOwner
Visible = 0 'False
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 1815
Left = 120
TabIndex = 25
ToolTipText = "双击项目名称可以调出该项目的详情"
Top = 3720
Width = 7635
_ExtentX = 13467
_ExtentY = 3201
_Version = 393216
Rows = 1
Cols = 1
FixedCols = 0
BackColor = -2147483639
ForeColor = 12582912
BackColorBkg = 12632256
GridColor = 49152
GridColorFixed = 8421504
Redraw = -1 'True
AllowBigSelection= 0 'False
ScrollTrack = -1 'True
HighLight = 0
FillStyle = 1
MergeCells = 2
Appearance = 0
End
Begin VB.CommandButton Command4
Cancel = -1 'True
Caption = "关 闭(&C)"
Height = 375
Left = 5640
TabIndex = 9
ToolTipText = "退出查询，返回主窗口"
Top = 5760
Width = 1575
End
Begin VB.CommandButton Command1
Caption = "查 询(&S)"
Height = 375
Left = 960
TabIndex = 8
ToolTipText = "按您选择的条件开始查询"
Top = 5760
Width = 1575
End
Begin VB.Frame Frame2
Caption = " 项目类别 "
Height = 1935
Left = 120
TabIndex = 18
Top = 1320
Width = 7575
Begin VB.CommandButton Command8
Caption = "<<"
Height = 300
Left = 3480
TabIndex = 24
Top = 1440
Width = 615
End
Begin VB.CommandButton Command7
Caption = "<"
Height = 300
Left = 3480
TabIndex = 23
Top = 1080
Width = 615
End
Begin VB.CommandButton Command6
Caption = ">>"
Height = 300
Left = 3480
TabIndex = 22
Top = 720
Width = 615
End
Begin VB.CommandButton Command5
Caption = ">"
Height = 300
Left = 3480
TabIndex = 21
Top = 360
Width = 615
End
Begin VB.ListBox List3
ForeColor = &H00C00000&
Height = 1260
ItemData = "qry_in.frx":030A
Left = 4320
List = "qry_in.frx":030C
TabIndex = 20
ToolTipText = "请选择拟查询的项目类别"
Top = 360
Width = 3015
End
Begin VB.ListBox List1
ForeColor = &H00C00000&
Height = 1260
ItemData = "qry_in.frx":030E
Left = 240
List = "qry_in.frx":031E
TabIndex = 7
ToolTipText = "请选择拟查询的项目类别"
Top = 360
Width = 3015
End
End
Begin VB.Frame Frame1
Caption = " 立项时间 "
Height = 975
Left = 120
TabIndex = 0
ToolTipText = "请输入查询的时间范围"
Top = 240
Width = 7575
Begin VB.TextBox Text6
Alignment = 1 'Right Justify
ForeColor = &H00C00000&
Height = 345
Left = 6240
MaxLength = 2
TabIndex = 6
Top = 360
Width = 375
End
Begin VB.TextBox Text5
Alignment = 1 'Right Justify
ForeColor = &H00C00000&
Height = 345
Left = 5400
MaxLength = 2
TabIndex = 5
Top = 360
Width = 375
End
Begin VB.TextBox Text4
Alignment = 1 'Right Justify
ForeColor = &H00C00000&
Height = 345
Left = 4200
MaxLength = 4
TabIndex = 4
Top = 360
Width = 735
End
Begin VB.TextBox Text3
Alignment = 1 'Right Justify
ForeColor = &H00C00000&
Height = 345
Left = 2640
MaxLength = 2
TabIndex = 3
Top = 360
Width = 375
End
Begin VB.TextBox Text2
Alignment = 1 'Right Justify
ForeColor = &H00C00000&
Height = 345
Left = 1800
MaxLength = 2
TabIndex = 2
Top = 360
Width = 375
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
ForeColor = &H00C00000&
Height = 345
Left = 600
MaxLength = 4
TabIndex = 1
Top = 360
Width = 735
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "止"
ForeColor = &H000000C0&
Height = 300
Left = 7080
TabIndex = 19
Top = 480
Width = 240
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "日"
Height = 300
Left = 6720
TabIndex = 17
Top = 480
Width = 240
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "日"
Height = 300
Left = 3120
TabIndex = 16
Top = 480
Width = 240
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "月"
Height = 300
Left = 5880
TabIndex = 15
Top = 480
Width = 240
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "月"
Height = 300
Left = 2280
TabIndex = 14
Top = 480
Width = 240
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "年"
Height = 300
Left = 5040
TabIndex = 13
Top = 480
Width = 240
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "年"
Height = 300
Left = 1440
TabIndex = 12
Top = 480
Width = 240
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "至"
ForeColor = &H000000C0&
Height = 300
Left = 3600
TabIndex = 11
Top = 480
Width = 240
End
Begin VB.Label Label1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -