【正文】 、操作員名稱、上線時(shí)間、工作狀態(tài)； ☉交易日志（監(jiān)控指令和交易兩類交易碼） 僅監(jiān)控系統(tǒng)級(jí)錯(cuò)誤， 至于業(yè)務(wù)錯(cuò)誤不在其中（如指令下達(dá)資金不足）； ☉通訊線路：線路代碼，端口號(hào)，進(jìn)程號(hào)，運(yùn)行狀態(tài)。 9. 不要隨意定義全局變量，盡量使用局部變量。 20. 每個(gè)函數(shù)，都有函數(shù)頭說明，說明規(guī)格見規(guī)范。 24. 在典型算法前都有注釋。 28. 空行和空白字符也是一種特殊注釋。 32. 不要用晦澀的語句 . 結(jié)構(gòu)化要求 9. 禁止出現(xiàn)兩條等價(jià)的支路。 12. 用 CASE 實(shí)現(xiàn)多路分支。 16. 避免不必要的分支。 13. 對(duì)所有的用戶輸入，必須進(jìn)行合法性檢查。 . 可重用性要求 3. 重復(fù)使用的完成相對(duì)獨(dú)立功能的算法或代碼應(yīng)抽象為公共控件或類或公共函數(shù)。整個(gè)變量名的總長度不設(shè)限制（只要符合編譯器的規(guī)定就行）。 布爾型變量前綴名 布爾型變量的類型名為‘ b’，例如： bBooleanVar : boolean。子窗口初始化時(shí)，一律居中，禁用窗口最大化及可伸縮功能，提供窗口的最小化及關(guān)閉功能。 22) 完成同一功能或任務(wù)的元素在集中位置，減少鼠標(biāo)移動(dòng)的距離。 26) 分頁界面的頁面間可以用快捷鍵切換，順序按重要程度和訪問幾率排列。 30) 安全性原則 所有輸入控件的值在提交前應(yīng)該進(jìn)行合法性驗(yàn)證，不合格的應(yīng)提示原因。 應(yīng)該避免未授權(quán)功能的使用及無意義的操作。 小數(shù)點(diǎn)的位數(shù)必須根據(jù)數(shù)據(jù)庫字段的要求加以限制。 一些鍵盤或鼠標(biāo)的屏蔽性的操作無須用消息框來顯示提示信息，如控件只能輸入數(shù)字、小數(shù)點(diǎn)、“ ”，當(dāng)輸入字符時(shí)不需要有任何提示。 刪除的動(dòng)作必須先有提示信息確認(rèn)是否真正刪除。 長寬的比較接近黃金分割定律。 前景色與背景色搭配要合理， ,可以保持與 Windows設(shè)置相一致 ,以便于根據(jù)客戶喜好調(diào)整。 源程序中一般不建議直接使用除零以外的常數(shù)（包括字符串常數(shù)），所有常數(shù)應(yīng)該要么定義為常量、要么定義為宏，這將有利于源程序的維護(hù)。 . 其他書寫規(guī)范 在源程序中，書寫采用緊縮遞進(jìn)格式 ,且符合 pascal語言規(guī)范。 所有可以包含復(fù)合語句的語句，如 ifthenelse、 case、 for、 while、 repeatuntil等在只含有單語句體的時(shí)候，仍應(yīng)使用 begin,end 將單語句包含在其中。 . 提示信息規(guī)范 對(duì)提示信息，同一種類型的錯(cuò)誤使用同一種風(fēng)格的提示。 監(jiān)控部分采用 2 層結(jié)構(gòu)，不通過中間件 Tuxedo，直接與 Oracle 連接。身分驗(yàn)證通過才有權(quán)監(jiān)控。 . 監(jiān)控部分程序框架 實(shí)時(shí)監(jiān)控在線操作員 ? 源代碼： ? 功能： 根據(jù)所設(shè)定的時(shí)間間隔，訪問 Oracle數(shù)據(jù)庫并能打印報(bào)表； ? 數(shù)據(jù)庫訪問方式： ADO直聯(lián) Oracle ? 訪問數(shù)據(jù)庫名 : OPRMSG, OPRTERMCTL ? 查詢語句 : select , , , from OprMsg, OprTermCtl, TermMsg where OTCLOGSTAT=OPR_ON_LINE and OPMOprCode=OTCOprCode and OTCMAC=TEMMAC 實(shí)時(shí)監(jiān)控交易日志 ? 源代碼： ? 功能： 根據(jù)所設(shè)定的時(shí)間間隔，訪問 Oracle數(shù)據(jù)庫并能打印報(bào)表； ? 數(shù)據(jù)庫訪問方式： ADO直聯(lián) Oracle ? 訪問數(shù)據(jù)庫名 : ERRLOG ? 查詢語句 : select ERLTime,ERLOprCode,ERLSsn,ERLFundCode,ERLErrCode,ERLTxnCode from errlog where ERLDate = gsWorkDate（當(dāng) 前工作日） 實(shí)時(shí)監(jiān)控通訊線路 ? 源代碼： ? 功能： 根據(jù)所設(shè)定的時(shí)間間隔，訪問 Oracle數(shù)據(jù)庫并能打印報(bào)表； ? 數(shù)據(jù)庫訪問方式： ADO直聯(lián) Oracle ? 訪問數(shù)據(jù)庫名 : LSTSTAT ? 查詢語句 : select LSTCode, LSTPort, LSTPid, decode(LSTSTAT , 39。, 39。) as LSTSTAT from LineStat。 查詢深交所數(shù)據(jù)庫 ? 源代碼： ? 功能： 根據(jù)監(jiān)控人員所輸入的證券代碼，起始時(shí)間、截止時(shí)間查詢 深交所的委托庫、確認(rèn)庫、成交回報(bào)庫。 . 公用函數(shù)說明 （與客戶端相同的不再詳述） GetHostInfo . 函數(shù)說明 獲取主機(jī)系統(tǒng)信息 procedure GetHostInfo . 輸入值 ? 無 . 返回值 ? 系統(tǒng)工作日 ? 系統(tǒng)版本號(hào) ? 系統(tǒng)狀態(tài) . 程序流程 ? 在連接數(shù)據(jù)庫后再調(diào)用此函數(shù) ? 讀取系統(tǒng)狀態(tài)信 息表 ? 填入全局變量 ConnectOracle 函數(shù)說明 連接 Oracel數(shù)據(jù)庫 函數(shù)原形 function ConnectOracle: Boolean 輸入值 ? 無 返回值 ? true: 連接成功 ? false: 連接失敗 程序流程 ? 連接數(shù)據(jù)庫，根據(jù)結(jié)果返回 true, false CheckOpr 函數(shù)說明 操作員身份驗(yàn)證 函數(shù)原形 function CheckOpr: Boolean。 ? 數(shù)據(jù)庫訪問方式： ADO通過 ODBC連接 DBF。并按要求打印文檔。,39。, 39。登錄系統(tǒng)時(shí)不需輸入，只需要輸入操作員管理交易中的用戶名和密碼。 安全機(jī)制 ? 監(jiān)控 人員管理： 監(jiān)控人員作為整個(gè)投資管理系統(tǒng)操作員的一部分由系統(tǒng)的操作員管理交易同時(shí)維護(hù)，只有特定崗位的操作員才有權(quán)使用本監(jiān)控系統(tǒng)。A)’ . PageControl Style := TsFlatButtons， Align := alClient， :=4， := ‘ 瀏覽 (amp。 end。缺省 的書寫分隔符只有空格和換行符，如果需要使用 TAB鍵作為分隔符，則應(yīng)使用 2位空格作為一個(gè) TAB 鍵的縮進(jìn)寬度，且應(yīng)保證當(dāng)所有 TAB 鍵替換為 2 位空格后，程序仍能保持良好的緊縮遞進(jìn)風(fēng)格。 對(duì)于所有自定義結(jié)構(gòu)或聯(lián)合變量都應(yīng)事先說明其自定義類型，給出類型名，然后再定義其變量實(shí)例。 . 數(shù)據(jù)說明及定義規(guī)范 各常量、宏定義、自定義結(jié)構(gòu)申明，函數(shù)原型說明應(yīng)定義在相應(yīng)的模塊中，有關(guān)其命名方法請(qǐng)參見命名規(guī)則。 字體統(tǒng)一采用宋體小五號(hào)字大小，黑色。 按鈕必須提供快捷方式，快捷鍵的取值符合客戶共同習(xí)慣。 按鈕的排列應(yīng)該遵循新增、修改、刪除、查詢、退出等主題的排列順序，在對(duì)應(yīng)位置顯示確認(rèn)、取消按鈕等。 31) 合理性原則 非法輸入和操作應(yīng)該有足夠明確的提示說明，提示說明不能混淆和重復(fù)，如“不能輸入大于 600的數(shù)字”“數(shù)字應(yīng)該小于或等于 600”應(yīng)該只保留其中一種說法。 日期采用統(tǒng)一的 YYYY/MM/DD格式表示。 首要排除可能會(huì)使應(yīng)用非正常終止的錯(cuò)誤，如：除零運(yùn)算等，死循環(huán)、長度超過數(shù)據(jù)庫定義的長度、含有特殊字符等。 28) 在新增和修改狀態(tài)下關(guān)閉窗口或按退出 按鈕，提示是否保存修改。 24) 按 RETURN鍵和 DOWN能自動(dòng)進(jìn)入 TAB順序的下一控件的焦點(diǎn)狀態(tài)，按 UP鍵能進(jìn)入 TAB順序的上一控件的焦點(diǎn)狀態(tài)。 20) 控件的名稱或標(biāo)題最好使用用戶熟悉的字眼。控件的字體及色彩基調(diào)應(yīng)該保持一致風(fēng)格。 單個(gè)字符型變量前綴名 單個(gè)字符型（ char,pchar）變量的類型名為‘ c’，例如： cCharVar : char。 . 宏定義命名 宏定義的命名由大寫英文字母、數(shù)字和下劃線組成，各單詞之間用下劃線“ _”分開。 15. 程序與環(huán)境或狀態(tài)發(fā)生關(guān)系時(shí)，必須主動(dòng)去處理發(fā)生的意外事件。 11. 改一個(gè)錯(cuò)誤時(shí)可能產(chǎn)生新的錯(cuò)誤，因此在修改前首先考慮對(duì)其它程序的影響。 14. 函數(shù)只有一個(gè)出口。 11. 用 IF 語句來強(qiáng)調(diào)只執(zhí)行兩組語句中的一組。 30. 注釋的作用范圍可以為：定義、引用、條件分支以及一段代碼。 26. 循環(huán)、分支層次不要超過五層。 22. 常量定義有相應(yīng)說明。 18. 保持注釋與代碼完全一致。 7. 打算干什么，要簡單，直接了當(dāng)，代碼精簡，避免垃圾程序。 ☉包括實(shí)時(shí)監(jiān)控和事后查詢。 . 輸入值 ? sStkCode:證券代碼 ? cds:行情數(shù)據(jù)集 . 返回值 ? True:成功 ? Fasle:失敗 . 程序流程 ? 查詢此證券的市場代碼、報(bào)價(jià)單位、每筆限量、買數(shù)量單位、賣數(shù)量單位、停牌標(biāo)志、價(jià)格檔位、漲停價(jià)格、跌停價(jià)格 ? 根據(jù)市場查詢相應(yīng)的 DBF 數(shù)據(jù)庫，以查詢此證券的行情 RefreshDAD . 函數(shù)說明 更新數(shù)據(jù)字典函數(shù)，在修改數(shù)據(jù)字典的部分?jǐn)?shù)據(jù)后需要調(diào)用此函數(shù)，以保持與后臺(tái)數(shù)據(jù)一致 function RefreshDAD(sCode: String): Boolean。 bCreate: Boolean = True): Boolean。 var tbl: TQryTable): Boolean。 overload。 const f: Double)。 . 輸入值 ? edt:指定的輸入框 ? sCaption:輸入內(nèi)容的名稱 . 返回值 ? True:是 ? False:不是 . 程序流程 ? 判斷輸入框的值是否為 0，并返回 CopyMoney . 過程說明 將指定金額型的數(shù)字以字符串的形式復(fù)制到指定的內(nèi)存區(qū)域 procedure CopyMoney(var sMoney: array of Char。 overload。 function CheckInteger(var edt: TMoneyEdit。 const sCaption: String = 39。39。 const sCaption: String): Boolean。 . 輸入值 ? edt:指定的輸入框 ? bCanNull:是否允許為空 . 返回值 ? True:是 ? False:不是 . 程序流程 ? 如果允許為空并且輸入框的內(nèi)容為空，則直接返回 True ? 調(diào)用 CheckTime 檢查輸入框的內(nèi)容是不否是時(shí)間 CheckString . 函數(shù)說明 檢查輸入內(nèi)容是否為空 function CheckString(var edt: TEdit。 . 輸入值 ? sTime:時(shí)間 . 返回值 ? True:合法 ? False:不合法 . 程序流程 ? 判斷長度 ? 組織指定的時(shí)間格式 ? 判斷是否合法并返回 CheckDateEdit . 函數(shù)說明 檢查指定的輸入框內(nèi)容是否是日期 function CheckDateEdit(var edt: TEdit。 . 輸入值 ? Sender:指定數(shù)據(jù)網(wǎng)格所在的窗口名 ? dbg:指定的數(shù)據(jù)網(wǎng)格 . 程序流程 ? 從注冊表指定位置上取出數(shù)據(jù)網(wǎng)格的布局配置 SetSysTime . 過程說明 設(shè)置本地系統(tǒng)時(shí)間 procedure SetSysTime(const sDateTime: String)。 . 輸入值 ? dbg:指定的數(shù)據(jù)網(wǎng)格 ? bPrint:是否直接打印 . 程序流程 ? 生成文件名 ? 生成 Excel文件 ? 打開或直接打印這個(gè)文件 SaveDbgReg . 過程說明 將指定數(shù)據(jù)網(wǎng)格的布局配置保存到注冊表中 procedure SaveDbgReg(Sender: TObject。 . 輸入值 ? sSQL:原 SQL 字符串 ? sField:字段名 ? sSymbol:邏輯符號(hào) ? iValue:條件值 ? sVAlue:條件值 . 程序流程 ? 判斷 where 關(guān)鍵字是否存在，如否則增加 ? 根據(jù)條件值的類型添加條件表達(dá)示到 SQL 字符串中，并返回 SetRefresh . 過程說明 顯示設(shè)置刷新間隔的對(duì)話框 procedure SetRefresh(var tm: TTimer)。 overload。 . 輸入值 ? tbl:指字的數(shù)據(jù)結(jié)構(gòu) ? sFieldName:字段名 ? iRecNo:記錄號(hào) . 返回值 ? 字段值 . 程序流程 ? 根據(jù)指定的字段名、記錄號(hào)在指定的數(shù)據(jù)結(jié)構(gòu)中取出相應(yīng)的字段值并返回 GetMAC . 函數(shù)說明 取出網(wǎng)卡的 MAC 地址 function GetMAC(sIP: String): String。 sVal: String): String。 . 輸入值 ? sText:下位框的文本 . 返回值 ? 返回定符串 . 程序流程 ? 定位右數(shù)第一個(gè)空格