个人名片管理系统

个人名片管理系统内容摘要：

能和数据库建立连接 . 按 任 意 键 关 闭 系统 .....39。 ,StopSign!) halt close。 //直接关闭整个应用 end if close 事件的代码如下： Disconnect。 //断开和数据库的连接 数据窗口的建立 本系统中建立了四个数据窗口，它们分别 是 跟名片录入、名片修改、名片查询、用户信息有关的 dw_mp_input 、 dw_mp_modify 、dw_mp_query、 dw_mp_users。 下面，主要介绍其中的一个数据窗口 dw_mp_input 的创建过程。 选择窗口菜单 FileNew，或者使用快捷键 Ctrl + N，或者点击窗口工具条中左侧第一个小图标按钮‘ New’，打开‘ New’对话框，点击上面的‘ DataWindow’显示如图 51 所示的界面。 9 图 1 新建数据窗口 选择其中的‘ Freeform’，然后点击窗口底部的命令按钮‘ OK’。 图 1 所示的窗口关闭，打开图 2 所示的对话框。 图 2 选择数据源 在图 2 所示的窗口中选择‘ Quick Select’，然后点击窗口底部的命令按钮‘ Next’，打开如图 3 所示的对话框。 10 在图 3 所示的对话框中，选择左侧‘ Tables’中的表‘ mpgl’，然后点击右侧的命令按钮‘ Add All’，然后点击窗口右上角的命令按钮‘ OK’，显示如图 4 所示的对话框。 在该对话框中设置数据窗口的显示样式。 11 图 4 设置显示格式 在该对话框中，选择‘ Background Color’为‘ Button Face’，选择‘ Columns’组框中的‘ Border’为‘ Lowered’。 然后点击窗口底部的命令按钮‘ Next’，打开如图 5 所示的对话框。 图 5 总结信息 图 55 所示的对话框是总结信息，显示我们在前面的选择。 点击窗口底部的命令按钮‘ Finish’即可完成数据窗口创建向导的工作，进入到Datawindow 画板中。 接下来我们需要进一步修改数据窗口的外观 ， 至此，名片输入数据窗口创建完成。 保存该数据窗口，命名为‘ dw_mp_input’，并且在保存时为该数据窗口对象输入提示信息。 数据窗口 dw_mp_modify 和 dw_mp_query 的创建过程同上，并且数据源 也是数据表 mpgl，而数据窗口 dw_mp_users 的数据源与它们不同，它的数据源是数据表 users。 至此，我们所需要的数据窗口都已经建立完毕。 创建全局函数 gf_getbh 使用全局函数，便于程序的重用和逻辑上的封装。 在创建数据表时， mpgl 表中的字段 bh 定义为 char(10)类型。 首先我们定义编码的规则如下： (1) 前 6 位为 2 位年、 2 位月、 2 位日； (2) 后 4 位为流水号，取当前最大值加 1。 根据上面的规则我们创建一个全局函数。 函数定义 如下： /* * 函数名称： String gf_getbh(string as_bh) * 函数作用：生成一个编号。 * 返 回 值： string 类型的，编号。 * 调用举例： ls_new = gf_getbh(ls_old) 12 * 其中， ls_old 为数据窗口中已经存在的当天的最大编号。 **/ String ls_Part1 //用来保存编码的前 6 位 String ls_Part2 //用来保存编码的后 4 位 String ls_DbSn //数据库中的当天最大流水号 string ls_AgrSn //参数中的流水号 String ls_sn //新生成的编号 ls_part1 = Right(String(today(),39。 yyyymmdd39。 ),6) ls_AgrSn = Right(as_bh,4) //从数据库中选择当天最大的编号 select max(bh) into :ls_Dbsn from mpgl where substring(bh,1,6) = :ls_part1。 if = 0 then //如果正确取出了数据 if IsNull(ls_Dbsn) or ls_Dbsn = 39。 39。 then ls_Dbsn = 39。 000039。 else ls_DbSn = Right(ls_DbSn,4) end if if IsNull(ls_Agrsn) or ls_Agrsn = 39。 39。 then ls_Agrsn = 39。 000039。 if integer(ls_Dbsn) integer(ls_AgrSn) then ls_Part2 = String(integer(ls_AgrSn) + 1) else ls_Part2 = String(integer(ls_DbSn) + 1) end if ls_sn = ls_part1 + Right(39。 000039。 + ls_Part2,4) else ls_sn = 39。 39。 end if return ls_sn 创建主菜单 菜单是一个非常不错的控件，在很多操作系。