📄 frmcx.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form frmCX
Caption = "查询"
ClientHeight = 6984
ClientLeft = 48
ClientTop = 336
ClientWidth = 9132
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 6984
ScaleWidth = 9132
WindowState = 2 'Maximized
Begin VB.Frame Frame1
Caption = "查询输入"
Height = 1935
Left = 1200
TabIndex = 1
Top = 120
Width = 6735
Begin VB.ComboBox Combo2
Height = 300
Left = 1080
TabIndex = 19
Top = 1440
Width = 4215
End
Begin VB.CommandButton Command1
Caption = "查询"
Height = 375
Left = 5520
TabIndex = 18
Top = 240
Width = 1095
End
Begin VB.Frame Frame3
Height = 400
Left = 1080
TabIndex = 10
Top = 960
Width = 4215
Begin VB.OptionButton Option9
Caption = "<>"
Height = 180
Left = 3480
TabIndex = 16
Top = 150
Width = 495
End
Begin VB.OptionButton Option8
Caption = "<="
Height = 180
Left = 2856
TabIndex = 15
Top = 150
Width = 495
End
Begin VB.OptionButton Option7
Caption = "<"
Height = 180
Left = 2112
TabIndex = 14
Top = 150
Width = 615
End
Begin VB.OptionButton Option6
Caption = ">="
Height = 180
Left = 1488
TabIndex = 13
Top = 150
Width = 495
End
Begin VB.OptionButton Option5
Caption = ">"
Height = 180
Left = 744
TabIndex = 12
Top = 150
Width = 615
End
Begin VB.OptionButton Option4
Caption = "="
Height = 180
Left = 120
TabIndex = 11
Top = 150
Width = 495
End
End
Begin VB.ComboBox Combo1
Height = 300
Left = 1080
TabIndex = 8
Top = 600
Width = 4215
End
Begin VB.Frame Frame2
Height = 400
Left = 1080
TabIndex = 3
Top = 120
Width = 4215
Begin VB.OptionButton Option3
Caption = "员工"
Height = 180
Left = 2160
TabIndex = 6
Top = 150
Width = 855
End
Begin VB.OptionButton Option2
Caption = "订单"
Height = 180
Left = 1080
TabIndex = 5
Top = 150
Width = 675
End
Begin VB.OptionButton Option1
Caption = "酒店"
Height = 180
Left = 120
TabIndex = 4
Top = 150
Value = -1 'True
Width = 675
End
End
Begin VB.Label Label4
Caption = "匹配条件"
Height = 255
Left = 240
TabIndex = 17
Top = 1440
Width = 855
End
Begin VB.Label Label3
Caption = "操作符"
Height = 255
Left = 360
TabIndex = 9
Top = 1080
Width = 735
End
Begin VB.Label Label2
Caption = "查询内容"
Height = 255
Left = 240
TabIndex = 7
Top = 600
Width = 735
End
Begin VB.Label Label1
Caption = "查询对象"
Height = 255
Left = 240
TabIndex = 2
Top = 240
Width = 735
End
End
Begin MSAdodcLib.Adodc Adodc1
Align = 2 'Align Bottom
Height = 372
Left = 0
Top = 6612
Visible = 0 'False
Width = 9132
_ExtentX = 16108
_ExtentY = 656
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSDataGridLib.DataGrid DataGrid1
Align = 2 'Align Bottom
Height = 4392
Left = 0
TabIndex = 0
Top = 2220
Width = 9132
_ExtentX = 16108
_ExtentY = 7747
_Version = 393216
HeadLines = 1.5
RowHeight = 15
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "查询结果"
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
MarqueeStyle = 3
AllowFocus = 0 'False
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmCX"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim CXNR As String
Dim CXCZ As String
Private Sub Combo1_Click()
Adodc1.ConnectionString = constr
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = CXNR
Adodc1.Refresh
Combo2.Clear
If Adodc1.Recordset.RecordCount <> 0 Then
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
Select Case Combo1.Text
Case "名称"
Combo2.AddItem Adodc1.Recordset(1)
Case "星级"
Combo2.AddItem Adodc1.Recordset(2)
Case "地址"
Combo2.AddItem Adodc1.Recordset(3)
Case "订单编号"
Combo2.AddItem Adodc1.Recordset(0)
Case "客户名称"
Combo2.AddItem Adodc1.Recordset(1)
Case "酒店名称"
Combo2.AddItem Adodc1.Recordset(2)
Case "业务人员"
Combo2.AddItem Adodc1.Recordset(3)
Case "房间类型"
Combo2.AddItem Adodc1.Recordset(4)
Case "预定时间"
Combo2.AddItem Adodc1.Recordset(7)
Case "姓名"
Combo2.AddItem Adodc1.Recordset(1)
Case "性别"
Combo2.AddItem Adodc1.Recordset(2)
Case "出生日期"
Combo2.AddItem Adodc1.Recordset(3)
Case "手机"
Combo2.AddItem Adodc1.Recordset(4)
Case "电话"
Combo2.AddItem Adodc1.Recordset(5)
Case "传呼"
Combo2.AddItem Adodc1.Recordset(6)
Case "住址"
Combo2.AddItem Adodc1.Recordset(7)
End Select
Adodc1.Recordset.MoveNext
Wend
End If
End Sub
Private Sub Command1_Click()
Dim str As String
If Combo1.Text = "" Then
MsgBox "请选择查询内容！", vbInformation + vbOKOnly, "错误"
Combo1.SetFocus
Exit Sub
End If
If Combo2.Text = "" Then
MsgBox "请选择匹配条件！", vbInformation + vbOKOnly, "错误"
Combo2.SetFocus
Exit Sub
End If
If Combo1.Text <> "预定时间" And Combo1.Text <> "出生日期" Then
str = "select * from " & CXNR & " where " & Combo1.Text & " " & CXCZ & " '" & Combo2.Text & "'"
Else
str = "select * from " & CXNR & " where " & Combo1.Text & " " & CXCZ & " #" & Month(Combo2.Text) & "/" & Day(Combo2.Text) & "/" & Year(Combo2.Text) & "#"
End If
Adodc1.ConnectionString = constr
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = str
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
DataGrid1.ReBind
End Sub
Private Sub Form_Load()
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Option5.Value = False
Option6.Value = False
Option7.Value = False
Option8.Value = False
Option9.Value = False
Option4.Value = True
End Sub
Private Sub Form_Resize()
If Me.WindowState = 1 Then
Exit Sub
End If
With Frame1
.Left = (Me.Width - Frame1.Width) / 2
.Top = 120
End With
DataGrid1.Height = Me.Height - Frame1.Height - Adodc1.Height - 200
End Sub
Private Sub Option1_Click()
CXNR = "酒店信息"
Combo1.Clear
Combo1.AddItem "名称"
Combo1.AddItem "星级"
Combo1.AddItem "地址"
Combo1.ListIndex = 0
Call Combo1_Click
End Sub
Private Sub Option2_Click()
CXNR = "订单表"
Combo1.Clear
Combo1.AddItem "订单编号"
Combo1.AddItem "客户名称"
Combo1.AddItem "酒店名称"
Combo1.AddItem "业务人员"
Combo1.AddItem "房间类型"
Combo1.AddItem "预定时间"
Combo1.ListIndex = 0
Call Combo1_Click
End Sub
Private Sub Option3_Click()
CXNR = "业务员表"
Combo1.Clear
Combo1.AddItem "姓名"
Combo1.AddItem "性别"
Combo1.AddItem "出生日期"
Combo1.AddItem "手机"
Combo1.AddItem "电话"
Combo1.AddItem "传呼"
Combo1.AddItem "住址"
Combo1.ListIndex = 0
Call Combo1_Click
End Sub
Private Sub Option4_Click()
CXCZ = Option4.Caption
End Sub
Private Sub Option5_Click()
CXCZ = Option5.Caption
End Sub
Private Sub Option6_Click()
CXCZ = Option6.Caption
End Sub
Private Sub Option7_Click()
CXCZ = Option7.Caption
End Sub
Private Sub Option8_Click()
CXCZ = Option8.Caption
End Sub
Private Sub Option9_Click()
CXCZ = Option9.Caption
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -