概要設(shè)計(jì)說明書編寫規(guī)范

1、系統(tǒng)設(shè)計(jì)說明書編寫規(guī)范沈陽創(chuàng)利達(dá)信息技術(shù)配套設(shè)備服務(wù)中心案卷號(hào)日期蓄電池遠(yuǎn)程智能監(jiān)護(hù)系統(tǒng)系統(tǒng)設(shè)計(jì)說明書 作 者： 劉利文 完成日期： 2004/03/17 簽 收 人： 簽收日期： 修改情況記錄：版本號(hào)修改批準(zhǔn)人修改人安裝日期簽收人 目錄 1 概要設(shè)計(jì)11.1 總體功能11.2 業(yè)務(wù)流程21.3 模塊設(shè)計(jì)32 詳細(xì)設(shè)計(jì)72.1 數(shù)據(jù)庫設(shè)計(jì)72.1.1 網(wǎng)點(diǎn)基本信息（xdc_wdjbxx）72.1.2 網(wǎng)點(diǎn)設(shè)備信息（xdc_wdsbxx）82.1.3 網(wǎng)點(diǎn)設(shè)備放電信息（xdc_wdsbfdxx）92.1.4 網(wǎng)點(diǎn)報(bào)警信息(xdc_wdbjxx)102.1.5 用戶基本信息(xdc_yhjbxx)

2、102.1.6 用戶注冊(cè)碼(xdc_yhzch)112.1.7 地圖信息(xdc_dtxx)112.1.8 蓄電池評(píng)定信息(xdc_pdxx)112.1.9 線路故障信息（xdc_xlgzxx）123.1 功能模塊詳細(xì)設(shè)計(jì)133.1.1 系統(tǒng)主程序模塊133.1.2 系統(tǒng)主程序界面設(shè)計(jì)133.1.3 系統(tǒng)主程序功能描述133.1.4 系統(tǒng)主程序流程圖143.1.5 系統(tǒng)主程原代碼15系統(tǒng)設(shè)計(jì)說明書編寫規(guī)范沈陽創(chuàng)利達(dá)信息技術(shù)配套設(shè)備服務(wù)中心1 系統(tǒng)概要設(shè)計(jì)1.1 總體功能蓄電池遠(yuǎn)程智能監(jiān)護(hù)系統(tǒng)總體功能為：定期自動(dòng)對(duì)蓄電池進(jìn)行實(shí)時(shí)在線充、放電管理；充、放電維護(hù)周期實(shí)時(shí)連續(xù)可調(diào)；可通過監(jiān)控端實(shí)時(shí)對(duì)上

3、述時(shí)間 、及多組參數(shù)在線修改（通過電話網(wǎng)傳輸）?？赏ㄟ^監(jiān)控端在線測(cè)定蓄電池容量、并對(duì)該蓄電池品質(zhì)進(jìn)行評(píng)定?？蓪?duì)所有網(wǎng)點(diǎn)的“市電斷電”、“搶劫”事件實(shí)時(shí)向預(yù)先設(shè)定的職能部門播放語言報(bào)警?？蓪?duì)蓄電池級(jí)的放電曲線進(jìn)行實(shí)時(shí)觀看比較?？蓪?duì)眾多網(wǎng)點(diǎn)進(jìn)行動(dòng)態(tài)創(chuàng)建、顯示和修改?？蓪?duì)眾多網(wǎng)點(diǎn)基本信息進(jìn)行動(dòng)態(tài)管理和修改?？煞奖愕貙?duì)眾多網(wǎng)點(diǎn)進(jìn)行快速初始化并可靈活修改。具有重要的數(shù)據(jù)備份及恢復(fù)功能。具有查詢、統(tǒng)計(jì)、打印功能。1.2 業(yè)務(wù)流程2.3 系統(tǒng)功能模塊設(shè)計(jì)2 系統(tǒng)詳細(xì)設(shè)計(jì)2.1 數(shù)據(jù)庫設(shè)計(jì)特別說明 ： 表式本表主鍵， 表式本表的外鍵2.1.1 網(wǎng)點(diǎn)基本信息（xdc_wdjbxx）序號(hào)字段名類型寬度主鍵*外鍵值

4、約束備注1Wdjbxx_idInt4*非空該表的唯一標(biāo)識(shí)由程序自動(dòng)生成2dtxx_idInt4非空3Wd_mcVarchar60非空網(wǎng)點(diǎn)名稱4Wd_dzVarchar100非空網(wǎng)點(diǎn)地址5Wd_fzrVarchar12非空網(wǎng)點(diǎn)負(fù)責(zé)人6Wd_dhVarchar12非空網(wǎng)點(diǎn)電話7Sfr110jkwint4是否入110監(jiān)控網(wǎng)8pcsdhVarchar20最近派出所電話9Wd_bjdhVarhcar20報(bào)警電話號(hào)10wdmc_zbxInt11wdmc_zbyInt12Bzvarchar254備注說明：ü 該表還包含一個(gè)計(jì)算字段（字段名：xh; 數(shù)據(jù)類型：int;），該字段根據(jù)查詢結(jié)果自動(dòng)加1，

5、作為用戶對(duì)數(shù)據(jù)表瀏覽后的順序號(hào)以便用戶查看，該字段在程序設(shè)計(jì)時(shí)實(shí)現(xiàn)故暫不列出；ü 只有相應(yīng)權(quán)限的用戶才能對(duì)該表進(jìn)行新增、修改和刪除操作，普通用戶只能瀏覽；ü 相關(guān)表：網(wǎng)點(diǎn)設(shè)備信息（xdc_wdsbxx）, 網(wǎng)點(diǎn)設(shè)備放電信息（xdc_wdsbfdxx）, 網(wǎng)點(diǎn)報(bào)警信息(xdc_wdbjxx)； 2.1.2 網(wǎng)點(diǎn)設(shè)備信息（xdc_wdsbxx）序號(hào)字段名類型寬度主鍵*外鍵值約束備注1wdsbxx_idInt4*非空該表的唯一標(biāo)識(shí)由程序自動(dòng)生成2Wdjbxx_idInt4非空網(wǎng)點(diǎn)基本信息_ID3sb_dzbhvarchar12設(shè)備地址編號(hào)4Sb_mcvarchar30設(shè)備名稱5X

6、dc_rlFloat8非空新電池容量6zydc_csrlFloat8非空在用電池初始容量7Xdc_cskFloat8非空蓄電池初始K值8Xdc_jsVarchar4蓄電池節(jié)數(shù)9jkd_dhVarchar20監(jiān)控端電話10Fd_whsjjgVarchar20維護(hù)時(shí)間間隔11Xdc_sdfdzqVarchar20深度放電周期12Xdc_fdsjVarchar20放電時(shí)間13Wd_bjdhhVarchar20報(bào)警電話號(hào)14Xdc_fddyVardhar29放電電壓15BzVarchar254備注說明：ü 該表還包含一個(gè)計(jì)算字段（字段名：xh; 數(shù)據(jù)類型：int;），該字段根據(jù)查詢結(jié)果自動(dòng)加

7、1，作為用戶對(duì)數(shù)據(jù)表瀏覽后的順序號(hào)以便用戶查看，該字段在程序設(shè)計(jì)時(shí)實(shí)現(xiàn)故暫不列出；ü 只有相應(yīng)權(quán)限的用戶才能對(duì)該表進(jìn)行新增、修改和刪除操作，普通用戶只能瀏覽；ü 相關(guān)表：網(wǎng)點(diǎn)設(shè)備放電信息（xdc_wdsbfdxx）及字典維護(hù)相關(guān)表；2.1.3 網(wǎng)點(diǎn)設(shè)備放電信息（xdc_wdsbfdxx）序號(hào)字段名類型寬度主鍵*外鍵值約束備注1wdsbfdxx _idInt4*非空該表的唯一標(biāo)識(shí)由程序自動(dòng)生成2wdsbxx_idInt4非空網(wǎng)點(diǎn)設(shè)備信息_Id3U1Float8電壓14U2Float8電壓25U3Float8電壓36U4Float8電壓47U5Float8電壓58U6Float

8、8電壓69U7Float8電壓710U8Float8電壓811U9Float8電壓912Sum_uFloat8電壓和13Fd_sjdatetime16放電時(shí)間14Fd_fzInt4放電分鐘15Wd_mcVarchar30網(wǎng)點(diǎn)名稱16Wd_dhVarchar16網(wǎng)點(diǎn)電話17BzVarchar245備注說明：ü 該表還包含一個(gè)計(jì)算字段（字段名：xh; 數(shù)據(jù)類型：int;），該字段根據(jù)查詢結(jié)果自動(dòng)加1，作為用戶對(duì)數(shù)據(jù)表瀏覽后的順序號(hào)以便用戶查看，該字段在程序設(shè)計(jì)時(shí)實(shí)現(xiàn)故暫不列出；ü 只有相應(yīng)權(quán)限的用戶才能對(duì)該表進(jìn)行新增、修改和刪除操作，普通用戶只能瀏覽；ü 相關(guān)表：字典

9、維護(hù)相關(guān)表；2.1.4 網(wǎng)點(diǎn)報(bào)警信息(xdc_wdbjxx)序號(hào)字段名類型寬度主鍵*外鍵值約束備注1wdbjxx _idInt4*非空該表的唯一標(biāo)識(shí)由程序自動(dòng)生成2Wdjbxx_idInt4非空網(wǎng)點(diǎn)基本信息_ID3wdsbxx_idInt4非空網(wǎng)點(diǎn)設(shè)備信息_ID4Wd_bjnrVarchar245非空網(wǎng)點(diǎn)報(bào)警內(nèi)容5Wd_bjsjDatetime4非空網(wǎng)點(diǎn)報(bào)警時(shí)間6Wd_mcVarchar64網(wǎng)點(diǎn)名稱7Wd_dhVarchar20網(wǎng)點(diǎn)電話8Wd_fzrInt4網(wǎng)點(diǎn)負(fù)責(zé)人9bzVarchar254備注說明：ü 該表還包含一個(gè)計(jì)算字段（字段名：xh; 數(shù)據(jù)類型：int;），該字段根據(jù)查詢結(jié)

10、果自動(dòng)加1，作為用戶對(duì)數(shù)據(jù)表瀏覽后的順序號(hào)以便用戶查看，該字段在程序設(shè)計(jì)時(shí)實(shí)現(xiàn)故暫不列出；ü 只有相應(yīng)權(quán)限的用戶才能對(duì)該表進(jìn)行新增、修改和刪除操作，普通用戶只能瀏覽；ü 相關(guān)表：字典維護(hù)相關(guān)表；2.1.5 用戶基本信息(xdc_yhjbxx)序號(hào)字段名類型寬度主鍵*外鍵值約束備注1idInt4*非空該表的唯一標(biāo)識(shí)由程序自動(dòng)生成2yhmcVarchar20用戶名稱3passwordVarchar20用戶密碼4yhmsVarchar254用戶描述2.1.6 用戶注冊(cè)碼(xdc_yhzch)序號(hào)字段名類型寬度主鍵*外鍵值約束備注1zch_idInt4*非空該表的唯一標(biāo)識(shí)由程序自動(dòng)

11、生成2zc_hVarchar50注冊(cè)號(hào)2.1.7 地圖信息(xdc_dtxx)序號(hào)字段名類型寬度主鍵*外鍵值約束備注1dtxx_idInt4*非空該表的唯一標(biāo)識(shí)由程序自動(dòng)生成2dt_mcVarchar20地圖名稱3dt_sfxzInt4此地圖是否被選重4bzVarchar200備注2.1.8 蓄電池評(píng)定信息（xdc_pdxx）序號(hào)字段名類型寬度主鍵*外鍵值約束備注1pdjgxx_idInt4*非空該表的唯一標(biāo)識(shí)由程序自動(dòng)生成2wdjbxx_idInt4非空網(wǎng)點(diǎn)基本信息_ID3wdsbxx_idInt4非空網(wǎng)點(diǎn)設(shè)備信息_ID4pd_jgvarchar10非空評(píng)定結(jié)果5pd_kFloat8非空評(píng)定

12、K值6dc_jsInt4非空電池節(jié)數(shù)7pd_rqdatetime8非空評(píng)定日期8Xdc_jsVarchar4蓄電池節(jié)數(shù)9fd_kssjdatetime8放電開始時(shí)間10fd_jssjdatetime8放電結(jié)束時(shí)間11fd_fzbigint8放電分鐘12bzdczrlFloat8標(biāo)準(zhǔn)電池組容量13zydczrlFloat8在用電池組容量14dwsjrlFloat8單位時(shí)間容量說明：ü 該表還包含一個(gè)計(jì)算字段（字段名：xh; 數(shù)據(jù)類型：int;），該字段根據(jù)查詢結(jié)果自動(dòng)加1，作為用戶對(duì)數(shù)據(jù)表瀏覽后的順序號(hào)以便用戶查看，該字段在程序設(shè)計(jì)時(shí)實(shí)現(xiàn)故暫不列出；ü 只有相應(yīng)權(quán)限的用戶才能

13、對(duì)該表進(jìn)行新增、修改和刪除操作，普通用戶只能瀏覽；ü 相關(guān)表：網(wǎng)點(diǎn)設(shè)備放電信息（xdc_wdsbfdxx）及字典維護(hù)相關(guān)表；2.1.9 線路故障信息（xdc_xlgzxx）序號(hào)字段名類型寬度主鍵*外鍵值約束備注1xlgzxx_idInt4*非空該表的唯一標(biāo)識(shí)由程序自動(dòng)生成2wdjbxx_idInt4非空網(wǎng)點(diǎn)基本信息_ID3wdsbxx_idInt4非空網(wǎng)點(diǎn)設(shè)備信息_ID4xlgzvarchar50非空線路故障5gzsjdatetime8非空線路故障時(shí)間說明：ü 該表還包含一個(gè)計(jì)算字段（字段名：xh; 數(shù)據(jù)類型：int;），該字段根據(jù)查詢結(jié)果自動(dòng)加1，作為用戶對(duì)數(shù)據(jù)表瀏覽后的

14、順序號(hào)以便用戶查看，該字段在程序設(shè)計(jì)時(shí)實(shí)現(xiàn)故暫不列出；ü 只有相應(yīng)權(quán)限的用戶才能對(duì)該表進(jìn)行新增、修改和刪除操作，普通用戶只能瀏覽；ü 相關(guān)表：網(wǎng)點(diǎn)設(shè)備放電信息（xdc_wdsbfdxx）及字典維護(hù)相關(guān)表；3.1功能模塊詳細(xì)設(shè)計(jì)3.1.1 系統(tǒng)主程序模塊3.1.2 系統(tǒng)主程序界面設(shè)計(jì)3.1.3 系統(tǒng)主程序功能描述本系統(tǒng)啟動(dòng)以后進(jìn)入主程序界面如上圖所示，主要實(shí)現(xiàn)的功能如下：一、 監(jiān)控下位機(jī)（維護(hù)器）往上位機(jī)（監(jiān)控中心）傳數(shù)據(jù)，1、 地址號(hào)+01 為停電報(bào)警事件。2、 地址號(hào)+02 為搶劫報(bào)警事件。3、 地址號(hào)+03 為放電維護(hù)事件。4、 地址號(hào)+04 為線路故障事件。二、 實(shí)現(xiàn)

15、整個(gè)系統(tǒng)的所有功能的銜接和集成。3.1.5 系統(tǒng)主程序流程圖3.1.4 系統(tǒng)主程序原代碼主程序窗體名稱：Main_form* 項(xiàng)目名稱：蓄電池遠(yuǎn)程智能監(jiān)護(hù)系統(tǒng) 技術(shù)支持13624045697 Copyright 1998-2004 沈陽創(chuàng)利達(dá)有限公司 *unit main;*項(xiàng)目: 蓄電池遠(yuǎn)程智能監(jiān)護(hù)系統(tǒng)模塊: 主功能模塊描述: 用戶主界面版本: 1.0日期: 2004年03月27日設(shè)計(jì): 劉利文程序：劉利文更新:TODO:*interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics,

16、 Controls, Forms, Dialogs, SUIButton, SUIImagePanel, ExtCtrls, StdCtrls, xp_url, jpeg, SUIForm,Registry, StrUtils,DBGridEh, llwvar,allvar,dm, Buttons , xdc_map,xdc_cssz, OleCtrls, MSCommLib_TLB, xdc_sjlr,xdc_xlxj,xdc_xtwh,xdc_back,shellapi ,xdc_cjmap,xdc_sbxx_cx,xdc_xlgz_tj,xdc_rlpzpd_tj,bjxx_tj, Rz

17、Status;type TMain_form = class(TForm) suiForm1: TsuiForm; Panel1: TPanel; Panel6: TPanel; Image3: TImage; Image4: TImage; Panel7: TPanel; Image5: TImage; Image6: TImage; XP_Url3: Txp_url; Label3: TLabel; xp_url4: Txp_url; Panel2: TPanel; Notebook1: TNotebook; suiPanel2: TsuiPanel; Panel8: TPanel; su

18、iPanel3: TsuiPanel; Panel9: TPanel; Image1: TImage; Image9: TImage; suiPanel6: TsuiPanel; Panel5: TPanel; Panel4: TPanel; Panel3: TPanel; Image2: TImage; Image7: TImage; Image8: TImage; Label4: TLabel; Timer1: TTimer; Label1: TLabel; SpeedButton20: TSpeedButton; SpeedButton21: TSpeedButton; SpeedBut

19、ton4: TSpeedButton; SpeedButton5: TSpeedButton; Image12: TImage; Image14: TImage; SpeedButton1: TSpeedButton; SpeedButton22: TSpeedButton; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; xp_url2: Txp_url; xp_url5: Txp_url; SpeedButton3: TSpeedButton; suiPanel1: TsuiPanel; Panel10: TPanel; Image1

20、0: TImage; Image11: TImage; SpeedButton6: TSpeedButton; SpeedButton7: TSpeedButton; SpeedButton19: TSpeedButton; xp_url6: Txp_url; Panel11: TPanel; Image13: TImage; Image15: TImage; SpeedButton2: TSpeedButton; SpeedButton8: TSpeedButton; SpeedButton9: TSpeedButton; xp_url1: Txp_url; xp_url8: Txp_url

21、; SpeedButton10: TSpeedButton; SpeedButton11: TSpeedButton; Panel12: TPanel; suiPanel4: TsuiPanel; Image16: TImage; Image17: TImage; SpeedButton12: TSpeedButton; SpeedButton13: TSpeedButton; SpeedButton14: TSpeedButton; SpeedButton15: TSpeedButton; SpeedButton16: TSpeedButton; Label2: TLabel; Panel1

22、3: TPanel; suiPanel5: TsuiPanel; Image18: TImage; Image19: TImage; SpeedButton18: TSpeedButton; SpeedButton24: TSpeedButton; SpeedButton25: TSpeedButton; Com1: TMSComm; Label5: TLabel; Label6: TLabel; xp_url7: Txp_url; label7: TRzMarqueeStatus; Edit2: TEdit; Edit1: TEdit; Edit3: TEdit; Edit4: TEdit;

23、 Edit5: TEdit; Edit6: TEdit; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormActivate(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure FormShow(Sender: TObject); procedure XP_Url3Click(Sender: TObject); procedure

24、 SpeedButton1Click(Sender: TObject); procedure SpeedButton19Click(Sender: TObject); procedure xp_url4Click(Sender: TObject); procedure SpeedButton7Click(Sender: TObject); procedure FormKeyPress(Sender: TObject; var Key: Char); procedure SpeedButton22Click(Sender: TObject); procedure SpeedButton4Clic

25、k(Sender: TObject); procedure SpeedButton20Click(Sender: TObject); procedure SpeedButton21Click(Sender: TObject); procedure SpeedButton5Click(Sender: TObject); procedure xp_url2Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); procedure SpeedButton6Click(Sender: TObject); procedu

26、re xp_url5Click(Sender: TObject); procedure xp_url6Click(Sender: TObject); procedure SpeedButton8Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton9Click(Sender: TObject); procedure SpeedButton10Click(Sender: TObject); procedure xp_url1Click(Sender: TObject);

27、 procedure SpeedButton14Click(Sender: TObject); procedure SpeedButton12Click(Sender: TObject); procedure SpeedButton13Click(Sender: TObject); procedure SpeedButton15Click(Sender: TObject); procedure SpeedButton16Click(Sender: TObject); procedure xp_url8Click(Sender: TObject); procedure SpeedButton18

28、Click(Sender: TObject); procedure SpeedButton24Click(Sender: TObject); procedure SpeedButton25Click(Sender: TObject); procedure SpeedButton11Click(Sender: TObject); procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Com1Comm(Sender: TObject); procedure xtcsh1; priva

29、te Private declarations public Public declarations end;var以下是變量定義 Main_form: TMain_form;窗休名稱 bjsql,fdfz_str,dcjs,scbz,sbdz,xwj_dz,MRing,str : string;報(bào)警sql語句、放電分鐘、電池節(jié)數(shù)、設(shè)備地址、字符串 bjbzw,zdbzw : integer; 報(bào)警標(biāo)志位,中端標(biāo)志位 wdjbxx_id,wdsbxx_id,fdfz,mtdfz : integer;網(wǎng)點(diǎn)基本信息_ID、網(wǎng)點(diǎn)設(shè)備信息_ID、放電分釧 m_wd_mc,m_wd_dz,m_wd_dh

30、,m_wd_fzr,mdc_js :string;網(wǎng)點(diǎn)名稱、網(wǎng)點(diǎn)地址、網(wǎng)點(diǎn)電話、網(wǎng)點(diǎn)負(fù)責(zé)人、電池節(jié)數(shù) mtdsj : string;,報(bào)警信息表頭,停電時(shí)間 sj_t,posx : real;時(shí)間t、x軸坐標(biāo) lsbdelete : integer;臨時(shí)表標(biāo)志位 u_str,u_temp : string;電壓值、中間變量 u_pos,next_u,u_start : integer;u的位置，下一個(gè)u的位置，第一個(gè)u的位置 fdwhbzw : integer;放電維護(hù)標(biāo)志位 m_td,m_qj,m_xlgz : integer;停電,搶劫,線路故障implementationuses uni

31、t_login;$R *.dfm=自定義過程=功能：系統(tǒng)變量初始化=procedure TMain_form.xtcsh1;begin sj_t :=0; posx :=0; map_form.Series1.Clear ; map_form.Series2.Clear ; map_form.Series3.Clear ; map_form.Series4.clear; if Com1.PortOpen then Com1.PortOpen :=false; Com1.CommPort :=1; Com1.Settings :='9600,N,8,1' Com1.Handsha

32、king := 2; Com1.OutBufferCount:=0; Com1.InBufferCount :=0; Com1.InBufferSize :=4096; Com1.RThreshold :=22; Com1.InputMode :=0; if Com1.PortOpen = false then Com1.PortOpen :=true; Com1.Output :='ATE0'+chr(13); edit1.Clear ; edit2.Clear ; edit3.Clear ; u_str :='' u_temp :='' u_

33、pos :=0; u_start:=1; cl:=0; lsbdelete :=1;end;=窗體關(guān)閉事件=功能：退出整個(gè)系統(tǒng)=procedure TMain_form.FormClose(Sender: TObject; var Action: TCloseAction);begin action := caNone; Form_login.Close;end;=窗體激活事件=功能：設(shè)置分辨率=procedure TMain_form.FormActivate(Sender: TObject);begin suiForm1.Height:=600; suiForm1.width:=800;

34、label1.Caption := '當(dāng)前用戶:'+yhmc_p ; map_form.ScrollBox1.HorzScrollBar.Position := 0; map_form.ScrollBox1.VertScrollBar.Position := 0; if trim(yhmc_p)<>'系統(tǒng)管理員' then begin self.xp_url5.Enabled := false; self.SpeedButton4.Enabled := false; self.SpeedButton20.Enabled := false; self.

35、SpeedButton21.Enabled := false; self.SpeedButton5.Enabled := false; end ; if trim(yhmc_p)='系統(tǒng)管理員' then begin self.xp_url5.Enabled := true; self.SpeedButton4.Enabled := true; self.SpeedButton20.Enabled := true; self.SpeedButton21.Enabled := true; self.SpeedButton5.Enabled := true; end;end;=系統(tǒng)

36、時(shí)鐘事件=功能：顯示日期和時(shí)間=procedure TMain_form.Timer1Timer(Sender: TObject);begin label3.Caption :=formatdatetime('YY"年"MM"月"DD"日 "hh:mm:ss',now);end;=主窗體FormShow事件 =功能：整個(gè)系統(tǒng)變量、窗休初始化 =procedure TMain_form.FormShow(Sender: TObject);begin bjxx_bt := '郵政局緊急狀態(tài)報(bào)告表' sj_t

37、 :=0; posx :=0; map_form.jstj.ItemIndex :=-1; map_form.Series1.Clear ; map_form.Series2.Clear ; map_form.Series3.Clear ; map_form.Series4.clear; map_form.Notebook1.ActivePage :='map' if Com1.PortOpen then Com1.PortOpen :=false; Com1.CommPort :=1; Com1.Settings :='9600,N,8,1' Com1.Han

38、dshaking := 2; Com1.OutBufferCount:=0; Com1.InBufferCount :=0; Com1.InBufferSize :=4096; Com1.RThreshold :=16; Com1.InputMode :=0; if Com1.PortOpen = false then Com1.PortOpen :=true; Com1.Output :='ATE0'+chr(13); bjbzw := 0; lsbdelete :=1; fdwhbzw :=0; m_td := 1; m_qj := 1; m_xlgz :=1;end;=

39、顯示網(wǎng)點(diǎn)設(shè)備管理模塊 =procedure TMain_form.XP_Url3Click(Sender: TObject);begin self.Notebook1.ActivePage := '網(wǎng)點(diǎn)設(shè)備管理' SpeedButton1Click(Sender);end;= 顯示創(chuàng)建新網(wǎng)點(diǎn)模塊 =procedure TMain_form.SpeedButton1Click(Sender: TObject);begin llwvar.form_close; Application.CreateForm(Tmap_form,map_form); llwvar.form_show(

40、map_form,Panel4); map_form.suiPanel1.Caption :='蓄電池遠(yuǎn)程智能監(jiān)護(hù)系統(tǒng)->網(wǎng)點(diǎn)管理->創(chuàng)建新網(wǎng)點(diǎn)'end;=顯示系統(tǒng)參數(shù)設(shè)置模塊=procedure TMain_form.SpeedButton19Click(Sender: TObject);begin if main_form.Com1.PortOpen then main_form.Com1.PortOpen := false; llwvar.form_close; Application.CreateForm(Txdc_cssz_form,xdc_cssz_fo

41、rm); llwvar.form_show(xdc_cssz_form,Panel4); wdsb_bz :=0; xdc_cssz_form.suiPanel1.Caption :='蓄電池遠(yuǎn)程智能監(jiān)護(hù)系統(tǒng)->系統(tǒng)初始化->終端信息初始化'end;=顯示系統(tǒng)維護(hù)模塊 =procedure TMain_form.xp_url4Click(Sender: TObject);begin self.Notebook1.ActivePage := '系統(tǒng)維護(hù)' SpeedButton1Click(Sender); map_form.suiPanel1.Cap

42、tion :='蓄電池遠(yuǎn)程智能監(jiān)護(hù)系統(tǒng)->系統(tǒng)維護(hù)與幫助'end;=顯示基本信息錄入模塊=procedure TMain_form.SpeedButton7Click(Sender: TObject);begin llwvar.form_close; Application.CreateForm(Tjbsjlr_form,jbsjlr_form); llwvar.form_show(jbsjlr_form,Panel4); wdsb_bz :=1; jbsjlr_form.suiPanel1.Caption := '蓄電池遠(yuǎn)程智能監(jiān)護(hù)系統(tǒng)->系統(tǒng)初始化-&g

43、t;網(wǎng)點(diǎn)信息初始化' jbsjlr_form.Label26.Left :=20; jbsjlr_form.Label19.Left :=20;end;=顯示線路巡檢模塊=procedure TMain_form.SpeedButton22Click(Sender: TObject);begin llwvar.form_close; Application.CreateForm(Txlxj_form,xlxj_form); llwvar.form_show(xlxj_form,Panel4);end;=顯示修改密碼模塊=procedure TMain_form.SpeedButton4

44、Click(Sender: TObject);begin llwvar.form_close; Application.CreateForm(Txtwh_form,xtwh_form); llwvar.form_show(xtwh_form,Panel4);end;=顯示數(shù)據(jù)備份模塊=procedure TMain_form.SpeedButton20Click(Sender: TObject);begin llwvar.form_close; Application.CreateForm(Txtwh_back_form,xtwh_back_form); llwvar.form_show(xtwh_back_form,Panel4);end;=顯示數(shù)據(jù)恢復(fù)模塊=procedure TMain_form.SpeedButton21Click(Sender: TObject);begin SpeedButton20Click(Sender);end;=顯示清空所有數(shù)據(jù)模塊=procedure TMain_form.SpeedButton5Click(Sender: TObject);var sql : string;begin sql :='select * from xdc_wdjbx