《供应商管理模块开发教材.docx》由会员分享，可在线阅读，更多相关《供应商管理模块开发教材.docx（6页珍藏版）》请在三一办公上搜索。
1、供应商管理模块开发说明第一部分 基本知识一、 程序界面二、 对象属性设置对象属性名属性值Form1Caption供应商管理模块Label1Caption供应商编号Label2Caption供应商名称Label3Caption供应商电话Label4Caption供应商地址Text1Text置空Text2Text置空Text3Text置空Text4Text置空Command1Caption确定Command2Caption取消三、 主要程序代码 1. 在界面上双击确定按钮后，输入如下代码：Private Sub Command1_Click()If Text1.Text = Or Text2.Te
2、xt = Or Text3.Text = Or Text4.Text = Then MsgBox 请输入供应商完整信息！, , 提示Else MsgBox 供应商信息已成功提交！, , 提交成功 Text1.Text = Text2.Text = Text3.Text = Text4.Text = End IfEnd Sub2. 在界面上双击取消按钮后，输入如下代码：Private Sub Command2_Click() EndEnd Sub第二部分 数据库应用一、 在Access中建表二、在控件面板上添加ADO 控件1) 选择ADO和DataGrid 控件2）在界面上添加这两个控件3) 连
3、接数据源4）选择建立的数据表4) set data source for DataGrid control5) Add a record into a tableAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(“供应商编号”)=”1001”Adodc1.Update6) Delete the current record from a tableAdodc1.Recordset.DeleteAdodc1.Update7) Some common methodsAdodc1.Recordset.MoveFirstAdodc1.Recordset.Mo
4、veLastAdodc1.Recordset.MoveNextAdodc1.Recordset.MovePrevious8) FilterDim str as stringstr = Text1.TextAdodc1.Recordset.Filter = 供应商名称= + Str + 9) MsgBoxMsgBox “The data has been saved successfully”第三部分 实例1 界面2 数据库表3 程序Private Sub cmdInquire_Click() 查询功能Dim key, keyValue As String key表示查询的字段，keyValue
5、表示查询的内容key = Combo1.TextkeyValue = Text2.TextIf 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 + = + keyValueEnd If
6、End Sub-Private Sub Command2_Click() 统计功能Sum = 0Adodc1.Recordset.MoveFirstWhile Not Adodc1.Recordset.EOFSum = Sum + Adodc1.Recordset.Fields(工资).ValueAdodc1.Recordset.MoveNextWendText1.Text = Str(Sum)End Sub4基本方法（1）查询Adodc1.Recordset.Filter =表达式字符串格式：字段名 关系运算符 查询值当字段名为日期型时，查询值两端加“#”符号当字段名为字符型时，查询值两端加
7、“#”符号当字段名为数值型时，查询值两端不加任何符号如：Dim key, keyValue As String key表示查询的字段，keyValue表示查询的内容key = Combo1.TextkeyValue = Text2.TextIf 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 + = + keyValueEnd If（2）统计使用循环语句，如：Sum = 0Adodc1.Recordset.MoveFirstWhile Not Adodc1.Recordset.EOFSum = Sum + Adodc1.Recordset.Fields(工资).ValueAdodc1.Recordset.MoveNextWendText1.Text = Str(Sum)
