【正文】 電腦設(shè)備公司 有 很多，通過安裝軟件平臺(tái)即可運(yùn)行。因此，將現(xiàn)代化的信息管理技術(shù)引入客戶信息的管理十分必要。管理信息系統(tǒng)開發(fā)的學(xué)習(xí)在我們未來的工作中一定會(huì)起到很大的作用。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ǔ)也可操作。 = 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=。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。 = 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=。 本系統(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。 需求分析及新系統(tǒng)開發(fā)的目標(biāo) 對(duì)于太平洋 這樣一家集銷售和代理為一身的電子類公司，要想使公司的營(yíng)運(yùn)效率進(jìn)一步提高 ,、使公司有更大的發(fā)展，就必須要有一套現(xiàn)代化的客戶管理信息系統(tǒng)。公司的店面除 代理出貨外還做店面銷售，公司雖然成立只有短短的三年，但顯示器的銷售量已經(jīng)占到河北省的第二位，團(tuán)體采購及零售量也已經(jīng)達(dá)到太和電子城的前五名。 在這次系統(tǒng)開發(fā)的過程中我也發(fā)現(xiàn)了自己的很多不足，在系統(tǒng)開發(fā)的初期沒有做好 充分的準(zhǔn)備，造成后期開發(fā)過程中 顯的十分倉促， 還要去修改前期的工作。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=。 amp。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() Unload Me End Sub 刪除按鈕代碼： Private Sub Command3_Click() If ( Or ) Then MsgBox 已經(jīng)無紀(jì)錄 , , 提示 End If End Sub 添加按鈕代碼： Private Sub Command8_Click() = = = = = = = = = True = True = True = True = True = True = True = True = True = False = False = False = False = False = False End Sub 窗體代碼： Private Sub Form_Load() = Provider=。 amp。電腦設(shè)備公司 有 很多，通過安裝軟件平臺(tái)即可運(yùn)行。因此，將現(xiàn)代化的信息管理技術(shù)引入客戶信息的管理十分必要。管理信息系統(tǒng)開發(fā)的學(xué)習(xí)在我們未來的工作中一定會(huì)起到很大的作用。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ǔ)也可操作。 = 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=。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。 = 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=。 本系統(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。 需求分析及新系統(tǒng)開發(fā)的目標(biāo) 對(duì)于太平洋 這樣一家集銷售和代理為一身的電子類公司，要想使公司的營(yíng)運(yùn)效率進(jìn)一步提高 ,、使公司有更大的發(fā)展，就必須要有一套