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

1、供應(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取消三、 主要程序代碼 1. 在界面上雙擊確定按鈕后，輸入如下代碼：Private Sub Command1_Click()If Text1.Text = ""

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

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

4、.Update6) 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 = "供應(yīng)商名稱='&quo

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

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

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

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

9、uot;#" + keyValue + "#"ElseIf key = "姓名" Or key = "職位" Then '字段為字符型Adodc1.Recordset.Filter = key + "=" + "'" + keyValue + "'"ElseIf key = "工資" Or key = "編號" Then '字段為數(shù)值型Adodc1.Recordset.Filter = key + "=" + keyValueEnd If（2）統(tǒng)計使用循環(huán)語句，如：Sum = 0Adodc1.Recordset.M