供应商管理模块开发教材

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

2、d1_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 Subb在界面上上双击取取消按钮钮后，输输入如下下代码：Privvatee Suub CCommmandd2_CClicck

3、() 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(“供应商商编号”)=”10001”Adoddc1.Updd

4、atee6) DDeleete thee cuurreent reccordd frrom a ttablleAdoddc1.Reccorddsett.DeeletteAdoddc1.Upddatee7) SSomee coommoon mmethhodssAdoddc1.Reccorddsett.MooveFFirsstAdoddc1.Reccorddsett.MooveLLasttAdoddc1.Reccorddsett.MooveNNexttAdoddc1.Reccorddsett.MoovePPrevviouus8) FFiltterDim strr ass sttrinngstr =

5、 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 = CCombbo1.TexxtkeyVValu

6、ue = 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.Reccorddsett.Fiilteer = keey

7、 + = + 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 Subb4基本本方法（1）查查询Adoddc1.

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

9、eer = 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 A