📄 dingweiform.frm
字号:
VERSION 5.00
Begin VB.Form dingweiForm
BackColor = &H00C0FFFF&
BorderStyle = 3 'Fixed Dialog
Caption = "选择定位条件"
ClientHeight = 7230
ClientLeft = 2370
ClientTop = 1770
ClientWidth = 8835
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7230
ScaleWidth = 8835
ShowInTaskbar = 0 'False
Begin VB.Frame Frame1
BackColor = &H00C0FFFF&
Height = 6645
Left = 360
TabIndex = 6
Top = 360
Width = 5835
Begin VB.ListBox List1
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4845
ItemData = "dingweiForm.frx":0000
Left = 210
List = "dingweiForm.frx":0002
TabIndex = 9
Top = 1530
Width = 5445
End
Begin VB.ListBox List2
BeginProperty Font
Name = "宋体"
Size = 26.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4785
ItemData = "dingweiForm.frx":0004
Left = 210
List = "dingweiForm.frx":000B
TabIndex = 8
Top = 1500
Visible = 0 'False
Width = 5445
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 705
Left = 210
TabIndex = 7
Top = 480
Width = 5445
End
End
Begin VB.CommandButton Cmdsure
Caption = "确 定"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 6750
TabIndex = 5
Top = 780
Width = 1485
End
Begin VB.CommandButton Cmdquit
Caption = "取 消"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 6750
TabIndex = 4
Top = 1860
Width = 1485
End
Begin VB.Frame Frame2
BackColor = &H00C0FFFF&
Caption = "查询方式"
Height = 2025
Left = 6450
TabIndex = 1
Top = 4890
Width = 1965
Begin VB.OptionButton Option1
BackColor = &H00C0FFFF&
Caption = "精确查询"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 330
TabIndex = 3
Top = 570
Width = 1335
End
Begin VB.OptionButton Option2
BackColor = &H00C0FFFF&
Caption = "模糊查询"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 360
TabIndex = 2
Top = 1290
Width = 1395
End
End
Begin VB.CommandButton Cmdbf
Caption = "模糊记录"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 6750
TabIndex = 0
Top = 3570
Width = 1485
End
End
Attribute VB_Name = "dingweiForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Option1.value = True
Call choicelist
End Sub
Sub choicelist()
On Error GoTo errhandler
Dim db As Database
Dim Data1 As Recordset
mydir = App.Path & "\data\dcf.mdb"
'mydir = WinDir & "\" & "\system32\" & "dcf.mdb"
Set db = OpenDatabase("" & mydir & "")
If choicebz = 1 Then
Frame1.Caption = "选择阀门编号"
Set Data1 = db.OpenRecordset("select 阀门编号 from 电磁阀启闭记录表 group by 阀门编号")
End If
If choicebz = 2 Then
Frame1.Caption = "选择打开时刻"
Set Data1 = db.OpenRecordset("select 打开时刻 from 电磁阀启闭记录表 group by 打开时刻")
End If
If choicebz = 3 Then
Frame1.Caption = "选择关闭时刻"
Set Data1 = db.OpenRecordset("select 关闭时刻 from 电磁阀启闭记录表 group by 关闭时刻")
End If
If choicebz = 4 Then
Frame1.Caption = "选择灌溉时间"
Set Data1 = db.OpenRecordset("select 灌溉时间 from 电磁阀启闭记录表 group by 灌溉时间")
End If
If choicebz = 5 Then
Frame1.Caption = "选择RTU编号"
Set Data1 = db.OpenRecordset("select RTU编号 from 电磁阀启闭记录表 group by RTU编号")
End If
If choicebz = 6 Then
Frame1.Caption = "选择承包户名"
Set Data1 = db.OpenRecordset("select 承包户名 from 电磁阀启闭记录表 group by 承包户名")
End If
Data1.MoveLast
Data1.MoveFirst
List1.Clear
List2.Clear
If Data1.RecordCount > 0 Then
For i = 0 To Data1.RecordCount - 1
If Data1.Fields(0).value <> "" Then
List1.AddItem Data1.Fields(0).value
List2.AddItem Data1.Fields(0).value
End If
Data1.MoveNext
Next
End If
db.Close
Exit Sub
errhandler:
Call MsgBox("数据库文件不存在！", vbOKOnly, "警告！")
End Sub
Private Sub List1_Click()
Text1.Text = List1.Text
Cmdsure.Enabled = True
End Sub
Private Sub List2_Click()
Text1.Text = List2.Text
Cmdsure.Enabled = True
End Sub
Private Sub Cmdbf_Click()
Dim kk As Integer
List2.Clear
If Text1.Text <> "" Then
For i = 0 To List1.ListCount - 1
If InStr(1, List1.List(i), Text1.Text, 1) > 0 Then
List2.AddItem List1.List(i)
kk = kk + 1
End If
Next i
End If
If kk = 0 Then Call choicelist
End Sub
Private Sub Cmdsure_Click()
Dim k As Integer
k = 0
If Text1.Text = "" Then Exit Sub
For i = 0 To List1.ListCount - 1
If Text1.Text = List1.List(i) Then
choicetype = Text1.Text
GoTo hh
End If
k = k + 1
If k = List1.ListCount Then
Call MsgBox("输入的内容在记录中不存在！", 48, "提示")
Exit Sub
End If
Next i
hh: Unload Me
End Sub
Private Sub Cmdquit_Click()
choicetype = ""
Unload Me
End Sub
Private Sub Option1_Click()
Text1.Text = ""
Cmdbf.Enabled = False
List2.Visible = False
Cmdsure.Enabled = True
List1.Visible = True
End Sub
Private Sub Option2_Click()
Cmdbf.Enabled = True
List2.Visible = True
Cmdsure.Enabled = False
List1.Visible = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -