第1页共6页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第1页共6页供应商管理模块开发说明第一部分基本知识一、程序界面二、对象属性设置对象属性名属性值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=""第2页共6页第1页共6页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第2页共6页Text2.Text=""Text3.Text=""Text4.Text=""EndIfEndSub2.在界面上双击取消按钮后，输入如下代码：PrivateSubCommand2_Click()EndEndSub第二部分数据库应用一、在Access中建表二、在控件面板上添加ADO控件1)选择ADO和DataGrid控件2）在界面上添加这两个控件第3页共6页第2页共6页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第3页共6页3)连接数据源第4页共6页第3页共6页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第4页共6页4）选择建立的数据表4)setdatasourceforDataGridcontrol5)AddarecordintoatableAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(“供应商编号”)=”1001”Adodc1.Update6)DeletethecurrentrecordfromatableAdodc1.Recordset.DeleteAdodc1.Update7)SomecommonmethodsAdodc1.Recordset.MoveFirstAdodc1.Recordset.MoveLastAdodc1.Recordset.MoveNextAdodc1.Recordset.MovePrevious8)FilterDimstrasstring第5页共6页第4页共6页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第5页共6页str=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+"="+keyValueEndIf第6页共6页第5页共6页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第6页共6页EndSub------------------------------------------------------------------------------------------------------------------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)
