畢業(yè)設計(論文)-用電管理系統(tǒng)的開發(fā)附程序.doc

用電管理系統(tǒng)的開發(fā)摘要本文以用電管理系統(tǒng)的開發(fā)為背景，論述了管理信息系統(tǒng)的概念、結構及系統(tǒng)開發(fā)的基本原理和方法，全文共分為前言、管理信息系統(tǒng)綜述、開發(fā)意義、開發(fā)環(huán)境、開發(fā)方法的選擇、系統(tǒng)分析、系統(tǒng)實現(xiàn)、系統(tǒng)運行及維護、開發(fā)總結等七章。詳細闡述了系統(tǒng)分析、系統(tǒng)設計的技術及其應用，討論了結構化生命周期法與原型法這兩種開發(fā)方法的技術。前言用電管理系統(tǒng)是一個電業(yè)單位不可缺少的部分,它的內容對于企業(yè)的決策者和管理者來說都至關重要,所以用電管理系統(tǒng)應該能夠為用戶提供充足的信息和快捷的數據處理手段。但一直以來人們使用傳統(tǒng)人工的方式進行用電管理，這種管理方式存在著許多缺點,如:效率低、保密性差,另外時間一長,將產生大量的文件和數據,這對于查找、更新和維護都帶來了不少的困難。隨著科學技術的不斷提高,計算機科學日漸成熟,其強大的功能已為人們深刻認識,它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。作為計算機應用的一部分,使用計算機對用電信息進行管理,具有著手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、易修改、可靠性高、存儲量大、數據處理快捷、保密性好、壽命長、成本低、便于打印等。這些優(yōu)點能夠極大地提高用電管理的效率,也是企業(yè)的科學化、正規(guī)化管理,與世界接軌的重要條件。因此，開發(fā)這樣一套管理軟件成為很有必要的事情,在下面的各章中將以開發(fā)一套小型用電管理系統(tǒng)為例,談談其開發(fā)過程和所涉及到的問題及解決方法。第一章 管理信息系統(tǒng)綜述2.1 概述 管理信息系統(tǒng)（management information system，簡稱mis）是一個由管理人員和計算機組成的用以進行信息的收集、傳輸、加工、存儲、維護和使用的系統(tǒng)。它是一門綜合了管理科學，系統(tǒng)理論，計算機科學的系統(tǒng)性邊緣科學。 管理信息系統(tǒng)的物理組成:(1)計算機硬件系統(tǒng)：包括主機、外部存儲器、輸入輸出設備等。(2)計算機軟件系統(tǒng)：包括系統(tǒng)軟件和應用軟件兩大部分。(3)通信系統(tǒng)：包括線路等通信設施和與計算機網絡、數據通信有關的軟件等。(4) 工作人員：包括系統(tǒng)分析員、程序設計員、維護人員、管理員、操作人員等。2.2 管理信息系統(tǒng)的發(fā)展 管理信息系統(tǒng)通過對企業(yè)當前運行的數據進行處理來獲得有關信息，以控制企業(yè)的行為；利用過去和現(xiàn)在的數據及相應的模型，對未來的發(fā)展進行預測；能從全局目標出發(fā)，對企業(yè)的管理決策活動予以輔助。從工業(yè)發(fā)達國家來看，管理信息系統(tǒng)的發(fā)展經歷了以下幾個階段。 第一階段：（1953年至1965年）單項數據處理階段，也稱電子數據處理（edp）階段。這是電子計算機在管理領域應用的起步階段。這一階段，由于當時計算機硬、軟件的限制，數據處理的性質只是使用計算機代替人的手工勞動，進行簡單的單項數據處理工作，如計算用電、數據統(tǒng)計、報表登記、編制計劃等。這個階段的處理方式主要是集中式的批處理。 第二階段：（1965年至1970年）綜合數據處理階段，也稱事務處理系統(tǒng)（tps）階段。這個階段計算機硬、軟件有了很大的發(fā)展，出現(xiàn)了多用戶的分時系統(tǒng)，計算機開始應用于對某一個管理子系統(tǒng)的控制，并具有一定的反饋功能。如庫存管理系統(tǒng)、生產調度系統(tǒng)、用電管理系統(tǒng)等。這個階段的處理方式已發(fā)展為面向終端的聯(lián)機實時處理。 第三階段：（1970年至今）管理信息系統(tǒng)（mis）階段。這個階段是在企業(yè)中全面的使用計算機把各種管理子系統(tǒng)的功能集中起來，構成了計算機化的全方位的信息系統(tǒng)，即現(xiàn)代管理信息系統(tǒng)。這個階段的處理方式是在數據庫和網絡基礎上組成分布式處理系統(tǒng)。它的特點是使用數據庫和分時處理的計算機網絡，并充分利用運籌學等數學方法，實現(xiàn)了硬件、軟件和數據資源的共享。第二章 開發(fā)用電管理系統(tǒng)的意義 計算機已經成為我們學習和工作的得力助手：今天，計算機的價格已經十分低廉，性能卻有了長足的進步。它已經被應用于許多領域，計算機之所以如此流行的原因主要有以下幾個方面：首先，計算機可以代替人工進行許多繁雜的勞動；其次，計算機可以節(jié)省許多資源；第三，計算機可以大大的提高人們的工作效率；第四，計算機可以使敏感文檔更加安全，等等。 在電業(yè)企業(yè)中開發(fā)計算機用電管理系統(tǒng)的意義現(xiàn)在我國的中小型電力企業(yè)的用電管理水平還停留在紙介質的基礎上，這樣的機制已經不能適應時代的發(fā)展，因為它浪費了許多人力和物力，在信息時代這種傳統(tǒng)的管理方法必然被計算機為基礎的信息管理所取代。而購買大型通用用電管理系統(tǒng)，對中小型企業(yè)來說，又需要付出昂貴的代價，而且用電項目不一定完全符合企業(yè)用電管理的要求。因此根據企業(yè)目前實際的用電管理情況開發(fā)一套用電管理系統(tǒng)是十分必要的。 歸納起來，好處大約有以下幾點：1 可以存儲用電檔案，安全、高效；2 只需一到二名用電管理員或財會人員即可操作系統(tǒng)，節(jié)省大量人力；3 可以迅速查到所需信息。4可及時打印用電單，方便用電發(fā)放。第三章 開發(fā)所需的環(huán)境1、 軟件環(huán)境1.1 開發(fā)平臺的選擇 考慮到本系統(tǒng)的性能要求，和現(xiàn)有的條件，我們選擇了windows98中文版作為開發(fā)、測試和運行的平臺。因為windows操作系統(tǒng)是目前應用最廣的操作系統(tǒng)，它以全新的圖形界面，簡單快捷的操作方式，支持多媒體功能等特點而成為軟件發(fā)展的流行趨勢，選用它作為開發(fā)平臺，易于功能的擴展和軟件升級。1.2 開發(fā)工具的選擇 針對目前世界上流行的大量軟件和開發(fā)工具，經過認真分析其優(yōu)缺點，結合計量器具管理系統(tǒng)的需要和目前的硬件環(huán)境，我們選用微軟windows平臺下的visual foxpro6.0（簡寫為vfp6.0）作為軟件開發(fā)工具。選用該工具有發(fā)下幾方面的優(yōu)點： （1）vfp6.0是目前微機上最優(yōu)秀的關系型數據庫管理系統(tǒng)軟件，正如其名稱中冠以的“visual”一樣，它采用了可視化、面向對象的程序設計方法，提供了大量的控件，這些控件可用于設計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的運行效率和可靠性，大大簡化了應用系統(tǒng)的開發(fā)過程，并提高了系統(tǒng)工程的模塊化和緊湊性。 （2）vfp6.0版本中提供了大量的諸如“數據庫設計器”、“表單設計器”、“菜單設計器”、“報表設計器”等開發(fā)設計工具和向導工具（wizard）,使以往費時費力的開發(fā)工作變得輕松自如。這些可視化的設計工具免除了開發(fā)者編寫大量程序代碼的工作。 2、 硬件環(huán)境硬件配置要求： cpu：pii200以上。 內存：32mb以上。 硬盤：2.1gb以上（可用空間最好在160mb以上）。 打印機：推薦epson lq-1600kii第四章 開發(fā)方法的選擇建立一個管理信息系統(tǒng)，是一項復雜的軟件工程的實施。近30多年來，軟件工程發(fā)展成為新科學，至今已經成為it產業(yè)的重要支柱。一開始，人們往往使用手工作坊式的軟件開發(fā)方法，靠個人的力量編寫各種小型程序；但是隨著計算機硬件技術的飛速發(fā)展，計算機軟件在各個領域中的作用日益突出，那種多年來被人們沿用的手工作坊式的開發(fā)方法，已經在軟件產品的質量、成本及開發(fā)時間等方面無法滿足需求。80年代，軟件工程思想得到了系統(tǒng)的歸納和整理，提出了許多新的工程方法，比如生命周期法、快速原型法等。 進入90年代，非結構化或半結構化的、可視化的、面向對象的方法不斷涌現(xiàn)，使軟件開發(fā)方法得到了較大的發(fā)展。本系統(tǒng)開發(fā)所采用的方法是總體上采用結構化生命周期法進行系統(tǒng)規(guī)則、系統(tǒng)分析和系統(tǒng)設計，但在系統(tǒng)實施階段采用原型法。而具體編程采用可視化、面向對象的方法。 一、結構化生命周期法，其基本思想是把整個系統(tǒng)開發(fā)過程分成若干個階段，每個階段進行若干活動，每項活動應用一系列標準、規(guī)范、方法和技術，完成一個或多個任務，形成符合給定規(guī)范的產品。 采用結構化生命周期法開發(fā)管理信息系統(tǒng)時，應遵循的主要原則： （一）用戶參與的原則 （二）“先邏輯后物理”的原則 （三）“自頂向下”的原則 （四）工作成果描述（主要指文檔）標準化的原則 其具體開發(fā)步驟可分為以下四步： （一）系統(tǒng)規(guī)劃 （二）系統(tǒng)開發(fā) 1、系統(tǒng)分析 .系統(tǒng)初步調查 .系統(tǒng)可行性研究 .現(xiàn)行系統(tǒng)的詳細調查 .新系統(tǒng)邏輯方案的提出 2、系統(tǒng)設計 .系統(tǒng)總體結構設計 .系統(tǒng)總體功能設計 .系統(tǒng)總體物理結構設計 .系統(tǒng)詳細設計 .數據庫設計 .代碼設計 .輸入輸出設計 3、系統(tǒng)實施 .程序設計 .系統(tǒng)測試 （三）系統(tǒng)的運行及維護 （四）系統(tǒng)評價 二、快速原型法，其基本思想是在系統(tǒng)開發(fā)的初期，盡快構造出系統(tǒng)的原型，使用戶能及早地運行這個系統(tǒng)原型，通過使用它、熟悉它，受到啟發(fā)并取得經驗，然后對系統(tǒng)的目標和功能提出更精確、具體的要求，研制人員據此逐漸修改和完善原型，使它滿足用戶的需求，最后完成系統(tǒng)的開發(fā)。該方法大大提高了系統(tǒng)開發(fā)效率，彌補了結構化生命周期法開發(fā)時間長的缺陷。 通常采用原型法需以下四個階段： （一）明確用戶的基本要求 （二）研制系統(tǒng)的原型 （三）使用、評價系統(tǒng)原型 （四）修改和完善原型第五章 系統(tǒng)分析系統(tǒng)分析就是明確系統(tǒng)開發(fā)的目標和用戶的信息需求，提出系統(tǒng)的邏輯方案。系統(tǒng)分析在整個系統(tǒng)開發(fā)過程中，是要解決“做什么”的問題，把要解決哪些問題、要滿足用戶哪些具體的信息需求調查、分析清楚，從邏輯上或從功能需求上提出系統(tǒng)的方案。通過對系統(tǒng)的調查和可行性分析，畫出系統(tǒng)的數據流程圖：0層:操作員用電管理系統(tǒng)操作員抄表本信息臺帳操作員查詢條件操作員統(tǒng)計項查詢結果統(tǒng)計報表操作員1層dfd圖0.50.1抄表本處 理操作員統(tǒng)計項統(tǒng)計抄表本信息統(tǒng)計結果 0.4 操作員查詢d0 查詢條件用電管理表查詢結果0.2電費處理0.3操作員打印處理報表 第六章 系統(tǒng)設計管理信息系統(tǒng)設計階段的主要目的是將系統(tǒng)分析階段所提出的反映了用戶信息需求的系統(tǒng)邏輯方案轉換成可以實施的基于計算機與通信系統(tǒng)的物理（技術）方案。具體要求對系統(tǒng)進行功能分解，不斷下去，直到分解成含義明確，功能單一的單元功能模塊，從而繪制出系統(tǒng)的功能模塊圖，即hipo圖。用電管理信息系統(tǒng)的hipo圖如下：用電管理系統(tǒng) 用戶登錄合成各供電所電費數據提取各供電所電費數據數據傳遞銀行劃帳農業(yè)銀行工商銀行電費抄表區(qū)號清單查詢數據查詢電費數據參數查詢報表管理線路損耗報表電費應收報表年初自動謄換抄表本抄表本移表數據維護電費區(qū)號資料維護本月已開票電費區(qū)資料維護豐水期枯水期電價轉換電費應收月報表處理電費抄表數據處理電費處理電費抄表本管理電費數據報表打印電費抄表數據處理電費數據通迅程式退出管理系統(tǒng)操作人員基本參數維護更改處理日期系統(tǒng)維護 一、數據庫設計數據庫設計是要在一個給定的應用環(huán)境（dbms）中，通過合理的邏輯設計和有效的物理設計，構造較優(yōu)的數據庫模式、子模式，建立數據庫和設計應用程序，滿足用戶的各種信息需求。l概念結構設計在數據庫設計中，先要對系統(tǒng)分析所得的數據字典中的數據存儲進行分析，然后得出系統(tǒng)的關系模式，可以采用實體聯(lián)系圖（簡稱er圖）的方法進行數據結構的描述。er圖由實體、屬性、聯(lián)系三部分組成。er圖的有關符號說明如下： 實體 屬性根據數據字典的內容，得到本系統(tǒng)的實體聯(lián)系圖如下： bank表 hh hn . dfrq ykje 用電管理系統(tǒng)的e-r圖(一) df_bz表hh belong . hm . jhh . 用電管理系統(tǒng)的e-r圖(二)l邏輯結構設計實體聯(lián)系圖向關系模型的轉換結果如下所示：bank表(hh,hm,zh，dfrq,df,ykje)其中hh是此關系的主關鍵碼。csy表(a1,a2)df_bz表（hh , belong , jsjh , hm , sydl , bs , xs , bxz , jfbbz , jhh , belong95 ）其中hh是此關系的主碼。df_dj表(lb , dj, fjdj1, fjdj2, fjdj3 , fjdj4 fjdj5 , fjdj6, fjdj7, fjdj8, fsdhdj, ksqhjdj, xh, fjdi2f, fjdi2k)其中l(wèi)b是此關系的主碼。df_rb表(lb, zs, jfdd, jzdj, fjf2, fjf1, fjf7, fjf5, jf3, hjdj, ksqhjdj, fsqhjdj)其中l(wèi)b是此關系的主碼。l物理結構設計物理結構設計的原則如下：（1）盡可能的減少數據冗余和重復。（2）結構設計與操作設計相結合。（3）數據結構具有相對的穩(wěn)定性。基于以上設計原則，本系統(tǒng)中相關數據庫表結構設計舉例如下：bank表字段名 類型 寬度 小數hh 字符型 8 hm 字符型 40zh 字符型 20dfrq 字符型 8df 數值型 10 2 ykje 數值型 10 2csy表字段名 類型 寬度 小數a1 字符型 2a2 字符型 8df_bz表字段名 類型 寬度 小數hh 字符型 8 belong 字符型 8jsjh 字符型 8hm 字符型 30sydl 數值型 8 0 bs 數值型 8 0xs 數值型 8 0bxz 字符型 1jfbbz 字符型 1jhh 字符型 6belong95 字符型 6df_dj表字段名 類型 寬度 小數lb 字符型 38 dj 數值型 6 4fjdj1 數值型 8 3fjdj2 數值型 8 3fjdj3 數值型 8 3fjdj4 數值型 8 3fjdj5 數值型 8 3fjdj6 數值型 8 3fjdj7 數值型 8 3fjdj8 數值型 8 3fsqhdj 數值型 8 3 ksqhjdj 數值型 8 3xh 字符型 2fjdj2f 數值型 8 6fjdj2k 數值型 8 6df_rb表字段名 類型 寬度 小數位數lb 字符型 16zs 數值型 4 0jfdd 數值型 8 0jzdj 數值型 6 4fjf2 數值型 10 2fjf1 數值型 10 2fjf7 數值型 8 2fjf5 數值型 8 2fjf3 數值型 10 2hjdj 數值型 8 6ksqhjdj 數值型 8 6fsqhjdj 數值型 8 6dkcontrl表字段名 類型 寬度 小數位數fname 字符型 200filsize 數值型 10 0fdate 日期型 8ftime 字符型 10fattrib 字符型 5cprsname 字符型 12cprssize 數值型 10 0expndsize 數值型 10 0filfound 邏輯型 1dest144 整型 4dest12 整型 4dest720 整型 4destnet 整型 4destweb 整型 4setupfile 邏輯型 1extrafile 邏輯型 1extratype 字符型 10cprsflag 邏輯型 1compress 邏輯型 1parent 字符型 12splitfile 邏輯型 1uniqueid 字符型 14version 字符型 12language 字符型 12target 字符型 40pmgroup 邏輯型 1descript 字符型 100command 字符型 100icon 字符型 80register 邏輯型 1servertype 整型 4netaddress 字符型 100protocol 字符型 20autnentica 整型 4instlocal 邏輯型 1uses 備注型 4regaction 備注型 4instaction 備注型 4cabfname 備注型 4cabdefurl 備注型 4cabinffile 字符型 64filepath 備注型 4infclass 字符型 25refkey 字符型 20vital 邏輯型 1.readonly 邏輯型 1shared 邏輯型 1system 邏輯型 1regkey 字符型 20vfpspecial 邏輯型 1customact 備注型 4regdata 備注型 4shortfname 字符型 12neverrmv 邏輯型 1jl表字段名 類型 寬度 小數位數hc_czy 字符型 8hc_time 字符型 16tq_czy 字符型 8tq_time 字符型 16ys 字符型 6ls_df表字段名 類型 寬度 小數位數hh 字符型 8jsjh 字符型 8hm 字符型 30dz 字符型 20gh 字符型 5fbbz 字符型 1ygbz 字符型 1wgbz 字符型 1sh 字符型 2hy 字符型 20zh 字符型 19hydh 字符型 8dy 字符型 1dl1 字符型 3dl2 字符型 2dlb 字符型 3xszb 字符型 1bsftbz 字符型 1llbz 字符型 1bz 數值型 8 4ll 數值型 6 4tzl 數值型 6 2bzrl 數值型 5 0jfrl 數值型 8 2tdts 數值型 2 0byixh 字符型 1bh 字符型 8ch 字符型 5bl 字符型 5dd 字符型 5bsl 數值型 2 0gsdd 數值型 6 0gsbs 數值型 5 0ctcq 字符型 12ct 字符型 5rq 字符型 6lkrq 字符型 6lxr 字符型 6dhhm 字符型 12zbr 字符型 6cdr 字符型 6jhh 字符型 6dddj 數值型 7 5fjdj1 數值型 7 5fjdj2 數值型 7 5fjdj3 數值型 7 5fjdj4 數值型 7 5fjdj5 數值型 7 5fjdj6 數值型 7 5fjdj7 數值型 7 5fjdj8 數值型 7 5rldj 數值型 5 2dddf 數值型 10 2fif1 數值型 10 2fif2 數值型 10 2fif3 數值型 10 2fif4 數值型 10 2fif5 數值型 10 2fif6 數值型 10 2fif7 數值型 10 2fif8 數值型 10 2jbdf 數值型 10 2tzdf 數值型 10 2ys 數值型 10 2df 數值型 10 2sydf 數值型 10 2cm1 數值型 9 2cm2 數值型 9 2zbbz 字符型 1jfbz 字符型 1cb 數值型 8 2zb 數值型 8 2sydl 數值型 10 0dl 數值型 10 0zbdl 數值型 10 0bs 數值型 10 0xs 數值型 10 0wgbs 數值型 10 0fbdl 數值型 10 0bczmfb 數值型 10 0wgdl 數值型 10 0wgfbdl 數值型 10 0ydq 數值型 7 0n 字符型 2y 字符型 2r 字符型 2cbydh 字符型 2xh 數值型 3 0djlx 字符型 2bt 字符型 2l數據庫的安全性、完整性、并發(fā)控制和恢復 信息數據是企業(yè)中非常重要的資源，因此保證數據庫的安全可靠、正確有效是非常重要的問題。一般的數據庫管理系統(tǒng)（dbms）都有提供了一定的數據保護功能。數據庫保護也稱為數據控制，主要包括數據的安全性、完整性、并發(fā)控制和數據庫的恢復等。（1）數據庫的安全性 數據庫的安全性是指保護數據庫以防止不合法的使用所造成的數據泄露、更改或破壞。由于數據庫系統(tǒng)中存放著大量的數據，且為許多用戶所共享，因此安全性問題是必須首先要解決的。一般計算機系統(tǒng)中的安全措施是按照“用戶標識和鑒別”、“dbms存取控制”、“os級安全控制”、“db密碼存儲”來一級一級設置的。在現(xiàn)在流行的數據庫系統(tǒng)中一般都提供以下兩種控制：用戶標識和鑒別、數據存取控制。 （2）數據完整性為了保證數據庫數據的正確性和相容性，數據庫管理系統(tǒng)（dbms）都提供了一種機制來檢查數據庫中的數據，看它是否滿足語義的規(guī)定條件，dbms稱這種機制為“數據完整性檢查”。一般的dbms中是通過完整性約束和數據庫觸發(fā)器來實現(xiàn)這一機制的。（3）并發(fā)控制在多用戶數據庫環(huán)境中，多個用戶程序可并行存取數據庫中的數據，為了以正確的方式調度該并發(fā)操作，避免造成“丟失修改”、“不能重讀”、“讀臟數據”等不一致的情況，dbms引入了“并發(fā)控制”這一機制。并發(fā)控制的主要方法是采用封鎖機制，一般采用兩種封鎖機制：共享機制和排它機制來實現(xiàn)。（4）數據庫后備與恢復主要使用轉儲、日志等方法進行數據庫的恢復。二、用戶界面設計用戶界面是指軟件系統(tǒng)與用戶之間交互的接口，通常包括輸出，輸入，人機對話的界面與方式等。由于本系統(tǒng)的最終用戶是那些對計算機技術并不算很精通的管理人員，因此本系統(tǒng)采用了基于菜單選擇，填寫表格和簡單的問答選擇等友好的用戶界面交互方式。l系統(tǒng)安全性驗證用戶界面設計用戶登錄窗口界面是用戶看到的第一幅畫面，也是進入系統(tǒng)之前必須經過的一道“關口”。因此，簡潔、實用、友好是設計時應當考慮到的風格。登錄本系統(tǒng)，用戶將看到如下畫面： 登錄界面圖l系統(tǒng)主畫面屏幕區(qū)域設計進行系統(tǒng)的主畫面屏幕區(qū)域設計時，是將整個屏幕劃分為三個區(qū)域，如下圖所示：主 菜 單 區(qū)工 作 區(qū)狀 態(tài) 信 息 區(qū)在屏幕的最上方是主菜單區(qū)，顯示本系統(tǒng)的功能主菜單。用戶可以有鼠標左鍵來選擇相應的菜單，也可以用快捷鍵進行操作，然后用同樣的方法在相應菜單下拉出該項的二級菜單（如果有的話），如果還有三級菜單，用戶可在二級菜單選擇相應的功能項，系統(tǒng)會自動彈出三級菜單。當通過菜單選擇了所要進行的工作以后，系統(tǒng)進入相應的業(yè)務處理功能，這時業(yè)務處理活動在屏幕中間區(qū)域即工作區(qū)進行。在整個業(yè)務處理過程中，主菜單區(qū)始終存在以使用戶明確當前正在進行的處理，當用戶為業(yè)務處理完畢后，系統(tǒng)返回主菜單。三、處理過程設計 處理過程設計要根據模塊劃分以及結構化設計的基本原則，對每一程序處理模塊中的詳細處理過程進行設計。常用的設計工具包括程序流程圖、過程化設計語言、判定表、判定樹等。四、數據庫操作設計*ysdh0.initpublic n_left,n_topn_left=thisform.leftn_top=thisform.topthisform.left=-(thisform.width)thisform.timer1.enabled=.t.set bell to wavmove.wav,0?chr(7)set bell to*ysdh0.loadset talk offset safe offclose databaserelease time1public rq,rq1,rq2,s,ks,ksh,jl1,jl2,jl3,nn,time1nn=0jl1=1jl2=1jl3=1sele 0use gdsloca for bz=*if .not. found()go topendifsele 0use time exclusivetime1=time.rqrq=subs(time-rq,1,4)+年+subs(time-rq,5,2)+月sele 0use gr exclusivesele 0use shk exclusivesele 0use ksk exclusivesele 0use csy exclusivesele 0use ysdh exclusivesele 0use ysdh_old exclusive*command1.clicksele ysdhskip -1if bof()mand1.enabled=.f.go mand2.enabled=.t.endifthisform.pageframe1.page1.a2.setfocusthisform.pageframe1.page1.refresh*command2.clicksele ysdhskipif eof()mand2.enabled=.f.go mand1.enabled=.t.endifthisform.pageframe1.page1.a2.setfocusthisform.pageframe1.page1.refresh*command3.clicksele ysdhappend blankrepl xm with gr.xmrepl bs1 with ksh,bs2 with mand1.enabled=.mand2.enabled=.bo1.setfocusthisform.pageframe1.page1.refresh*command4.clicksele ysdhif messagebox( 是否真的要刪除 +rq+allt(ysdh.xm)+金額：+allt(str(ysdh.a10,10,2)+元 這條記錄？ ,4+32+256, 警告！)=7thisform.pageframe1.page1.refreshelsedeleskip -1if bof() and eof()append blankrepl xm with gr.xmrepl bs1 with ksh,bs2 with mand1.enabled=.mand2.enabled=.mand2.enabled=.bo1.setfocusthisform.pageframe1.page1.refreshendifendif*command5.clicksele ysdhset filter to .not. deleted()dele all for ysdh.a10=0packsele ysdh_oldset filter to .not. deleted()dele all for ysdh_old.a12=0packthisform.timer3.enabled=.t.set bell to wavmove.wav,0?chr(7)set bell to*command6.clickthisform.release*cscx.destroy:dodefault()thisform.my_use(ls_cx,9)dele allpackclose databasedele file ls_cx1.dbfdele file ls_cx2.dbfset excl onset esca off*cscx.key_hide:thisform.key_zt(key1.dele,1)thisform.key_zt(key1.cxtq,1)thisform.key_zt(key1.sjzl,1)thisform.key_zt(key1.lssj,1)thisform.key_zt(key1.dy,1)thisform.key_zt(key1.exit,1)*cscx.keypress:lparameters nkeycode, nshiftaltctrlif nkeycode=27thisform.cxtj.cs.setfocusendif*cscx.my_bott_init:thisform.cxtj.cs.setfocus*cscx.myload:set talk offset excl offset safe offset esca onclose databasepublic gndbcnumber,datapath,bb0,bb1,bb2,bb3,bb4,bb5public cs_field,systime,qh0,hm0,dz0,year0,month1,month2,jlh,jlh1,jlh2,printbz,dy_tit,cxjlbb0=區(qū) 戶 號hhbb1=用電戶名hmbb2=用電地址dzbb3=電表編號bhbb4=銀行賬號zhbb5=移表用戶ybhelpshow=0dimension gadatabase(8,8)*year1=str(year(date(),4) &系統(tǒng)日期if month(date()10 mon=0+alltrim(str(month(date(),2)else mon=str(month(date(),2)endifi