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

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

1、供应商管管理模块块开发说说明第一部分分 基本本知识一、 程序界面面二、 对象属性性设置对象属性名属性值Formm1Capttionn供应商管管理模块块Labeel1Capttionn供应商编编号Labeel2Capttionn供应商名名称Labeel3Capttionn供应商电电话Labeel4Capttionn供应商地地址Textt1Textt置空Textt2Textt置空Textt3Textt置空Textt4Textt置空Commmandd1Capttionn确定Commmandd2Capttionn取消三、 主要程序序代码1. 在界面上上双击确确定按钮钮后，输输入如下下代码：Privva

2、tee Suub CCommmandd1_CClicck()If TTextt1.TTextt = Or Texxt2.Texxt = Orr Teext33.Teext = OOr TTextt4.TTextt = Theen MsggBoxx 请请输入供供应商完完整信息息！, , 提示示Elsee MsggBoxx 供供应商信信息已成成功提交交！, , 提交交成功 Texxt1.Texxt = Texxt2.Texxt = Texxt3.Texxt = Texxt4.Texxt = End IfEnd Subb2. 在界面上上双击取取消按钮钮后，输输入如下下代码：Privvatee Suu

3、b CCommmandd2_CClicck() EnddEnd Subb第二部分分 数据据库应用用一、 在Acccesss中建表表二、在控控件面板板上添加加ADOO 控件件1) 选选择ADDO和DDataaGriid 控控件2）在界界面上添添加这两两个控件件3) 连连接数据据源4）选择择建立的的数据表表4) sset datta ssourrce forr DaataGGridd coontrrol5) AAdd a rrecoord intto aa taableeAdoddc1.Reccorddsett.AdddNeewAdoddc1.Reccorddsett.Fiieldds(“供应商商

4、编号”)=”10001”Adoddc1.Upddatee6) DDeleete thee cuurreent reccordd frrom a ttablleAdoddc1.Reccorddsett.DeeletteAdoddc1.Upddatee7) SSomee coommoon mmethhodssAdoddc1.Reccorddsett.MooveFFirsstAdoddc1.Reccorddsett.MooveLLasttAdoddc1.Reccorddsett.MooveNNexttAdoddc1.Reccorddsett.MoovePPrevviouus8) FFiltterDi

5、m strr ass sttrinngstr = TTextt1.TTexttAdoddc1.Reccorddsett.Fiilteer = 供供应商名名称= + Sttr + 9) MMsgBBoxMsgBBox “Thee daata hass beeen savved succcesssfuullyy”第三部分分 实例例1 界界面2 数数据库表表3 程程序Privvatee Suub ccmdIInquuiree_Cllickk() 查询询功能Dim keyy, kkeyVValuue AAs SStriing keey表示示查询的的字段，keyyVallue表表示查询询的内容容key

6、= CCombbo1.TexxtkeyVValuue = Teext22.TeextIf kkey = 出生年年月日 Thhen 字段段为日期期型Adoddc1.Reccorddsett.Fiilteer = keey + = + # + keeyVaaluee + #ElseeIf keyy = 姓名名 OOr kkey = 职位 Thhen 字段段为字符符型Adoddc1.Reccorddsett.Fiilteer = keey + = + + keeyVaaluee + ElseeIf keyy = 工资资 OOr kkey = 编号 Thhen 字段段为数值值型Adoddc1.Recc

7、orddsett.Fiilteer = keey + = + keeyVaalueeEnd IfEnd Subb-Privvatee Suub CCommmandd2_CClicck() 统计功功能Sum = 00Adoddc1.Reccorddsett.MooveFFirsstWhille NNot Adoodc11.Reecorrdseet.EEOFSum = SSum + AAdoddc1.Reccorddsett.Fiieldds(工资).VValuueAdoddc1.Reccorddsett.MooveNNexttWenddTextt1.TTextt = Strr(Suum)End

8、Subb4基本本方法（1）查查询Adoddc1.Reccorddsett.Fiilteer =表达式式字符串串格式：字字段名 关系运运算符 查询值值当字段名名为日期期型时，查询值值两端加加“#”符号当字段名名为字符符型时，查询值值两端加加“#”符号当字段名名为数值值型时，查询值值两端不不加任何何符号如：Dim keyy, kkeyVValuue AAs SStriing keey表示示查询的的字段，keyyVallue表表示查询询的内容容key = CCombbo1.TexxtkeyVValuue = Teext22.TeextIf kkey = 出生年年月日 Thhen 字段段为日期期型Ad

9、oddc1.Reccorddsett.Fiilteer = keey + = + # + keeyVaaluee + #ElseeIf keyy = 姓名名 OOr kkey = 职位 Thhen 字段段为字符符型Adoddc1.Reccorddsett.Fiilteer = keey + = + + keeyVaaluee + ElseeIf keyy = 工资资 OOr kkey = 编号 Thhen 字段段为数值值型Adoddc1.Reccorddsett.Fiilteer = keey + = + keeyVaalueeEnd If（2）统统计使用循环环语句，如：Sum = 00Adoddc1.Reccorddsett.MooveFFirsstWhille NNot Adoodc11.Reecorrdseet.EEOFSum = SSum + AAdoddc1.Reccorddsett.Fiieldds(工资).VValuueAdoddc1.Reccorddsett.MooveNNexttWenddTextt1.TTextt = Strr(Suum)