超市会员管理系统项目软件编码工作报告.docVIP

超市会员管理系统项目软件编码 工作报告 负 责 人： 参 与 人： 主控模块： 子控模块： 原子模块： 审 核 人： 2013年6月21日 目录 1 系统设计方案及技术 2 2 开发环境 2 3 主要代码 2 3.1管理员登陆 2 3.2 主界面 3 3.3 入会注册 5 3.4 浏览所有会员资料 7 3.5 会员资料的修改 8 3.6 注销会员 9 3.7 查找会员 10 3.8 积分换购 11 3.9 消费清单 12 3.10 添加操作员 15 4 编码总结及分析 16 5 参考文献 17 1 系统设计方案及技术 根据需求分析和结构设计的最终结果，经过组内讨论，决定用我们所熟悉的 Microsoft Visual Basic 6.0 中文版 架构实现本系统。数据库管理系统为Access2003 中文版版本。 1. 操作系统：Windows xp 2. 开发工具：Microsoft Visual Basic 6.0 3. 数据库管理系统：Access 2003 插件：Dao350.dll 3 主要代码 3.1管理员登陆 以下代码为实现连接数据库、管理员登录功能 Private Sub Command1_Click() Adodc1.RecordSource = select * from 管理员 where 用户名= + Text1.Text + 获取数据库中的内容 Adodc1.Refresh Static itimes As Integer If Adodc1.Recordset.RecordCount 0 Then 如果记录数大于零 验证密码 If Text2.Text = Adodc1.Recordset.Fields(密码) Then Load 主界面 主界面.Show 1 Unload Me Else If Text2.Text Adodc1.Recordset.Fields(密码) Then MsgBox 密码错误,请重新输入！, vbCritical, 系统提示 itimes = itimes + 1 Text2.Text = Text2.SetFocus End If End If Else MsgBox 操作员不存在,请重新输入！, vbCritical, 系统提示 itimes = itimes + 1 Text1.Text = Text2.Text = Text1.SetFocus End If If itimes = 3 Then 错误3次，退出系统 MyMsg = MsgBox(输入错误超过3次,请向系统管理员查询！, vbCritical, 系统提示) If MyMsg = vbOK Then End End If End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= App.Path \会员管理.mdb;Persist Security Info=False End Sub 3.2 主界面 以下代码实现主界面菜单栏中的下拉列表的各个子功能模块的选择： Private Sub Command1_Click() 添加管理员.Show 1 End Sub Private Sub Command2_Click() 入会.Show 1 End Sub Private Sub Command3_Click() 所有会员资料.Show 1 End Sub Private Sub Command4_Click() 注销用户.Show 1 End Sub Private Sub czhy_Click() 会员