订单管理信息系统论文

订单管理信息系统论文内容摘要：

所在仓库 Label8 caption 入库时间 Label9 caption 生产厂家 Label10 caption 备注信息 图 窗体功能 ：该模块主要是对已经添加的产品信 息进行修改，查看记录框中的各个按钮来移动记录，可以选择对哪条记录进行修改和删除操作；如果要对选定的记录进行修改，再显示修改记录时点击修改记录按钮，个个文本框成为有效状态，修改完成后，点击确定修改即可如果点击确定修改之前想取消所做的修改，可以取消修改记录按钮，该记录返回原来的形式。 下排按钮用来方便的浏览数据库中的各条记录，右排按钮用来修改记录，由于记录集为整个窗口公用，需要将记录及对象定义为全局变量。 图 查询 窗体 窗体功能：选择“产品信息管理－产品信息查询”，可以有三种方式进行查询，分别辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文） 8 为：按款号查询、 产品名称查询和产品类别查询，首先选择查询方式，然后输入内容，单击“查询”按钮，触发 Click 事件进行查询。 一 、 产品添加代码 单击重新添加按钮可以清空所有输入框，代码如下： Private Sub cmdsaveagain_Click() Unload frmkehu End Sub 单击取消按钮取消添加添加客户信息，代码如下： Private Sub cmdcancel_Click() If mblchange And Then If MsgBox(保存当前记录的变化吗。 , vbOKOnly + vbExclamation, 警告 ) = vbOK Then Call cmdSave_Click End If End If Unload Me End Sub 用户输入内容完毕之后，单击保存按钮将触发 Click 事件，代码如下： Private Sub cmdSave_Click() Dim intcount As Integer Dim i As Integer ‘定义数据集对象 Dim mrc As ‘定义字符串变量，返回查询语句 Dim msgtext As String ‘判断是否输入信息 For intcount = 0 To 9 If Trim(txtitem(intcount) amp。 ) = Then Select Case intcount Case 0 semg = 公司名称 Case 1 semg = 联系人姓名 Case 2 semg = 联系地址 Case 3 semg = 城市名称 辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文） 9 Case 4 semg = 地区名称 Case 5 semg = 邮政编码 Case 6 semg = 联系电话 Case 7 semg = 传真号码 Case 8 semg = 公司主页 Case 9 smeg = 备注信息 End Select smeg = smeg amp。 不能为空。 MsgBox smeg, vbOKOnly + vbExclamation, 警告 txtitem(intcount).SetFocus Exit Sub End If ‘判断输入的邮政编码是否是按格式 If Not IsNumeric(Trim(txtitem(5))) Then smeg = 邮政编码 smeg = smeg amp。 请输入数字 ! MsgBox smeg, vbOKOnly + vbExclamation, 警告 txtitem(intcount).SetFocus Exit Sub End If If Not IsNumeric(Trim(txtitem(6))) Then smeg = 电话号码 smeg = smeg amp。 请输入数字 ! MsgBox smeg, vbOKOnly + vbExclamation, 警告 txtitem(intcount).SetFocus Exit Sub End If If Not IsNumeric(Trim(txtitem(7))) Then smeg = 传真号码 smeg = smeg amp。 请输入数字 ! MsgBox smeg, vbOKOnly + vbExclamation, 警告 txtitem(intcount).SetFocus Exit Sub End If ‘判断是否有重复记录 辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文） 10 txtsql = select * from customer where panyname=39。 amp。 Trim(txtitem(0)) amp。 39。 Set mrc = ExecuteSQL(txtsql, msgtext) If = False Then MsgBox 已经存在此客户的记录。 , vbOKOnly + vbExclamation, 警告 txtitem(0).SetFocus Exit Sub End If txtsql = select * from customer ‘执行查询操作 Set mrc = ExecuteSQL(txtsql, msgtext) ‘添加记录 Next intcount ‘给每个字段赋值 For i = 0 To 9 (i) = Trim(txtitem(i)) Next i MsgBox 添加客户信息成功。 , vbOKOnly + vbExclamation, 添加客户信息 Unload Me End Sub 二 、 产品修改代码 定义数据集对象 Dim mrc As ‘定义书签，用来记载当前记录位置 Dim mybookmark As Variant ‘判断是否修改记录 Dim mcclean As Boolean MyBookmark 用来记录数据集中当前记录的位置， mcclean 作为一个标志记录是否修改记录。 程序在窗体载入时自动加入各条记录，代码如下： Private Sub Form_Load() 辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文） 11 Dim txtsql As String Dim msgtext As String txtsql = select * from customer ‘记录在显示时显示灰体不能修改状态 = False = False = False = False = False = False = False = False = False = False ‘执行查询操作 Set mrc = ExecuteSQL(txtsql, msgtext) ‘移到第一条记录 ‘显示数据 Call viewdata ‘记下当前记录的为止 mybookmark = ‘给标志赋初值 mcclean = True End Sub 三 、 产品查询代码 Privat。