畢業論文：基于delphi的新生報名管理系統的設計與實現-資料下載頁

【導讀】基于Delphi的新生報名管理系統的設計。完成日期：2020年05月25日

　　

【正文】 學號 xm Char 10 否 姓名 sfje Decimal 18 否 收費金額 sfrq Datetime 否 收費日期 sfr Char 10 否 收費人 bz Char 100 否 備注 (5)系別代碼數據表 用于保存各個系的數據，數 據表命名為“ td_xbdm” ,結構見表 38 所示 。 表 38td_xbdm 表結構 列名 數據類型 字節數 關鍵字 索引 說明 xbdm Tinyint pk 是 系別代碼 xbmc Char 20 否 系別名稱 xf Decimal 18 否 學費 qtf Decimal 18 否 其他費 (6)專業代碼數據表 用于保存與專業相關的數據，數據表命名為“ td_zydm”，結構見表 39 所示。 基于 Delphi的新生報名管理系統的設計與實現 20 表 39td_zydm 表結構 列名 數據類型 字節數 關鍵字 索引 說明 zydm Tinyint pk 是 專業代碼 zymc Char 60 否 專業名稱 2. 物理結構設計 物理結構設計階段實現的是數據庫系統的內模式，它的質量直接決定了整個系統的性能。因此在確定數據庫的存儲結構和存取方法之前，對數據庫系統所支持的事務要進行仔細分析，獲得優化數據庫物理設計的參數。 本系統的物理結構設計如下圖 312 和圖 313 所示 。 圖 312 新生數據物理表 圖 313 系統數據物理表 基于 Delphi的新生報名管理系統的設計與實現 21 第 4 章 詳細設計 與功能實現 本節介紹幾個重點功能模塊的實現 ，以及對主要模塊的主要功能、界面設計和代碼 進行描 述。 主 要功能 界面 登錄界面設計及實現 (1)主要 功能 登錄界面主要是 對用戶進行身份、密碼驗證， 以 保證系統的安全性。 (2)界面設計 在 界面設計中，主要使用 MainMenu 組件 ,StatuBar 組件和一個 Database組件。 MainMenu:用于 系統顯示菜單 ； StatuBar：用于顯示正在登錄的用戶 ；Database：用于數據庫的連接。主窗體菜單 MainMenu 設計如圖 41 所示。主窗體菜單中，除了“系統”、“登錄系統”和“關閉系統”菜單項的 Visible 屬性值為 True 外，其他所有菜 單項的 Visible 屬性值均設置為 False，其他所有菜單項的可訪問性，根據 用戶 權限在程序中動態設定。 圖 41 系統主界面 用戶運行本系統后，系統會首先提示用戶登錄，此時系統菜單項只有登錄系統和關閉系統是可見的。 在 登錄窗體代碼中實現身份驗證功能，即需要檢驗用戶登錄的用戶和密碼是 否正確，如果正確，則從 t_qxb 表中檢索出該用戶享有的權限，將管理系統基于 Delphi的新生報名管理系統的設計與實現 22 主窗體中對應的菜單項 Visible 屬性值為 True，其他菜單項 Visible 屬性值為False。 登錄時的系統主界面如圖 42 所示。 圖 42 系統登錄 界面 成功登錄 后，系統將首先讀取用戶類型，如該用戶為普通用戶，則分配給他普通用戶的使用權限。如該用戶為管理員，則系統所有功能向其開放，即擁有高級權限。 登錄 后的系統主界面如圖 43 所示 。 圖 43 系統登錄后的界面 (3)部分事件代碼實現 登錄“確定”按鈕單擊事件處理程序： procedure (Sender: TObject)。 基于 Delphi的新生報名管理系統的設計與實現 23 var aname,apassword,sqlstr:string。a,b:integer。 begin //判斷是否有輸入 if (length(trim()) 0) or (length(trim()) 0) then begin aname:=trim()。 apassword:=trim()。 //查詢用戶名、密碼正確性，并取權限表 sqlstr:=39。select * from t_user a,t_qxb b where (=39。39。39。+aname+39。39。39。) and(=39。39。39。+apassword+39。39。39。)and(=) order by 39。 with (nil) do try//數據庫連接使用 Main_Formr的 Database1來完成 Close。 SessionName:=。 DatabaseName:=。 。 (sqlstr)。 Open。 //判斷是否有對應的用戶 if RecordCount 0 then begin First。 while not Eof do begin a:=strtoint(copy(FieldByName(39。cdx39。).AsString,1,1))。 b:=strtoint(copy(FieldByName(39。cdx39。).AsString,2,2))。 //使擁有權限的主窗體菜單采用 [a].Visible:=true。 [a].Items[b].Visible:=true。 Next。 end。 //關閉登錄窗口 。 //主窗體狀態欄顯示登錄用戶名 :=aname。 //主窗體全局變量 dlname保存登錄用戶名 :=aname。 end else begin showmessage(39。請確認登錄的用戶名和密碼是否正確！ 39。)。 。 。 end。 基于 Delphi的新生報名管理系統的設計與實現 24 finally Free。 end。 end else begin showmessage(39。請輸入登錄用戶名和密碼！ 39。)。 。 end。 end。 用戶管理窗體 設計及實現 (1)主要功能 用戶管理需要根據不同的用戶類型，分配不同的權限，便于系統的維護，包括用戶數據（編號、密碼和權限）的添加，刪除和瀏覽等操作。高級管理員可以管理系統中所有的用戶數據，而普通用戶只能修改自己的密碼。 (2)界面設計 在界面設計中，主要使用一個 Queryc 組件，一個 DataSource 組件，一個DBGrid 組件和一個 PopuMenu 組件。用戶管理窗體設計如圖 44 所示 。 圖 44 用戶管理窗體 添加 /修改用戶窗體設計如圖 45 所示：包含兩個 LabeledEdit 組件 ,一個checkListBox 組件、一個 Query 組件、一個 Panel 組件、一個 GroupBox 組件、和兩個 SpeedButton 組件。 基于 Delphi的新生報名管理系統的設計與實現 25 圖 45 添加 /修改用戶窗體 源代碼略。 新生數據 管理窗體設計及實現 (1)主要功能 本系統支持在 Excel 中創建好新生信息后，直接導入系統 ，大大提高新生數據錄入的效率， Listview 控件中顯示其詳細信息，此時點擊數據導入，即可導入數據。 (2)界面設計 新生數據 導入 管理窗體 如 圖 46 所示 。 圖 46 新生數據導入窗體 基于 Delphi的新生報名管理系統的設計與實現 26 (3)部分事件代碼實現 “打開文件”按鈕單擊事件 處理 程序： procedure (Sender: TObject)。 const BeginRow = 2。 BeginCol = 1。 var Excel: OleVariant。 iRow,iCol : integer。 ListItem: TListItem。 begin 。 if not then exit。 try Excel := CreateOLEObject(39。39。)。 except (39。Excel 沒 有 安 裝 ！ 39。, 39。 提 示 信 息 39。, MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL)。 Exit。 end。 := false。 ()。 try iRow := BeginRow。 iCol := BeginCol。 while trim([1].Cells[iRow,iCol].value) 39。39。 do begin with ListView1 do begin listitem:=。 //從 excel 表的數據傳送到 delphi 的 listview :=trim([1].Cells[iRow,iCol].value)。 (trim([1].Cells[iRow,iCol+1].value))。 (trim([1].Cells[iRow,iCol+2].value))。 (trim([1].Cells[iRow,iCol+3].value))。 (trim([1].Cells[iRow,iCol+4].value))。 (trim([1].Cells[iRow,iCol+5].value))。 (trim([1].Cells[iRow,iCol+6].value))。 (trim([1].Cells[iRow,iCol+7].value))。 (trim([1].Cells[iRow,iCol+8].value))。 iRow := iRow + 1。 iCol := BeginCol。 end。 end。 。 except 基于 Delphi的新生報名管理系統的設計與實現 27 (39。導入數據出錯！請檢查文件的格式是否正確！ ’,’提示信息 ’,MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL)。 。 raise。 end。 end。 “數據導入 ”按鈕單擊事件程序： procedure (Sender: TObject)。 var xh,xm,xb,csny,jtdz,yzbm,lxdh,xbdm,zydm,sqlstr,sqlstr1:string。 begin with (nil) do begin try Close。 SessionName:=。 DatabaseName:=。 while 0 do begin //從 delphi 的 listview 的數據傳送到 sql sever 的表中 xh:=trim([0].Caption)。 xm:=trim([0].SubItems[0])。 xb:=trim([0].SubItems[1])。 csny:=trim([0].SubItems[2])。 jtdz:=trim([0].SubItems[3])。 lxdh:=trim([0].SubItems[4])。 yzbm:=trim([0].SubItems[5])。 zydm:=trim([0].SubItems[6])。 xbdm:=trim([0].SubItems[7])。 sqlstr1:=39。select * from t_xsb where (xh=39。39。39。+xh+39。39。39。)39。 。