個(gè)人名片管理系統(tǒng)(編輯修改稿)
2024-10-13 09:15 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 能和數(shù)據(jù)庫(kù)建立連接 . 按 任 意 鍵 關(guān) 閉 系統(tǒng) .....39。,StopSign!) halt close。 //直接關(guān)閉整個(gè)應(yīng)用 end if close 事件的代碼如下： Disconnect。 //斷開和數(shù)據(jù)庫(kù)的連接 數(shù)據(jù)窗口的建立 本系統(tǒng)中建立了四個(gè)數(shù)據(jù)窗口，它們分別 是 跟名片錄入、名片修改、名片查詢、用戶信息有關(guān)的 dw_mp_input 、 dw_mp_modify 、dw_mp_query、 dw_mp_users。 下面，主要介紹其中的一個(gè)數(shù)據(jù)窗口 dw_mp_input 的創(chuàng)建過(guò)程。 選擇窗口菜單 FileNew，或者使用快捷鍵 Ctrl + N，或者點(diǎn)擊窗口工具條中左側(cè)第一個(gè)小圖標(biāo)按鈕‘ New’，打開‘ New’對(duì)話框，點(diǎn)擊上面的‘ DataWindow’顯示如圖 51 所示的界面。 9 圖 1 新建數(shù)據(jù)窗口 選擇其中的‘ Freeform’，然后點(diǎn)擊窗口底部的命令按鈕‘ OK’。圖 1 所示的窗口關(guān)閉，打開圖 2 所示的對(duì)話框。 圖 2 選擇數(shù)據(jù)源 在圖 2 所示的窗口中選擇‘ Quick Select’，然后點(diǎn)擊窗口底部的命令按鈕‘ Next’，打開如圖 3 所示的對(duì)話框。 10 在圖 3 所示的對(duì)話框中，選擇左側(cè)‘ Tables’中的表‘ mpgl’，然后點(diǎn)擊右側(cè)的命令按鈕‘ Add All’，然后點(diǎn)擊窗口右上角的命令按鈕‘ OK’，顯示如圖 4 所示的對(duì)話框。在該對(duì)話框中設(shè)置數(shù)據(jù)窗口的顯示樣式。 11 圖 4 設(shè)置顯示格式 在該對(duì)話框中，選擇‘ Background Color’為‘ Button Face’，選擇‘ Columns’組框中的‘ Border’為‘ Lowered’。然后點(diǎn)擊窗口底部的命令按鈕‘ Next’，打開如圖 5 所示的對(duì)話框。 圖 5 總結(jié)信息 圖 55 所示的對(duì)話框是總結(jié)信息，顯示我們?cè)谇懊娴倪x擇。點(diǎn)擊窗口底部的命令按鈕‘ Finish’即可完成數(shù)據(jù)窗口創(chuàng)建向?qū)У墓ぷ?，進(jìn)入到Datawindow 畫板中。接下來(lái)我們需要進(jìn)一步修改數(shù)據(jù)窗口的外觀 ， 至此，名片輸入數(shù)據(jù)窗口創(chuàng)建完成。保存該數(shù)據(jù)窗口，命名為‘ dw_mp_input’，并且在保存時(shí)為該數(shù)據(jù)窗口對(duì)象輸入提示信息。 數(shù)據(jù)窗口 dw_mp_modify 和 dw_mp_query 的創(chuàng)建過(guò)程同上，并且數(shù)據(jù)源 也是數(shù)據(jù)表 mpgl，而數(shù)據(jù)窗口 dw_mp_users 的數(shù)據(jù)源與它們不同，它的數(shù)據(jù)源是數(shù)據(jù)表 users。 至此，我們所需要的數(shù)據(jù)窗口都已經(jīng)建立完畢。 創(chuàng)建全局函數(shù) gf_getbh 使用全局函數(shù)，便于程序的重用和邏輯上的封裝。 在創(chuàng)建數(shù)據(jù)表時(shí)， mpgl 表中的字段 bh 定義為 char(10)類型。首先我們定義編碼的規(guī)則如下： (1) 前 6 位為 2 位年、 2 位月、 2 位日； (2) 后 4 位為流水號(hào)，取當(dāng)前最大值加 1。 根據(jù)上面的規(guī)則我們創(chuàng)建一個(gè)全局函數(shù)。 函數(shù)定義 如下： /* * 函數(shù)名稱： String gf_getbh(string as_bh) * 函數(shù)作用：生成一個(gè)編號(hào)。 * 返 回 值： string 類型的，編號(hào)。 * 調(diào)用舉例： ls_new = gf_getbh(ls_old) 12 * 其中， ls_old 為數(shù)據(jù)窗口中已經(jīng)存在的當(dāng)天的最大編號(hào)。 **/ String ls_Part1 //用來(lái)保存編碼的前 6 位 String ls_Part2 //用來(lái)保存編碼的后 4 位 String ls_DbSn //數(shù)據(jù)庫(kù)中的當(dāng)天最大流水號(hào) string ls_AgrSn //參數(shù)中的流水號(hào) String ls_sn //新生成的編號(hào) ls_part1 = Right(String(today(),39。yyyymmdd39。),6) ls_AgrSn = Right(as_bh,4) //從數(shù)據(jù)庫(kù)中選擇當(dāng)天最大的編號(hào) select max(bh) into :ls_Dbsn from mpgl where substring(bh,1,6) = :ls_part1。 if = 0 then //如果正確取出了數(shù)據(jù) if IsNull(ls_Dbsn) or ls_Dbsn = 39。39。 then ls_Dbsn = 39。000039。 else ls_DbSn = Right(ls_DbSn,4) end if if IsNull(ls_Agrsn) or ls_Agrsn = 39。39。 then ls_Agrsn = 39。000039。 if integer(ls_Dbsn) integer(ls_AgrSn) then ls_Part2 = String(integer(ls_AgrSn) + 1) else ls_Part2 = String(integer(ls_DbSn) + 1) end if ls_sn = ls_part1 + Right(39。000039。 + ls_Part2,4) else ls_sn = 39。39。 end if return ls_sn 創(chuàng)建主菜單 菜單是一個(gè)非常不錯(cuò)的控件，在很多操作系
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1