供应商管理模块开发简要说明18437.docx

《供应商管理模块开发简要说明18437.docx》由会员分享，可在线阅读，更多相关《供应商管理模块开发简要说明18437.docx（8页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、供应商管理理模块开发发说明第一部分 基本知识识一、 程序界面二、 对象属性设设置对象属性名属性值Form11Captiion供应商管理理模块Labell1Captiion供应商编号号Labell2Captiion供应商名称称Labell3Captiion供应商电话话Labell4Captiion供应商地址址Text11Text置空Text22Text置空Text33Text置空Text44Text置空Commaand1Captiion确定Commaand2Captiion取消三、 主要程序代代码 1. 在界面上双双击确定按按钮后，输输入如下代代码：Privaate SSub CCommaand

2、1_Clicck()If Teext1.Textt = Orr Texxt2.TText = Or Textt3.Teext = Or TText44.Texxt = TThen MMsgBoox 请请输入供应应商完整信信息！, , 提示Else MMsgBoox 供供应商信息息已成功提提交！, , 提交成功功 TText11.Texxt = TText22.Texxt = TText33.Texxt = TText44.Texxt = End IIfEnd SSub2. 在界面上双双击取消按按钮后，输输入如下代代码：Privaate SSub CCommaand2_Clicck() EEnd

3、End SSub第二部分 数据库应应用一、 在Acceess中建建表二、在控件件面板上添添加ADOO 控件1) 选择择ADO和和DataaGridd 控件2）在界面面上添加这这两个控件件3) 连接接数据源4）选择建建立的数据据表4) seet daata ssourcce foor DaataGrrid ccontrrol5) Addd a recoord iinto a taableAdodcc1.Reecorddset.AddNNewAdodcc1.Reecorddset.Fiellds(“供应商编编号”)=”10011”Adodcc1.Uppdatee6) Deeletee thee c

4、urrrentt reccord fromm a ttableeAdodcc1.Reecorddset.DeleeteAdodcc1.Uppdatee7) Soome ccommoon meethoddsAdodcc1.Reecorddset.MoveeFirsstAdodcc1.Reecorddset.MoveeLastAdodcc1.Reecorddset.MoveeNexttAdodcc1.Reecorddset.MoveePrevviouss8) FiilterrDim sstr aas sttringgstr = Texxt1.TTextAdodcc1.Reecorddset.Fil

5、tter = 供应应商名称= + Strr + 9) MssgBoxxMsgBoox “The dataa hass beeen saaved succcessffullyy”第三部分 实例1 界面面2 数据据库表3 程序序Privaate SSub ccmdInnquirre_Cllick() 查查询功能Dim kkey, keyVValuee As Striing keey表示查查询的字段段，keyyValuue表示查查询的内容容key = Commbo1.TexttkeyVaalue = Teext2.TexttIf keey = 出生年年月日 Thenn 字段段为日期型型Adodcc1

6、.Reecorddset.Filtter = keyy + = + # + kkeyVaalue + #ElseIIf keey = 姓名 Or key = 职职位 TThen 字段段为字符型型Adodcc1.Reecorddset.Filtter = keyy + = + + kkeyVaalue + ElseIIf keey = 工资 Or key = 编编号 TThen 字段段为数值型型Adodcc1.Reecorddset.Filtter = keyy + = + keyyValuueEnd IIfEnd SSub-Privaate SSub CCommaand2_Clicck() 统

7、计功能能Sum = 0Adodcc1.Reecorddset.MoveeFirsstWhilee Nott Adoodc1.Recoordseet.EOOFSum = Summ + AAdodcc1.Reecorddset.Fiellds(工资).VallueAdodcc1.Reecorddset.MoveeNexttWendText11.Texxt = Str(Sum)End SSub4基本方方法（1）查询询Adodcc1.Reecorddset.Filtter =表达式字字符串格式：字段段名 关系系运算符 查询值当字段名为为日期型时时，查询值值两端加“#”符号当字段名为为字符型时时，查询值

8、值两端加“#”符号当字段名为为数值型时时，查询值值两端不加加任何符号号如：Dim kkey, keyVValuee As Striing keey表示查查询的字段段，keyyValuue表示查查询的内容容key = Commbo1.TexttkeyVaalue = Teext2.TexttIf keey = 出生年年月日 Thenn 字段段为日期型型Adodcc1.Reecorddset.Filtter = keyy + = + # + kkeyVaalue + #ElseIIf keey = 姓名 Or key = 职职位 TThen 字段段为字符型型Adodcc1.Reecorddset.

9、Filtter = keyy + = + + kkeyVaalue + ElseIIf keey = 工资 Or key = 编编号 TThen 字段段为数值型型Adodcc1.Reecorddset.Filtter = keyy + = + keyyValuueEnd IIf（2）统计计使用循环语语句，如：Sum = 0Adodcc1.Reecorddset.MoveeFirsstWhilee Nott Adoodc1.Recoordseet.EOOFSum = Summ + AAdodcc1.Reecorddset.Fiellds(工资).VallueAdodcc1.Reecorddset.MoveeNexttWendText11.Texxt = Str(Sum)