【導(dǎo)讀】基于Delphi的新生報(bào)名管理系統(tǒng)的設(shè)計(jì)。完成日期：2020年05月25日

　　

【正文】 學(xué)號(hào) xm Char 10 否 姓名 sfje Decimal 18 否 收費(fèi)金額 sfrq Datetime 否 收費(fèi)日期 sfr Char 10 否 收費(fèi)人 bz Char 100 否 備注 (5)系別代碼數(shù)據(jù)表 用于保存各個(gè)系的數(shù)據(jù)，數(shù) 據(jù)表命名為“ td_xbdm” ,結(jié)構(gòu)見表 38 所示 。 表 38td_xbdm 表結(jié)構(gòu) 列名 數(shù)據(jù)類型 字節(jié)數(shù) 關(guān)鍵字 索引 說明 xbdm Tinyint pk 是 系別代碼 xbmc Char 20 否 系別名稱 xf Decimal 18 否 學(xué)費(fèi) qtf Decimal 18 否 其他費(fèi) (6)專業(yè)代碼數(shù)據(jù)表 用于保存與專業(yè)相關(guān)的數(shù)據(jù)，數(shù)據(jù)表命名為“ td_zydm”，結(jié)構(gòu)見表 39 所示。 基于 Delphi的新生報(bào)名管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 20 表 39td_zydm 表結(jié)構(gòu) 列名 數(shù)據(jù)類型 字節(jié)數(shù) 關(guān)鍵字 索引 說明 zydm Tinyint pk 是 專業(yè)代碼 zymc Char 60 否 專業(yè)名稱 2. 物理結(jié)構(gòu)設(shè)計(jì) 物理結(jié)構(gòu)設(shè)計(jì)階段實(shí)現(xiàn)的是數(shù)據(jù)庫系統(tǒng)的內(nèi)模式，它的質(zhì)量直接決定了整個(gè)系統(tǒng)的性能。因此在確定數(shù)據(jù)庫的存儲(chǔ)結(jié)構(gòu)和存取方法之前，對(duì)數(shù)據(jù)庫系統(tǒng)所支持的事務(wù)要進(jìn)行仔細(xì)分析，獲得優(yōu)化數(shù)據(jù)庫物理設(shè)計(jì)的參數(shù)。 本系統(tǒng)的物理結(jié)構(gòu)設(shè)計(jì)如下圖 312 和圖 313 所示 。 圖 312 新生數(shù)據(jù)物理表 圖 313 系統(tǒng)數(shù)據(jù)物理表 基于 Delphi的新生報(bào)名管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 21 第 4 章 詳細(xì)設(shè)計(jì) 與功能實(shí)現(xiàn) 本節(jié)介紹幾個(gè)重點(diǎn)功能模塊的實(shí)現(xiàn) ，以及對(duì)主要模塊的主要功能、界面設(shè)計(jì)和代碼 進(jìn)行描 述。 主 要功能 界面 登錄界面設(shè)計(jì)及實(shí)現(xiàn) (1)主要 功能 登錄界面主要是 對(duì)用戶進(jìn)行身份、密碼驗(yàn)證， 以 保證系統(tǒng)的安全性。 (2)界面設(shè)計(jì) 在 界面設(shè)計(jì)中，主要使用 MainMenu 組件 ,StatuBar 組件和一個(gè) Database組件。 MainMenu:用于 系統(tǒng)顯示菜單 ； StatuBar：用于顯示正在登錄的用戶 ；Database：用于數(shù)據(jù)庫的連接。主窗體菜單 MainMenu 設(shè)計(jì)如圖 41 所示。主窗體菜單中，除了“系統(tǒng)”、“登錄系統(tǒng)”和“關(guān)閉系統(tǒng)”菜單項(xiàng)的 Visible 屬性值為 True 外，其他所有菜 單項(xiàng)的 Visible 屬性值均設(shè)置為 False，其他所有菜單項(xiàng)的可訪問性，根據(jù) 用戶 權(quán)限在程序中動(dòng)態(tài)設(shè)定。 圖 41 系統(tǒng)主界面 用戶運(yùn)行本系統(tǒng)后，系統(tǒng)會(huì)首先提示用戶登錄，此時(shí)系統(tǒng)菜單項(xiàng)只有登錄系統(tǒng)和關(guān)閉系統(tǒng)是可見的。 在 登錄窗體代碼中實(shí)現(xiàn)身份驗(yàn)證功能，即需要檢驗(yàn)用戶登錄的用戶和密碼是 否正確，如果正確，則從 t_qxb 表中檢索出該用戶享有的權(quán)限，將管理系統(tǒng)基于 Delphi的新生報(bào)名管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 22 主窗體中對(duì)應(yīng)的菜單項(xiàng) Visible 屬性值為 True，其他菜單項(xiàng) Visible 屬性值為False。 登錄時(shí)的系統(tǒng)主界面如圖 42 所示。 圖 42 系統(tǒng)登錄 界面 成功登錄 后，系統(tǒng)將首先讀取用戶類型，如該用戶為普通用戶，則分配給他普通用戶的使用權(quán)限。如該用戶為管理員，則系統(tǒng)所有功能向其開放，即擁有高級(jí)權(quán)限。 登錄 后的系統(tǒng)主界面如圖 43 所示 。 圖 43 系統(tǒng)登錄后的界面 (3)部分事件代碼實(shí)現(xiàn) 登錄“確定”按鈕單擊事件處理程序： procedure (Sender: TObject)。 基于 Delphi的新生報(bào)名管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 23 var aname,apassword,sqlstr:string。a,b:integer。 begin //判斷是否有輸入 if (length(trim()) 0) or (length(trim()) 0) then begin aname:=trim()。 apassword:=trim()。 //查詢用戶名、密碼正確性，并取權(quán)限表 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//數(shù)據(jù)庫連接使用 Main_Formr的 Database1來完成 Close。 SessionName:=。 DatabaseName:=。 。 (sqlstr)。 Open。 //判斷是否有對(duì)應(yīng)的用戶 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))。 //使擁有權(quán)限的主窗體菜單采用 [a].Visible:=true。 [a].Items[b].Visible:=true。 Next。 end。 //關(guān)閉登錄窗口 。 //主窗體狀態(tài)欄顯示登錄用戶名 :=aname。 //主窗體全局變量 dlname保存登錄用戶名 :=aname。 end else begin showmessage(39。請(qǐng)確認(rèn)登錄的用戶名和密碼是否正確！ 39。)。 。 。 end。 基于 Delphi的新生報(bào)名管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 24 finally Free。 end。 end else begin showmessage(39。請(qǐng)輸入登錄用戶名和密碼！ 39。)。 。 end。 end。 用戶管理窗體 設(shè)計(jì)及實(shí)現(xiàn) (1)主要功能 用戶管理需要根據(jù)不同的用戶類型，分配不同的權(quán)限，便于系統(tǒng)的維護(hù)，包括用戶數(shù)據(jù)（編號(hào)、密碼和權(quán)限）的添加，刪除和瀏覽等操作。高級(jí)管理員可以管理系統(tǒng)中所有的用戶數(shù)據(jù)，而普通用戶只能修改自己的密碼。 (2)界面設(shè)計(jì) 在界面設(shè)計(jì)中，主要使用一個(gè) Queryc 組件，一個(gè) DataSource 組件，一個(gè)DBGrid 組件和一個(gè) PopuMenu 組件。用戶管理窗體設(shè)計(jì)如圖 44 所示 。 圖 44 用戶管理窗體 添加 /修改用戶窗體設(shè)計(jì)如圖 45 所示：包含兩個(gè) LabeledEdit 組件 ,一個(gè)checkListBox 組件、一個(gè) Query 組件、一個(gè) Panel 組件、一個(gè) GroupBox 組件、和兩個(gè) SpeedButton 組件。 基于 Delphi的新生報(bào)名管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 25 圖 45 添加 /修改用戶窗體 源代碼略。 新生數(shù)據(jù) 管理窗體設(shè)計(jì)及實(shí)現(xiàn) (1)主要功能 本系統(tǒng)支持在 Excel 中創(chuàng)建好新生信息后，直接導(dǎo)入系統(tǒng) ，大大提高新生數(shù)據(jù)錄入的效率， Listview 控件中顯示其詳細(xì)信息，此時(shí)點(diǎn)擊數(shù)據(jù)導(dǎo)入，即可導(dǎo)入數(shù)據(jù)。 (2)界面設(shè)計(jì) 新生數(shù)據(jù) 導(dǎo)入 管理窗體 如 圖 46 所示 。 圖 46 新生數(shù)據(jù)導(dǎo)入窗體 基于 Delphi的新生報(bào)名管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 26 (3)部分事件代碼實(shí)現(xiàn) “打開文件”按鈕單擊事件 處理 程序： 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 表的數(shù)據(jù)傳送到 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的新生報(bào)名管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 27 (39。導(dǎo)入數(shù)據(jù)出錯(cuò)！請(qǐng)檢查文件的格式是否正確！ ’,’提示信息 ’,MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL)。 。 raise。 end。 end。 “數(shù)據(jù)導(dǎo)入 ”按鈕單擊事件程序： 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 的數(shù)據(jù)傳送到 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。 。