module1.bas

鲜花订购系统(这是单机版的),采用VB+Access编写

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