Attribute VB_Name = "Module1"
Public g_dbcon As New ADODB.Connection
Public rs1 As New ADODB.Recordset  '客戶記錄集
Public rs2 As New ADODB.Recordset  '鮮花記錄集
Public rs3 As New ADODB.Recordset  '定單記錄集
'連接數據庫
Public Sub ConnectToServer()
On Error GoTo erry
     g_dbcon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\flowers.mdb;Persist Security Info=False"
     g_dbcon.ConnectionTimeout = 30
     g_dbcon.Open
Exit Sub
erry:
    MsgBox "錯誤代碼：" & Err.Number & vbCrLf & "錯誤描述：" & Err.Description, vbCritical + vbOKOnly, "連接錯誤"
   End Sub

'顯示客戶信息，可在用戶點擊方向按鈕的時候調用此過程
Public Sub showcustomer()
    frmcustomers.Text1.Text = rs1.Fields("customercode").Value
    frmcustomers.Text2.Text = rs1.Fields("customeremail").Value
    frmcustomers.Text3.Text = rs1.Fields("cardnumber").Value
 If rs1.Fields("card").Value = "master" Then
    frmcustomers.Option1.Value = True
 ElseIf rs1.Fields("card").Value = "visa" Then
    frmcustomers.Option2.Value = True
 End If
End Sub
'顯示鮮花信息，可在用戶點擊方向按鈕的時候調用此過程
Public Sub showflower()
On Error GoTo erry
  frmflower.Text1.Text = rs2.Fields("flowercode").Value
  frmflower.Text2.Text = rs2.Fields("flowername").Value
  frmflower.Text3.Text = rs2.Fields("flowerprice").Value
Exit Sub
erry:
    MsgBox "錯誤代碼：" & Err.Number & vbCrLf & "錯誤描述：" & Err.Description, vbCritical + vbOKOnly, "連接錯誤"
End Sub
'顯示定單信息，可在用戶點擊方向按鈕的時候調用此過程
Public Sub showorder()
On Error GoTo erry
  frmorder.Text1.Text = rs3.Fields("ordercode").Value
  frmorder.cmb1.Text = rs3.Fields("customercode").Value
  frmorder.Text2.Text = rs3.Fields("recivername").Value
  frmorder.Text3.Text = rs3.Fields("recorddate").Value
  frmorder.Text5.Text = rs3.Fields("orderdate").Value
  frmorder.cmb2.Text = rs3.Fields("flowercode").Value
  frmorder.Text6.Text = rs3.Fields("address").Value
  frmorder.Text7.Text = rs3.Fields("quity").Value

Exit Sub
erry:
    MsgBox "錯誤代碼：" & Err.Number & vbCrLf & "錯誤描述：" & Err.Description, vbCritical + vbOKOnly, "連接錯誤"
End Sub