供应商管理模块开发教材

供应商管理模块开发说明第一部分基本知识一、程序界面二、对象属性设置对象属性名属性值Form1Caption供应商管理模块Label1Caption供应商编号Label2Caption供应商名称Label3Caption供应商电话Label4Caption供应商地址Text1Text置空Text2Text置空Text3Text置空Text4Text置空Command1Caption确定Command2Caption取消三、主要程序代码1.在界面上双击确定按钮后，输入如下代码：PrivateSubCommand1_Click()IfText1.Text=OrText2.Text=OrText3.Text=OrText4.Text=ThenMsgBox请输入供应商完整信息！,,提示ElseMsgBox供应商信息已成功提交！,,提交成功Text1.Text=Text2.Text=Text3.Text=Text4.Text=EndIfEndSub2.在界面上双击取消按钮后，输入如下代码：PrivateSubCommand2_Click()EndEndSub第二部分数据库应用一、在Access中建表二、在控件面板上添加ADO控件1)选择ADO和DataGrid控件2）在界面上添加这两个控件3)连接数据源4）选择建立的数据表4)setdatasourceforDataGridcontrol5)AddarecordintoatableAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(“供应商编号”)=”1001”Adodc1.Update6)DeletethecurrentrecordfromatableAdodc1.Recordset.DeleteAdodc1.Update7)SomecommonmethodsAdodc1.Recordset.MoveFirstAdodc1.Recordset.MoveLastAdodc1.Recordset.MoveNextAdodc1.Recordset.MovePrevious8)FilterDimstrasstringstr=Text1.TextAdodc1.Recordset.Filter=供应商名称='+Str+'9)MsgBoxMsgBox“Thedatahasbeensavedsuccessfully”第三部分实例1．界面2．数据库表3．程序PrivateSubcmdInquire_Click()'查询功能Dimkey,keyValueAsString'key表示查询的字段，keyValue表示查询的内容key=Combo1.TextkeyValue=Text2.TextIfkey=出生年月日Then'字段为日期型Adodc1.Recordset.Filter=key+=+#+keyValue+#ElseIfkey=姓名Orkey=职位Then'字段为字符型Adodc1.Recordset.Filter=key+=+'+keyValue+'ElseIfkey=工资Orkey=编号Then'字段为数值型Adodc1.Recordset.Filter=key+=+keyValueEndIfEndSub------------------------------------------------------------------------------------------------------------------PrivateSubCommand2_Click()'统计功能Sum=0Adodc1.Recordset.MoveFirstWhileNotAdodc1.Recordset.EOFSum=Sum+Adodc1.Recordset.Fields(工资).ValueAdodc1.Recordset.MoveNextWendText1.Text=Str(Sum)EndSub4．基本方法（1）查询Adodc1.Recordset.Filter=表达式字符串格式：字段名关系运算符查询值当字段名为日期型时，查询值两端加“#”符号当字段名为字符型时，查询值两端加“‘#”符号当字段名为数值型时，查询值两端不加任何符号如：Dimkey,keyValueAsString'key表示查询的字段，keyValue表示查询的内容key=Combo1.TextkeyValue=Text2.TextIfkey=出生年月日Then'字段为日期型Adodc1.Recordset.Filter=key+=+#+keyValue+#ElseIfkey=姓名Orkey=职位Then'字段为字符型Adodc1.Recordset.Filter=key+=+'+keyValue+'ElseIfkey=工资Orkey=编号Then'字段为数值型Adodc1.Recordset.Filter=key+=+keyValueEndIf（2）统计使用循环语句，如：Sum=0Adodc1.Recordset.MoveFirstWhileNotAdodc1.Recordset.EOFSum=Sum+Adodc1.Recordset.Fields(工资).ValueAdodc1.Recordset.MoveNextWendText1.Text=Str(Sum)