人事管理系統(tǒng)分析報(bào)告-在線瀏覽
2024-09-13 08:52本頁面
【正文】 管理是按照用戶的權(quán)限設(shè)定的，高級(jí)用戶可以分配用戶、修改其他用戶的權(quán)限。這些操作可以利用數(shù)據(jù)窗口的基本屬性就可以實(shí)現(xiàn)。然后系統(tǒng)將用戶名，操作時(shí)間，操作內(nèi)容都記錄下來，寫到數(shù)據(jù)庫中。具體代碼：//==========================================================// Function f_exportto_word//// Description: 將數(shù)據(jù)窗口中的數(shù)據(jù)導(dǎo)出到word文件中//// Arguments: // datawindow datawindow// description 要保存的數(shù)據(jù)窗口//// Returns: (none)//==========================================================OLEObject ole_objectole_object = CREATE OLEObject//連接wordIF () 0 THEN MessageBox(39。,39。) returnEND IF = Truelong ll_colnum,ll_rownumconstant long wdWord9TableBehavior = 1constant long wdAutoFitFixed = 0constant long wdCell = 12string ls_value//得到數(shù)據(jù)窗口數(shù)據(jù)的列數(shù)與行數(shù)（行數(shù)應(yīng)該是數(shù)據(jù)行數(shù) + 1）ll_colnum = Long()ll_rownum = () + 1()(, ll_rownum, ll_colnum)string ls_colnameinteger i,jfor i = 1 to ll_colnum//得到標(biāo)題頭的名字ls_colname = (39。 + string(i) + .name) + _t ls_value = (ls_colname + .text) (trim(ls_value)) (wdCell)next(false)(wdCell)for i = 2 to ll_rownum for j = 1 to ll_colnum (i 1) (j) ls_value = () (wdCell) (ls_value) nextnext(true)constant long wdFormatDocument = 0//保存新建的文檔(, 0,False,True,False,False,False, False,False)//斷開OLE連接()Destroy Ole_Object4．2導(dǎo)入excel函數(shù)導(dǎo)入excel函數(shù)基本思想：建立ole對(duì)象連接excel,獲得要導(dǎo)入數(shù)據(jù)窗口的行數(shù)和列數(shù)，根據(jù)數(shù)據(jù)窗口的行數(shù)和列數(shù)獲得數(shù)據(jù)窗口中的數(shù)據(jù)，然后一個(gè)數(shù)據(jù)一個(gè)數(shù)據(jù)的寫入到excel中，最后斷開ole對(duì)象連接. 具體代碼：//==========================================================// Function f_exportto_excel//// Description: 將數(shù)據(jù)窗口中的數(shù)據(jù)導(dǎo)出到excel文件中//// Arguments: // datawindow datawindow// description 要保存的數(shù)據(jù)窗口//// Returns: (none)//============================================
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1