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

文档介绍：软件单元编程任务书
单元任务号:SYS001
单元任务名称:通用过程、函数
任务书编制:
设计审核:
任务书下达日期:
程序作者:
工作开始日期:
工作完成日期:
系统名称:
模块名称:SYS
单元名称:
Form/Procedure/Function名称:
DispInfo 统一的信息提示窗口
MonthCheck 月份有效性检查
DateCheck 日期有效性检查
BlankCheck 输入字符串是否为空
BlankInStrCheck 输入字符串是否含空
GetCode 获得代码
GetName 获得名称
SmallToBig 金额数字变成大写字符串
InitCmBx boBox的内容
InitCmBxText 使ComboBox定位到内容输入的代码值的行
Procedure/Function所属Form: Frm_Sys_Global
单元程序功能简述:
部分的通用过程、函数
单元信息界面图:N/A
单元功能模型图:N/A
单元程序流程图:略
程序写作要点说明:
文字说明见附件1。
形成文档。
系统原型:N/A
接口定义:N/A
使用的资源:
父类:
Form:
数据表:
其他模块:
VSS—SimpleSys—
参考标准:
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 获得名称
Fu