1、供應商管理模塊開發說明第一部分 基本知識一、 程序界面二、 對象屬性設置對象屬性名屬性值Form1Caption供應商管理模塊Label1Caption供應商編號Label2Caption供應商名稱Label3Caption供應商Label4Caption供應商地址Text1Text置空Text2Text置空Text3Text置空Text4Text置空Command1Caption確定Command2Caption取消三、 主要程序代碼 1. 在界面上雙擊確定按鈕后，輸入如下代碼：Private Sub Command1_Click()If Text1.Text = ""

2、Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then MsgBox "請輸入供應商完整信息！", , "提示"Else MsgBox "供應商信息已成功提交！", , "提交成功" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = ""E

3、nd IfEnd Sub2. 在界面上雙擊取消按鈕后，輸入如下代碼：Private Sub Command2_Click() EndEnd Sub第二部分 數據庫應用一、 在Access中建表二、在控件面板上添加ADO 控件1) 選擇ADO和DataGrid 控件2）在界面上添加這兩個控件3) 連接數據源4）選擇建立的數據表4) set data source for DataGrid control5) Add a record into a tableAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(“供應商編號”)=”1001”Adodc1.U

4、pdate6) Delete the current record from a tableAdodc1.Recordset.DeleteAdodc1.Update7) Some common methodsAdodc1.Recordset.MoveFirstAdodc1.Recordset.MoveLastAdodc1.Recordset.MoveNextAdodc1.Recordset.MovePrevious8) FilterDim str as stringstr = Text1.TextAdodc1.Recordset.Filter = "供應商名稱='"

5、 + Str + "'"9) MsgBoxMsgBox “The data has been saved successfully”第三部分 實例1 界面2 數據庫表3 程序Private Sub cmdInquire_Click() '查詢功能Dim key, keyValue As String 'key表示查詢的字段，keyValue表示查詢的容key = Combo1.TextkeyValue = Text2.TextIf key = "出生年月日" Then '字段為日期型Adodc1.Recordset.Fil

6、ter = key + "=" + "#" + keyValue + "#"ElseIf key = "" Or key = "職位" Then '字段為字符型Adodc1.Recordset.Filter = key + "=" + "'" + keyValue + "'"ElseIf key = "工資" Or key = "編號" Then '字段為數值型Ad

7、odc1.Recordset.Filter = key + "=" + keyValueEnd IfEnd Sub-Private Sub Command2_Click() '統計功能Sum = 0Adodc1.Recordset.MoveFirstWhile Not Adodc1.Recordset.EOFSum = Sum + Adodc1.Recordset.Fields("工資").ValueAdodc1.Recordset.MoveNextWendText1.Text = Str(Sum)End Sub4基本方法（1）查詢Adodc1.

8、Recordset.Filter =表達式字符串格式：字段名 關系運算符 查詢值當字段名為日期型時，查詢值兩端加“#”符號當字段名為字符型時，查詢值兩端加“#”符號當字段名為數值型時，查詢值兩端不加任何符號如：Dim key, keyValue As String 'key表示查詢的字段，keyValue表示查詢的容key = Combo1.TextkeyValue = Text2.TextIf key = "出生年月日" Then '字段為日期型Adodc1.Recordset.Filter = key + "=" + "#&

9、quot; + keyValue + "#"ElseIf key = "" Or key = "職位" Then '字段為字符型Adodc1.Recordset.Filter = key + "=" + "'" + keyValue + "'"ElseIf key = "工資" Or key = "編號" Then '字段為數值型Adodc1.Recordset.Filter = key + "=" + keyValueEnd If（2）統計使用循環語句，如：Sum = 0Adodc1.Recordset.M