畢業(yè)設(shè)計-數(shù)據(jù)庫管理-資料下載頁
2025-04-07 21:44本頁面
【正文】 4．2．1 主窗體的創(chuàng)建上面的SQL語句在SQL Server 2000中查詢分析器的執(zhí)行，將自動產(chǎn)生需要的所有表格。有關(guān)數(shù)據(jù)庫結(jié)構(gòu)的所有后臺工作已經(jīng)完成?，F(xiàn)在將通過航空公司管理信息系統(tǒng)中各個功能模塊的實現(xiàn)，講解如何使用Visual Basic來編寫數(shù)據(jù)庫系統(tǒng)的客戶端程序。主窗體及其控件屬性設(shè)置 控 件屬 性屬性取值frmMain(Form)NameFrmMainCaption軍用車輛安全監(jiān)控系統(tǒng)StartUpPositonCenterScreenWindowStateMaximizedSbStatusBar(StatusBar)NameSbStatusBarPanels(1)StyleSbrTextPanels(2)StyleSbrDatePanels(3)StyleSbrTime4．2．2創(chuàng)建主窗體的菜單 4．2．3 創(chuàng)建公用模塊在Visual Basic中可以用公用模塊來存放整個工程項目公用的函數(shù)、過程和全局變量等。這樣可以極大地提高代碼的效率。在項目資源管理器中為項目添加一個Module。下面就可以開始添加需要的代碼了。由于系統(tǒng)中各個功能模塊都將頻繁使用數(shù)據(jù)庫中的各種數(shù)據(jù)，因此需要一個公共的數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種SQL語句。添加函數(shù)ExecuteSQL，代碼如下：Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As 39。執(zhí)行SQL語句，并返回記錄集對象 ‘聲明一個連接 Dim n As ‘聲明一個數(shù)據(jù)集對象 Dim rst As Dim sTokens() As String39。異常處理 On Error GoTo ExecuteSQL_Error39。用Split函數(shù)產(chǎn)生一個包含各個子串的數(shù)組 sTokens = Split(SQL) ‘創(chuàng)建一個連接 Set n = New 39。打開連接 ConnectString If InStr(INSERT,DELETE,UPDATE, _ UCase$(sTokens(0))) Then ‘執(zhí)行查詢語句 SQL MsgString = sTokens(0) amp。 _ query successful Else Set rst = New Trim$(SQL), n, _ adOpenKeyset, _ adLockOptimistic 39。 39。get RecordCount39。返回記錄集對象 Set ExecuteSQL = rst MsgString = 查詢到 amp。 amp。 _ 條記錄 End IfExecuteSQL_Exit: Set rst = Nothing Set n = Nothing Exit Function ExecuteSQL_Error: MsgString = 查詢錯誤: amp。 _ Resume ExecuteSQL_ExitEnd Function 在ExecuteSQL函數(shù)中使用了Connect String函數(shù)，這個函數(shù)用來連接數(shù)據(jù)庫，代碼如下：Public Function ConnectString() _ As String39。返回一個數(shù)據(jù)庫連接 ConnectString = FileDSN=。UID=sa。PWD=End Function4．3系統(tǒng)模塊的具體設(shè)計 4．3．1 用戶模塊的創(chuàng)建用戶管理模塊主要實現(xiàn)：l 用戶登錄。l 添加用戶。l 修改用戶密碼4．3．2 數(shù)據(jù)庫管理模塊的創(chuàng)建（1） 司機基本信息窗體的編輯 （2） 設(shè)計司機信息管理窗體這個窗體用來顯示司機信息，并且可以對各條記錄進行操作。在載入窗體時，程序?qū)⒆詣虞d入所有記錄，代碼如下：Private Sub menuDriver_Click() = select * from driverInfo 0End Sub窗體的Show方法后面加上0或者1，可以得到不同的窗體顯示方式。參數(shù)為0時，顯示的窗體為無模式形式，窗體切換時不需要進行其他操作；參數(shù)為1時，顯示的窗體為有模式形式，窗體切換時必須進行相關(guān)操作。載入窗體時將自動顯示各條記錄，代碼如下：Private Sub Form_Load() ShowTitle ShowDataEnd Sub函數(shù)ShowTitle用來顯示表頭，代碼如下：Private Sub ShowTitle() Dim i As Integer With msgList .Cols = 12 .TextMatrix(0, 10) = 司機編號 .TextMatrix(0, 10) = 司機姓名 .TextMatrix(0, 2) = 性別 .TextMatrix(0, 4) = 出生年月 .TextMatrix(0, 40) = 家庭住址 .TextMatrix(0, 40)
公司管理相關(guān)推薦
鄂ICP備17016276號-1