华安基金投资管理系统界面程序设计书

华安基金投资管理系统界面程序设计书内容摘要：

g。 sCon: String = 39。 39。 )。 overload。 . 输入值  cmb:指定的下拉框  sCode:段编号  sCon:指定的条件  bAll:是否添加一条空行数据以表示全部 . 程序流程  过滤数据字典的 ClientDataSet  在指字下拉框中添加过滤出的数据 CmbAdd . 过程说明 根据指定的字段名从指定数据结构中取出数据添加到指定下拉框中 . 过程原形 procedure CmbAdd(cmb: TComboBox。 var tbl: TQryTable。 sID, sName: String。 bAll: Boolean = False)。 overload。 procedure CmbAdd(cmb: TCheckComboBox。 var tbl: TQryTable。 sID, sName: String。 bAll: Boolean = False)。 overload。 procedure CmbAdd(cmb: TComboBox。 var tbl: TQryTable。 sID: String。 bAll: Boolean = False)。 overload。 procedure CmbAdd(cmb: TComboBox。 var cds: TClientDataSet。 sID, sName: String)。 overload。 procedure CmbAdd(cmb: TComboBox。 var cds: TClientDataSet。 sID: String)。 overload。 . 输入值  cmb:指定的下拉框，指定的下拉选择框  tbl:TQryTableg型的数据  cds:TClientDataSet 型的数据  sID:第一个字段，数据的 ID  sName:第二个字段，数据的名称  bAll:是否添加一条空行以表示全部 . 程序流程  循环在指定下拉框中添加数据 CmbFind . 过程说明 在指定的下拉框中查找指定的数据，并定位 . 过程原形 procedure CmbFind(cmb: TComboBox。 scmb: String)。 . 输入值  cmb:指定的下拉框  scmb:需 要查找的数据 . 程序流程  在指定的下拉框中循环查找指定的数据  找到则定位并退出，否则定位于第一项 CmbRTrim . 函数说明 取出下拉框中的文本中左数第一个空格左边的数据 . 函数原形 function CmbRTrim(sText: String): String。 . 输入值  sText:下位框的文本 . 返回值  返回定符串 . 程序流程  定位左数第一个空格  取出空格左边的字符串返回 CmbLTrim . 函数说明 取出下拉框中的文本中右数第一个空格右边的数据 . 函数原形 function CmbLTrim(sText: String): String。 . 输入值  sText:下位框的文本 . 返回值  返回定符串 . 程序流程  定位右数第一个空格  取出空格右边的字符串返回 OpenXLS . 过程说明 根据指定的文件名在 Excel中打开，可选择是否直接打印 . 过程原形 procedure OpenXLS(const FileName: String。 var SmartGrid: TSmartGrid。 bPrint: Boolean = False)。 . 输入值  sFileName:文件 名字  dbg:指定的数据网格 . 程序流程  打开指定的 Excel文件  在这个文件插入报表标题、操作员、打印时间  保存  打开或直接打印 GetDADDesc . 函数说明 根据指定的段编号、编号取出相应的编号值 function GetDADDesc(sCode: String。 sVal: String): String。 . 输入值  sCode:段编号  sVal:编号 . 返回值  编号值 . 程序流程  根据指定的段编号、编号在数据字典中定位相应的记录  取出编号值并返回 GetFieldValue . 函数说明 根据指定的字段名、记录号在指定的数据结构中取出相应的字段值 function GetFieldValue( tbl: TQryTable。 const sFieldName: String。 iRecNo: Integer): String。 . 输入值  tbl:指字的数据结构  sFieldName:字段名  iRecNo:记录号 . 返回值  字段值 . 程序流程  根据指定的字段名、记录号在指定的数据结构中取出相应的字段值并返回 GetMAC . 函数说明 取出网卡的 MAC 地址 function GetMAC(sIP: String): String。 . 输入值  sIP:网卡上的 IP 地址 . 返回值  网卡的 MAC 地址 . 程序流程  MakeSQL . 过程说明 组成 SQL 语句 procedure MakeSQL(var sSQL: String。 const sField, sRelative: String。 iValue: Integer)。 overload。 procedure MakeSQL(var sSQL: String。 const sField, sSymbol, sValue: String)。 overload。 . 输入值  sSQL:原 SQL 字符串  sField:字段名  sSymbol:逻辑符号  iValue:条件值  sVAlue:条件值 . 程序流程  判断 where 关键字是否存在，如否则增加  根据条件值的类型添加条件表达示到 SQL 字符串中，并返回 SetRefresh . 过程说明 显示设置刷新间隔的对话框 procedure SetRefresh(var tm: TTimer)。 . 输入值  tm:定时器 . 程序流程  显示对话框  设置定时器的刷新间隔 SetReportTitle . 过程说明 显示设置报表标题的对话框 procedure SetReportTitle(var dbg: TSmartGrid )。 . 输入值  dbg:指定的数据网格 . 程序流程  显示对话框  设置报表标题 PrintGrid . 过程说明 从指定数据网格中生成 Excel文件，并打开或直接打印 procedure PrintGrid(dbg: TSmartGrid。 bPrint: Boolean = False)。 . 输入值  dbg:指定的数据网格  bPrint:是否直接打印 . 程序流程  生成文件名  生成 Excel文件  打开或直接打印这个文件 SaveDbgReg . 过程说明 将指定数据网格的布局配置保存到注册表中 procedure SaveDbgReg(Sender: TObject。 dbg: TSmartGrid)。 . 输入值  Sender:指定数据网格所在的窗口名  dbg:指定的数据网格 . 程序流程  保存布局配置到注册表指定位置上 LoadDbgReg . 过程说明 从注册表中出取指定数据网格的布局配置 procedure LoadDbgReg(Sender: TObject。 dbg: TSmartGrid)。 . 输入值  Sender:指定数据网格所在的窗口名  dbg:指定的数据网格 . 程序流程  从注册表指定位置上取出数据网格的布局配置 SetSysTime . 过程说明 设置本地系统时间 procedure SetSysTime(const sDateTime: String)。 . 输入值  sDateTime:时间 . 程序流程  组织指定的时间格式  API 调用 SetLocalTime 设置本地系统时间 GetCurTime . 函数说明 取出当前本地的系统时间 function GetCurTime: String。 . 输入值  . 返回值  本地的系统时间 . 程序流程  取出当前本地的系统时间 CheckDate . 函数说明 检查日期是否合法 function CheckDate(const sDate: String): Boolean。 . 输入值  sDate:日期 . 返回值  True:合法  False:不合法 . 程序流程  判断长度  组织指定的日期格式  判断是否合法并返回 CheckTime . 函数说明 检查时间是否合法 function CheckTime(const sTime: String): Boolean。 . 输入值  sTime:时间 . 返回值  True:合法  False:不合法 . 程序流程  判断长度  组织指定的时间格式  判断是否合法并返回 CheckDateEdit . 函数说明 检查指定的输入框内容是否是日期 function CheckDateEdit(var edt: TEdit。 bCanNull: Boolean = False): Boolean。 . 输入值  edt:指定的输入框  bCanNull:是否允许为空 . 返回值  True:是  False:不是 . 程序流程  如果允许为空并且输入框的内容为空，则直接返回 True  调用 CheckDate 检查输入框的内容是不否是日期 CheckTimeEdit . 函数说明 检查指定的输入框内容是否是时间 function CheckTimeEdit(var edt: TEdit。 bCanNull: Boolean = False): Boolean。 . 输入值  edt:指定的输入框  bCanNull:是否允许为空 . 返回值  True:是  False:不是 . 程序流程  如果允许为空并且输入框的内容为空，则直接返回 True  调用 CheckTime 检查输入框的内容是不否是时间 CheckString . 函数说明 检查输入内容是否为空 function CheckString(var edt: TEdit。 const sCaption: String): Boolean。 overload。 function CheckString(var cmb: TComboBox。 const sCaption: String): Boolean。 overload。 . 输入值  edt:指定的输入框  cmb:指定的下拉框  sCaption:输入的内容的名称 . 返回值  True:是  False:不是 . 程序流程  判断内容是否为空，并返回 CheckInteger . 函数说明 检查输入内空为否为整型的数字 function CheckInteger(var edt: TEdit。 const sCaption: String = 39。 39。 ): Boolean。 overload。 function CheckInteger(var cmb: TComboBox。 const sCaption: String = 39。 39。 ): Boolean。 overload。 function CheckInteger(var edt: TMoneyEdit。 const sCaption: String = 39。 39。 ): Boolean。 overload。 . 输入值  edt:指定的输入框  cmb:指定的下拉框  sCaption:输入的内容的名称 . 返回值  True:是  False:不是 . 程序流程  调用 StrToInt64Def 判断输入内容是否为整型数字 CheckFloat . 函数说明 检查输入内容是否为 0 function CheckFloat(var edt: TMoneyEdit。 const sCaption: String): Boolean。 overload。 . 输入。