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

1、供應(yīng)商管理模塊開發(fā)說明第一部分 基本知識(shí)一、 程序界面二、 對(duì)象屬性設(shè)置對(duì)象屬性名屬性值Form1Caption供應(yīng)商管理模塊Label1Caption供應(yīng)商編號(hào)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 "請(qǐng)輸入供應(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）在界面上添加這兩個(gè)控件3) 連接數(shù)據(jù)源4）選擇建立的數(shù)據(jù)表4) set data source for DataGrid control5) Add a record into a tableAdodc1.Recordset.Fields(“供應(yīng)商編號(hào)”)=”1001”6) Delete the current record

4、from a table7) Some common methodsLastNextPrevious8) FilterDim str as stringsAdodc1.Recordset.Filter = "供應(yīng)商名稱='" + Str + "'"9) MsgBoxMsgBox “The data has been saved successfully”第三部分 實(shí)例1 界面2 數(shù)據(jù)庫表3 程序Private Sub cmdInquire_Click() '查詢功能Dim key, keyValue As String '

5、key表示查詢的字段，keyValue表示查詢的內(nèi)容If key = "出生年月日" Then '字段為日期型Adodc1.Recordset.Filter = key + "=" + "#" + keyValue + "#"ElseIf key = "姓名" Or key = "職位" Then '字段為字符型Adodc1.Recordset.Filter = key + "=" + "'" + keyValu

6、e + "'"ElseIf key = "工資" Or key = "編號(hào)" Then '字段為數(shù)值型Adodc1.Recordset.Filter = key + "=" + keyValueEnd IfEnd Sub-Private Sub Command2_Click() '統(tǒng)計(jì)功能Sum = 0Sum = Sum + Adodc1.Recordset.Fields("工資").ValueAdodc1.Recordset.MoveNextWendText1.Text

7、 = Str(Sum)End Sub4基本方法（1）查詢Adodc1.Recordset.Filter =表達(dá)式字符串格式：字段名 關(guān)系運(yùn)算符 查詢值當(dāng)字段名為日期型時(shí)，查詢值兩端加“#”符號(hào)當(dāng)字段名為字符型時(shí)，查詢值兩端加“#”符號(hào)當(dāng)字段名為數(shù)值型時(shí)，查詢值兩端不加任何符號(hào)如：Dim key, keyValue As String 'key表示查詢的字段，keyValue表示查詢的內(nèi)容key = If key = "出生年月日" Then '字段為日期型Adodc1.Recordset.Filter = key + "=" + &quo

8、t;#" + keyValue + "#"ElseIf key = "姓名" Or key = "職位" Then '字段為字符型Adodc1.Recordset.Filter = key + "=" + "'" + keyValue + "'"ElseIf key = "工資" Or key = "編號(hào)" Then '字段為數(shù)值型Adodc1.Recordset.Filter = key + "=