供应商管理模块开发简要说明.doc
供应商管理模块开发说明第一部分 基本知识一、 程序界面二、 对象属性设置对象属性名属性值Form1Caption供应商管理模块Label1Caption供应商编号Label2Caption供应商名称Label3Caption供应商Label4Caption供应商地址Text1Text置空Text2Text置空Text3Text置空Text4Text置空Command1Caption确定Command2Caption取消三、 主要程序代码 1. 在界面上双击确定按钮后，输入如下代码：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 IfEnd Sub2. 在界面上双击取消按钮后，输入如下代码：Private Sub Command2_Click() EndEnd Sub第二部分 数据库应用一、 在Access中建表二、在控件面板上添加ADO 控件1) 选择ADO和DataGrid 控件2）在界面上添加这两个控件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.MoveLastAdodc1.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表示查询的容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 IfEnd 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 =表达式字符串格式：字段名 关系运算符 查询值当字段名为日期型时，查询值两端加“#”符号当字段名为字符型时，查询值两端加“#”符号当字段名为数值型时，查询值两端不加任何符号如：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)
