Sys软件编程任务书001--通用过程、函数.docVIP

软件单元编程任务书 单元任务号：SYS001 单元任务名称：通用过程、函数 任务书编制： 设计审核： 任务书下达日期：2001.04.12 程序作者： 工作开始日期：2001.04.12 工作完成日期：2001.04.12 系统名称： 模块名称：SYS 单元名称： Form/Procedure/Function名称： DispInfo 统一的信息提示窗口 MonthCheck 月份有效性检查 DateCheck 日期有效性检查 BlankCheck 输入字符串是否为空 BlankInStrCheck 输入字符串是否含空 GetCode 获得代码 GetName 获得名称 SmallToBig 金额数字变成大写字符串 InitCmBx 根据数据表的内容初始化ComboBox的内容 InitCmBxText 使ComboBox定位到内容输入的代码值的行 Procedure/Function所属Form： Frm_Sys_Global 单元程序功能简述： 部分的通用过程、函数 单元信息界面图：N/A 单元功能模型图：N/A 单元程序流程图：略 程序写作要点说明： 文字说明见附件1。 形成文档。 系统原型：N/A 接口定义：N/A 使用的资源： 父类： Form： 数据表： 其他模块： VSS—SimpleSys—Sys_Global.pas 参考标准： Delphi程序开发规范 附件1 程序写作要点： 1、DispInfo 统一的信息提示窗口 直接来自VSS—SimpleSys—Sys—Sys_Global 2、MonthCheck 月份有效性检查 Function MonthCheck(InputMonth,DispStr:String):Boolean 如果错误，则DispInfo([两个空格]+InputStr+”月份非法！”+[两个空格],1) 3、DateCheck 日期有效性检查 Function DateCheck(InputDate,DispStr:String):Boolean 如果错误，则DispInfo([两个空格]+DispStr+”日期非法！”+[两个空格],1) 4、BlankCheck 输入字符串是否为空 Function BlankCheck(InputStr,DispStr:String):Boolean 如果为空，则DispInfo([两个空格]+DispStr+”不允许为空！”+[两个空格],1) 5、BlankInStrCheck 输入字符串是否含空 Function BlankInStrCheck(Var InputStr:String;DispStr:String):Boolean 如果以空格开头，则滤掉空格，并通过Var类型的参数，改变输入字符串的值 如果中间包含空格，则DispInfo([两个空格]+DispStr+”中间不允许出现空格！”+[两个空格],1) 6、GetCode 获得代码 Function GetCode(InputStr:String):String 从以“代码+[空格]+名称”格式表示的字符串中，获得空格前的字符串 7、GetName 获得名称 Function GetName(InputStr:String):String 从以“代码+[空格]+名称”格式表示的字符串中，获得空格后的字符串 8、SmallToBig 数字变成大写字符串 参考以下代码，将拼音表示的变量换成英文，并按代码规范的要求重新书写，加上注释 function SmallTOBig(anumber:double):string; var SmallMonth,BigMonth:string; wei1,qianwei1:string[2]; wei,qianwei,dianweizhi,qian:integer; begin {------- 修改参数令值更精确 -------} qianwei:=-2;{小数点后的位置，需要的话也可以改动-2值} Smallmonth:=formatfloat(0.00,anumber);