?? frmcheckperson.frm
字號:
VERSION 5.00
Begin VB.Form frmCheckPerson
BorderStyle = 1 'Fixed Single
Caption = "查詢個人信息"
ClientHeight = 5010
ClientLeft = 45
ClientTop = 330
ClientWidth = 7455
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5010
ScaleWidth = 7455
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdCancel
Caption = "取 消"
Height = 495
Left = 4200
TabIndex = 5
Top = 3120
Width = 1455
End
Begin VB.CommandButton cmdOK
Caption = "查 詢"
Height = 495
Left = 1680
TabIndex = 4
Top = 3120
Width = 1455
End
Begin VB.TextBox textClientName
Height = 375
Left = 3240
TabIndex = 3
Top = 1920
Width = 2175
End
Begin VB.CheckBox checkClientName
Caption = "客戶名稱"
Height = 375
Left = 1680
TabIndex = 2
Top = 1920
Width = 1455
End
Begin VB.ComboBox comComName
Height = 300
Left = 3240
TabIndex = 1
Top = 1080
Width = 2175
End
Begin VB.CheckBox checkComName
Caption = "公司名稱"
Height = 495
Left = 1680
TabIndex = 0
Top = 960
Width = 1335
End
End
Attribute VB_Name = "frmCheckPerson"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdCancel_Click()
Unload Me
Exit Sub
End Sub
Private Sub cmdOK_Click()
Dim sql As String '設(shè)置SQL語句
If Me.checkClientName.Value = vbChecked And Me.checkComName.Value = vbChecked Then
sql = "select * from Personal where ClientName='" & Me.textClientName
sql = sql & "' and Company='" & Me.comComName.Text & "'"
ElseIf Me.checkClientName.Value = vbChecked Then
sql = "select * from Personal where ClientName='" & Me.textClientName & "'"
ElseIf Me.checkComName.Value = vbChecked Then
sql = "select * from Personal where Company='" & Me.comComName.Text & "'"
Else
sql = "select * from Personal"
End If
Call frmPerResult.showTopic '顯示查詢結(jié)果
Call frmPerResult.showData(sql)
Unload Me
End Sub
Private Sub Form_Load() '初始化
Dim sql As String
Dim rs As New ADODB.Recordset
sql = "select * from Company order by ID"
Set rs = getRS(sql)
If rs.EOF = False Then
With Me.comComName
While Not rs.EOF
.AddItem rs(1)
rs.MoveNext
Wend
.ListIndex = 0
End With
End If
Me.checkComName.Value = vbChecked
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -