供應(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取消主要程序代碼 在界面上雙擊確定按鈕后，輸入如下代碼：Private Sub Command1_Click()If = Or = Or = Or = Then MsgBox 請輸入供應(yīng)商完

2、整信息！, , 提示Else MsgBox 供應(yīng)商信息已成功提交！, , 提交成功 = = = = End IfEnd Sub在界面上雙擊取消按鈕后，輸入如下代碼：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 table供應(yīng)商編號”)=”10016) Delete th

3、e current record from a table Some common methods FilterDim str as stringstr = = 供應(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 key表示查詢的字段，keyValue表示查詢的內(nèi)容key = keyValue = If key = 出生年月日 Then 字段為

4、日期型 = key + = + # + keyValue + #ElseIf key = 姓名 Or key = 職位 Then 字段為字符型 = key + = + + keyValue + ElseIf key = 工資 Or key = 編號 Then 字段為數(shù)值型 = key + = + keyValueEnd IfEnd Sub-Private Sub Command2_Click() 統(tǒng)計功能Sum = 0 Not = Sum + 工資).Value = Str(Sum)End Sub4基本方法（1）查詢 =表達(dá)式字符串格式：字段名 關(guān)系運(yùn)算符 查詢值當(dāng)字段名為日期型時，查詢值兩端加“#”符號當(dāng)字段名為字符型時，查詢值兩端加“#”符號當(dāng)字段名為數(shù)值型時，查詢值兩端不加任何符號如：Dim key, keyValue As String key表示查詢的字段，keyValue表示查詢的內(nèi)容key = keyValue = If key = 出生年月日 Then 字段為日期型 = key + = + # + keyValue + #ElseIf key = 姓名 Or key = 職位 Then 字段為字符型 = key + = + + keyValue + ElseIf key = 工資 Or key = 編號 Then 字段為數(shù)值型 =