delphi数据库系统开发客户管理系统论文范例

delphi数据库系统开发客户管理系统论文范例内容摘要：

do //如果不到记录尾 begin ((39。 qyxz_xzmc39。 ).AsString)。 //指针指向下一条记录 end。 with do //企业资信 begin close。 //关闭数据库。 //清空SQL (39。 select qyzx_zxjb from tb_Client_qyzx39。 )。 //SQL查询语句只显示资信级别的字段信息 open。 //打开数据库 end。 while not do //如果不到记录尾 begin ((39。 qyzx_zxjb39。 ).AsString)。 //指针指向下一条记录 end。 with do //客户级别 begin close。 //关闭数据库。 //清空SQL (39。 select khjb_jbmc from tb_Client_khjb39。 )。 //SQL查询语句只显示资信级别的字段信息 open。 //打开数据库 end。 while not do //如果不到记录尾 begin ((39。 khjb_jbmc39。 ).AsString)。 //指针指向下一条记录 end。 with do //企业类型 begin close。 //关闭数据库。 //清空SQL (39。 select qylx_lxmc from tb_Client_qylx39。 )。 //SQL查询语句只显示客户级别的字段信息 open。 //打开数据库 end。 while not do //如果不到记录尾 begin ((39。 qylx_lxmc39。 ).AsString)。 //指针指向下一条记录 end。 with do //省份 begin close。 //关闭数据库。 //清空SQL (39。 select distinct csxx_sfmc from tb_Client_csxx39。 )。 //查询省份名为惟一的信息 open。 //打开数据库 end。 while not do //如果不到记录尾 begin ((39。 csxx_sfmc39。 ).AsString)。 end。 with do //连接客户信息表 begin close。 (39。 select * from tb_khxx39。 )。 open。 end。 end。 在【添加】按钮的OnClick事件处理过程中，先清空所有组件上的信息，打开客户信息表，如果有记录，则在编号文本框中添加编号为最大记录编号加1，否则编号为第一条记录。 其代码如下：procedure (Sender: TObject)。 var s : string。 i : integer。 begin i := 1。 := true。 := true。 := false。 := false。 := true。 with do begin close。 //关闭数据库。 //清空SQL语句 (39。 select * from tb_khxx order by khxx_id39。 )。 //查询客户信息表并以编号升序排列 open。 //打开数据库 end。 s := 39。 KH39。 +formatdatetime(39。 yyyymm39。 ,now())。 if 1 then //如果记录为空 begin。 //在记录的尾部追加一条记录。 //对添记录进行修改 (39。 khxx_id39。 ).AsString := s+39。 0000039。 +inttostr(i)。 end else //记录不为空 begin。 //将指针指向最后一条记录 i := strtoint(copy((39。 KHXX_id39。 ).AsString,9,6))。 //在记录的尾部追加一条记录。 //对添记录进行修改 (39。 khxx_id39。 ).AsString := s+formatfloat(39。 00000039。 ,i+1)。 end。 //使光标移到dbedit2组件上end。 在【修改】按钮的OnClick事件外理过程中，对工具按钮的可用度进行设置，修改当前记录。 其代码如下：procedure (Sender: TObject)。 begin := true。 := true。 := false。 := true。 //编辑当前记录end。 在【删除】按钮的OnClick事件处理过程中，先判断当前记录是否为空，如果为空，则无法删除，并弹出提示框，询问是否删除。 如果按是则删除当前记录，否则删除无效。 其代码如下：procedure (Sender: TObject)。 begin if (39。 khxx_id39。 ).AsString = 39。 39。 then //判断当前记录是不为空 begin showmessage(39。 客户信息已为空，无法删除。 39。 )。 //弹出提示信息 end else begin if (39。 真的要删除客户信息吗。 39。 ,39。 提示39。 ,mb_yesno) = idyes then。 //删除当前记录 end。 end。 在【保存】按钮的OnClick事件处理过程中，在保存前首先判断一些相关的信息不能为空，然后对添加或修改的内容进行保存。 其代码如下：procedure (Sender: TObject)。 begin if ( = 39。 39。 )or( = 39。 39。 )or( = 39。 39。 ) or( = 39。 39。 )or( = 39。 39。 )or( = 39。 39。 ) or( = 39。 39。 )or( = 39。 39。 ) or( = 39。 39。 )or( = 39。 39。 ) or( = 39。 39。 )or( = 39。 39。 ) or( = 39。 39。 ) then begin showmessage(39。 有些客户信息必须填写。 39。 )。 end else begin。 //保存“添加”或“修改”的信息 := false。 := false。 := false。 := true。 := true。 := false。 //断开数据库 := true。 //连接数据库 end。 end。 在【取消】按钮的OnClick事件处理过程中，撤消对数据的添加、修改和查询操作，并使记录返回到第一条。 其代码如下：procedure (Sender: TObject)。 begin。 //撤消对数据的添加、修改和查询的操作 := false。 := false。 := false。 := true。 := true。 with do begin close。 (39。 select * from tb_khxx39。 )。 open。 end。 end。 在【查询】按钮的OnClick事件处理过程中，调用查询对话框，对客户信息进行查询。 其代码如下：procedure (Sender: TObject)。 begin := true。 //使“取消”按钮为可用状态 (TFRM_KHXX_CX, FRM_KHXX_CX)。 //调用查询对话框。 //显不对话框。 //释放该对话框end。 在【第一条】按钮的OnClick事件处理过程中，使指针指向第一条记录，并将【第一条】、【上一条】按钮设为不可用，【下一条】、【末一条】按钮可用。 代码如下：procedure (Sender: TObject)。 begin。 //使指针指向第一条记录 := false。 := false。 := true。 := true。 end。 当DBEdit2组件的文本框不为空且键值为〈Enter〉键时，使光标移到dbbobox1组件上。 DBEdit2组件的OnKeyDown事件代码如下：procedure (Sender: TObject。 var Key: Word。 Shift: TShiftState)。 begin if (key = vk_return)and( 39。 39。 ) then //当信息不为空且键值为回车键时。 //光标移到dbbobox1组件上end。 发送邮件模块发送邮件模块主要是向客户发送邮件及群发。 发送邮件模块运行结果如图20所示。 图20 发送邮件模块运行结果1．窗体设计步骤（1）选择“File”/“New”/“Form”菜单项，新建一个窗体，命名窗体为“FRM_FSYJ”，设置Caption属性为“发送邮件”。 （2）在“Indv Interceots”组件页中点选“TIdSMTP”组件，添加到窗体上。 （3）在“Indy Misc”组件页中点选“TIdMessage”组件，添加到窗体上。 （4）在“Dialogs”组件页中点选“TOpenDialog”组件，添加到窗体上。 （5）在“Standard”组件页中点选“TGroupBox”组件，添加到窗体上，命名为“GroupBox1”，设置Caption属性为“查询联系人的邮件”。 （6）在“Standard”组件页中点选“Tlabel”组件，添加到GroupBox1组件上，命名为“Label1”，设置Caption属性为“联系人：”。 （7）在“Standard”组件页中点选“TComboBox”组件，添加到GroupBox1组件上。 （8）在“Standard”组件页中点选“TButton”组件，添加到GroupBox1组件上，命名为“Button3”，设置Caption属性为“群发”。 （9）在“Standard”组件页中点选“TPanel”组件，添加到窗体上，命名为“Panel1”，设置Caption属性为空；BevelInner属性为“bvRaised”；BevelOuter属性为“bvLowered”，如图21所示。 图21 Tmemo组件的属性设置（10）在“Standard”组件页中点选“TLabel”组件，在窗体上添加8个，默认命名。 分别设置Caption的属性为“发件人地址：”、“用户。