|
就此完成了登录窗体。 2．员工信息模块 copyright paper51.com 本模块的作用是输入和浏览员工的基本信息，而对于人事部门的用户及管理远登陆还要考虑可以更改员工的基本信息。 copyright paper51.com 本模块可以分为两部分，使用Bevel组件分开，在系统登陆窗体设计中曾使用过这个组件。事实上，Bevel组件是一个修饰组件，允许用户在窗体中显示线、框和框架，常用于分割显示不同应用组件。可设置组件为凹下和凸起状态。Bevel组件有俩个最重要的属性Shape属性和Style属性。Shape属性该属性定义Bevel组件在窗体中显示的形状。Style该属性确定Bevel组件的显示形状是凹下还是凸起，若其值为bsLowered,则为凹下状态；若值为bsRasised,则Bevel组件呈凸起状态。在Bevel2中添加八个Label组件，六个Edit组件和两个ComboBox组件。完成设置后，再添加一个BitBtn组件BitBtn1,并设置Kind属性为bkOK，camption属性为“输入记录”。在员工信息模块的右半部分添加一个DBGrid组件，一个DataSourcu组件，一个Table组件和一个DBNavigator组件。 http://www.paper51.com 不是任何一个用户登陆后都可以对员工基本信息进行修改的，因此将Dbnavigator组件的Visible属性设置为False,而对system和renshi两个用户，则在程序运行时，将Visible属性设置为True. copyright paper51.com
根据需要，有时要在数据表内增加一些自定义的字段，常常是根据表中其他字段动态地计算出来的，这些字段可称为计算字段。计算字段是在程序设计中常用的一个手段，它在程序运行时生成，在程序结束时消失，不会在数据表中占用空间。 内容来自www.paper51.com 最后指出的是，员工编号一般是数字字符，必须要强制用户输入数字字符而不能输入其他字符。 http://www.paper51.com
Style属性确定了下图 内容来自www.paper51.com
http://www.paper51.com
输入编号，姓名，性别，职称等如下图运行。 http://www.paper51.com paper51.com 添加一个BitBtn组件，Caption属性为“输入记录”，代码如下: 内容来自www.paper51.com if(combobox1.text='') or (edit1.text='') or (edit2.text='') or (edit3.text='')or(edit4.text='') or (edit5.text='') 内容来自www.paper51.com or(combobox2.text='') then http://www.paper51.com begin copyright paper51.com MessageDlg('资料输入不全!', mtWarning, [mbOk], 0); copyright paper51.com exit; copyright paper51.com
end; copyright paper51.com table1.active:=true; copyright paper51.com
with table1 do copyright paper51.com begin 内容来自论文无忧网 www.paper51.com append; copyright paper51.com FieldValues['bianhao'] :=trim(edit1.text); 内容来自论文无忧网 www.paper51.com FieldValues['xingming'] :=trim(edit2.text); 内容来自论文无忧网 www.paper51.com FieldValues['sex'] :=trim(combobox1.text); 内容来自论文无忧网 www.paper51.com
fieldvalues['bianma']:=trim(edit16.Text); 内容来自www.paper51.com FieldValues['zhicheng'] :=trim(edit3.text); 内容来自www.paper51.com
FieldValues['bumen']:=trim(combobox2.text); http://www.paper51.com FieldValues['zhuzhi']:=trim(edit4.text); paper51.com FieldValues['gongzi']:=strtofloat(trim(edit5.text)); http://www.paper51.com Post; paper51.com end; 内容来自www.paper51.com combobox1.text:='男'; 内容来自www.paper51.com combobox2.text:='学生办公室'; 内容来自www.paper51.com edit1.Text:=''; copyright paper51.com edit2.Text:=''; 内容来自www.paper51.com edit3.Text:=''; http://www.paper51.com edit4.Text:=''; http://www.paper51.com edit5.Text:=''; http://www.paper51.com edit16.Text:=''; paper51.com end; 内容来自www.paper51.com 连接数据库得到如图: 内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com Field组件有称为字段组件或字段对象，它对应着数据表的字段。它是在打开数据表时动态产生的，并在数据表关闭时自动消失。改组件为字段对象封装了一些行为，常常用于改变数据表中的字段值、转换字段类型、验证用户输入值、定义字段如何显示和编辑、通过在OnCalcFields事件响应过程中编写代码、计算字段以及查询字段。 copyright paper51.com 通过字段编辑器可以建立永久性的Field列表Dellphi应用程序使用这些永久性的字段会加入到程序库单元的Tform类型定义中，即使数据表中的基本结构发生了变化。这些字段也一直保留如果原来的程序对象不存在了，那就是Delphi应用程序在运行的过程中给出了错误信息。 内容来自www.paper51.com 在Table组件中,Delphi提供了FieldByName方法，可以通过字段名访问字段对象，从而更加方便。 paper51.com 永久对象的访问比动态的简单。 http://www.paper51.com
用户通过Field对象的Value进行 内容来自论文无忧网 www.paper51.com 从字段对象中读取字段值给变量赋值必须保证其数据类型相匹配，否则会出错 paper51.com guest用户只是作为普通员工的登录。对于员工基本信息数据库只有浏览的权利，没有修改，移动的权利 copyright paper51.com 首先选中DBGridl组件，然后选择Edit Bring to Front菜单命令，将该组件设置前，然后在主窗体中添加代码。 内容来自www.paper51.com 执行程序，这时以guest用户身份登录，则只有DBGrid组件存在，而且起数据是只读的。 http://www.paper51.com
运行如窗口所示 内容来自论文无忧网 www.paper51.com
copyright paper51.com 3．出勤信息模块 内容来自论文无忧网 www.paper51.com 出勤信息模块的作用是输入、浏览以及修改员工的出勤信息，并对不同身份登陆的用户提供功能限制。本页使用DbChart组件用来演示员工的缺勤情况，还可实现与“员工基本信息表”的表间联系。本模块主要用到DBChart组件，它来源于Tchart,并继承了Tchart所有的功能。Tchart是TeeChart库中最重要的一个组件，该组件从Tpanel类中继承了所有的属性和方法。DBChart组件不能直接显示各种图表，而要依靠它的子成员Series来实现图表的绘制。DBChart组件的属性、子属性繁多复杂，对属性的设置可以通过EditDBChart 对话框来实现。在“出勤信息”TabSheet上添加一个DBChart组件，一个DBGrid组件，一个bevel组件。 内容来自www.paper51.com
很多时候，用户需要在了解某位员工出勤情况的时候，能够随时查看该员工的基本信息。对于“员工信息”按及到主从表的问题。钮的OnClick事件的处理，涉 内容来自论文无忧网 www.paper51.com
若在程序设计期就想实现这种关联，用户可在设置MasterSource属性后，单击MasterFields属性右边的“…”按钮，打开：“Fiedl Link Decigner”对话框，在Detail Fields和Master Fields列表中建立关联的字段，单击“Add”按钮，则在Joined Fields列表框中就会出现建立关联的字段 paper51.com 由于保证各个Tabsheet的独立性，因此最好在代码中实现这种主从表关系，即设置MasterSource和MasterFields属性。 paper51.com 设置一个出勤信息按钮而对于Guest用户该按钮是不可用的。单击该按钮可输入某位员工的的出勤信息，输入完毕后，在DBGrid2中将显示添加的记录。单击工具栏上的New Form 按钮新建“输入出勤信息”窗体。 内容来自www.paper51.com 打开DBChart的3种方法 paper51.com
1． 双击DBChart组件 内容来自www.paper51.com 2． 单击SeriesList属性右边的“…”按钮 内容来自www.paper51.com 3． 右键单击DBChart组件，弹出的快捷键中选择“Edit Chart…”。 内容来自www.paper51.com DBChart的属性设置如图所示 copyright paper51.com DBChart运行后如下图： paper51.com copyright paper51.com AnimatedZoom属性：是一个布尔值，为True，则DBChart组件可以动态的大与缩小。 paper51.com AnimatedZoomSteps属性：确定Zoom的部数。是动画属性。 内容来自论文无忧网 www.paper51.com SeriesList属性：DBChar组件只提供了一个放置图层表的位置，而本身并不能显示图表，必须在组件中添加。 内容来自论文无忧网 www.paper51.com Title属性：用来确定DBChar组件中的标题文本。 paper51.com Legend属性：定义图表的比例 内容来自论文无忧网 www.paper51.com 设置完DBChart后，连接数据库，数据库如图所示 内容来自www.paper51.com 内容来自www.paper51.com 出勤信息模块记录了，公司员工出勤，请假，旷工，迟到与工资之间的联系，它取决于你的工资还有奖金。让管理人员很方便的来管理好公司员工的出勤情况！能更好的让员工们自觉的上班下班！ 内容来自论文无忧网 www.paper51.com 员工出勤信息模块运行如下图： copyright paper51.com |