數(shù)據(jù)庫(kù)實(shí)訓(xùn)報(bào)告-工資管理系統(tǒng)(SQL+VB).doc

數(shù)據(jù)庫(kù)實(shí)訓(xùn)報(bào)告設(shè)計(jì)題目： 工資管理系統(tǒng) 學(xué) 院：計(jì)算機(jī)與信息工程專 業(yè)： 年 級(jí)： 2009級(jí) 班 級(jí)： 二班 姓 名： 指導(dǎo)老師： 學(xué) 號(hào)： 一、需求分析1.1 系統(tǒng)分析對(duì)于一個(gè)公司來(lái)說(shuō)，擁有一個(gè)正確、及時(shí)而且規(guī)范地經(jīng)行員工工資的管理和發(fā)放是非常重要的。由于工資的計(jì)算涉及的數(shù)據(jù)是多方面的，每位員工的工資又都需要單獨(dú)計(jì)算，在員工數(shù)量越多時(shí)，工資管理的工作量就會(huì)越大，而且在重復(fù)的數(shù)據(jù)輸入和計(jì)算中容易出錯(cuò)。所以就有了工資管理系統(tǒng)，本系統(tǒng)的宗旨及總體任務(wù)就是幫助財(cái)務(wù)部門(mén)提高工作效率，實(shí)現(xiàn)公司工資信息管理的自動(dòng)化、規(guī)范化以及系統(tǒng)化。本系統(tǒng)是通過(guò)對(duì)公司基本信息的管理、工資管理等環(huán)節(jié)的數(shù)據(jù)收集而建立的數(shù)據(jù)庫(kù)工資管理系統(tǒng)，實(shí)現(xiàn)有用的數(shù)據(jù)的快速查詢，減少操作中可能出現(xiàn)的錯(cuò)誤以及減少數(shù)據(jù)管理的工作量。1.2 系統(tǒng)功能設(shè)計(jì)本系統(tǒng)主要包括的功能有：（1） 保存職工的基本信息資料（2） 設(shè)置工資的級(jí)別（3） 根據(jù)工資管理數(shù)據(jù)和員工的工資進(jìn)行計(jì)算（4） 將職工工資的數(shù)據(jù)進(jìn)行保存，便于查找和核實(shí)（5） 對(duì)保存的數(shù)據(jù)，可以根據(jù)特殊字段進(jìn)行查找1.3系統(tǒng)模塊劃分開(kāi)發(fā)這個(gè)系統(tǒng)的目的就是幫助企業(yè)的財(cái)務(wù)主管部門(mén)提高工作效率，實(shí)現(xiàn)企業(yè)工資信息管理的系統(tǒng)化、規(guī)范化和自動(dòng)化。能夠和認(rèn)識(shí)管理系統(tǒng)、考勤管理系統(tǒng)相結(jié)合，真正實(shí)現(xiàn)企業(yè)高效、科學(xué)、現(xiàn)代化的員工管理。系統(tǒng)最終實(shí)現(xiàn)的主要功能如下。工資信息設(shè)置部分：包括設(shè)置員工的基本工資、崗位工資的級(jí)別和金額等。工資信息管理部分：包括統(tǒng)計(jì)計(jì)算工資、查詢工資和修改工資信息等。系統(tǒng)部分：包括添加用戶和刪除用戶等。二、開(kāi)發(fā)平臺(tái)微軟公司的visual basic 6.0是windows應(yīng)用程序開(kāi)發(fā)工具，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_(kāi)發(fā)工具。visual basic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過(guò)程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。因此，本系統(tǒng)使用microsoft visual basic 6.0開(kāi)發(fā)。數(shù)據(jù)庫(kù)引用的是本期所學(xué)的sql server 2000。三、數(shù)據(jù)庫(kù)分析設(shè)計(jì)3.1 數(shù)據(jù)庫(kù)的建立用sql建立一個(gè)名為“工資管理系統(tǒng)”的數(shù)據(jù)庫(kù)。3.2 數(shù)據(jù)表的建立針對(duì)企業(yè)工資信息管理系統(tǒng)的需求，通過(guò)對(duì)員工工資計(jì)算過(guò)程的內(nèi)容分析，為本系統(tǒng)設(shè)計(jì)如下的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：基本工資信息：包括工資級(jí)別和工資金額。崗位工資信息：包括工資級(jí)別和工資金額。工資信息：包括員工編號(hào)、基本工資、崗位工資、水電費(fèi)、實(shí)發(fā)金額。部門(mén)信息：包括部門(mén)編號(hào)、部門(mén)名稱、部門(mén)負(fù)責(zé)人、部門(mén)人數(shù)。工資統(tǒng)計(jì)信息：包括員工編號(hào)、姓名、出生年月、所屬部門(mén)、文化程度、職稱。用戶信息：包括用戶名、密碼和權(quán)限。員工信息表員工編號(hào)char (8)主鍵，不允許重復(fù)姓名char (8)性別char (2)出生年月char(10)所屬部門(mén)char (4)外鍵文化程度char (4)職稱char (12)部門(mén)信息部門(mén)編號(hào)char (4)主鍵,不允許重復(fù)部門(mén)名稱char (20)部門(mén)負(fù)責(zé)人char (8)部門(mén)人數(shù)int基本工資工資級(jí)別char (2)主鍵,不允許重復(fù)工資金額int(8, 2)崗位工資工資級(jí)別char (2)主鍵,不允許重復(fù)工資金額int工資信息員工編號(hào)char (8)主鍵,不允許重復(fù)； 外鍵基本工資int崗位工資int水電費(fèi)int實(shí)發(fā)金額int用戶表用戶名char (8)主鍵,不允許重復(fù)密碼char (20)權(quán)限char (20)3.3 建立關(guān)系圖其關(guān)系圖如下所示：各表之間的聯(lián)系四、工資管理系統(tǒng)應(yīng)用程序設(shè)計(jì)工資信息實(shí)體員工編號(hào)員工姓名曠工扣除剩余工資基本工資部門(mén)編號(hào)部門(mén)名稱加班工資獎(jiǎng)金實(shí)發(fā)工資應(yīng)發(fā)工資4.1 系統(tǒng)構(gòu)成系統(tǒng)構(gòu)成如下圖所示，包括登錄、主界面、添加刪除用戶、基本工資、崗位工資、部門(mén)信息管理、員工信息管理、發(fā)放工資、添加或修改員工工資、查詢員工工資10個(gè)窗體和兩個(gè)公共模塊組成。4.2 公共模塊一public power as stringpublic tempuser as stringpublic cnmod as new adodb.connectionpublic username as stringpublic userpwd as stringpublic function executesql(byval sql as string, msgstring as string) as adodb.recordsetdim cnn as adodb.connectiondim rst as adodb.recordsetdim stokens() as stringon error goto executesql_errorstokens = split(sql)set cnn = new adodb.connectioncnn.open connectstringif instr(insert,delete,update, ucase$(stokens(0) thencnn.execute sqlmsgstring = stokens(0) & 操作成功elseset rst = new adodb.recordsetrst.open trim$(sql), cnn, adopenkeyset, adlockoptimisticset executesql = rstmsgstring = 查詢到 & rst.recordcount & 條記錄 end ifexecutesql_exit:set rst = nothingset cnn = nothingexit functionexecutesql_error:msgstring = 查詢錯(cuò)誤: & err.descriptionresume executesql_exitend functionpublic function connectstring() as stringconnectstring = provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=工資管理系統(tǒng);data source=.end function4.3 公共模塊二public function select_sql(sql as string) as adodb.recordsetdim cn as adodb.connectiondim rst as adodb.recordseton error goto sql_err:set cn = new adodb.connectionset rst = new adodb.recordsetcn.open provider=msdasql;driver=sql server; & _server=fall;database=工資管理系統(tǒng);uid=;pwd=rst.open sql, cn, 3, 2set select_sql = rstsql_err:set cn = nothingset rst = nothingend functionpublic function execute_sql(sql as string) as adodb.recordsetdim cn as adodb.connectiondim rst as adodb.recordseton error goto sql_err:set cn = new adodb.connectioncn.open provider=msdasql;driver=sql server; & _server=fall;database=工資管理系統(tǒng);uid=;pwd=cn.begintrans cn.execute sql cn.committranssql_err:set cn = nothingset rst = nothingend function4.4 “登錄模塊”詳細(xì)設(shè)計(jì) 登錄模塊的詳細(xì)設(shè)計(jì)主要是用戶登錄的一個(gè)界面，判斷登錄的用戶是管理員還是普通用戶，進(jìn)入后將面對(duì)的是主界面，從而進(jìn)行相關(guān)的操作。登錄的界面主要由用戶名和密碼的信息，還有一些標(biāo)題設(shè)置，確定和取消的按鈕組成。通過(guò)標(biāo)題可以知道此系統(tǒng)的大概內(nèi)容，由此，登錄界面的設(shè)計(jì)完成。private sub cmd_cancel_click() unload meend subprivate sub cmd_ok_click() dim sql as string dim rst as adodb.recordsetif (trim(txt_key.text) = ) then msgbox 請(qǐng)輸入密碼, vbokonly + vbexclamation, 提示else sql = select * from 用戶表 where 用戶名= & trim(cmo_user.text) & set rst = executesql(sql, ) if trim(rst.fields(1) = trim(txt_key.text) then if trim(rst.fields(2) 管理員 then frm_main.tianjiayonghu = false frm_main.shanchuyonghu = false frm_main.xiugaiyonghu = false frm_main.shezhi.enabled = false frm_main.xinxiweihu.enabled = false frm_main.command2.enabled = false frm_main.command3.enabled = false frm_main.command4.enabled = false frm_main.command5.enabled = false frm_main.command6.enabled = false frm_main.command7.enabled = false frm_main.command8.enabled = false end if rst.close username = trim(cmo_user.text) frm_main.show unload me else msgbox 密碼不正確，請(qǐng)重新輸入, vbokonly + vbexclamation, 警告 txt_key.setfocus txt_key.text = exit sub end if end ifend subprivate sub cmo_user_keypress(keyascii as integer)keyascii = 0end subprivate sub form_load() dim i as integer dim sql as string dim rst as adodb.recordset sql = select 用戶名 from 用戶表 set rst = executesql(sql, ) for i = 1 to rst.recordcount cmo_user.additem (rst.fields(0) rst.movenext next iend sub4.5 “主窗體模塊”詳細(xì)設(shè)計(jì)主窗體設(shè)計(jì)的界面是用菜單編輯器做的，主要由系統(tǒng)、設(shè)置、信息維護(hù)和工資查詢關(guān)于這五個(gè)大模塊組成。主窗體是進(jìn)行相關(guān)操作的主界面。在這幾個(gè)里，管理員有所有的權(quán)利進(jìn)行各種操作。private sub anbumenchaxun_click()enabled = falseform13.showend subprivate sub anyuangongchaxun_click()enabled = falseform12.showend subprivate sub command1_click()enabled = falseform12.showend subprivate sub command2_click()enabled = falseform9.showend subprivate sub command3_click()enabled = falsefrm_bumenxinxi.showend subprivate sub command4_click()enabled = falsefrm_jiben.showend subprivate sub command5_click()enabled = falsefrm_gangweigongzi.showend subprivate sub command6_click()enabled = falsefrm_tianjiayushanchu.caption = 添加用戶frm_tianjiayushanchu.cmd_delete.enabled = falsefrm_tianjiayushanchu.cmd_alter.enabled = falsefrm_tianjiayushanchu.cmd_adduser.default = truefrm_tianjiayushanchu.showend subprivate sub command7_click()enabled = falsefrm_tianjiayushanchu.caption = 刪除用戶frm_tianjiayushanchu.cmd_adduser.enabled = falsefrm_tianjiayushanchu.txt_password.enabled = falsefrm_tianjiayushanchu.txt_power.enabled = falsefrm_tianjiayushanchu.cmd_alter.enabled = falsefrm_tianjiayushanchu.cmd_delete.default = truefrm_tianjiayushanchu.showend subprivate sub command8_click()enabled = falsefrm_tianjiayushanchu.caption = 修改用戶frm_tianjiayushanchu.txt_username.enabled = falsefrm_tianjiayushanchu.cmd_delete.enabled = falsefrm_tianjiayushanchu.cmd_adduser.enabled = falsefrm_tianjiayushanchu.cmd_alter.enabled = truefrm_tianjiayushanchu.showend subprivate sub exit_click()unload meend subprivate sub fafanggongzi_click()enabled = falseform10.showend subprivate sub form_load()dim i as integer dim sql as string dim rst as adodb.recordset sql = select 權(quán)限 from 用戶表 set rst = executesql(sql, ) for i = 1 to rst.recordcount rst.movenext next iend subprivate sub form_unload(cancel as integer)endend subprivate sub gangweigongzi_click()enabled = falsefrm_gangweigongzi.showend subprivate sub bumenguanli_click()enabled = falsefrm_bumenxinxi.showend subprivate sub jibengongzi_click()enabled = falsefrm_jiben.showend subprivate sub shanchuyonghu_click()enabled = falsefrm_tianjiayushanchu.caption = 刪除用戶frm_tianjiayushanchu.cmd_adduser.enabled = falsefrm_tianjiayushanchu.txt_password.enabled = falsefrm_tianjiayushanchu.txt_power.enabled = falsefrm_tianjiayushanchu.cmd_alter.enabled = falsefrm_tianjiayushanchu.cmd_delete.default = truefrm_tianjiayushanchu.showend subprivate sub tianjiayonghu_click()enabled = falsefrm_tianjiayushanchu.caption = 添加用戶frm_tianjiayushanchu.cmd_delete.enabled = falsefrm_tianjiayushanchu.cmd_alter.enabled = falsefrm_tianjiayushanchu.cmd_adduser.default = truefrm_tianjiayushanchu.showend subprivate sub xiugaiyonghu_click()enabled = falsefrm_tianjiayushanchu.caption = 修改用戶frm_tianjiayushanchu.txt_username.enabled = falsefrm_tianjiayushanchu.cmd_delete.enabled = falsefrm_tianjiayushanchu.cmd_adduser.enabled = falsefrm_tianjiayushanchu.cmd_alter.enabled = truefrm_tianjiayushanchu.showend subprivate sub yuangongguanli_click()enabled = falseform9.showend sub4.6 “添加、刪除、修改模塊”詳細(xì)設(shè)計(jì)單擊主窗體“系統(tǒng)”菜單下面各項(xiàng)，會(huì)彈出下面窗體?？蛇M(jìn)行添加用戶、刪除用戶及修改用戶信息的操作。dim msg_sql as stringdim objrs as adodb.recordsetprivate sub cmd_adduser_click()dim sql as stringdim newrst as adodb.recordsetsql = insert into 用戶表 values( & & trim(txt_username.text) & , & & trim(txt_password.text) & , & & trim(txt_power) & & )set newrst = execute_sql(sql)sql = select * from 用戶表set newrst = select_sql(sql)set datagrid1.datasource = newrsttxt_username.setfocustxt_username.text = txt_password.text = txt_power.text = end subprivate sub cmd_cancel_click()frm_main.enabled = trueunload meend subprivate sub cmd_delete_click() if objrs.recordcount = 0 then msgbox 庫(kù)中沒(méi)有記錄!elseif objrs.recordcount 0 thenif msgbox(真的要?jiǎng)h除該用戶?, vbyesno + vbquestion, 警告) = vbyes thenobjrs.deletemsgbox 刪除成功!, vbinformation, 提示 end if end if end ifend subprivate sub cmd_alter_click()if trim(txt_password.text) = or trim(txt_power.text) = thenmsgbox 請(qǐng)將修改后的信息填寫(xiě)完整！, vbokonly + vbexclamation, 警告elseif msgbox(確定修改嗎？, vbyesno + vbexclamation, 警告) = vbyes thenset rst = executesql(update 用戶表 set 密碼= & trim(txt_password.text) & where 用戶名 = & trim(txt_username.text) & , msg_sql)set rst = executesql(update 用戶表 set 權(quán)限= & trim(txt_power.text) & where 用戶名 = & trim(txt_username.text) & , msg_sql)set objrs = executesql(select * from 用戶表, msg_sql)set datagrid1.datasource = objrsmsgbox 修改成功！, vbokonly + vbexclamation, 提示txt_password.setfocustxt_username.text = txt_password.text = txt_power.text = end ifend ifend subprivate sub datagrid1_click()txt_username.text = datagrid1.columns(0)txt_password.text = datagrid1.columns(1)txt_power.text = datagrid1.columns(2)end subprivate sub form_load()set objrs = executesql(select * from 用戶表, msg_sql)set datagrid1.datasource = objrsend subprivate sub form_unload(cancel as integer)frm_main.enabled = trueend sub4.7 “基本工資設(shè)置模塊”詳細(xì)設(shè)計(jì)單擊主窗體“設(shè)置”菜單下的“基本工資”命令，會(huì)彈出“基本工資”窗口，可對(duì)基本工資的級(jí)別和相應(yīng)金額進(jìn)行添加、刪除與修改。dim objrs as adodb.recordsetdim msg_sql as stringprivate sub cmd_add_click()if combo_level.text then set objrs = executesql(insert into 基本工資 values( + str(combo_level.text) + , + (text_pay.text) + ), msg_sql) set objrs = executesql(select * from 基本工資, msg_sql) set datagrid1.datasource = objrs combo_level.setfocus combo_level.text = text_pay.text = end ifend subprivate sub cmd_alter_click()if trim(combo_level.text) = or trim(text_pay.text) = thenmsgbox 請(qǐng)將修改后的信息填寫(xiě)完整！, vbokonly + vbexclamation, 警告elseif msgbox(確定修改嗎？, vbyesno + vbexclamation, 警告) = vbyes thenset rst = executesql(update 基本工資 set 工資級(jí)別= & trim(combo_level.text) & where 工資級(jí)別 = & trim(combo_level.text) & , msg_sql)set rst = executesql(update 基本工資 set 工資金額= & trim(text_pay.text) & where 工資級(jí)別 = & trim(combo_level.text) & , msg_sql)set objrs = executesql(select * from 基本工資, msg_sql)set datagrid1.datasource = objrsmsgbox 修改成功！, vbokonly + vbexclamation, 提示combo_level.text = text_pay.text = end ifend ifend subprivate sub cmd_cancel_click()frm_main.enabled = trueunload meend subprivate sub cmd_delete_click() if objrs.recordcount = 0 then msgbox 庫(kù)中沒(méi)有記錄! exit sub end if if objrs.recordcount 0 then if msgbox(真的要?jiǎng)h除該級(jí)別工資信息嗎?, vbyesno + vbquestion, 警告) = vbyes then objrs.delete msgbox 刪除成功!, vbinformation, 提示 combo_level.setfocus combo_level.text = text_pay.text = end if end ifend subprivate sub datagrid1_click()combo_level.text = datagrid1.columns(0)text_pay.text = datagrid1.columns(1)end subprivate sub form_load()set objrs = executesql(select * from 基本工資, msg_sql)set datagrid1.datasource = objrsend subprivate sub form_unload(cancel as integer)frm_main.enabled = trueend subprivate sub text_pay_lostfocus()if val(text_pay.text) = 10000 then msgbox 數(shù)據(jù)非法 text_pay.text = text_pay.setfocusend ifend sub4.8 “崗位工資設(shè)置模塊”詳細(xì)設(shè)計(jì)單擊主窗體“設(shè)置”菜單下的“崗位工資”命令，會(huì)彈出“崗位工資”窗口，可對(duì)崗位工資的級(jí)別和相應(yīng)金額進(jìn)行添加、刪除與修改。dim objrs as adodb.recordsetdim msg_sql as stringprivate sub cmd_add_click()if combo_level.text then set objrs = executesql(insert into 崗位工資 values( + str(combo_level.text) + , + (text_pay.text) + ), msg_sql) set objrs = executesql(select * from 崗位工資, msg_sql) set datagrid1.datasource = objrs combo_level.setfocus combo_level.text = text_pay.text = end ifend subprivate sub cmd_alter_click()if trim(combo_level.text) = or trim(text_pay.text) = thenmsgbox 請(qǐng)將修改后的信息填寫(xiě)完整！, vbokonly + vbexclamation, 警告elseif msgbox(確定修改嗎？, vbyesno + vbexclamation, 警告) = vbyes thenset rst = executesql(update 崗位工資 set 工資級(jí)別= & trim(combo_level.text) & where 工資級(jí)別 = & trim(combo_level.text) & , msg_sql)set rst = executesql(update 崗位工資 set 工資金額= & trim(text_pay.text) & where 工資級(jí)別 = & trim(combo_level.text) & , msg_sql)set objrs = executesql(select * from 崗位工資, msg_sql)set datagrid1.datasource = objrsmsgbox 修改成功！, vbokonly + vbexclamation, 提示combo_level.text = text_pay.text = end ifend ifend subprivate sub cmd_cancel_click()frm_main.enabled = trueunload meend subprivate sub cmd_delete_click() if objrs.recordcount = 0 then msgbox 庫(kù)中沒(méi)有記錄! exit sub end if if objrs.recordcount 0 then if msgbox(真的要?jiǎng)h除該級(jí)別工資信息嗎?, vbyesno + vbquestion, 警告) = vbyes then objrs.delete msgbox 刪除成功!, vbinformation, 提示 combo_level.setfocus combo_level.text = text_pay.text = end if end ifend subprivate sub datagrid1_click()combo_level.text = datagrid1.columns(0)text_pay.text = datagrid1.columns(1)end subprivate sub form_load()set objrs = executesql(select * from 崗位工資, msg_sql)set datagrid1.datasource = objrsend subprivate sub form_unload(cancel as integer)frm_main.enabled = trueend subprivate sub text_pay_lostfocus()if val(text_pay.text) = 10000 then msgbox 數(shù)據(jù)非法 text_pay.text = text_pay.setfocus end ifend sub4.9 “部門(mén)信息管理模塊”詳細(xì)設(shè)計(jì)單擊主窗體“信息維護(hù)”菜單下的“部門(mén)信息管理”命令，會(huì)彈出“部門(mén)信息管理”窗口，可對(duì)部門(mén)信息進(jìn)行添加、刪除與修改。dim objrs as adodb.recordsetdim msg_sql as stringprivate sub cmd_add_click()dim sqlbianhao, sqlmingcheng, sqlfuzeren, sqlrenshu as string sqlbianhao = cmo_bianhao.text sqlmingcheng = cmo_mingcheng.text sqlfuzeren = txt_fuzeren.text sqlrenshu = txt_renshu.text if cmo_bianhao.text and cmo_mingcheng.text then if msgbox(確定添加嗎？, vbyesno + vbexclamation, 警告) = vbyes then set objrs = executesql(insert into 部門(mén)信息 values( + + sqlbianhao + + , + sqlmingcheng + , + sqlfuzeren + , + sqlrenshu + ), msg_sql) set objrs = executesql(select * from 部門(mén)信息, msg_sql) set datagrid1.datasource = objrs msgbox 添加成功！, vbokonly + vbexclamation, 提示 cmo_bianhao.setfocuscmo_bianhao.text = cmo_mingcheng.text = txt_fuzeren.text = txt_renshu.text = end if end ifend subprivate sub cmd_alter_click()if trim(cmo_bianhao.text) = or trim(cmo_mingcheng.text) = or trim(txt_fuzeren.text) = or trim(txt_renshu.text) = thenmsgbox 請(qǐng)將修改后的信息填寫(xiě)完整！, vbokonly + vbexclamation, 警告elseif msgbox(確定修改嗎？, vbyesno + vbexclamation, 警告) = vbyes thenset rst = executesql(update 部門(mén)信息 set 部門(mén)名稱= & trim(cmo_mingcheng.text) & where 部門(mén)編號(hào) = & trim(cmo_bianhao.text) & , msg_sql)set rst = executesql(update 部門(mén)信息 set 部門(mén)負(fù)責(zé)人= & trim(txt_fuzeren.text) & where 部門(mén)編號(hào) = & trim(cmo_bianhao.text) & , msg_sql)set rst = executesql(update 部門(mén)信息 set 部門(mén)人數(shù)= & trim(txt_renshu.text) & where 部門(mén)編號(hào) = & trim(cmo_bianhao.text) & , msg_sql)set objrs = executesql(select * from 部門(mén)信息, msg_sql)set datagrid1.datasource = objrsmsgbox 修改成功！, vbokonly + vbexclamation, 提示cmo_bianhao.setfocuscmo_bianhao.text = cmo_mingcheng.text = txt_fuzeren.text = txt_renshu.text = end ifend ifend subprivate sub cmd_cancel_click()frm_main.enabled = trueunload meend subprivate sub cmd_delete_click() if objrs.recordcount = 0 then msgbox 庫(kù)中沒(méi)有記錄!elseif objrs.recordcount 0 thenif msgbox(真的要?jiǎng)h除該部門(mén)?, vbyesno + vbquestion, 警告) = vbyes thenobjrs.deletemsgbox 刪除成功!, vbinformation, 提示 end if end if end ifend subprivate sub datagrid1_click()cmo_bianhao.text = datagrid1.columns(0)cmo_mingcheng.text = datagrid1.columns(1)txt_fuzeren.text = datagrid1.columns(2)txt_renshu.text = datagrid1.columns(3)end subprivate sub form_load()set objrs = executesql(select * from 部門(mén)信息, msg_sql)set data