
二手房销售管理系统信息处理。
5星
- 浏览量: 0
- 大小:None
- 文件类型:None
简介:
该程序包含一系列用于数据库操作和用户界面交互的函数和过程。首先,定义了公共变量 `gUserName` 和 `gUserKind`,用于存储用户姓名和类型信息,以及 `gLoginSucceeded` 标志,指示登录是否成功。
“Main”过程负责启动登录窗体。它创建了一个名为 `frmLogin` 的窗体实例,并显示该窗体为模态窗口。如果登录未成功(即 `gLoginSucceeded` 为假),则显示一个警告消息框,提示用户尝试重新登录。最后,关闭登录窗体。
“ConnectString”函数用于设置数据库连接字符串,该字符串包含必要的连接参数,如 Provider、Password、User ID、Initial Catalog 和 Data Source。 该函数返回一个包含数据库连接字符串的字符串值。
“ExecuteSQL”函数执行指定的 SQL 语句。它接受 SQL 语句字符串、一个 ADODB.Recordset 对象和一个可选的 `enableWrite` 参数(指示是否允许写入操作)。 该函数使用 ADO.DB 连接对象执行 SQL 查询并返回执行结果(成功或失败)。
“DBExist”函数判断数据库中是否存在记录。它接受一个 SQL 语句作为输入,并执行相应的 SQL 查询来确定是否存在记录。如果存在记录,则返回记录数;否则返回 0 。
“TxtIsNull”函数检查 TextBox 控件中的文本内容是否为空字符串。 如果文本内容为空,则该函数返回 True;否则返回 False 。 同时, 如果文本框内容为空, 则设置焦点和背景颜色.
“IsOverStringLen” 函数判断输入的字符串长度是否超过了允许的最大长度 lenthText. 如果字符串长度超过了 lenthText, 则返回 True; 否则返回 False.
“viewData”过程将数据在 DataGrid 控件中显示出来。 它接收一个 SQL 查询语句和一个 DataGrid 对象作为参数, 执行查询后将结果设置到 DataGrid 中显示. 如果没有数据, 则弹出警告消息框.
“ISEquelLen” 函数判断输入文本框的内容是否等于给定的整数长度 intlen 。如果相等则返回True ,否则返回False 。同时会设置焦点和背景颜色.
ComboData 函数用于为 ComboBox 控件赋值数据。 它接收一个 SQL 查询语句和一个 ComboBox 对象作为参数, 执行查询并将结果添加到 ComboBox 中. 如果没有数据, 则返回False.
ComboYear, ComboMonth, ComboDate, ComboHour, ComboMin 函数分别用于为年份、月份、日期、小时和分钟列表赋值数据到 ComboBox 中. 这些函数通过循环生成指定范围内的数值并将其添加到 ComboBox 中.
setCboDataReg, setCboDataItem, setCboDataStru 函数分别用于为三个 ComboBox (Reg, Item, Stru) 设置不同的区域、项目和结构的数据源 .
“getCboId” 函数获取显示检索部分区域名称的ComboBox所对应的ID值 .
setCboIdData 函数为 Combo 设置 HouseId 数据 .
“setLabelData” 函数根据ComboBox 中的 HouseId 获取 HouseName 并将其设置为 Label 的标题 .
全部评论 (0)


