?? h_main.frm
字號:
Text1 = ""
Text1.SetFocus: Exit Sub
End If
Next l
Adodc1.RecordSource = "select supb.user_id as 用戶帳號,supb.supplied_book_ID as 書籍編號,supb.name as 書籍名稱,supb.publisher as 出版社,supb.author as 作者,supb.theme as 主題,supb.kind as 類別,supb.lowest_price as 最低價格,supb.user_credit as 用戶信譽度,supb.description as 描述,supb.release_time as 信息發布時間,supb.handled as 是否發布,supb.dealed as 是否交易 from supb where supb.supplied_book_ID='" & Text1 & "'"
Adodc1.Refresh
Adodc2.RecordSource = "select supb.user_id as 帳號 from supb where supb.supplied_book_ID='" & Text1 & "'"
Adodc2.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "對不起，目前沒有您需要的書籍", , "結果"
Call Form_Load
Exit Sub
End If
Frame6.Visible = True
Frame6.Caption = "供給信息"
Label39 = Adodc1.Recordset.Fields("書籍編號")
Label33 = Adodc1.Recordset.Fields("書籍名稱")
Label37 = Adodc1.Recordset.Fields("作者")
Label35 = Adodc1.Recordset.Fields("出版社")
Label36 = Adodc1.Recordset.Fields("類別")
Label25 = Adodc1.Recordset.Fields("主題")
Label26 = Adodc1.Recordset.Fields("描述")
Label14 = Adodc1.Recordset.Fields("用戶信譽度")
Label27 = Adodc1.Recordset.Fields("信息發布時間")
Label40 = Adodc2.Recordset.Fields("帳號")
Label42 = Adodc1.Recordset.Fields("是否發布")
Label41 = Adodc1.Recordset.Fields("是否交易")
Else '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Text1 = "" Then
MsgBox "請填寫書籍編號！", vbOKOnly + vbExclamation, "提示"
Text1.SetFocus: Exit Sub
End If
nr = Text1
For l = 1 To Len(nr)
le = Mid(nr, l, 1)
If Not (Asc(le) = 46 Or (Asc(le) >= 48 And Asc(le) <= 57)) Then
MsgBox "數據輸入有誤！", vbOKOnly, "提示"
Text1 = ""
Text1.SetFocus: Exit Sub
End If
Next l
Adodc1.RecordSource = "select wanb.user_id as 用戶帳號,wanb.wanted_book_ID as 書籍編號,wanb.name as 書籍名稱,wanb.publisher as 出版社,wanb.author as 作者,wanb.theme as 主題,wanb.kind as 類別,wanb.highest_price as 最高價格,wanb.user_credit as 用戶信譽度,wanb.description as 描述,wanb.release_time as 信息發布時間,wanb.handled as 是否發布,wanb.dealed as 是否交易 from wanb where wanted_book_ID='" & Text1 & "'"
Adodc1.Refresh
Adodc2.RecordSource = "select wanb.user_id as 帳號 from wanb where wanb.wanted_book_ID='" & Text1 & "'"
Adodc2.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "對不起，目前沒有您需要的書籍", , "結果"
Call Form_Load
Exit Sub
End If
Frame6.Visible = True
Frame6.Caption = "需求信息"
Label39 = Adodc1.Recordset.Fields("書籍編號")
Label33 = Adodc1.Recordset.Fields("書籍名稱")
Label37 = Adodc1.Recordset.Fields("作者")
Label35 = Adodc1.Recordset.Fields("出版社")
Label36 = Adodc1.Recordset.Fields("類別")
Label25 = Adodc1.Recordset.Fields("主題")
Label26 = Adodc1.Recordset.Fields("描述")
Label14 = Adodc1.Recordset.Fields("用戶信譽度")
Label27 = Adodc1.Recordset.Fields("信息發布時間")
Label40 = Adodc2.Recordset.Fields("帳號")
Label42 = Adodc1.Recordset.Fields("是否發布")
Label41 = Adodc1.Recordset.Fields("是否交易")
End If
End If
End Sub
Private Sub Command2_Click()
If Option1 = True Then
Frame1.Caption = "供給信息"
Adodc1.RecordSource = "select supb.supplied_book_ID as 書籍編號,supb.name as 書籍名稱,supb.publisher as 出版社,supb.author as 作者,supb.theme as 主題,supb.kind as 類別,supb.lowest_price as 最低價格,supb.user_credit as 用戶信譽度,supb.description as 描述,supb.release_time as 信息發布時間 from supb where supb.handled=1 and supb.dealed=0"
Adodc1.Refresh
If Text2 = "" Then
If Text3 = "" Then
If Text4 = "" Then
MsgBox "請輸入信息！", vbOKOnly + vbExclamation, "提示"
Text2.SetFocus: Exit Sub
Else
Adodc1.RecordSource = "select supb.supplied_book_ID as 書籍編號,supb.name as 書籍名稱,supb.publisher as 出版社,supb.author as 作者,supb.theme as 主題,supb.kind as 類別,supb.lowest_price as 最低價格,supb.user_credit as 用戶信譽度,supb.description as 描述,supb.release_time as 信息發布時間 from supb where supb.handled=1 and supb.dealed=0 and supb.publisher='" & Text4.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "對不起，目前沒有您需要的書籍", , "結果"
Text2 = ""
Text3 = ""
Text4 = ""
Text2.SetFocus
Call Command5_Click
Exit Sub
End If
End If
Else
If Text4 = "" Then
Adodc1.RecordSource = "select supb.supplied_book_ID as 書籍編號,supb.name as 書籍名稱,supb.publisher as 出版社,supb.author as 作者,supb.theme as 主題,supb.kind as 類別,supb.lowest_price as 最低價格,supb.user_credit as 用戶信譽度,supb.description as 描述,supb.release_time as 信息發布時間 from supb where supb.handled=1 and supb.dealed=0 and supb.author='" & Text3.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "對不起，目前沒有您需要的書籍", , "結果"
Text2 = ""
Text3 = ""
Text4 = ""
Text2.SetFocus
Call Command5_Click
Exit Sub
End If
Else
Adodc1.RecordSource = "select supb.supplied_book_ID as 書籍編號,supb.name as 書籍名稱,supb.publisher as 出版社,supb.author as 作者,supb.theme as 主題,supb.kind as 類別,supb.lowest_price as 最低價格,supb.user_credit as 用戶信譽度,supb.description as 描述,supb.release_time as 信息發布時間 from supb where supb.handled=1 and supb.dealed=0 and supb.publisher='" & Text4.Text & "'and supb.author='" & Text3.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "對不起，目前沒有您需要的書籍", , "結果"
Text2 = ""
Text3 = ""
Text4 = ""
Text2.SetFocus
Call Command5_Click
Exit Sub
End If
End If
End If
Else
If Text3 = "" Then
If Text4 = "" Then
Adodc1.RecordSource = "select supb.supplied_book_ID as 書籍編號,supb.name as 書籍名稱,supb.publisher as 出版社,supb.author as 作者,supb.theme as 主題,supb.kind as 類別,supb.lowest_price as 最低價格,supb.user_credit as 用戶信譽度,supb.description as 描述,supb.release_time as 信息發布時間 from supb where supb.handled=1 and supb.dealed=0 and supb.name='" & Text2.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "對不起，目前沒有您需要的書籍", , "結果"
Text2 = ""
Text3 = ""
Text4 = ""
Text2.SetFocus
Call Command5_Click
Exit Sub
End If
Else
Adodc1.RecordSource = "select supb.supplied_book_ID as 書籍編號,supb.name as 書籍名稱,supb.publisher as 出版社,supb.author as 作者,supb.theme as 主題,supb.kind as 類別,supb.lowest_price as 最低價格,supb.user_credit as 用戶信譽度,supb.description as 描述,supb.release_time as 信息發布時間 from supb where supb.handled=1 and supb.dealed=0 and supb.name='" & Text2.Text & "' and supb.publisher='" & Text4.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "對不起，目前沒有您需要的書籍", , "結果"
Text2 = ""
Text3 = ""
Text4 = ""
Text2.SetFocus
Call Command5_Click
Exit Sub
End If
End If
Else
If Text4 = "" Then
Adodc1.RecordSource = "select supb.supplied_book_ID as 書籍編號,supb.name as 書籍名稱,supb.publisher as 出版社,supb.author as 作者,supb.theme as 主題,supb.kind as 類別,supb.lowest_price as 最低價格,supb.user_credit as 用戶信譽度,supb.description as 描述,supb.release_time as 信息發布時間 from supb where supb.handled=1 and supb.dealed=0 and supb.name='" & Text2.Text & "' and supb.author='" & Text3.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "對不起，目前沒有您需要的書籍", , "結果"
Text2 = ""
Text3 = ""
Text4 = ""
Text2.SetFocus
Call Command5_Click
Exit Sub
End If
Else
Adodc1.RecordSource = "select supb.supplied_book_ID as 書籍編號,supb.name as 書籍名稱,supb.publisher as 出版社,supb.author as 作者,supb.theme as 主題,supb.kind as 類別,supb.lowest_price as 最低價格,supb.user_credit as 用戶信譽度,supb.description as 描述,supb.release_time as 信息發布時間 from supb where supb.handled=1 and supb.dealed=0 and supb.name='" & Text2.Text & "' and supb.author='" & Text3.Text & "'and supb.publisher='" & Text4.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "對不起，目前沒有您需要的書籍", , "結果"
Text2 = ""
Text3 = ""
Text4 = ""
Text2.SetFocus
Call Command5_Click
Exit Sub
End If
End If
End If
End If
Else '''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Text2 = "" Then
If Text3 = "" Then
If Text4 = "" Then
MsgBox "請輸入信息！", vbOKOnly + vbExclamation, "提示"
Text2.SetFocus: Exit Sub
Else
Adodc1.RecordSource = "select wanb.wanted_book_ID as 書籍編號,wanb.name as 書籍名稱,wanb.publisher as 出版社,wanb.author as 作者,wanb.theme as 主題,wanb.kind as 類別,wanb.highest_price as 最高價格,wanb.user_credit as 用戶信譽度,wanb.description as 描述,wanb.release_time as 期限 from wanb where wanb.handled=1 and wanb.dealed=0 and wanb.publisher='" & Text4 & "'"
Adodc1.Refresh 'pub
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "對不起，目前沒有您需要的書籍", , "結果"
Text2 = ""
Text3 = ""
Text4 = ""
Text2.SetFocus
Call Command4_Click
Exit Sub
End If
End If
Else
If Text4 = "" Then
Adodc1.RecordSource = "select wanb.wanted_book_ID as 書籍編號,wanb.name as 書籍名稱,wanb.publisher as 出版社,wanb.author as 作者,wanb.theme as 主題,wanb.kind as 類別,wanb.highest_price as 最高價格,wanb.user_credit as 用戶信譽度,wanb.description as 描述,wanb.release_time as 期限 from wanb where wanb.handled=1 and wanb.dealed=0 and wanb.author='" & Text3 & "'"
Adodc1.Refresh 'auth
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "對不起，目前沒有您需要的書籍", , "結果"
Text2 = ""
Text3 = ""
Text4 = ""
Text2.SetFocus
Call Command4_Click
Exit Sub
End If
Else
Adodc1.RecordSource = "select wanb.wanted_book_ID as 書籍編號,wanb.name as 書籍名稱,wanb.publisher as 出版社,wanb.author as 作者,wanb.theme as 主題,wanb.kind as 類別,wanb.highest_price as 最高價格,wanb.user_credit as 用戶信譽度,wanb.description as 描述,wanb.release_time as 期限 from wanb where wanb.handled=1 and wanb.dealed=0 and wanb.author='" & Text3 & "'and wanb.publisher='" & Text4 & "'"
Adodc1.Refresh 'auth & pub
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "對不起，目前沒有您需要的書籍", , "結果"
Text2 = ""
Text3 = ""
Text4 = ""
Text2.SetFocus
Call Command4_Click
Exit Sub
End If
End If
End If
Else
If Text3 = "" Then
If Text4 = "" Then
Adodc1.RecordSource = "select wanb.wanted_book_ID as 書籍編號,wanb.name as 書籍名稱,wanb.publisher as 出版社,wanb.author as 作者,wanb.theme as 主題,wanb.kind as 類別,wanb.highest_price as 最高價格,wanb.user_credit as 用戶信譽度,wanb.description as 描述,wanb.release_time as 期限 from wanb where wanb.handled=1 and wanb.dealed=0 and wanb.name='" & Text2 & "'"
Adodc1.Refresh 'name
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "對不起，目前沒有您需要的書籍", , "結果"
Text2 = ""
Text3 = ""
Text4 = ""
Text2.SetFocus
Call Command4_Click
Exit Sub
End If
Else
Adodc1.RecordSource = "select wanb.wanted_book_ID as 書籍編號,wanb.name as 書籍名稱,wanb.publisher as 出版社,wanb.author as 作者,wanb.theme as 主題,wanb.kind as 類別,wanb.highest_price as 最高價格,wanb.user_credit as 用戶信譽度,wanb.description as 描述,wanb.release_time as 期限 from wanb where wanb.handled=1 and wanb.dealed=0 and wanb.name='" & Text2 & "'and wanb.publisher='" & Text4 & "'"
Adodc1.Refresh 'name & pub
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "對不起，目前沒有您需要的書籍", , "結果"
Text2 = ""
Text3 = ""
Text4 = ""
Text2.SetFocus
Call Command4_Click
Exit Sub
End If
End If
Else
If Text4 = "" Then
Adodc1.RecordSource = "select wanb.wanted_book_ID as 書籍編號,wanb.name as 書籍名稱,wanb.publisher as 出版社,wanb.author as 作者,wanb.theme as 主題,wanb.kind as 類別,wanb.highest_price as 最高價格,wanb.user_credit as 用戶信譽度,wanb.description as 描述,wanb.release_time as 期限 from wanb where wanb.handled=1 and wanb.dealed=0 and wanb.name='" & Text2 & "'and wanb.author='" & Text3 & "'"
Adodc1.Refresh 'name & author
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "對不起，目前沒有您需要的書籍", , "結果"
Text2 = ""
Text3 = ""
Text4 = ""
Text2.SetFocus
Call Command4_Click
Exit Sub
End If
Else
Adodc1.RecordSource = "select wanb.wanted_book_ID as 書籍編號,wanb.name as 書籍名稱,wanb.publisher as 出版社,wanb.author as 作者,wanb.theme as 主題,wanb.kind as 類別,wanb.highest_price as 最高價格,wanb.user_credit as 用戶信譽度,wanb.description as 描述,wanb.release_time as 期限 from wanb where wanb.handled=1 and wanb.dealed=0 and wanb.name='" & Text2 & "'and wanb.author='" & Text3 & "'and wanb.publisher='" & Text4 & "'"
Adodc1.Refresh ' all
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "對不起，目前沒有您需要的書籍", , "結果"
Text2 = ""
Text3 = ""
Text4 = ""
Text2.SetFocus
Call Command4_Click
Exit Sub
End If
End If
End If
End If
End If
End Sub
Private Sub Command22_Click()
Call Form_Load
End Sub
Private Sub Command3_Click()
Call Form_Load
End Sub
Private Sub Command4_Click()
If yhid <> "" Then
Frame1.Caption = "需求信息"
Adodc1.RecordSource = "select wanb.wanted_book_ID as 書籍編號,wanb.name as 書籍名稱,wanb.publisher as 出版社,wanb.author a?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -