VB+ACCESS汽车销售系统设计与实现源代码论文.doc

文档介绍：附:系统具体源代码如下:
----------------------公共模块部分------------------------
Option Explicit
Public conn As New
Public all As Boolean '查询现存商品中使用的
Public allsell As Boolean '查询已售商品时使用
Public allem As Boolean '查询员工业绩时使用
Public strgname As String '查询现存商品中使用的商品名
Public strtype As String '查询现存商品中使用的型号名
-------------------------主窗体------------------------
Private Sub MDIForm_Load()
'在主窗体中打开对数据库的连接
Dim connectionstring As String '定义一个连接串变量
connectionstring = "provider=;" & _
"data source="
connectionstring
'没有登录前设置各菜单不可用
= False
= False
= False
= False
= False
= False
= False
= False
= False
(2).Text = "版权所有:南通纺织职业技术学院(朱林军) goodzhulinjun@"
End Sub
Private Sub mnbuy_Click()

End Sub
Private Sub mnchart_Click()

End Sub
Private Sub mnclientlog_Click()

End Sub
Private Sub mnclientquery_Click()

End Sub
Private Sub mned_Click()

End Sub
Private Sub mnelog_Click()

End Sub
Private Sub mnsell_Click()

End Sub
Private Sub Timer1_Timer()
(1).Text = Format(Date, "long date") & " " & Time
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)

End Sub
Private Sub mnbuylog_Click()

End Sub
Private Sub mnchpwd_Click()


End Sub
Private Sub mnem_Click()

End Sub
Private Sub mnemlogin_Click()


End Sub
Private Sub mnexit_Click()
Unload Me
End Sub
Private Sub mnfc_Click()

End Sub
Private Sub mngoodstable_Click()

End Sub
Private Sub mngrade_Click()
frmSh