供應商管理模塊開發(fā)簡要說明

1、供應商管理理模塊開開發(fā)說明明第一部分 基本知知識程序界面對象屬性設(shè)設(shè)置對象屬性名屬性值Form11Captiion供應商管理理模塊Labell1Captiion供應商編號號Labell2Captiion供應商名稱稱Labell3Captiion供應商電話話Labell4Captiion供應商地址址Text11Text置空Text22Text置空Text33Text置空Text44Text置空Commaand11Captiion確定Commaand22Captiion取消主要程序代代碼 在界面上雙雙擊確定定按鈕后后，輸入入如下代代碼：Privaate Subb Coommaand11_Cllic

2、kk()If Teext11.Teext = OOr TTextt2.TTextt = Or Texxt3.Texxt = Orr Teext44.Teext = TThenn MMsgBBox 請輸輸入供應應商完整整信息！, , 提示Else MMsgBBox 供應應商信息息已成功功提交！, , 提交成成功 TTextt1.TTextt = TTextt2.TTextt = TTextt3.TTextt = TTextt4.TTextt = End IIfEnd SSub在界面上雙雙擊取消消按鈕后后，輸入入如下代代碼：Privaate Subb Coommaand22_Cllickk() E

3、EndEnd SSub第二部分 數(shù)據(jù)庫庫應用在Acceess中中建表二、在控件件面板上上添加AADO 控件1) 選擇擇ADOO和DaataGGridd 控件件2）在界面面上添加加這兩個個控件3) 連接接數(shù)據(jù)源源4）選擇建建立的數(shù)數(shù)據(jù)表4) seet ddataa soourcce ffor DattaGrrid conntrool5) Addd aa reecorrd iintoo a tabbleAdodcc1.RRecoordsset.AdddNewwAdodcc1.RRecoordsset.Fieeldss(“供應商商編號”)=”10001”Adodcc1.UUpdaate6) Deel

4、ette tthe currrennt rrecoord froom aa taableeAdodcc1.RRecoordsset.DelleteeAdodcc1.UUpdaate7) Soome commmonn meethoodsAdodcc1.RRecoordsset.MovveFiirsttAdodcc1.RRecoordsset.MovveLaastAdodcc1.RRecoordsset.MovveNeextAdodcc1.RRecoordsset.MovvePrreviiouss8) FiilteerDim sstr as strringgstr = Teext11.TeextA

5、dodcc1.RRecoordsset.Fillterr = 供應應商名稱稱= + Strr + 9) MssgBooxMsgBoox “Thee daata hass beeen savved succcesssfuullyy”第三部分 實例1 界面面2 數(shù)據(jù)據(jù)庫表3 程序序Privaate Subb cmmdInnquiire_Cliick() 查詢功功能Dim kkey, keeyVaaluee Ass Sttrinng kkey表表示查詢詢的字段段，keeyVaaluee表示查查詢的內(nèi)內(nèi)容key = Coomboo1.TTexttkeyVaaluee = Texxt2.TexxtIf

6、keey = 出出生年月月日 Theen 字字段為日日期型Adodcc1.RRecoordsset.Fillterr = keyy + = + # + keyyVallue + #ElseIIf kkey = 姓名 Orr keey = 職職位 Theen 字段為為字符型型Adodcc1.RRecoordsset.Fillterr = keyy + = + + keyyVallue + ElseIIf kkey = 工資 Orr keey = 編編號 Theen 字段為為數(shù)值型型Adodcc1.RRecoordsset.Fillterr = keyy + = + keyyVallueEnd I

7、IfEnd SSub-Privaate Subb Coommaand22_Cllickk() 統(tǒng)統(tǒng)計功能能Sum = 0Adodcc1.RRecoordsset.MovveFiirsttWhilee Noot AAdoddc1.Reccorddsett.EOOFSum = Suum + Addodcc1.RRecoordsset.Fieeldss(工工資).VaalueeAdodcc1.RRecoordsset.MovveNeextWendText11.Teext = SStr(Summ)End SSub4基本方方法（1）查詢詢Adodcc1.RRecoordsset.Fillterr =表表

8、達式字字符串格式：字段段名 關(guān)關(guān)系運算算符 查查詢值當字段名為為日期型型時，查查詢值兩兩端加“#”符號當字段名為為字符型型時，查查詢值兩兩端加“#”符號當字段名為為數(shù)值型型時，查查詢值兩兩端不加加任何符符號如：Dim kkey, keeyVaaluee Ass Sttrinng kkey表表示查詢詢的字段段，keeyVaaluee表示查查詢的內(nèi)內(nèi)容key = Coomboo1.TTexttkeyVaaluee = Texxt2.TexxtIf keey = 出出生年月月日 Theen 字字段為日日期型Adodcc1.RRecoordsset.Fillterr = keyy + = + # + keyyVallue + #ElseIIf kkey = 姓名 Orr keey = 職職位 Theen 字段為為字符型型Adodcc1.RRecoordsset.Fillterr = keyy + = + + keyyVallue + ElseIIf kkey = 工資 Orr keey = 編編號 Theen 字段為為數(shù)值型型Adodcc1.RRecoordsset.Fillterr = keyy + = + keyyVallueEnd IIf（2）統(tǒng)計計使用循環(huán)語語句，如如：Sum = 0Adodcc1.RRecoordsset.MovveFiirsttWhilee Noot A