职工考勤管理系统的设计与实现

职工考勤管理系统的设计与实现PAGEPAGE2课程设计报告职工考勤管理系统的设计与实现课程《数据库原理及应用》班级姓名学号指导教师时间：

指导教师对课程设计（论文）的评语（工作态度、任务完成情况、能力水平、设计说明书（论文）的撰写和图纸质量等）：成绩指导教师签字年月日

目录TOC\o"1-2"\h\z\u第一章开发背景 3第二章功能描述 4第三章业务流程分析 5第四章数据流程分析 64.1数据流程图 64.2数据字典 7第五章概念模型设计 9第六章逻辑模型设计和优化 10第七章物理设计和实施 11第八章系统测试 13第九章课程设计心得体会 33参考文献 34PAGE50第一章开发背景20世纪90年代，随着我国市场经济的快速发展，职工考勤管理系统在企业的日常管理中发挥着越来越重要的作用。职工考勤管理系统可以进行员工信息管理、出勤管理和密码管理等，方便处理企业内部员工的相关工资信息。此外Internet的迅速普及，使Intranet成为Internet技术在企业管理信息系统中的应用和延伸，形成了集计算机，计算机网络、数据库、分布式计算等于一体的信息技术综合体，它打破了时间和地域的界限，使信息交流变得快捷、准确，为建立现代企业管理信息系统提供了充足的条件。企业信息管理系统在此基础上延伸、扩展，使之上下、内外全面贯通。引入Internet后，形成了新型的浏览器/服务器（Browser/Server）结构,而传统的客户机/服务器（Client/Server）结构在这方面就远不及B/S结构。职工考勤系统是在适应市场需求的客观前提下，为了满足中小型公司或事业单位管理自己的员工而开发的。该系统的是终目的是要将自己的职工考勤放到网络上，以方便员工查看。第二章功能描述本系统的功能描述如下:（1）员工信息（超级用户）主要是显示员工的基本信息。（2）添加及删除员工信息主要是用于管理员添加员工和删除员工等操作，只有是系统中的合法管理员才有资格进入超级用户界面。（3）出勤记录（超级用户）主要用于管理员记录每个员工每天的出勤记录，以及出差的天数以方便奖励或者处罚员工。（4）密码管理让每一位员工在查看到自己的出勤记录的同时也保管好自己的密码以防别人偷看自己的出勤信息，保护隐私。（5）出勤记录（一般用户）让每一位员工在查看到自己的出勤记录，以便管理好自己的工作，为公司以及自己创造出更大的利益。（6）员工信息（一般用户）让员工看到自己的同事，方便同事之间的交流。第三章业务流程分析根据职工考勤管理系统的设计要求可以画出该系统的业务流程图，如图3-1所示。职工考勤管理系统职工考勤管理系统员工信息出勤记录管理员退出管理出勤记录一般用户员工信息出勤记录管理员退出管理出勤记录一般用户密码管理图3-1职工考勤系统业务流程图第四章数据流程分析4.1数据流程图通过需求分析，得出职工考勤管理系统的数据流程如下图所示。修改职工信息P02修改职工信息P02删除职工记录输入职工基本信息D01职工表F01添加操作修改操作删除操作用户查询操作职工号图4-1职工信息的载入修改考勤信息P01修改考勤信息P01删除考勤信息输入考勤基本信息D02考勤表F02添加操作修改操作删除操作查询操作用户图4-2考勤的信息载入4.2数据字典（1）数据流的描述数据流的编号：D01数据流的名称：员工基本信息简述：与员工有关的基本信息数据流来源：员工基本信息表数据流去向：员工，部门数据流组成：员工编号+姓名+性别+年龄+部门+职称+基本工资数据流的编号：D02数据流的名称：考勤结构信息简述：员工考勤的基本信息数据流来源：考勤信息表数据流去向：员工数据流组成：员工编号+加班+出差+迟到+旷工+请假（2）处理逻辑的描述处理逻辑编号：p01处理逻辑名称：考勤统计简述：对考勤进行统计、计算输入的数据流：基本考勤信息处理描述：根据职工的职位及其他相应情况计算出考勤次数输出的数据流：考勤信息处理逻辑编号：p02处理逻辑名称：员工信息处理简述：对员工信息进行处理输入的数据流：员工信息处理描述：根据员工的基本信息进行各种操作输出的数据流：员工信息（3）数据存储的描述数据存储编号：F01数据存储名称：员工基本信息表简述：员工的基本信息数据存储组成：员工编号+姓名+性别+部门关键字：员工编号相关联的处理：P02数据存储编号：F02数据存储名称：基本考勤表简述：员工的考勤信息数据存储组成：员工编号+加班加班+出差+迟到早退+旷工关键字：员工编号相关联的处理：P01（4）外部实体的描述外部实体编号：S01外部实体名称：员工简述：员工考勤输入的数据流：D02,D01输出的数据流：F01,F02第五章概念模型设计根据系统数据流图和数据字典，得出系统的总体概念模型（E-R）如图5-1所示。职工号职工号缺勤天数职工号缺勤天数职工号姓名姓名考勤系统考勤系统员工 员工考勤考勤时间缺勤类别密码 时间缺勤类别密码部门岗位部门岗位图5-1实体之间关系E-R图第六章逻辑模型设计和优化职工考勤管理系统数据库中各个表格的设计结果如下面的几个表格所示。每个表格表示在数据库中的一个表，如下表1-表4。（1）员工信息表表1员工信息表编号姓名性别部门基本工资Char(10)Char(10)Char(10)Char(10)Char(10)（2）出勤记录表表2出勤记录表编号姓名性别部门缺勤次数请假次数出差次数Char(10)Char(10)Char(10)Char(10)Char(10)Char(10)Char(10)（3）用户表表3用户表用户名密码Char(10)Char(10)（4）管理员表表4管理员表用户名密码Char(10)Char(10)第七章物理设计和实施数据库和数据库表创建语法（1）创建数据库/*==============================================================*//*DataBase:职工考勤管理系统,创建数据库，数据库名称为职工考勤管理系统*//*==============================================================*/createdatabase职工考勤管理系统go（2）创建数据库表/*==============================================================*//*Table:1,创建员工信息表*//*==============================================================*/CREATETABLE员工信息表(NUMBERCHAR(10) NOTNULL NAME CHAR(10)NOTNULL, DEPARTMENTCHAR(10)NOTNULL, ZCCHAR(10)NOTNULLJBGZCHAR(10)NOTNULL)GO/*==============================================================*//*Table:2,创建出勤记录表*//*==============================================================*/CREATETABLE出勤记录表(NUMBERCHAR(10) NOTNULLNAME CHAR(10) NOTNULL DEPARTMENTCHAR(10)NULLSEXCHAR(10)NULLQUEQINCHAR(10)NULLQINJIACHAR(10)NULLCHUCHAICHAR(10)NULL)GO/*==============================================================*//*Table:3,创建管理员表*//*==============================================================*CREATETABLE管理员表( NAME CHAR(10)NOTNULL, MICHAR(10)NOTNULL, )GO/*==============================================================*//*Table:4,创建用户表*//*==============================================================*CREATETABLE用户表( NAME CHAR(10)NOTNULL, MICHAR(10)NOTNULL, ）GO第八章系统测试1、登录界面图8-1登录界面对应代码：privatevoidbtnLogin_Click(objectsender,EventArgse){try{if(txtUserName.Text==""){MessageBox.Show("用户名不能为空");}else{if(txtUserName.Text==""){MessageBox.Show("密码不能为空");}else{SqlConnectioncon=DBCon.createCon();con.Open();if(comboBox1.Text=="一般用户"){SqlCommandcmd=newSqlCommand("selectcount(*)from用户表where用户名='"+txtUserName.Text+"'and密码='"+txtUserPwd.Text+"'",con);inti=Convert.ToInt32(cmd.ExecuteScalar());if(i>0){this.Hide();ptMainM=newptMain();M.User=txtUserName.Text;M.Show();FormN=newForm();N.Close();}else{MessageBox.Show("用户名或者密码错误,请重新输入！");txtUserName.Clear();txtUserPwd.Clear();txtUserName.Focus();}}elseif(comboBox1.Text=="超级用户"){SqlCommandcmd=newSqlCommand("selectcount(*)from管理员表where用户名='"+txtUserName.Text+"'and密码='"+txtUserPwd.Text+"'",con);inti=Convert.ToInt32(cmd.ExecuteScalar());if(i>0){this.Hide();frmMainM=newfrmMain();M.Show();FormN=newForm();N.Close();}else{MessageBox.Show("用户名或者密码错误,请重新输入！");txtUserName.Clear();txtUserPwd.Clear();txtUserName.Focus();}}else{MessageBox.Show("请选择登录界面");}}}}catch(Exceptionex){MessageBox.Show(ex.ToString());}}privatevoidtxtPwd_KeyPress(objectsender,KeyPressEventArgse){if(e.KeyChar==13){btnLogin_Click(sender,e);}}privatevoidbtnCancel_Click(objectsender,EventArgse){this.Close();}}}2.管理员界面图8-2管理员界面对应代码：privatevoid基本信息ToolStripMenuItem_Click(objectsender,EventArgse){Form2f=newForm2();f.MdiParent=this;f.Show();}privatevoid退出系统ToolStripMenuItem_Click(objectsender,EventArgse){if(MessageBox.Show("确定退出本系统吗？","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Asterisk)==DialogResult.OK){this.Close();}}privatevoid出勤统计ToolStripMenuItem_Click(objectsender,EventArgse){chuqintongjiP=newchuqintongji();P.MdiParent=this;P.name=User;P.Show();}privatevoid添加员工ToolStripMenuItem_Click(objectsender,EventArgse){tianjiayuangongf=newtianjiayuangong();f.MdiParent=this;f.Show();}privatevoid删除员工ToolStripMenuItem_Click(objectsender,EventArgse){shanchuyuangongf=newshanchuyuangong();f.MdiParent=this;f.Show();}privatevoid修改密码ToolStripMenuItem_Click(objectsender,EventArgse){mimaxiugaiP=newmimaxiugai();P.name=User;P.Show();}}}3一般用户界面图8-3一般用户界面对应代码：privatevoid退出系统ToolStripMenuItem_Click(objectsender,EventArgse){if(MessageBox.Show("确定退出本系统吗？","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Asterisk)==DialogResult.OK){this.Close();}}privatevoid基本信息ToolStripMenuItem_Click(objectsender,EventArgse){Form2f=newForm2();f.MdiParent=this;f.Show();}privatevoid修改密码ToolStripMenuItem_Click(objectsender,EventArgse){xiugaimimaP=newxiugaimima();P.name=User;P.Show();}privatevoid出勤统计ToolStripMenuItem_Click(objectsender,EventArgse){chuqinjilu2P=newchuqinjilu2();P.MdiParent=this;P.Show();}}}4.修改密码界面图8-4修改密码界面对应代码：privatevoidbutton1_Click(objectsender,EventArgse){if(textBox2.Text.Trim()==""||textBox3.Text.Trim()==""||textBox1.Text.Trim()==""){MessageBox.Show("请将数据填写完整","提示",MessageBoxButtons.OK,MessageBoxIcon.Information);return;}else{stringstr="selectcount(*)from管理员表where用户名='"+name+"'and密码='"+this.textBox1.Text.Trim()+"'";inti=operate.HumanNum(str);if(i>0){MessageBox.Show("旧密码错误","提示",MessageBoxButtons.OK,MessageBoxIcon.Information);return;}else{if(textBox2.Text.Trim()!=textBox3.Text.Trim()){MessageBox.Show("两次密码不一致","提示",MessageBoxButtons.OK,MessageBoxIcon.Information);return;}else{stringupdatestr="update管理员表set密码='"+textBox3.Text.Trim()+"'where用户名='"+name+"'";operate.OperateData(updatestr);MessageBox.Show("密码修改成功","提示",MessageBoxButtons.OK,MessageBoxIcon.Information);this.Close();}}}}privatevoidbutton2_Click(objectsender,EventArgse){this.Close();}}}5．出勤记录界面图8-5出勤记录界面对应代码：privatevoidbutton1_Click(objectsender,EventArgse){this.textBox1.Enabled=true;this.textBox2.Enabled=true;this.textBox3.Enabled=true;this.textBox4.Enabled=true;if((str1=this.textBox1.Text.ToString())!=""&&(str2=this.textBox2.Text.ToString())!=""&&(str3=this.textBox3.Text.ToString())!=""&&(str4=this.textBox3.Text.ToString())!=""){if(MessageBox.Show("您确定要新增本条记录吗？","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Warning)==DialogResult.Yes){flag=1;MessageBox.Show("请输编号、姓名、部门,并且按提交按钮，才能新增成功！");return;}}}privatevoidbutton2_Click(objectsender,EventArgse){if((str1=this.textBox1.Text.ToString())!=""&&(str2=this.textBox2.Text.ToString())!=""&&(str3=this.textBox3.Text.ToString())!=""&&(str4=this.textBox3.Text.ToString())!=""){if(MessageBox.Show("您确定要修改本条记录吗？","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Warning)==DialogResult.Yes){flag=2;MessageBox.Show("请按提交按钮，才能修改成功！");return;}}}privatevoidbutton3_Click(objectsender,EventArgse){if((str1=this.textBox1.Text.ToString())!=""&&(str2=this.textBox2.Text.ToString())!=""&&(str3=this.textBox3.Text.ToString())!=""&&(str4=this.textBox3.Text.ToString())!=""){if(MessageBox.Show("您确定要删除本条记录吗？","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Warning)==DialogResult.Yes){flag=3;MessageBox.Show("请按提交按钮，才能删除成功！");return;}}}privatevoidbutton4_Click(objectsender,EventArgse){if(flag==1){SqlConnectioncon=DBCon.createCon();con.Open();SqlCommandcmd=newSqlCommand("insertinto出勤统计表values(@编号,@姓名,@部门,@性别,@缺勤次数,@请假次数,@出差次数)",con);cmd.Parameters.Add("@编号",SqlDbType.Char,10).Value=textBox1.Text;cmd.Parameters.Add("@姓名",SqlDbType.Char,10).Value=textBox2.Text;cmd.Parameters.Add("@部门",SqlDbType.Char,10).Value=textBox3.Text;cmd.Parameters.Add("@性别",SqlDbType.Char,10).Value=textBox4.Text;cmd.Parameters.Add("@缺勤次数",SqlDbType.Char,10).Value=textBox5.Text;cmd.Parameters.Add("@请假次数",SqlDbType.Char,10).Value=textBox6.Text;cmd.Parameters.Add("@出差次数",SqlDbType.Char,10).Value=textBox7.Text;cmd.Connection=con;cmd.ExecuteNonQuery();con.Close();SqlDataAdaptersda=newSqlDataAdapter("select*from出勤统计表",con);DataSetds=newDataSet();sda.Fill(ds,"table");this.dataGridView1.DataSource=ds.Tables[0].DefaultView;this.textBox1.Enabled=false;MessageBox.Show("新增记录成功！");this.textBox1.Enabled=false;this.textBox2.Enabled=false;this.textBox3.Enabled=false;this.textBox4.Enabled=false;try{show();}catch(Exception){MessageBox.Show("没有记录显示！");}flag=0;}if(flag==2&&str1!=""){SqlConnectioncon=DBCon.createCon();con.Open();SqlCommandcmd=newSqlCommand("update出勤统计表set缺勤次数=@缺勤次数,请假次数=@请假次数,出差次数=@出差次数where编号=@编号",con);cmd.Parameters.Add("@缺勤次数",SqlDbType.Char,10).Value=this.textBox5.Text;cmd.Parameters.Add("@请假次数",SqlDbType.Char,10).Value=this.textBox6.Text;cmd.Parameters.Add("@出差次数",SqlDbType.Char,10).Value=this.textBox7.Text;cmd.Parameters.Add("@编号",SqlDbType.Char,10).Value=textBox1.Text;cmd.Parameters.Add("@姓名",SqlDbType.Char,10).Value=str2;cmd.Parameters.Add("@部门",SqlDbType.Char,10).Value=str3;cmd.Parameters.Add("@性别",SqlDbType.Char,10).Value=str4;cmd.Connection=con;cmd.ExecuteNonQuery();con.Close();SqlDataAdaptersda=newSqlDataAdapter("select*from出勤统计表",con);DataSetds=newDataSet();sda.Fill(ds,"table");this.dataGridView1.DataSource=ds.Tables[0].DefaultView;try{show();MessageBox.Show("修改成功！");}catch(Exception){MessageBox.Show("没有记录显示！");}flag=0;}if(flag==3&&str1!=""){SqlConnectioncon=DBCon.createCon();con.Open();SqlCommandcmd=newSqlCommand("deletefrom出勤统计表where编号='"+str1+"'",con);cmd.Connection=con;cmd.ExecuteNonQuery();con.Close();SqlDataAdaptersda=newSqlDataAdapter("select*from出勤统计表",con);DataSetds=newDataSet();sda.Fill(ds,"table");this.dataGridView1.DataSource=ds.Tables[0].DefaultView;try{show();}catch(Exception){MessageBox.Show("没有记录显示！");}MessageBox.Show("删除成功！");flag=0;}}privatevoidbutton5_Click(objectsender,EventArgse){this.Close();}privatevoiddataGridView1_CellContentClick(objectsender,DataGridViewCellEventArgse){}privatevoidchuqintongji_Load(objectsender,EventArgse){SqlConnectioncon=DBCon.createCon();SqlDataAdaptersda=newSqlDataAdapter("select*from出勤统计表",con);DataSetds=newDataSet();sda.Fill(ds,"table");this.dataGridView1.DataSource=ds.Tables[0].DefaultView;show();}}}6.员工信息界面图8-6员工信息界面对应代码：privatevoidForm2_Load(objectsender,EventArgse){SqlConnectioncon=DBCon.createCon();SqlDataAdaptersda=newSqlDataAdapter("select*from员工信息",con);DataSetds=newDataSet();sda.Fill(ds,"table");this.dataGridView1.DataSource=ds.Tables[0].DefaultView;}7．添加员工界面图8-7添加员工界面对应代码：privatevoidtianjiayuangong_Load(objectsender,EventArgse){SqlConnectioncon=DBCon.createCon();SqlDataAdaptersda=newSqlDataAdapter("select*from员工信息",con);DataSetds=newDataSet();sda.Fill(ds,"table");this.dataGridView1.DataSource=ds.Tables[0].DefaultView;show();}privatevoidbutton1_Click(objectsender,EventArgse){this.textBox1.Enabled=true;this.textBox2.Enabled=true;this.textBox3.Enabled=true;this.textBox4.Enabled=true;if((str1=this.textBox1.Text.ToString())!=""&&(str2=this.textBox2.Text.ToString())!=""&&(str3=this.textBox3.Text.ToString())!=""&&(str4=this.textBox3.Text.ToString())!=""){if(MessageBox.Show("您确定要新增本条记录吗？","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Warning)==DialogResult.Yes){flag=1;MessageBox.Show("请输编号、姓名、部门和性别,并且按提交按钮，才能新增成功！");return;}}}privatevoidbutton2_Click(objectsender,EventArgse){if(flag==1){SqlConnectioncon=DBCon.createCon();con.Open();SqlCommandcmd=newSqlCommand("insertinto员工信息values(@编号,@姓名,@部门,@职称,@基本工资)",con);cmd.Parameters.Add("@编号",SqlDbType.Char,10).Value=textBox1.Text;cmd.Parameters.Add("@姓名",SqlDbType.Char,10).Value=textBox2.Text;cmd.Parameters.Add("@部门",SqlDbType.Char,10).Value=textBox3.Text;cmd.Parameters.Add("@职称",SqlDbType.Char,10).Value=textBox4.Text;cmd.Parameters.Add("@基本工资",SqlDbType.Char,10).Value=textBox5.Text;cmd.Connection=con;cmd.ExecuteNonQuery();con.Close();SqlDataAdaptersda=newSqlDataAdapter("select*from员工信息",con);DataSetds=newDataSet();sda.Fill(ds,"table");this.dataGridView1.DataSource=ds.Tables[0].DefaultView;this.textBox1.Enabled=false;MessageBox.Show("新增记录成功！");this.textBox1.Enabled=true;this.textBox2.Enabled=true;this.textBox3.Enabled=true;this.textBox4.Enabled=true;try{show();}catch(Exception){MessageBox.Show("没有记录显示！");}flag=0;}if(flag==2&&str1!=""){SqlConnectioncon=DBCon.createCon();con.Open();SqlCommandcmd=newSqlCommand("update员工信息set"+"编号=@编号,姓名=@姓名,部门=@部门,职称=@职称,基本工资=@基本工资where编号=@编号,姓名=@姓名,部门=@部门,性别=@性别",con);cmd.Parameters.Add("@职称",SqlDbType.Char,10).Value=this.textBox4.Text;cmd.Parameters.Add("@工资",SqlDbType.Char,10).Value=this.textBox5.Text;cmd.Parameters.Add("@编号",SqlDbType.Char,10).Value=str1;cmd.Parameters.Add("@姓名",SqlDbType.Char,10).Value=str2;cmd.Parameters.Add("@部门",SqlDbType.Char,10).Value=str3;cmd.Connection=con;cmd.ExecuteNonQuery();con.Close();SqlDataAdaptersda=newSqlDataAdapter("select*from员工信息",con);DataSetds=newDataSet();sda.Fill(ds,"table");this.dataGridView1.DataSource=ds.Tables[0].DefaultView;try{show();MessageBox.Show("修改成功！");}catch(Exception){MessageBox.Show("没有记录显示！");}flag=0;}if(flag==3&&str1!=""){SqlConnectioncon=DBCon.createCon();con.Open();SqlCommandcmd=newSqlCommand("deletefrom员工信息where编号='"+str1+"'and姓名='"+str2+"'and部门='"+str3+"'and性别='"+str4+"'",con);cmd.Connection=con;cmd.ExecuteNonQuery();con.Close();SqlDataAdaptersda=newSqlDataAdapter("select*from员工信息",con);DataSetds=newDataSet();sda.Fill(ds,"table");this.dataGridView1.DataSource=ds.Tables[0].DefaultView;try{show();}catch(Exception){MessageBox.Show("没有记录显示！");}MessageBox.Show("删除成功！");flag=0;}}privatevoidbutton3_Click(objectsender,EventArgse){this.Close();}}}8．删除员工界面图8-8删除员工界面对应代码：privatevoiddataGridView1_SelectionChanged(objectsender,EventArgse){show();}privatevoidbutton3_Click(objectsender,EventArgse){this.Close();}privatevoidbutton1_Click(objectsender,EventArgse){if((str1=this.textBox1.Text.ToString())!=""&&(str2=this.textBox2.Text.ToString())!=""){if(MessageBox.Show("您确定要删除本条记录吗？","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Warning)==DialogResult.Yes){flag=3;MessageBox.Show("请按提交按钮，才能删除成功！");return;}}}privatevoidbutton2_Click(objectsender,EventArgse){if(flag==1){SqlConnectioncon=DBCon.createCon();con.Open();SqlCommandcmd=newSqlCommand("insertinto员工信息values(@编号,@姓名,@部门,@职称,@基本工资)",con);cmd.Parameters.Add("@编号",SqlDbType.Char,10).Value=textBox1.Text;cmd.Parameters.Add("@姓名",SqlDbType.Char,10).Value=textBox2.Text;cmd.Connection=con;cmd.ExecuteNonQuery();con.Close();SqlDataAdaptersda=newSqlDataAdapter("select*from员工信息",con);DataSetds=newDataSet();sda.Fill(ds,"table");this.dataGridView1.DataSource=ds.Tables[0].DefaultView;this.textBox1.Enabled=false;MessageBox.Show("新增记录成功！");this.textBox1.Enabled=true;this.textBox2.Enabled=true;try{show();}catch(Exception){MessageBox.Show("没有记录显示！");}flag=0;}if(flag==2&&str1!=""){SqlConnectioncon=DBCon.createCon();con.Open();SqlCommandcmd=newSqlCommand("update员工信息set"+"编号=@编号,姓名=@姓名where编号=@编号,姓名=@姓名",con);//cmd.Parameters.Add("@职称",SqlDbType.Char,10).Value=this.textBox4.Text;//cmd.Parameters.Add("@工资",SqlDbType.Char,10).Value=this.textBox5.Text;cmd.Parameters.Add("@编号",SqlDbType.Char,10).Value=str1;cmd.Parameters.Add("@姓名",SqlDbType.Char,10).Value=str2;cmd.Parameters.Add("@部门",SqlDbType.Char,10).Value=str3;