曝光臺 注意防騙 網曝天貓店富美金盛家居專營店坑蒙拐騙欺詐消費者

Combo1(0).Text & "'" & " and " & "'" & Combo1(1).Text & "'"
End If
If Option2.Value = True Then
find_date1 = Format(CDate(Comboy(0).Text & "-" & _
Combom(0).Text & "-" & Combod(0).Text), "yyyy-mm-dd")
find_date2 = Format(CDate(Comboy(1).Text & "-" & _
Combom(1).Text & "-" & Combod(1).Text), "yyyy-mm-dd")
sqlfind = "select * from 圖書資料where 購買日期between #" & _
find_date1 & "#" & " and" & " #" & find_date2 & "#"
End If
rs_data1.Open sqlfind, conn, adOpenKeyset, adLockPessimistic
frmdatamanage.displaygrid1
Unload Me
cmderror:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub
運行查詢子窗體時，組合框中就已經從數據庫中提取了貨單號和年月日兩個待查條件。
Dim i As Integer
Dim sql As String
If findok = True Then
rs_data1.Close
End If
sql = "select * from 圖書資料order by 編號desc"
rs_find.CursorLocation = adUseClient
rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_find.EOF = False Then ' 添加編號
With rs_find
Do While Not .EOF
Combo1(0).AddItem .Fields(0)
Combo1(1).AddItem .Fields(0)
.MoveNext
Loop
End With
End If
For i = 2001 To 2005 ' 添加年
Comboy(0).AddItem i
Comboy(1).AddItem i
Next i
For i = 1 To 12 ' 添加月
Combom(0).AddItem i
Combom(1).AddItem i
Next i
For i = 1 To 31 ' 添加日
Combod(0).AddItem i
Combod(1).AddItem i
Next i
End Sub
查詢完畢后，輸出查詢結果，如圖42 所示。
圖42 查詢結果
http://book.csdn.net 2006-31 16:26:00
顯示目錄
(6) 用戶登錄子窗體代碼
運行的用戶登錄子窗體如圖43 所示。
圖43 運行的用戶登錄子窗體
在本項目中，用戶登錄子窗體是運行的第一個界面，它的作用是檢查用戶名和密碼是否正確。由于用
戶的資料是存放在數據庫中，所以在啟動該子窗體時，就已經連接了數據庫。其代碼如下:
Private Sub Form_Load()
Dim connectionstring As String
connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _
"data source=book.mdb"
conn.Open connectionstring
cnt = 0
End Sub
“確定”按鈕的作用是檢查輸入的數據是否與數據庫中的數據一致。
Private Sub Command1_Click()
Dim sql As String
Dim rs_login As New ADODB.Recordset
If Trim(txtuser.Text) = "" Then ' 判斷輸入的用戶名是否為空
MsgBox "沒有這個用戶", vbOKOnly + vbExclamation, ""
txtuser.SetFocus
Else
sql = "select * from 系統管理where 用戶名='" & txtuser.Text & "'"
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then
MsgBox "沒有這個用戶", vbOKOnly + vbExclamation, ""
txtuser.SetFocus
Else ' 檢驗密碼是否正確
用戶名和密碼通過后，要關閉本窗體并打開主窗體。
If Trim(rs_login.Fields(1)) = Trim(txtpwd.Text) Then
userID = txtuser.Text
userpow = rs_login.Fields(2)
rs_login.Close
Unload Me
MDIForm1.Show
Else
MsgBox "密碼不正確", vbOKOnly + vbExclamation, ""
txtpwd.SetFocus
End If
End If
End If
' 只能輸入3 次
cnt = cnt + 1
If cnt = 3 Then
Unload Me
End If
Exit Sub
End Sub
(7) 值班管理子窗體代碼
值班管理子窗體的作用是把值班人員的時間安排形成列表。運行的值班管理子窗體如圖44 所示。
圖44 運行的值班管理子窗體
先定義連接數據庫的變量:
Option Explicit
Dim rs_zhiban As New ADODB.Recordset
然后列出窗體部分的代碼。
Private Sub cmdadd_Click()
On Error GoTo adderror
If cmdadd.Caption = "新增記錄" Then ' 當此按鈕的狀態為為“增加記錄”時
cmdadd.Caption = "確定" ' 按鈕名稱改“確定”
cmddel.Enabled = False
DataGrid1.AllowAddNew = True
DataGrid1.AllowUpdate = True ' 設定DataGrid 可以增加記錄
Else
If Not IsNull(DataGrid1.Bookmark) Then
If Not IsDate(Trim(DataGrid1.Columns("值班開始日期").CellText(DataGrid1.Bookmark))) Then
MsgBox "請按照格式yyyy-mm-dd 輸入值班開始日期", vbOKOnly + vbExclamation, ""
Exit Sub
End If
If Not IsDate(Trim(DataGrid1.Columns("值班開始時間").CellText(DataGrid1.Bookmark))) Then
MsgBox "請按照格式hh-mm 輸入值班開始時間", vbOKOnly + vbExclamation, ""
Exit Sub
End If
If Not IsDate(Trim(DataGrid1.Columns("值班截止日期").CellText(DataGrid1.Bookmark))) Then
MsgBox "請按照格式yyyy-mm-dd 輸入值班截止日期", vbOKOnly + vbExclamation, ""
　
中國航空網 www.k6050.com
航空翻譯 www.aviation.cn
本文鏈接地址：航空講座1(36)