【正文】 ............................................................................ 9 開發(fā)環(huán)境 ............................................................. 9 系統(tǒng)實(shí)現(xiàn) ............................................................ 9 4. 2. 1登陸模塊實(shí)現(xiàn)： ............................................... 9 4. 2． 2 主窗體模塊： ................................................ 11 4. 2． 3會(huì)員信息管理模塊： .......................................... 12 4. 2． 4會(huì)員信息查詢模塊： .......................................... 16 4. 2． 5會(huì)員信息輸出模塊： .......................................... 17 5 系統(tǒng)使用說明書 ..................................................................................................................... 18 6 結(jié)束語 ..................................................................................................................................... 19 1 系統(tǒng)調(diào)查 企業(yè)情況簡(jiǎn)介 太平洋 商貿(mào)公司是一家以電子類產(chǎn)品代理銷售 為主的 公司，是 ViewSonic優(yōu)派、 LG顯示器、光驅(qū)的唯一河北總代理， 七彩虹 顯卡 的河北總代理。Data Source= + + \。Data Source= + + \。 可行性分析 公司的員工 大 都為大專以上學(xué)歷，因此員工對(duì)軟件的使用沒有問題，軟件的開發(fā)通過工程的外包。公司的店面除 代理出貨外還做店面銷售，公司雖然成立只有短短的三年，但顯示器的銷售量已經(jīng)占到 河北省的第二位，團(tuán)體采購及零售量也已經(jīng)達(dá)到太和電子城的前五名。 本系統(tǒng)的設(shè)計(jì)采用語言： Micrsoft Visual Basic 軟件， Microsoft Office Access2020 軟件 系統(tǒng)實(shí)現(xiàn) ： 登錄按鈕代碼： Private Sub aaa_Click() If = Then MsgBox 用戶名不可以為空 , , 提示 tf = False End If If = Then MsgBox 密碼不可以為空 , , 提示 End If = adCmdText = select * from 密碼管理 where 用戶名 =39。Persist Security Info=False = adCmdText = select * from message Set = Adodc1 = 編號(hào) Set = Adodc1 = 姓名 Set = Adodc1 = 性別 Set = Adodc1 = 購買日期 Set = Adodc1 = 電話 Set = Adodc1 = Email Set = Adodc1 = 地址 Set = Adodc1 = 備注 = False = False = False = False = False = False = False = False = False ： Private Sub sjl_Click() End Sub 上一條按鈕代碼： Private Sub up_Click() If Then End If End Sub 4. 2． 4會(huì)員信息查詢模塊： 查詢按鈕代碼： Private Sub Command1_Click() = adCmdText = select * from message where 編號(hào) = 39。Persist Security Info=False = adCmdText = select 編號(hào) ,姓名 ,性別 ,購買 日期 ,電話 ,Email ,地址 ,備注 from message Set = Adodc1 End Sub 5 系統(tǒng)使用說明書 本客 戶管理軟件操作簡(jiǎn)單，界 面簡(jiǎn)明，即使沒有計(jì)算機(jī)基礎(chǔ)也可操作。因此，將現(xiàn)代化的信息管理技術(shù)引入客戶信息的管理十分必要。 amp。 amp。 在這次系統(tǒng)開發(fā)的過程中我也發(fā)現(xiàn)了自己的很多不足，在系統(tǒng)開發(fā)的初期沒有做好 充分的準(zhǔn)備，造成后期開發(fā)過程中 顯的十分倉促， 還要去修改前期的工作。 需求分析及新系統(tǒng)開發(fā)的目標(biāo) 對(duì)于太平洋 這樣一家集銷售和代理為一身的電子類公司，要想使公司的營運(yùn)效率進(jìn)一步提高 ,、使公司有更大的發(fā)展，就必須要有一套現(xiàn)代化的客戶管理信息系統(tǒng)。 = 20 If ( Or ) Then MsgBox 用戶名不存在 , , 出錯(cuò)啦 = = Else If (密碼 ) = Trim() Then Unload Me Else MsgBox 密碼錯(cuò)誤 , , 出錯(cuò) = End If End If End Sub 窗體代碼： Private Sub Form_Load() = Provider=。 = SQL End Sub 返回按鈕代碼： Private Sub Command2_Click(Index As Integer) End Sub 添加按鈕代碼： Private Sub Command3_Click() End Sub 查看記錄按鈕代碼： Private Sub Command4_Click() End Sub 窗體代 碼： Private Sub Form_Load() = Provider=。管理信息系統(tǒng)開發(fā)的學(xué)習(xí)在我們未來的工作中一定會(huì)起到很大的作用。電腦設(shè)備公司 有 很多，通過安裝軟件平臺(tái)即可運(yùn)行。因此，將現(xiàn)代化的信息管理技術(shù)引入客戶信息的管理十分必要。Persist Security Info=False = adCmdText = select 編號(hào) ,姓名 ,性別 ,購買 日期 ,電話 ,Email ,地址 ,備注 from message Set = Adodc1 End Sub 5 系統(tǒng)使用說明書 本客 戶管理軟件操作簡(jiǎn)單，界 面簡(jiǎn)明，即使沒有計(jì)算機(jī)基礎(chǔ)也可操作。Persist Security Info=False = adCmdText = select * from message Set = Adodc1 = 編號(hào) Set = Adodc1 = 姓名 Set = Adodc1 = 性別 Set = Adodc1 = 購買日期 Set = Adodc1 = 電話 Set = Adodc1 = Email Set = Adodc1 = 地址 Set = Adodc1 = 備注 = False = False = False = False = False = False = False = False = False ： Private Sub sjl_Click() End Sub 上一條按鈕代碼： Private Sub up_Click() If Then End If End Sub 4. 2． 4會(huì)員信息查詢模塊： 查詢按鈕代碼： Private Sub Command1_Click() = adCmdText = select * from message where 編號(hào) = 39。 本系統(tǒng)的設(shè)計(jì)采用語言： Micrsoft Visual Basic 軟件， Microsoft Office Access2020 軟件 系統(tǒng)實(shí)現(xiàn) ： 登錄按鈕代碼： Private Sub aaa_Click() If = Then MsgBox 用戶名不可以為空 , , 提示 tf = False End If If = Then MsgBox 密碼不可以為空 , , 提示 End If = adCmdText = select * from 密碼管理 where 用戶名 =39。公司的店面除 代理出貨外還做店面銷售，公司雖然成立只有短短的三年，但顯示器的銷售量已經(jīng)占到河北省的第二位，團(tuán)體采購及零售量也已經(jīng)達(dá)到太和電子城的前五名。Persist Security Info=False End Sub 4. 2． 5會(huì)員信息輸出模塊： 添加按鈕代碼： Private Sub Command1_Click() End Sub 查詢按鈕代碼： Private Sub Command2_Click() End Sub 返回按鈕代碼： Private Sub Command3_Click() Unload Me End Sub 刷新按鈕代碼： Private Sub Command4_Click() End Sub 窗體代碼： Private Sub Form_Load() = Provider=。Persist Security Info=False End Sub 離開按鈕代碼： Private Sub cmdCancel_Click() Unload Me End Sub 4. 2． 2 主窗體模塊： 客戶管理按鈕代碼： Private Sub Command1_Click() End Sub 客戶信息輸入按鈕代碼： Private Sub Command2_Click() End Sub 退出按鈕代碼： Private Sub Command3_Click() Unload Me End Sub 關(guān)于按鈕代碼： Private Sub Command4_Click() End Sub 系統(tǒng)管理按鈕代碼： Private Sub Command5_Click() End Sub 客戶信息查詢按鈕代碼：： Private Sub zhuce_Click() End Sub 4. 2． 3會(huì)員信息管理模塊： 保存按鈕代碼： Private Sub baocun_Click() = True = True = True = True = False = True = True = False = False = False = False = False = False = False = False = False End Sub 編輯按鈕代碼： Private Sub Command1_Click() = True = True = True = True = True = True = True = True = True = False = False = False = False = False = False (編號(hào) ).Value = (姓名 ).Value = (性別 ).Value = (購買日期 ).Value = (電話 ).Value = (Email).Value = (地址 ).Value = (備注 ).Value = End Sub 返回按鈕代碼： Private Sub Command2_Click()