供應(yīng)商管理模塊開發(fā)教材

1、供應(yīng)商管理模塊開發(fā)說明第一部分 基本知識(shí)程序界面對(duì)象屬性性設(shè)置對(duì)象屬性名屬性值Formm1Capttionn供應(yīng)商管管理模塊塊Labeel1Capttionn供應(yīng)商編編號(hào)Labeel2Capttionn供應(yīng)商名名稱Labeel3Capttionn供應(yīng)商電電話Labeel4Capttionn供應(yīng)商地地址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 請(qǐng)請(qǐng)輸入供供應(yīng)商完完整信息息！, , 提示示Elsee MsggBoxx 供供應(yīng)商信信息已成成功提交交！, , 提交交成功 Texxt1.Texxt = Texxt2.Texxt = Texxt3.Texxt = Texxt4.Texxt = End IfEnd Subb在界面上上雙擊取取消按鈕鈕后，輸輸入如下下代碼：Privvatee Suub CCommmandd2_CClicck

3、() EnddEnd Subb第二部分分 數(shù)據(jù)據(jù)庫(kù)應(yīng)用用在Acccesss中建表表二、在控控件面板板上添加加ADOO 控件件1) 選選擇ADDO和DDataaGriid 控控件2）在界界面上添添加這兩兩個(gè)控件件3) 連連接數(shù)據(jù)據(jù)源4）選擇擇建立的的數(shù)據(jù)表表4) sset datta ssourrce forr DaataGGridd coontrrol5) AAdd a rrecoord intto aa taableeAdoddc1.Reccorddsett.AdddNeewAdoddc1.Reccorddsett.Fiieldds(“供應(yīng)商商編號(hào)”)=”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 = 供供應(yīng)商名名稱= + Sttr + 9) MMsgBBoxMsgBBox “Thee daata hass beeen savved succcesssfuullyy”第三部分分 實(shí)例例1 界界面2 數(shù)數(shù)據(jù)庫(kù)表表3 程程序Privvatee Suub ccmdIInquuiree_Cllickk() 查詢?cè)児δ蹹im keyy, kkeyVValuue AAs SStriing keey表示示查詢的的字段，keyyVallue表表示查詢?cè)兊膬?nèi)容容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 = 編號(hào) Thhen 字段段為數(shù)值值型Adoddc1.Reccorddsett.Fiilteer = keey

7、 + = + keeyVaalueeEnd IfEnd Subb-Privvatee Suub CCommmandd2_CClicck() 統(tǒng)計(jì)功功能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 =表達(dá)式式字符串串格式：字字段名 關(guān)系運(yùn)運(yùn)算符 查詢值值當(dāng)字段名名為日期期型時(shí)，查詢值值兩端加加“#”符號(hào)當(dāng)字段名名為字符符型時(shí)，查詢值值兩端加加“#”符號(hào)當(dāng)字段名名為數(shù)值值型時(shí)，查詢值值兩端不不加任何何符號(hào)如：Dim keyy, kkeyVValuue AAs SStriing keey表示示查詢的的字段，keyyVallue表表示查詢?cè)兊膬?nèi)容容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 = 編號(hào) Thhen 字段段為數(shù)值值型Adoddc1.Reccorddsett.Fiilteer = keey + = + keeyVaalueeEnd If（2）統(tǒng)統(tǒng)計(jì)使用循環(huán)環(huán)語(yǔ)句，如：Sum = 00Adoddc1.Reccorddsett.MooveFFirsstWhille NNot A