歡迎閱讀本文檔，希望本文檔能對您有所幫助!歡迎閱讀本文檔，希望本文檔能對您有所幫助!感謝閱讀本文檔，希望本文檔能對您有所幫助!感謝閱讀本文檔，希望本文檔能對您有所幫助!歡迎閱讀本文檔，希望本文檔能對您有所幫助!感謝閱讀本文檔，希望本文檔能對您有所幫助!供應(yīng)商管理模塊開發(fā)說明第一部分基本知識程序界面對象屬性設(shè)置對象屬性名屬性值Form1Caption供應(yīng)商管理模塊Label1Caption供應(yīng)商編號Label2Caption供應(yīng)商名稱Label3Caption供應(yīng)商電話Label4Caption供應(yīng)商地址Text1Text置空Text2Text置空Text3Text置空Text4Text置空Command1Caption確定Command2Caption取消主要程序代碼在界面上雙擊確定按鈕后，輸入如下代碼：PrivateSubCommand1_Click()IfText1.Text=""OrText2.Text=""OrText3.Text=""OrText4.Text=""ThenMsgBox"請輸入供應(yīng)商完整信息！",,"提示"ElseMsgBox"供應(yīng)商信息已成功提交！",,"提交成功"Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndIfEndSub在界面上雙擊取消按鈕后，輸入如下代碼：PrivateSubCommand2_Click()EndEndSub第二部分?jǐn)?shù)據(jù)庫應(yīng)用在Access中建表二、在控件面板上添加ADO控件1)選擇ADO和DataGrid控件2）在界面上添加這兩個控件3)連接數(shù)據(jù)源4）選擇建立的數(shù)據(jù)表4)setdatasourceforDataGridcontrol5)AddarecordintoatableAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(“供應(yīng)商編號”)=”1001Adodc1.Update6)DeletethecurrentrecordfromatableAdodc1.Recordset.DeleteAdodc1.Update7)SomecommonmethodsAdodc1.Recordset.MoveFirstAdodc1.Recordset.MoveLastAdodc1.Recordset.MoveNextAdodc1.Recordset.MovePrevious8)FilterDimstrasstringstr=Text1.TextAdodc1.Recordset.Filter="供應(yīng)商名稱='"+Str+"'"9)MsgBoxMsgBox“Thedatahasbeensavedsuccessfully”第三部分實例1．界面2．?dāng)?shù)據(jù)庫表3．程序PrivateSubcmdInquire_Click()'查詢功能Dimkey,keyValueAsString'key表示查詢的字段，keyValue表示查詢的內(nèi)容key=Combo1.TextkeyValue=Text2.TextIfkey="出生年月日"Then'字段為日期型Adodc1.Recordset.Filter=key+"="+"#"+keyValue+"#"ElseIfkey="姓名"Orkey="職位"Then'字段為字符型Adodc1.Recordset.Filter=key+"="+"'"+keyValue+"'"ElseIfkey="工資"Orkey="編號"Then'字段為數(shù)值型Adodc1.Recordset.Filter=key+"="+keyValueEndIfEndSub------------------------------------------------------------------------------------------------------------------PrivateSubCommand2_Click()'統(tǒng)計功能Sum=0Adodc1.Recordset.MoveFirstWhileNotAdodc1.Recordset.EOFSum=Sum+Adodc1.Recordset.Fields("工資").ValueAdodc1.Recordset.MoveNextWendText1.Text=Str(Sum)EndSub4．基本方法（1）查詢Adodc1.Recordset.Filter=表達(dá)式字符串格式：字段名關(guān)系運算符查詢值當(dāng)字段名為日期型時，查詢值兩端加“#”符號當(dāng)字段名為字符型時，查詢值兩端加“‘#”符號當(dāng)字段名為數(shù)值型時，查詢值兩端不加任何符號如：Dimkey,keyValueAsString'key表示查詢的字段，keyValue表示查詢的內(nèi)容key=Combo1.TextkeyValue=Text2.TextIfkey="出生年月日"Then'字段為日期型Adodc1.Recordset.Filter=key+"="+"#"+keyValue+"#"ElseIfkey="姓名"Orkey="職位"Then'字段為字符型Adodc1.Recordset.Filter=key+"="+"'"+keyValue+"'"ElseIfkey="工資"Orkey="編號"Then'字段為數(shù)值型Adodc1.Recordset.Filter=key+"="+keyValueEndIf（2）統(tǒng)計使用循環(huán)語句，如：Sum=0Ad