【正文】 ： 年 月 日 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質量最好 畢業(yè)設計（論文）外文摘要 摘 要 隨著信息技術在管理上越來越深入而廣泛的應用，管理信息系統的實施在技術上已逐步成熟。信息已成為繼勞動力、土地、資本之后的又一大資源，誰控制的信息越多，誰利用信息資源的效率越高，誰就會 在各方面的競爭中，占有一席之地，誰就會更有優(yōu)勢，這一點已得到舉世公認。它通過對數據的加工處理，及時為管理與決策分析提供信息。因此，比較適合于采用數據庫 管理。如果對界面的效果不滿意，還要回到程序中修改。每個對象以圖形方式顯示在界面上，都是可視的。 在用 Visual Basic 設計大型應用軟件時，不必建立具有明顯開始和結束的程序，而是編寫若干個微小的子程序，即過程。 Visual Basic 提供了動態(tài)數據交換的編程技術，可以在應用程序中與其他 Windows 應用程序建立動態(tài)數據交換，在不同的應用程序之間進行通信。 項目規(guī)劃 健身中心會員信息 管理系統是一個典型的數據庫應用程序 ,由 系統管理、會員卡管理、會員檔案管理、會員 交費管理、 打印報表 等模塊組成 ,特規(guī)劃如下 : 系統管理模塊 (CTRL+O) 該模塊的主要任務是維護系統的正常運行和安全性設置 ,包括添加用戶 (快捷鍵： CTRL+A)、修改密碼 (快捷鍵： CTRL+B)、重新登錄 (快捷鍵： CTRL+F1)等等。首先來做出 會員檔案 管理系統的 ER 圖，分析這個問題的實體，從系統分析可以知道， 會員檔案 是由 姓名、卡號等組成了這個系統的幾個 實體。使用Access 的好處還在于，如果你的系統擴展到 Client/Server 模式的時候，可以使用Microsoft 的數據庫服務器軟件 SQL Server，此時，程序只需要簡單的修改一下鏈接（ ADO 的數據源）就可以，這樣，為程序的平滑擴展提供了非常有力的條件。 Set mrc = ExecuteSQL(txtsql) If = True Then MsgBox 用戶名錯誤！ , vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit Sub End If 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質量最好 username = (0) txtsql2 = select username from use where password=39。and password=39。 aa End Sub Private Sub useradd_Click() qxstr = Executeqx(1) If qxstr = false Or qxstr = readonly Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質量最好 End If 0 End Sub Private Sub usermodi_Click() qxstr = Executeqx(1) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If End Sub Private Sub xuefeiadd_Click() qxstr = Executeqx(3) If qxstr = false Or qxstr = readonly Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If xuefeimodi = False Dim i As Integer For i = 0 To 3 (i).Enabled = True Next i = 添加班級設置 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質量最好 For i = 0 To 3 (i).Text = Next i = 0 End Sub Public Sub xfbrowse() txtsql = select * from xuefei order by 學期 desc, 年級 desc,專業(yè) desc (0) = 瀏覽學費設置 End Sub Private Sub xuefeibrowse_Click() qxstr = Executeqx(3) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If End Sub Private Sub xuefeifind_Click() qxstr = Executeqx(3) If qxstr = false Then 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質量最好 ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If (0) i = SetWindowPos(, 1, 0, 0, 0, 0, 3) End Sub 4． 3 用戶管理模塊： 本模塊是本系統的安全性設置模塊，根據 健身中心 不同部門以及不同使用人員對本系統的要求和需要，從而實行了分級管理，對用戶的權限和類別進行了分類管理。 Public printstr As String Private Sub Command1_Click() Dim dbSource As Database 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質量最好 Set dbSource = OpenDatabase() z = MsgBox(成功！ , vbOKOnly, 查詢 ) End Sub Public Sub classshowtitle() Dim i As Integer With MSF1 .Cols = 8 .TextMatrix(0, 1) = 年度 .TextMatrix(0, 2) = 卡種 .TextMatrix(0, 3) = 所屬 .TextMatrix(0, 4) = 時限 .TextMatrix(0, 5) = 項目 .TextMatrix(0, 6) = 主管教練 .TextMatrix(0, 7) = 備注 .ColWidth(0) = 100 .ColWidth(1) = 1300 .ColWidth(2) = 1200 .ColWidth(3) = 800 .ColWidth(4) = 800 .ColWidth(5) = 800 .ColWidth(6) = 800 .ColWidth(7) = 5000 .FixedRows = 1 For i = 1 To 7 .ColAlignment(i) = 0 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質量最好 Next i .FillStyle = flexFillSingle .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 .Row = 1 End With End Sub Public Sub classshowdata() Dim j As Integer Dim i As Integer Dim mrc1 As Set mrc1 = ExecuteSQL(Trim(txtsql)) If = False Then With MSF1 .Rows = 1 Do While Not .Rows = .Rows + 1 For i = 1 To .TextMatrix(.Rows 1, i) = (i 1) Next i 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質量最好 Loop End With Else If classfind = True Then zzz = MsgBox(對不起，沒有此會員 的檔案記錄！ , vbOKOnly, 查詢 ) (0) (0).SetFocus End If End If End Sub Private Sub cmddel_Click() qxstr = Executeqx(2) If qxstr = readonly Then ss = MsgBox(對不起，你是只讀用戶不能刪除記錄，請與管理 員聯系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If Dim mrc As Dim msgtext As String Dim intcount As Integer If Trim((, 1)) = Then 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質量最好 sssss = MsgBox(你還沒有選擇記錄！ , vbOKOnly + vbExclamation, 警告 ) Exit Sub End If If MsgBox( 確定要刪除會員 為 amp。 39。 Trim((, 2)) amp。刪除該班級的記錄 End If zxh = MsgBox(記錄成功刪除！ , vbOKOnly, 查詢 ) txtsql = select* from class classshowtitle classshowdata 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質量最好 Call Form_Activate End Sub Private Sub cmdfind_Click() End Sub Private Sub cmdmodi_Click() If Trim((, 1)) = Then sssss = MsgBox(你還沒有選擇記錄！ , vbO