📄 mdbd.frm
字号:
VERSION 5.00
Object = "{FAEEE763-117E-101B-8933-08002B2F4F5A}#1.1#0"; "DBLIST32.OCX"
Begin VB.Form mdbd
BorderStyle = 3 'Fixed Dialog
Caption = "Access数据库数据处理系统"
ClientHeight = 8310
ClientLeft = 150
ClientTop = 720
ClientWidth = 11880
Icon = "mdbd.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 8310
ScaleWidth = 11880
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1
Left = 3360
Top = 120
End
Begin VB.Frame Frame1
BackColor = &H00C0C0C0&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 2415
Left = 240
TabIndex = 61
ToolTipText = "移动此窗口"
Top = 1800
Visible = 0 'False
Width = 5775
Begin VB.TextBox Text3
Alignment = 2 'Center
BackColor = &H00C0C0C0&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 200
Locked = -1 'True
MouseIcon = "mdbd.frx":0442
MousePointer = 99 'Custom
TabIndex = 76
Text = "Text3"
ToolTipText = " 双击选择逻辑连接符（AND/OR）"
Top = 1440
Width = 495
End
Begin VB.TextBox Text2
Alignment = 2 'Center
BackColor = &H00C0C0C0&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 200
Locked = -1 'True
MouseIcon = "mdbd.frx":0594
MousePointer = 99 'Custom
TabIndex = 75
Text = "Text2"
ToolTipText = " 双击选择逻辑连接符（AND/OR）"
Top = 1090
Width = 495
End
Begin VB.ComboBox Combo5
BackColor = &H00C0C0C0&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 720
MouseIcon = "mdbd.frx":06E6
MousePointer = 99 'Custom
TabIndex = 74
Text = "Combo1"
ToolTipText = "选择项目"
Top = 1440
Width = 1695
End
Begin VB.ComboBox Combo6
BackColor = &H00C0C0C0&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 2430
MouseIcon = "mdbd.frx":0838
MousePointer = 99 'Custom
TabIndex = 73
Text = "Combo2"
ToolTipText = "选择关系连接符"
Top = 1440
Width = 975
End
Begin VB.ComboBox Combo4
BackColor = &H00C0C0C0&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 2430
MouseIcon = "mdbd.frx":098A
MousePointer = 99 'Custom
TabIndex = 70
Text = "Combo2"
ToolTipText = "选择关系连接符"
Top = 1080
Width = 975
End
Begin VB.ComboBox Combo3
BackColor = &H00C0C0C0&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 720
MouseIcon = "mdbd.frx":0ADC
MousePointer = 99 'Custom
TabIndex = 69
Text = "Combo1"
ToolTipText = "选择项目"
Top = 1080
Width = 1695
End
Begin VB.CommandButton Command3
Caption = "筛 选"
Height = 375
Left = 2400
MouseIcon = "mdbd.frx":0C2E
MousePointer = 99 'Custom
TabIndex = 68
Top = 1920
Width = 1095
End
Begin VB.CommandButton Command2
Caption = "关 闭"
Height = 375
Left = 3840
MouseIcon = "mdbd.frx":0D80
MousePointer = 99 'Custom
TabIndex = 67
Top = 1920
Width = 1095
End
Begin VB.CommandButton Command1
Caption = "查 找"
Height = 375
Left = 2400
MouseIcon = "mdbd.frx":0ED2
MousePointer = 99 'Custom
TabIndex = 66
Top = 1920
Width = 1095
End
Begin VB.ComboBox Combo2
BackColor = &H00C0C0C0&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 2430
MouseIcon = "mdbd.frx":1024
MousePointer = 99 'Custom
TabIndex = 64
Text = "Combo2"
ToolTipText = "选择关系连接符"
Top = 720
Width = 975
End
Begin MSDBCtls.DBCombo DBCombo1
Bindings = "mdbd.frx":1176
Height = 330
Left = 3420
TabIndex = 63
ToolTipText = "选择/输入条件内容"
Top = 720
Width = 2175
_ExtentX = 3836
_ExtentY = 582
_Version = 393216
MousePointer = 99
BackColor = 12632256
Text = "DBCombo1"
MouseIcon = "mdbd.frx":118A
End
Begin VB.ComboBox Combo1
BackColor = &H00C0C0C0&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 720
MouseIcon = "mdbd.frx":12EC
MousePointer = 99 'Custom
TabIndex = 62
Text = "Combo1"
ToolTipText = "选择项目"
Top = 720
Width = 1695
End
Begin MSDBCtls.DBCombo DBCombo2
Bindings = "mdbd.frx":143E
Height = 330
Left = 3420
TabIndex = 71
ToolTipText = "选择/输入条件内容"
Top = 1080
Width = 2175
_ExtentX = 3836
_ExtentY = 582
_Version = 393216
MousePointer = 99
BackColor = 12632256
Text = "DBCombo1"
MouseIcon = "mdbd.frx":1452
End
Begin MSDBCtls.DBCombo DBCombo3
Bindings = "mdbd.frx":15B4
Height = 330
Left = 3420
TabIndex = 72
ToolTipText = "选择/输入条件内容"
Top = 1440
Width = 2175
_ExtentX = 3836
_ExtentY = 582
_Version = 393216
MousePointer = 99
BackColor = 12632256
Text = "DBCombo1"
MouseIcon = "mdbd.frx":15C8
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label8"
Height = 180
Left = 720
TabIndex = 77
Top = 360
Width = 540
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "条件:"
ForeColor = &H00000000&
Height = 180
Left = 180
TabIndex = 65
Top = 750
Width = 450
End
End
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 5640
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 120
Visible = 0 'False
Width = 2415
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
ForeColor = &H00FF0000&
Height = 465
Left = 0
MouseIcon = "mdbd.frx":172A
MousePointer = 99 'Custom
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
ToolTipText = "左键拖动，右键菜单"
Top = 0
Visible = 0 'False
Width = 2955
End
Begin VB.Frame Frame2
Height = 6975
Left = 0
TabIndex = 0
Top = 480
Visible = 0 'False
Width = 7455
Begin VB.TextBox Text1
DataSource = "Data1"
Height = 270
Index = 99
Left = 0
TabIndex = 217
Text = "Text1"
Top = 0
Visible = 0 'False
Width = 3975
End
Begin VB.TextBox Text1
DataSource = "Data1"
Height = 270
Index = 98
Left = 0
TabIndex = 216
Text = "Text1"
Top = 0
Visible = 0 'False
Width = 3975
End
Begin VB.TextBox Text1
DataSource = "Data1"
Height = 270
Index = 97
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -