VB編寫界面-公司產(chǎn)品信息管理系統(tǒng).pptx

產(chǎn)品信息管理系統(tǒng),答辯小組：繆林、嚴楊鴻、姜澤、 徐彬、曾雨瀟、胡朋、 羅力,1.系統(tǒng)功能簡介,1.公司產(chǎn)品信息系統(tǒng)對企業(yè)加強產(chǎn)品管理 有著極其重要的作用，就一般的大型企業(yè)來說，它的設(shè)計內(nèi)容非常復雜而且繁多，比如產(chǎn)品的售價、產(chǎn)品的儲量、產(chǎn)品的銷售量等等，所以我們簡單的模擬了公司產(chǎn)品信息系統(tǒng)的內(nèi)容。,2.我們通過自己了解的信息來構(gòu)建公司產(chǎn)品信息總體框圖，利用自己了解的VB和數(shù)據(jù)庫知識進行了構(gòu)思、設(shè)計，最終完成了我們的公司產(chǎn)品信息系統(tǒng)。,系統(tǒng)功能模塊圖,2.功能需求描述,1.用戶清單模塊 該模塊包括用戶名、密碼，用戶自行注冊，注冊過的用戶可以對其產(chǎn)品清單進行添加、查詢、刪除產(chǎn)品信息，從而對產(chǎn)品信息進行管理。 2.產(chǎn)品清單模塊 根據(jù)產(chǎn)品，我們的產(chǎn)品信息內(nèi)容包括ID編號、型號、品牌、價格、產(chǎn)地、生產(chǎn)廠商，當公司的產(chǎn)品進行變動時，管理人員能及時對產(chǎn)品信息進行更改，并瀏覽公司現(xiàn)有的全部產(chǎn)品。,3.系統(tǒng)要求,系統(tǒng)應(yīng)達到以下要求： 1.邏輯時間短。當對一個系統(tǒng)進行操 作時，系統(tǒng)效應(yīng)速率高，反應(yīng)速度 快。 2.適用性強。功能齊全，能滿足公司 管理產(chǎn)品信息的需求。 3.易維護。易于擴充、修改從而滿足 社會發(fā)展的需求。 4.保密性好。保證系統(tǒng)的安全，數(shù)據(jù) 存儲信息的保密與安全。,4.實體E-R圖,系統(tǒng)組成的的總體框圖：,5.數(shù)據(jù)庫的設(shè)計,系統(tǒng)的設(shè)定：,5.數(shù)據(jù)庫的設(shè)計,1.用戶清單表,5.數(shù)據(jù)庫的設(shè)計,1.產(chǎn)品清單表,1.用戶注冊,6. VisualBasic設(shè)計,顯示注冊界面,6. VisualBasic設(shè)計,Private Sub Command2_Click() ADDNEWUSER.Show 顯示注冊界面 Unload ENTER End Sub Private Sub Form_Load() Set DataGrid1.DataSource = Adodc1 加載ADO End Sub,進行注冊,*查找用戶名是否有記錄* strUser = “ + USERNAME.Text + “ Adodc1.RecordSource = “select * from 用戶清單 where 用戶名 = “ + strUser Adodc1.Refresh,*查找用戶名是否有記錄* strUser = “ + USERNAME.Text + “ Adodc1.RecordSource = “select * from 用戶清單 where 用戶名 = “ + strUser Adodc1.Refresh * If (Adodc1.Recordset.RecordCount = 0) Then 無記錄才可注冊新用戶 If KEY1.Text = KEY2.Text Then Adodc1.Recordset.AddNew Adodc1.Recordset(“用戶名“) = USERNAME.Text Adodc1.Recordset(“密碼“) = KEY1.Text MsgBox “注冊成功“, vbOKOnly, “注冊信息“ Else,MsgBox “兩次輸入密碼錯誤“, vbOKOnly, “注冊信息“ End If Else MsgBox “用戶名已存在,注冊失敗“, vbOKOnly, “注冊信息“ End If End Sub Private Sub Command2_Click() ENTER.Show 返回登陸窗口 Unload ADDNEWUSER End Sub *,6. VisualBasic設(shè)計,2.登錄,登錄界面,Private Sub Command1_Click() Dim strName As String Dim strKey As String strName = “ + User_Name.Text + “ 封裝用戶輸入的用戶名和密碼 strKey = “ + User_Key.Text + “ Adodc1.RecordSource = “select * from 用戶清單 where 用戶名 = “ + strName + “and 密碼 = “ + strKey 搜索用戶記錄 Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then 無用戶記錄，提示 MsgBox “失敗,用戶名或者密碼錯誤“, vbOKOnly, “登陸信息“ Else MsgBox “登陸成功“, vbOKOnly, “登陸信息“ CurrentUser = User_Name.Text 保存當前登錄用戶名 CurrentPermission = p_USER MANAGE_USER.Show Unload ENTER End If End Sub,6. VisualBasic設(shè)計,3.產(chǎn)品清單全覽,產(chǎn)品全覽,Private Sub Form_Load() Set DataGrid1.DataSource = Adodc1 End Sub,4.插入產(chǎn)品信息,6. VisualBasic設(shè)計,插入,Private Sub Form_Load() Set DataGrid1.DataSource = Adodc1 加載ADO為記錄源 End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub InsertButton_Click() Dim OldPath As String Dim NewPath As String Dim strUser As String Adodc1.Recordset.AddNew Adodc1.Recordset(“ID“) = blank0.Text Adodc1.Recordset(“型號“) = blank1.Text Adodc1.Recordset(“品牌“) = blank2.Text Adodc1.Recordset(“價格“) = blank3.Text Adodc1.Recordset(“產(chǎn)地“) = blank4.Text Adodc1.Recordset(“生產(chǎn)廠商“) = blank5.Text Adodc1.Recordset.Update MsgBox “插入成功“, vbOKOnly, “插入信息” End Sub,6. VisualBasic設(shè)計,5.查詢產(chǎn)品,查詢,Private Sub Command2_Click() Dim strName As String strName = “ + FIND_USER.Text + “ Adodc1.RecordSource = “select * from 產(chǎn)品清單 where 型號 = “ + strName Adodc1.Refresh End Sub,6. VisualBasic設(shè)計,6.刪除產(chǎn)品信息,刪除,Private Sub DeleteButton_Click() Dim strName As String DataGrid1.Col = UserCol strName = “ + DataGrid1.Text + “ Adodc1.RecordSource = “select * from 產(chǎn)品清單 where ID = “ + strName Adodc1.Refresh DataGrid1.Col = UserCol Adodc1.Recordset.Delete 刪除 Adodc1.Recordset.Update Adodc1.RecordSource = “select * from 產(chǎn)品清單“ Adodc1.Refresh End S