《信息系统开发方法》课程设计方法.docVIP

信息系统开发方法课程设计信息系统开发方法课程 设计报告工资管理系统姓名 杜 彦 班级 信息管理与信息系统0102学号 27 指 导 教 师 张志霞 第一章 需求分析1.1 总体需求调查1.1.1 组织结构图组织结构图如下1.1.2 系统目标采用 现有的软硬件软件及科学的管理系统开发方案，建立人事工资管理系统，实现移动人事工资管理的计算机自动化。系统应符合 人事、工资管理制度，并达到操作直观、方便、实用、安全等要求。1.1.3 应用现状调查 目前， 使用的人事工资管理系统采用的是DOS环境下的Foxbase数据库，界面不友好，不能适应发展的需要。维护员工基本信息维护员工工资信息数据统计表格制作出盘结束开始1.1.4业务总体流程调查维护员工基本信息：人事管理主要负责人员基本信息的维护，包括新进员工档案的建立，员工信息的修改。 工资管理基本流程如下：数据来源：将各部门送达的员工工资信息包括基本工资、奖金、水电费等作为数据来源，分为新增员工工资数据和老员工每月修改数据。数据的输入：由工作人员通过新员工本月工资增加和老员工上月工资表修改完成。数据的统计：由工作人员通过对修改后的上月工资表进行计算得到每个人的实发工资以及总金额。表格的制作：由工作人员以修改、计算后的在上月工资表为蓝本生成与银行进行数据交换的软件即出盘。同时可打印工资报表。1.2系统功能调查整个系统从总体上分为人事管理、工资管理、系统维护三大部分，每一部分应实现的功能如下：1.2.1人事管理功能 新员工档案的输入: 员工基本信息维护:包括修改、删除（删除员工只是将该员工登记为无效，并不要求从表中删除）. 员工基本信息查看: 员工基本信息查询：支持多条件查询，可以选择某一部门、某一职位、某一职称、学历、性别等进行查询，也可以组合查询。 人事状况曲线: 企业员工花名册:1.2.2工资管理功能 新员工工资新增： 员工工资修改： 出盘:按所规定的格式生成与银行进行数据交换的软件，一般为文本文件 出盘出错回滚： 工资短信：将员工本月工资信息通过短信发出，并通知领工资时间。1.2.3系统维护功能 部门信息维护：实现灵活的增减部门信息 职务信息维护：实现灵活的增减职务信息 职称信息维护：实现灵活的增减职称信息 工资账目维护：能够灵活的改变员工的薪水账目。人事工资管理系统 用户管理：包括新增用户、删除用户、修改用户密码等。1.3系统功能模块图工资管理模块新员工工资新增老员工工资维护出 盘工资报表系统维护模块工资账目维护职务信息维护部门信息维护职称信息维护用户管理人事管理模块新员工档案的新增员工基本信息维护员工基本信息查看员工基本信息查询人事状况曲线分析企业员工花名册新增用户修改密码删除用户第二章 概要设计2.1概念设计概要设计基础是完成需求分析后提供的需求说明书，用概念数据模型表示数据及其相互间的关系，这种数据模型是与DBMS无关的、面向现实世界的、易如理解的数据模型，其独立于计算机的数据模型，独立于计算机的软硬件系统，与用户进行交流十分方便。概念性数据模型关心的是如何完整、正确地反映客观实际情况，不关心在数据库中如何实现。这种数据模式能真实地反应用户要求的实际情况，是一种容易被人们理解的直观的数据库结构模式。同时也是一种相对稳定统一的数据模式，一般情况下很少变动。概念性数据在用户和设计者之间建立了桥梁。是设计数据库结构的基础。概念设计中自顶向下的实体分析方法，即常用的实体联系模型（简称E-R模型），对具体数据进行抽象加工，将实体集合抽象成实体类型。用实体间联系反映现实世界事物间的内在联系。E-R模型是建立概念性数据模型的有力工具。通过对企业员工管理内容、工资管理内容和过程的分析，本系统应设计的实体和属性如下：员工（包括员工工号、员工姓名、学历、性别、政治面貌、出生日期、所属部门、职称、职务、入职时间、身份证号、联系电话、家庭住址、手机号码、Email、有效标志）部门（部门代号、部门名称）职务（职务代号、职务名称）职称（职称代号、职称名称）薪金结构（月份、员工工号、薪水帐目、数目）薪水帐目（薪水帐目代号、薪水帐目名称）员工工号员工姓名学历性别政治面貌出生日期职称职务所属部门身份证号家庭住址联系电话Email有效标志员工部门部门代号部门名称职务职务代号职务名称职称职称代号职称名称薪水帐目名称薪水帐目薪水帐目代号薪金结构薪水帐目月份数目员工工号部门职称职务员工属于具有担任实体和实体之间的关系E-R图如下：薪金结构薪水账目具有1：N具有1：N2.2数据库设计作为Borland 的桌面数据库，Paradox在Delphi中的应用非常广泛，为此我选用Paradox数据库来进行数据库的逻辑设计。根据前面定义的实体及实休之间的关系，形成数据库的表格以及各个表之间的关系。为了减少数据冗余度，将职称实体、部门实体、职务实体、薪水帐目实体放在同一个表里，以一个类型字段加以区分。对个关系选择主健，按照关系模式的规范化进行规范，消除数据依赖中不合适的部分，使模式中的各关系模式达到某种程度的分离。2.2.1 ygzlb（员工资料表）序号域名域中文名域类型备注1Ygh员工工号Alpha(6)主键2Xm员工姓名Alpha (12)3Xb性别Alpha(2)4Zzmm政治面貌Alpha(4)5Xl学历Alpha(12)6Qsrq出生日期Alpha(19)7Ssbm所属部门Alpha(30)8Zc职称Alpha(30)9Zw职务Alpha(30)10Rzsj入职时间Alpha(19)11Sfzh身份证号Alpha(20)12Gdlxdh联系电话Alpha(16)13Jtzz家庭住址Alpha(60)14Sjhm手机号码Alpha(12)15EmailEmailAlpha(20)16Yxbz有效标志Short1代表有效员工；9代表无效员工17Czy操作员Alpha(20)18Czrq操作时间Alpha(19)说明：员工基本信息表用于存储员工基本信息，为保证数据的一致和历史资料的完整，表的记录在一般的情况不能被删除，如果发生员工离职，只更改其有效标志为9。2.2.2 Yhklb用户口令表序号域名域中文名域类型备注1Dlgh登录工号Alpha(20)主键2Pswd口令Alpha (10)说明：为了便于多个用户管理该系统，建立此表，记录用户的登录工号和口令2.2.3 Ygxjjgb员工薪金结构表序号域名域中文名域类型备注1Yf月份Alpha(6)主键2Ygh员工工号Alpha(6)主键3Xszmid薪水帐目IDShort主键4Sm数目Money5Czy操作员Alpha(6)6Czsj操作时间Alpha(19)说明：员工薪金结构表采用竖表结构，便于以后薪水帐目的新增，利于系统保持较长时间的适用。同时该表采用月帐的形式，便于历史资料的稳定查询，和统计，同时也能做到出盘发生错误时，进行回滚。在准备当前月份的数据的时候，将同时校验该员工的有效性。如果是无效员工，则系统将不会显示该员工的资料。但在历史月份还是将体现该员工的资料。系统将根据基本参数表中的工资帐目的费用影响关系（1或-1）来形成员工的应发工资和实发工资。2.2.4 Kjcsb控制参数表序号域名域中文名域类型备注1Yf序列Short主键2Csdm参数代码Alpha(20)3Csmc参数名称Alpha(40)4Czy操作员Alpha(6)5Czsj操作时间Alpha(19)说明：控制参数表用于控制出盘，在每次出盘成功后，会在该表中插入一条记录，以记录该月是否已经出盘；在需要再次出盘的时候，系统将会首先判断该月的出盘标志，如果已经出盘，则对数据库不做操作，仅仅在界面上进行出盘，生成TXT文本文件，如果未出盘则需要对数据库进行操作（将该月的数据重新插入数据库，作为下个月出盘的初始数据）2.2.5 Jbcsb基本参数表序号域名域中文名域类型备注1IDIDShort主键2Lx参数类型Short1：薪水帐目；2：部门代码；3：职务代码；4：职称代码3Mc参数名称Alpha(30)4Czy操作员Alpha(20)5Czsj操作时间Alpha(19)6Rela费用影响关系Short-1代表该项目对实发工资是负的影响；1代表该项目对实发工资是正的影响；第三章 详细设计 根据需求分析、概要设计的结果，采用Delphi做为开发工具，实现 人事工资管理各模块的功能。3.2 登录窗口设计3.2.1功能说明控制员工登录，防止非法用户闯入本系统，保证系统的安全，输入口令时屏幕显示为“*”以利保密。3.2.2屏幕格式设计登录界面3.2.3源程序分析procedure TFrm_dl.Button1Click(Sender: TObject);begin if edit2.text= then /判断密码是否输入为空 begin Application.MessageBox(密码不能为空，请重新输入！,系统提示,mb_IconInformation+mb_OK); Edit2.SetFocus; Exit; end; query1.sql.clear; query1.sql.add(select pswd from yhklb where dlyh=+trim(edit1.text)+); if query1.Active then query1.close; query1.open; /根据用户名从用户口令表中取出用户口令 if edit2.textquery1.fieldbyname(pswd).asstring then begin if err_cou=2 then /判断是否三次输入错误 begin application.messagebox(三次登录的用户名或密码错误, 系统退出,mb_IconInformation+mb_OK); frm_main.close; /关闭主窗口，退出系统 end; Application.MessageBox(密码或工号不正确,请重新输入！,mb_IconInformation+mb_OK); /若密码输入错误，提示重新输入 Edit2.SetFocus; err_cou:=err_cou+1; /输入次数加1 exit; end; dluser:=edit1.text; /给变量赋值，记录登录用户，供其它程序使用 Close; end;3.3 主窗口设计3.3.1功能说明界面采用MDI方式，可同时打开几处子窗口体，在界面上放置了菜单栏和工具栏、状态栏；菜单栏集中了系统操作的入口，各功能模块的执行从此进入；工具框显示了系统菜单中常用项目的快键图标，使用户只需点击相应图标即可进入相应功能模块，当鼠标移动到相应图标时，系统会出现提示信息。状态栏主要是用于显示日期时钟信息，以及系统操作过程中的信息。3.3.2屏幕格式设计系统主界面3.3.3源程序分析procedure TFrm_main.N20Click(Sender: TObject); /菜单关闭事件beginclose; end;procedure TFrm_main.N_shutdownClick(Sender: TObject);件begin /菜单退出系统并关机事件if messagedlg(是否退出并关闭计算机？,mtinformation,mbyes,mbno,1)=mryes thenbegin close; ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 ); /调用API函数end;end;procedure TFrm_main.N_closeClick(Sender: TObject);beginclose;end;procedure TFrm_main.N_bmcxwhClick(Sender: TObject);/打开部门参数维护窗口begin Application.CreateForm(TFrm_bmxg, Frm_bmxg);if frm_bmxg.query1.active then frm_bmxg.query1.close; /判断Query是否打开frm_bmxg.query1.open; /打开Queryend;procedure TFrm_main.N_zwwhClick(Sender: TObject); /打开职务参数维护窗口begin Application.CreateForm(TFrm_zwxg, Frm_zwxg); if frm_zwxg.query1.active then frm_zwxg.query1.close; frm_zwxg.query1.open;end;procedure TFrm_main.N_ygjbxxsrClick(Sender: TObject);/打开新增员工信息窗口beginApplication.CreateForm(Tfrm_ygzbxxsr, frm_ygzbxxsr);end;procedure TFrm_main.N_yhwhClick(Sender: TObject);/打开用户维护窗口beginApplication.CreateForm(TFrm_yhgl, Frm_yhgl); if frm_yhgl.query1.active then frm_yhgl.query1.close; frm_yhgl.query1.open;end;procedure TFrm_main.Timer1Timer(Sender: TObject); var y,m,d:word; /在状态栏上显示日期时间星期 begin decodedate(now,y,m,d); statusbar1.Panels1.text:=concat(【,inttostr(y),年,inttostr(m),月,inttostr(d),日 ,formatdatetime(hh:nn:ssAM/PM,now) ,f_get_week,】);/调用函数f_get_week end;procedure TFrm_main.N_zcwhClick(Sender: TObject);/打开职称维护窗口beginApplication.CreateForm(TFrm_zcxg, Frm_zcxg); if frm_zcxg.query1.active then frm_zcxg.query1.close; frm_zcxg.query1.open;end;procedure TFrm_main.N_ygzbxxwhClick(Sender: TObject);/打开员工信息维护窗口beginApplication.CreateForm(Tfrm_ygzbxxwh, frm_ygzbxxwh);end;procedure TFrm_main.N_zbxxckClick(Sender: TObject); /打开员工信息查看窗口beginApplication.CreateForm(Tfrm_llygzbxx, frm_llygzbxx);end;procedure TFrm_main.N_tjcxClick(Sender: TObject); /打开员工信息条件查询窗口beginApplication.CreateForm(Tfrm_ygzlcx, frm_ygzlcx);end;procedure TFrm_main.N_gzzmwhClick(Sender: TObject);/打开薪水帐目维护窗口beginApplication.CreateForm(TFrm_gzzmwh, Frm_gzzmwh);if Frm_gzzmwh.query1.active then Frm_gzzmwh.query1.close;Frm_gzzmwh.query1.open;end;procedure TFrm_main.N_cpClick(Sender: TObject); /打开出盘窗口beginApplication.CreateForm(Tfrm_cp, frm_cp);end;procedure TFrm_main.N_gzdxClick(Sender: TObject); /打开工资短信窗口beginfrm_gzdx:=Tfrm_gzdx.create(application);frm_gzdx.showmodal;frm_gzdx.free;end;procedure TFrm_main.N_jsbClick(Sender: TObject); /打开写字板beginShellExecute(handle,open,notepad.exe,nil,nil,SW_ShowNormal);/调用API函数end;procedure TFrm_main.N_jsqClick(Sender: TObject); /打开计算器beginShellExecute(handle,open,calc.exe,nil,nil,SW_ShowNormal); end;procedure TFrm_main.N_ppClick(Sender: TObject); /实现窗口平铺begin TileMode := tbVertical; Tile;end;procedure TFrm_main.N_cdClick(Sender: TObject); /实现窗口层叠beginCascade;end;procedure TFrm_main.N_jxhClick(Sender: TObject); /实现窗口极小化var i:integer;beginwith frm_main do begin for i := MDIchildcount-1 downto 0 do MDIChildreni.Windowstate := wsMinimized; end;end;procedure TFrm_main.N_aboutClick(Sender: TObject); /打开关于本系统窗口beginApplication.CreateForm(Tfrm_about, frm_about);end;function Tfrm_main.f_get_week :string; /获取星期函数var days: array1.7 of string;begin days1 := 星期日; days2 := 星期一; days3 := 星期二; days4 := 星期三; days5 := 星期四; days6 := 星期五; days7 := 星期六; result :=daysDayOfWeek(now);end;procedure TFrm_main.N_ygzlbbClick(Sender: TObject); /生成企业员工花名册beginfrm_ygbb:=Tfrm_ygbb.create(application);if frm_ygbb.Query1.active then frm_ygbb.Query1.close;frm_ygbb.Query1.open;frm_ygbb.QuickRep1.Prepare;frm_ygbb.QuickRep1.Preview;frm_ygbb.Free;end;procedure TFrm_main.N_rsqxfxClick(Sender: TObject); begin /打开人事状况曲线分析窗口 Application.CreateForm(Tfrm_rsqkqxfs, frm_rsqkqxfs); if frm_rsqkqxfs.Query1.Active then frm_rsqkqxfs.Query1.Close; frm_rsqkqxfs.Query1.open;end;end.3.4人事管理模块的实现3.4.1员工基本信息输入3.3.1.1功能说明完成新员工人事档案的建立，初始状态下所有输入和选择框框均无效，只有点新增按钮后才可用，同时提交按钮变成有效。3.3.1.2屏幕格式说明新员工资料录入界面3.3.1.3源程序分析/增加按钮事件，只是将各输入框和提交按钮置为可用。procedure Tfrm_ygzbxxsr.Button3Click(Sender: TObject); /提交按钮事件var Sql: String; qsrq,rzsj,czdate: String;beginqsrq:=FormatDatetime(YYYY-MM-DD,datetimepicker1.Datetime); /出生日期rzsj:=FormatDatetime(YYYY-MM-DD,datetimepicker2.Datetime); /入职时间czdate := FormatDatetime(YYYY-MM-DD HH:MM:SS,Now); /操作时间if Application.MessageBox(您确认要提交吗？,系统提示,mb_IconInformation+mb_OK+mb_OKCancel)=IDCancel then Exit; begin if (Edit1.text=) or (Edit2.text=) then begin Application.MessageBox(姓名不能为空或员工号不能为空!,系统提示,mb_IconInformation+mb_OK); Exit; end; if trim(DBLookupComboBox1.Text) = then begin showmessage(请选择部门);exit;end; if trim(DBLookupComboBox2.Text) = then begin showmessage(请选择职务);exit;end; if trim(DBLookupComboBox3.Text) = then begin showmessage(请选择职称);exit;end; sql:=select * from ygzlb where ygh=+trim(edit1.text)+; /根据此员工号是否已存在 query1.sql.clear; query1.sql.add(sql); if query1.Active then query1.close; query1.open; if not query1.isempty then begin showmessage(此员工号已存在，请重新输入员工号); edit1.selectall; edit1.setfocus; exit; end else begin /执行插入操作，往员工资料表中插入一条记录 sql:=insert into ygzlb(ygh,xm,xb,xl,qsrq,ssbm,zc,zw,rzsj,sfzh,jtzz,gdlxdh, +sjhm,email,zzmm,yxbz,czy,czrq) +values(+Trim(Edit1.Text)+,+trim(Edit2.text)+, +combobox1.text+,+combobox3.text+,+qsrq+,+DBLookupComboBox1.keyvalue+, +DBLookupComboBox3.keyvalue+,+DBLookupComboBox2.keyvalue+,+rzsj+,+edit3.text+, +trim(edit4.text)+,+trim(edit7.text)+,+trim(edit6.text)+,+trim(edit5.text)+, +combobox2.text+,1,+dluser+,+czDate+); query1.sql.clear; query1.sql.add(sql); query1.execsql; if Application.MessageBox(该记录提交成功,继续提交吗?,系统提示,mb_IconInformation+mb_OK+mb_OKCancel)=IDCancel then begin Button3.Enabled := False; Exit; end; button1.Click; end; end;end;3.4.2员工基本信息维护3.4.2.1功能说明包括修改、删除（删除员工只是将该员工登记为无效，并不要求从表中删除）.输入员工号后按回车或点击查询按钮，查询待修改员工基本信息，各输入框初始状态为只读，3.4.2.2屏幕格式说明3.4.2.3源程序分析procedure Tfrm_ygzbxxwh.Button1Click(Sender: TObject); /查询按钮事件begin if trim(edit1.text) then begin Query1.sql.clear； /根据员工号从员工资料表中取出员工信息 Query1.sql.add(select * from ygzlb where ygh=:ygh and yxbz=1); Query1.ParamByName (ygh).ASSTRING :=edit1.text; IF Query1.ACTIVE THEN Query1.CLOSE; Query1.OPEN; IF Query1.IsEmpty THEN /判断是否存在此员工，如不存在，系统提示 begin SHOWMESSAGE(对不起！没有员工档案数据！请正确输入员工号！); edit1.selectall; exit; end; DateTimePicker1.Datetime:=strtodate(query1.fieldbyname(qsrq).asstring); DateTimePicker2.Datetime:=strtodate(query1.fieldbyname(rzsj).asstring); end;end;procedure Tfrm_ygzbxxwh.Button2Click(Sender: TObject); /删除按钮事件var sql:string; /询问是否删除begin if Application.MessageBox(您确认要删除吗？,系统提示,mb_IconInformation+mb_OK+mb_OKCancel)=IDCancel then Exit; Sql := update ygzlb set yxbz=9 where ygh=+trim(edit1.text)+; Query1.Close; Query1.Sql.Clear; Query1.Sql.Add(Sql); Query1.ExecSQL; /将有效标志必为9，记录并不删除 Application.MessageBox(该记录删除成功!,系统提示,mb_IconInformation+mb_OK); end;procedure Tfrm_ygzbxxwh.Button3Click(Sender: TObject); /提交按钮事件var czdate,qsrq,rzsj:string; beginif (Query1.state=dsEdit )or( Query1.state=dsInsert) then else exit; /判断Query是否在编辑状态 qsrq:=FormatDatetime(YYYY-MM-DD,datetimepicker1.Datetime); rzsj:=FormatDatetime(YYYY-MM-DD,datetimepicker2.Datetime); czdate := FormatDatetime(YYYY-MM-DD HH:MM:SS,Now); if messagedlg(是否保存员工数据？,mtinformation,mbyes,mbno,1)=mryes then else exit; Query1.fieldbyname(qsrq).asstring:=qsrq; /出生日期赋值 Query1.fieldbyname(rzsj).asstring:=rzsj; /入职日期赋值 Query1.fieldbyname(czrq).asstring:=czdate; /操作时间 Query1.fieldbyname(czy).asstring:=dluser; /操作员赋值 Query1.post; query1.close; query1.open; messagedlg(数据提交成功!,mtinformation,mbok,1); /提交成功，系统提示 edit1.setfocus; edit1.ReadOnly:=false; /提交按钮置为不可用end;3.4.3员工基本信息查看:3.4.3.1功能说明用于浏览员工的基本信息，采用卡片式和表格式两种形式表现员工的基本信息，浏览时应具有浏览前一条记录、后一条记录、最前一条、最后一条记录的功能。实现采用pagecontrol控件，中间放置两个Tablesheet,其中一个放置Dbgrid按件实现表格式浏览，另一个放置Dbedti控件,实现卡片式浏览。由于只涉及到查询不做源程序分析。3.4.3.2屏幕格式说明 浏览员工基本信息界面3.4.4员工基本信息条件查询3.4.4.1功能说明可以根据不同的条件组合，查询员工的基本信息，查询条件包括所属部门、职称、职务、学历、性别、政治面貌、员工号、姓名，和条件可以任意组合。同时应具有查询标专为无效的员工的作用。系统同时应提供Excel输出和打印的功能。多条件查询是本模块重点考虑的内容，本设计完成了对多字段、多条件的查询，其实现程序如源程序分析：3.4.4.2屏幕格式说明 员工资料查询界面4.4.4.3源程序分析procedure Tfrm_ygzlcx.BitBtn1Click(Sender: TObject); /查询按钮事件beginif query1.active then /判断Query是否已经Openquery1.close; /关闭Queryquery1.sql.clear; /翻译用户输入，动态添加SQLQuery1.sql.add(select * from ygzlb where 1=1); if DBLookupComboBox1.text then /判断是否选择了部门 begin /若选择，添加所属部门条件 query1.sql.add(and ssbm=:ssbm); query1.parambyname(ssbm).asstring:=DBLookupComboBox1.keyvalue; end;if DBLookupComboBox2.text then /判断是否选择了职务 begin /若选择，添加职务条件 query1.sql.add(and zw=:zw); query1.parambyname(zw).asstring:=DBLookupComboBox2.keyvalue ; end;if DBLookupComboBox3.text then /判断是否选择了职称 begin /若选择，添加职称条件 query1.sql.add(and zc=:zc); query1.parambyname(zc).asstring:=DBLookupComboBox3.keyvalue; end;if combobox1.text then /判断是否选择了学历 begin /若选择，添加学历条件 query1.sql.add(and xl=:xl); query1.ParamByName(xl).asstring:=combobox1.text; end;if combobox2.text then /判断是否选择了政治面貌 begin /若选择，添加政治面貌条件 query1.sql.add(and zzmm=:zzmm); query1.ParamByName(zzmm).asstring:=combobox2.text; end;if combobox3.text then /判断是否选择了性别 begin /若选择，添加性别条件 query1.sql.add(and xb=:xb); query1.ParamByName(xb).asstring:=combobox3.text; end;if edit1.text then /判断是否输入了员工号 begin /若已输入，添加员工号条件 query1.sql.add(and ygh=:ygh); query1.parambyname(ygh).asstring:=edit1.text; end;if edit2.text then /判断是否输入了姓名 begin /若输入，添加员工姓名条件 query1.sql.add(and xm=:xm); query1.parambyname(xm).asstring:=edit2.text end;if checkbox1.checked then /有效标志是否选择 query1.sql.add(and yxbz=1); /若选择，只选择标志有效的员工query1.open; /打开查询if query1.isempty then /判断是来有记录，若无，弹出提示框showmessage(没有你所要的员工资料,请确认条件是否正确);procedure Tfrm_ygzlcx.BitBtn3Click(Sender: TObject); /打印按钮事件beginprint_dbgrid(DataSource1,dbgrid1,HX) ; /调用自定义过程print_d