供应商管理模块开发教材.docVIP

供应商管理模块开发说明 第一部分 基本知识 程序界面 对象属性设置 对象 属性名 属性值 Form1 Caption 供应商管理模块 Label1 Caption 供应商编号 Label2 Caption 供应商名称 Label3 Caption 供应商电话 Label4 Caption 供应商地址 Text1 Text 置空 Text2 Text 置空 Text3 Text 置空 Text4 Text 置空 Command1 Caption 确定 Command2 Caption 取消 主要程序代码 在界面上双击确定按钮后，输入如下代码： Private Sub Command1_Click() If Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = Then MsgBox 请输入供应商完整信息！, , 提示 Else MsgBox 供应商信息已成功提交！, , 提交成功 Text1.Text = Text2.Text = Text3.Text = Text4.Text = End If End Sub 在界面上双击取消按钮后，输入如下代码： Private Sub Command2_Click() End End Sub 第二部分 数据库应用 在Access中建表 二、在控件面板上添加ADO 控件 1) 选择ADO和DataGrid 控件 2）在界面上添加这两个控件 3) 连接数据源 4）选择建立的数据表 4) set data source for DataGrid control 5) Add a record into a table Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(“供应商编号”)=”1001 Adodc1.Update 6) Delete the current record from a table Adodc1.Recordset.Delete Adodc1.Update 7) Some common methods Adodc1.Recordset.MoveFirst Adodc1.Recordset.MoveLast Adodc1.Recordset.MoveNext Adodc1.Recordset.MovePrevious 8) Filter Dim str as string str = Text1.Text Adodc1.Recordset.Filter = 供应商名称= + Str + 9) MsgBox MsgBox “The data has been saved successfully” 第三部分 实例 1． 界面 2． 数据库表 3． 程序 Private Sub cmdInquire_Click() 查询功能 Dim key, keyValue As String key表示查询的字段，keyValue表示查询的内容 key = Combo1.Text keyValue = Text2.Text If key = 出生年月日 Then 字段为日期型 Adodc1.Recordset.Filter = key + = + # + keyValue + # ElseIf key = 姓名 Or key = 职位 Then 字段为字符型 Adodc1.Recordset.Filter = key + = + + keyValue + ElseIf key = 工资 Or key = 编号 Then 字段为数值型 Adodc1.Recordset.Filter = key + = + keyValue End If End Sub ------------------------------------------------------------------------------------------------------------------ Private Sub Command2_Click() 统计功能 Sum = 0 Adodc1.Recordset.MoveFirst While Not Adodc1.Recordset.EOF Sum = Sum + Adodc1.Recordset.Fields