谈vb access汽车销售系统设计与实现源代码论文

《谈vb access汽车销售系统设计与实现源代码论文》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、谈VB+ACCESS汽车销售系统设计与实现源代码论文谈VB+ACCESS汽车销售系统设计与实现源代码论文导读：VB+ACCESS汽车销售系统设计与实现源代码论文附：系统具体源代码如下：----------------------公共模块部分------------------------OptionExplicitPublicconnAsNeAsBoolean'查询员工业绩时使用PublicstrgnameAsString'查询现存商品中使用的商品名PublicstrtypeAsString'查询现存商品中使用的型号

2、名-------------------------主窗体------------------------PrivateSubMDIForm_Load()'在主窗体中打开对数据库的连接DimconnectionstringAsString'定义一个连接串变量connectionstring=;provider=Microsoft.Jet.oledb.4.0;;_;datasource=sellsystem.mdb;conn.Openconnectionstring'没有登录前设置各菜单不可用MDIfrmMain.mn

3、chpMain.mntrade.Enabled=FalseMDIfrmMain.mnclient.Enabled=FalseMDIfrmMain.mnstat.Enabled=FalseMDIfrmMain.mngrade.Enabled=FalseMDIfrmMain.mntable.Enabled=FalseMDIfrmMain.mnMain.mnhelp.Enabled=FalseMDIfrmMain.Toolbar1.Enabled=FalseSt1.Panels(2).Text=;版权所有：南通纺织职业技术

4、学院（朱林军）goodzhulinjun163.;EndSubPrivateSubmnbuy_Click()frmbuyst.Shonchart_Click()frmchart.Shonclientlog_Click()frmAddcl.Shonclientquery_Click()frmCltable.Shone345678910谈VB+ACCESS汽车销售系统设计与实现源代码论文导读：VB+ACCESS汽车销售系统设计与实现源代码论文d_Click()frmAbout.Shonelog_Click()frmAdd

5、em.Shonsell_Click()frmsellst.Shoer1_Timer()St1.Panels(1).Text=Format(Date,;longdate;);;TimeEndSubPrivateSubMDIForm_Unload(CancelAsInteger)conn.CloseEndSubPrivateSubmnbuylog_Click()frmAddGoods.ShonchpChPChPnem_Click()frmEmTable.Shonemlogin_Click()frmLogin.ShoLog

6、in.SetFocusEndSubPrivateSubmnexit_Click()UnloadMeEndSubPrivateSubmnfc_Click()frmFcTable.Shongoodstable_Click()frmGoods.Shongrade_Click()frmShonretable_Click()frmRetreatTable.Shonretreat_Click()frmRetreat.Shonselllog_Click()frmSell.Shonselltable_Click()frmShonse

7、lllog;frmSell.Shonbuylog;frmAddGoods.Shongoodstable;frmGoods.Shonsell;frmsells345678910谈VB+ACCESS汽车销售系统设计与实现源代码论文导读：VB+ACCESS汽车销售系统设计与实现源代码论文t.Shonchart;frmchart.Shongrade;frmShonchpChPnbak;frmbak.Shonexit;UnloadMeEndSelectEndSub---------------------------登录窗体-

8、-----------------------------OptionExplicitDimtAsInteger'记录确定次数PrivateSubcmdCancel_Click()UnloadMeEndSubPrivateSubcmdLogin_Click()'首先检查用户是否输入了用户名和IftxtUser.Text=;;ThenMsgBox