基于delphi的考勤管理系统全套学士论文含中英文翻译

基于delphi的考勤管理系统全套学士论文含中英文翻译内容摘要：

除功能 Button4 Caption ‘ 退出 ’ 执行退出功能 Button5 Caption ‘ 返回 ’ 执行返回功能 Button6 Caption ‘ 确定 ’ 执行确定功能 Button7 Caption ‘ 取消 ’ 执行取消功能 表 43 员工信息 窗体主要控件属性表 实现方法 ： （ 1）功能按钮的禁止使用和允许使用。 在一定的情况下，有的按钮不可以使用，如数据表中无记录时，则除了【添加】按钮外的其他按钮均不可用。 一开始，【确定】和【取消】按钮不可用，单击【添加】或【修改】按钮后，【确定】和【取消】按钮可用，此时其他按钮不可用。 当单击【确定】和【取消】按钮后，这两个按钮不可用， 其他各个按钮可用 （ 2）记录移动。 可使用 Ttable 控件的相应移动方法。 （ 3）记录的添加与修改。 对表的操作， Ttable 组件提供了相应的方法：如添加一条可执行 Append 方法，修改记录的内容可执行 Edit 方法，把修改的内容存入到表中可执行 Post 方法，取消对表的修改可执行 Cancel 方法等。 为控制数据只能在“添加”或“修改”时才能输入，可在没有执行“添加”或“修改”命令之前，让所有的数据控件组件不能输入或修改，在执行“添加”和“修改”命令后，让所有的数据控件组件能够输入或修改，该功能可通过设置各数据控制组 件的 ReadOnly 或 Enabled 属性来实现。 按钮可控部分源程序如下： var Form4: TForm4。 implementation uses Unit2。 var BM:TBooKMark。 AddOrNot:Boolean。 {$R *.dfm} procedure buttonaddedit()。 //添加或修改状态各按钮状态 begin :=true。 :=true。 :=false。 :=false。 武汉纺织大学 08届毕业设计论文 15 :=false。 end。 procedure buttonokcancel()。 //取消或确定状态各按钮状态 begin :=false。 :=false。 :=true。 :=true。 :=true。 end。 procedure disabledbutton()。 //所有按钮均不可用 begin :=false。 :=false。 :=false。 :=false。 :=false。 end。 procedure Cannotedit()。 //各输入控件不可输入 begin :=true。 :=true。 :=true。 :=true。 :=true。 end。 procedure Canedit()。 //各输入控件可输入 begin :=false。 :=false。 :=false。 :=false。 :=false。 end。 procedure (Sender: TObject)。 var dim:string。 begin getdir(0,dim)。 //获取当前目录 // :=dim。 //设置数据库名 CanEdit。 //设置可输入组件为只读 if =0 then begin 武汉纺织大学 08届毕业设计论文 16 disabledbutton。 :=true。 end else buttonokcancel。 end。 procedure (Sender: TObject)。 //确定操作 begin if(length(trim())=0) then begin showmessage(39。 必须输入员工编号 39。 )。 end else begin。 cannotedit。 buttonokcancel。 end。 end。 procedure (Sender: TObject)。 //取消操作 begin。 if addornot then (bm)。 cannotedit。 buttonokcancel。 end。 员工信息添加实现 信息添加实现的源程序如下： procedure (Sender: TObject)。 //增加 begin BM:=。 Canedit。 buttonaddedit。 addornot:=true。 end。 武汉纺织大学 08届毕业设计论文 17 员工信息修改实现 信息修改实现的源程序如下： procedure (Sender: TObject)。 //修改 begin addornot:=false。 canedit。 buttonaddedit。 end。 员工信息删除实现 信息修改实现的源程序如下： procedure (Sender: TObject)。 //删除 begin if (39。 真的要删除吗。 39。 ,39。 删除提示框39。 ,mb_okcancel)=idok then。 if =0 then begin showmessage(39。 已无记录 39。 )。 disabledbutton。 :=true。 end。 end。 考勤信息管理 本模块 对考勤信息进行维护和管理，实现考勤信息数据库的操作功能，这些功能包括：考勤信息的浏览，添加一条新考勤信息，修改考勤信息，查询某人的考勤信息，删除某考勤的信息等。 该模块的主界面设计和运行情况分别如下图武汉纺织大学 08届毕业设计论文 18 错误 !未找到引用源。 错误 !未找到引用源。 本模块组件对象及其属性设置如表所示： 武汉纺织大学 08届毕业设计论文 19 对象名 属性名 设置值 对象作用 DBGrid1 DataSource DataSource1 显示执行结果 Query1 执行 SQL语句 Table1 TableName 与‘ ygxx’表相联系 DataSource1 DataSource1 Dataset： Table1 联系 Table组件 DBEdit1 DataSource； DataField DataSource1。 出勤 编号 与表中 出勤 编号相连 DBEdit2 DataSource； DataField DataSource1。 员工编号 与表中 员工编号 相连 DBEdit3 DataSource； DataField DataSource1。 姓名 与表中 姓名 相连 DBEdit4 DataSource； DataField DataSource1。 迟到 与表中 迟到 相连 DBEdit5 DataSource； DataField DataSource1迟到 原因 与表中 迟到 原因 相连 DBEdit6 DataSource； DataField DataSource1。 早退 与表 早退 相连 DBEdit7 DataSource； DataField DataSource1。 早退 原因 与表中 早退 原因相连 DBEdit8 DataSource； DataField DataSource1。 加班 与表中 加班 相连 DBEdit9 DataSource； DataField DataSource1。 加班时间 与表中加班时间 相连 DBEdit10 DataSource； DataField DataSource1。 考勤时间 与表中考勤时间相连 Button1 Caption ‘ 增加 ’ 执行增加功能 Button2 Caption ‘ 修改 ’ 执行修改功能 Button3 Caption ‘ 删除 ’ 执行删除功能 Button4 Caption ‘ 退出 ’ 执行退出功能 Button5 Caption ‘ 返回 ’ 执行返回功能 Button6 Caption ‘ 确定 ’ 执行确定功能 Button7 Caption ‘ 取消 ’ 执行取消功能 表 44 员工信息 窗体主要控件属性表 实现方法 ： （ 1）功能按钮的禁止使 用和允许使用。 在一定的情况下，有的按钮不可以使用，如数据表中无记录时，则除了【添加】按钮外的其他按钮均不可用。 一开始，【确定】和【取消】按钮不可用，单击【添加】或【修改】按钮后，【确定】和【取消】按钮可用，此时其他按钮不可用。 当单击【确定】和【取消】按钮后，这两个按钮不可用，其他各个按钮可用 （ 2）记录移动。 可使用 Ttable 控件的相应移动方法。 （ 3）记录的添加与修改。 对表的操作， Ttable 组件提供了相应的方法：如添加一条可执行 Append 方法，修改记录的内容可执行 Edit 方法，把修改的内容存入到表中可 执行 Post 方法，取消对表的修改可执行 Cancel 方法等。 为控制数据只能在“添加”或“修改”时才能输入，可在没有执行“添加”或“修改”命令之前，让所有的数据控件组件不能输入或修改，在执行“添加”和“修改”命令后，让所有的数据控件组件能够输入或修改，该功能可通过设置各数据控制组件的 ReadOnly 或 Enabled 属性来实现。 按钮可控部分源程序如下： var Form3: TForm3。 implementation 武汉纺织大学 08届毕业设计论文 20 uses Unit2。 var BM:TBooKMark。 AddOrNot:Boolean。 {$R *.dfm} procedure buttonaddedit()。 //添加或修改状态各按钮状态 begin :=true。 :=true。 :=false。 :=false。 :=false。 end。 procedure buttonokcancel()。 //取消或确定状态各按钮状态 begin :=false。 :=false。 :=true。 :=true。 :=true。 end。 procedure disabledbutton()。 //所有按钮均不可 用 begin :=false。 :=false。 :=false。 :=false。 :=false。 end。 procedure Cannotedit()。 //各输入控件不可输入 begin :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 end。 procedure Canedit()。 //各输入控件可输入 begin 武汉纺织大学 08届毕业设计论文 21 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 end。 procedure (Sender: TObject)。 var dim:string。 begin getdir(0,dim)。 //获取当前目录 // :=dim。 //设置数据库名 CanEdit。 //设置可输入组件为只读 if =0 then begin disabledbutton。 :=true。 end else buttonokcancel。 end。 procedure (Sender: TObject)。 //确定操作 begin if(length(trim())=0) then begin showmessage(39。 必须输入员工编号 39。 )。 end else begin。 cannotedit。 buttonokcancel。