客户管理系统论文范例

客户管理系统论文范例内容摘要：

提示成功，单击【确定】按钮完成数据库的连接。 （ 7）在窗体上添加 TADOQuery 组件，设置它们的 Connection 属性为“ ADOConnection1”。 登录模块主要是通过输入正确的操作员名称、密码和操作员级别进入主窗体，如图 13 所示。 – 11 – 图 13 登录模块运行结果 1．窗体设计步骤 （ 1）选择“ File” /“ New” /“ Form”菜单项，新建一个窗体，命名窗体为“ FRM_YHDL”，设置 Caption 属性为“ 登录 ”； BorderStyle 属性为“ bsNone”； Position 属性为“ poScreenCenter”，如图 14 所示。 图 14 登录窗体属性 （ 2）在“ Standard”组件页中点选“ TLabel” 组件，在窗 体上添加 3 个 TLabel 组件，分别命名为“ Label1”、“ Label2”、“ Label3”，分别设置 Caption 属性为“操作员名称：”、“密码：”、“操作员级别：”。 将所有 TLabel 组件的 Transparent 属性设为“ True”。 （ 3）在“ Standard”组件页中点选“ TEdit” 组件，在窗体上添加 2 个 TEdit 组件，分别命名为“ Edit1”、“ Edit2”，设置 Edit2 组件的 PassWordChar 属性为“ *”。 （ 4）在“ Standard”组件页中点选“ TConboBox” 组件，添加到窗体 上，命名为“ Combobox1”，单击 Items 属性右侧的【 … 】按钮，弹出编辑器，在编辑器中输入“ 普通用户 ”、“ 高级用户 ”，如图 15 所示。 – 12 – 图 15 Items 编辑器 （ 5）在“ Additional”组件页中点选“ TBitBtn” 组件，在窗体上添加 2 个 TBitBtn 组件，分别命名为“ BitBtn1”、“ BitBtn2”。 分别设置 Caption 属性为“确定”、“取消”。 2．程序相关代码 在窗体显示时，先通过变量 jj 来判断登录窗体的窗体名是“登录”还是“ 重新登录 ”，然后创建 .ini 文件，将窗体名和当前日期 赋给 .ini 文件。 窗体的 OnShow 事件代码如下： procedure (Sender: TObject)。 var ini : Tinifile。 ssp : string。 begin if jj = 1 then //如果 jj=1，则为重新登录 begin ssp := 39。 重新登录 39。 := 39。 重新登录 39。 //使窗体名为重新登录 end else begin dl := 0。 ssp := 39。 登录 39。 := 39。 登录 39。 //使窗体名为登录 end。 ini:=(39。 c:\39。 )。 //创建 ini文件 (39。 one39。 ,datetimetostr(now),ssp)。 //在 ini文件中添加时间和窗体名称 – 13 –。 //释放 ini文件。 //清空 edit1组件。 //清空 edit2组件 := 39。 39。 //使 bobox1组件的 Text属性为空。 //将光标移到 edit1组件上 end。 在【确定】按钮的 OnClick 事件处理过程中，连接操作员数据库，并按操作员名称、密码和级别进行查询，如果有记录则把操作员的权限赋给数组 a[]，然后通过变量 jj 来判断是“登录”还是“重新登录”，如果是“登录”只能登录 3 次，否则将无限制。 其代码如下： procedure (Sender: TObject)。 vAR P:INTEGER。 begin with do //连接数据库的操作员表并按操作员名称、密码和级别查询 begin close。 (39。 select * from tb_user where user_name=:a and user_mm=:b and user_yhjs=:c39。 )。 (39。 a39。 ).Value := Trim()。 //将操作员名称赋给变量 a (39。 b39。 ).Value := Trim()。 //将操密码赋给变量 b (39。 c39。 ).Value := Trim()。 //将级别赋给变量 c open。 end。 if 0 then //如果有记录 begin yhmc := (39。 user_name39。 ).AsString。 //将操作员名称赋给变量 yhmc for p := 1 to 31 do //将操作员的权限赋给数组 a[] begin ppl := inttostr(p)。 a[p] := booltostr((ppl).AsVariant,True)。 end。 if jj = 1 then //如果为 1则为重新登录，将新操作员名称赋给主界面的工具栏 begin。 [1].Text := 39。 操作员名称： 39。 +yhmc。 end else begin。 //关闭当前窗体 end。 – 14 – end else begin showmessage(39。 操作员名称、密码或操作员级别不正确 39。 +13+39。 请重新输入。 39。 )。 := 39。 39。 dl := dl+1。 end。 if jj 1 then begin if dl = 4 then begin。 //关闭本系统 end。 end。 end。 在【退 出】按钮的 OnClick 事件处理过程中，如果是重新登录则退出本窗体，如果是登录则退出本系统。 其代码如下： procedure (Sender: TObject)。 begin if jj = 1 then //关闭当前窗体 ELSE。 //关闭本系统 end。 客户信息模块 客户信息模块主要是添加、修改、删除、查询客户信息。 客户信息模块运行结果如图 16 所示。 – 15 – 图 16 客户信息模块运行结果 1．窗体设计步骤 （ 1）选择“ File” /“ New” /“ Form”菜单项，新建一个窗体，命名窗体为“ FRM_KHXX”，设置 Caption 属性为“ 客户信息 ”。 （ 2）在“ Win32”组件页中点选“ TImageList”组件，添加到窗体上。 在“ Standard” 组件页中点选“ TImagelist”组件，添加到窗体上。 在“ Standard” 组件页中点选“ TPanel”组件，添加到窗体上。 在该组件上添加 TToolBar 组件，在 TToolBar 组件上单击右键，在弹出的 菜单中选择“ New ButTin”菜单项，添加工具栏按钮。 选中新添加的工具栏按钮，设置相关属性，如图 17所示。 图 17 工具栏按钮属性 （ 3）在“ Data Access”组件页中点选“ TDataSource”组件，添加到窗体上。 在“ Win32”组 – 16 – 件页中点选“ TPageControl” 组件，添加到窗体上。 在“ Standard” 组件页中点选“ TPanel”组件，添加到 TabSheet1 页中 ，设置属性，如图 18 所示。 图 18 Panel1 属性 （ 4）在“ Standard” 组件页中点选“ TLabel”组件 ，在 Panel1 组件上添加 21 个。 在“ Data Controls”组件页中点选“ TDBEdit”组件，在 Panel1 组件上添加 14 个。 在“ Data Controls”组件 页中点选“ TDBComboBox”组件，在 Panel1 组件上添加 6 个。 在“ Data Controls” 组件页中点选“ TDBMemo”组件，添加到 Panel1 组件上。 在“ Standard” 组件页中点选“ TPanel”组件，添加到 TabSheet2 页中。 在“ Data Controls”组件页中点选“ TDBGrid”组件，添加到 Panel2 组件上 ，双击 DBGrid1组件，在弹出的编辑器中设置属性，如图 19 所示。 图 19 为 TDBGrid 组件设置属性 （ 5）重要组件的相关属性设置，如表 2 所示。 表 2 组件的相关属性设置 对象名 对象类型 属性 值 FRM_KHXX TForm Caption 客户信息 DataSource1 TDataSource DataSet ToolBar1 TToolBar Align alClient ShowCaptions True Flat True – 17 – DBMemo TDBMemo DataSource1 DataSource1 ScrollBars ssVertical 2．程序相关代码 在窗体显示时，将窗体名称赋给工作日志，打开客户信息表。