|
2．员工信息模块 本模块的作用是输入和浏览员工的基本信息，而对于人事部门的用户及管理远登陆还要考虑可以更改员工的基本信息。 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组件。 内容来自www.paper51.com 不是任何一个用户登陆后都可以对员工基本信息进行修改的，因此将Dbnavigator组件的Visible属性设置为False,而对system和renshi两个用户，则在程序运行时，将Visible属性设置为True. copyright paper51.com 根据需要，有时要在数据表内增加一些自定义的字段，常常是根据表中其他字段动态地计算出来的，这些字段可称为计算字段。计算字段是在程序设计中常用的一个手段，它在程序运行时生成，在程序结束时消失，不会在数据表中占用空间。 copyright paper51.com 最后指出的是，员工编号一般是数字字符，必须要强制用户输入数字字符而不能输入其他字符。 内容来自www.paper51.com Style属性确定了下图 http://www.paper51.com
copyright paper51.com
输入编号，姓名，性别，职称等如下图运行。 内容来自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 copyright paper51.com begin copyright paper51.com MessageDlg('资料输入不全!', mtWarning, [mbOk], 0); paper51.com exit; copyright paper51.com end; http://www.paper51.com table1.active:=true; 内容来自论文无忧网 www.paper51.com with table1 do 内容来自www.paper51.com
begin http://www.paper51.com append; 内容来自论文无忧网 www.paper51.com FieldValues['bianhao'] :=trim(edit1.text); http://www.paper51.com FieldValues['xingming'] :=trim(edit2.text); paper51.com
FieldValues['sex'] :=trim(combobox1.text); 内容来自论文无忧网 www.paper51.com fieldvalues['bianma']:=trim(edit16.Text); copyright paper51.com FieldValues['zhicheng'] :=trim(edit3.text); 内容来自www.paper51.com FieldValues['bumen']:=trim(combobox2.text); paper51.com
FieldValues['zhuzhi']:=trim(edit4.text); 内容来自www.paper51.com FieldValues['gongzi']:=strtofloat(trim(edit5.text)); 内容来自论文无忧网 www.paper51.com Post; http://www.paper51.com end; 内容来自www.paper51.com combobox1.text:='男'; copyright paper51.com
combobox2.text:='车间办公室'; 内容来自www.paper51.com edit1.Text:=''; 内容来自论文无忧网 www.paper51.com edit2.Text:=''; http://www.paper51.com
edit3.Text:=''; paper51.com edit4.Text:=''; paper51.com
edit5.Text:=''; copyright paper51.com edit16.Text:=''; copyright paper51.com end; 内容来自www.paper51.com |