返回列表 发帖

[毕业论文] [讨论]企业职员管理系统.txt

o-char-indent-size:0cm"><span lang="en-us">系统主界面是用户进入系统后主要接触的界面,由它可以进入各个功能模块。分别单击按钮"增加记录"、"修改记录"、"删除记录"、"查询"、"报表打印"可进入与之相对应的功能模块,单击"退出"按钮退出本系统。为使界面不至于单调,可以为主界面加入背景。<br>   
    在"增加记录"按钮的"click"事件中添加代码如下:<br>   
    do form 增加记录<br>   
    thisform.release<br>   
    在"修改记录"按钮的"click"事件中添加代码如下:<br>   
    do form 修改记录<br>   
    thisform.release<br>   
    在"删除记录"按钮的"click"事件中添加代码如下:<br>   
    do form 删除记录<br>   
    thisform.release<br>   
    在"查询"按钮的"click"事件中添加代码如下:<br>   
    do form 查询<br>   
    thisform.release<br>   
    在"报表打印"按钮的"click"事件中添加代码如下:<br>   
    do form 报表打印<br>   
    thisform.release<br>   
    在"退出"按钮的"click"事件中添加代码如下:<br>   
    thisform.release<br>   
    clear events<br>   
    <br>   
    "增加记录"模块<br>   
    <b><span lang="en-us" style="font-size:12.0pt;   
font-family:&quot;times new roman&quot;;mso-fareast-font-family:宋体;mso-font-kerning:1.0pt;   
mso-ansi-language:en-us;mso-fareast-language:zh-cn;mso-bidi-language:ar-sa"><!--[if gte vml 1]><v:shapetype   
id="_x0000_t75" coordsize="21600,21600" o:spt="75" o:preferrelative="t"   
path="m@4@5l@4@11@9@11@9@5xe" filled="f" stroked="f">   
<v:stroke joinstyle="miter"/>   
<v:formulas>   
  <v:f eqn="if linedrawn pixellinewidth 0"/>   
  <v:f eqn="sum @0 1 0"/>   
  <v:f eqn="sum 0 0 @1"/>   
  <v:f eqn="prod @2 1 2"/>   
  <v:f eqn="prod @3 21600 pixelwidth"/>   
  <v:f eqn="prod @3 21600 pixelheight"/>   
  <v:f eqn="sum @0 0 1"/>   
  <v:f eqn="prod @6 1 2"/>   
  <v:f eqn="prod @7 21600 pixelwidth"/>   
  <v:f eqn="sum @8 21600 0"/>   
  <v:f eqn="prod @7 21600 pixelheight"/>   
  <v:f eqn="sum @10 21600 0"/>   
</v:formulas>   
<v:path o:extrusionok="f" gradientshapeok="t" o:connecttype="rect"/>   
<o:lock v:ext="edit" aspectratio="t"/>   
</v:shapetype><v:shape id="_x0000_i1025" type="#_x0000_t75" style='width:415.5pt;   
height:264pt'>   
<v:imagedata src="file:///c:/windows/temp/msoclip1/01/clip_image001.png"   
  o:title="增加记录"/>   
</v:shape><![endif]-->   
    <img src="2004323.gif" v:shapes="_x0000_i1025" width="554" height="352"></span></b><o:p>   
    </o:p>   
    </span></p>   
    <p class="msobodytextindent" style="text-indent:0cm;mso-char-indent-count:0;   
mso-char-indent-size:0cm"><span lang="en-us">企业新进职员都要为其建立人事档案,该模块的功能就是添加新职员信息。操作很简单,按需要输入完数据后,单击"确定"按钮即可,同时系统会弹出对话框提示输入成功。"取消"按钮的功能是清空所有文本框。该模块做了些限制性设计,以防用户误操作。如:将输入"职员号"、"进本单位年份"的文本框的format和inputmask属性都设为"9999",使用户只能输入四位数字,输入其它字符无效。同样在输入"生日"的文本框的format和inputmask属性都设为"9999/99/99"。单击"确定"后,如果没有输入"职员号"或输入的"职员号"已存在,系统都会弹出提示信息,以便用户改正。<br>   
    在"确定"按钮的"click"事件中添加代码如下:<br>   
    * 检查"职员号"是否为空<br>   
    if empty(alltrim(thisform.txtid.value))<br>   
    messagebox("职员号不能为空",48,"错误")<br>   
    thisform.txtid.setfocus<br>   
    else<br>   
    * 获取各输入值<br>   
    inid=alltrim(thisform.txtid.value)<br>   
    inname=alltrim(thisform.txtname.value)<br>   
    insex=alltrim(thisform.txtsex.value)<br>   
    inbirth=alltrim(thisform.txtbirth.value)<br>   
    inlearn=alltrim(thisform.txtlearn.value)<br>   
    inpolitics=alltrim(thisform.txtpolitics.value)<br>   
    inphone=alltrim(thisform.txtphone.value)<br>   
    inaddress=alltrim(thisform.txtaddress.value)<br>   
    indepartment=alltrim(thisform.txtdepartment.value)<br>   
    infunction=alltrim(thisform.txtfunction.value)<br>   
    indate=alltrim(thisform.txtdate.value)<br>   
    inmemo=alltrim(thisform.edtmemo.value)<br>   
    * 检查输入的"职员号"是否已存在<br>   
    set order to 职员号<br>   
    seek inid<br>   
    if !found()<br>   
    insert into 职员信息表 value(inid,inname,insex,inbirth,inlearn,inpolitics,inphone,inaddress,indepartment,infunction,indate,inmemo)<br>   
    messagebox("添加成功!",48,"信息")<br>   
    * 添加完毕后清空各文本框<br>   
    thisform.txtid.value=''<br>   
    thisform.txtname.value=''<br>   
    thisform.txtsex.value=''<br>   
    thisform.txtbirth.value=''<br>   
    thisform.txtlearn.value=''<br>   
    thisform.txtpolitics.value=''<br>   
    thisform.txtphone.value=''<br>   
    thisform.txtaddress.value=''<br>   
    thisform.txtdepartment.value=''<br>   
    thisform.txtfunction.value=''<br>   
    thisform.txtdate.value=''<br>   
    thisform.edtmemo.value=''<br>   
    else<br>   
    messagebox("此职员号已存在,请另输一个",48,"错误")<br>   
    thisform.txtid.value=''<br>   
    thisform.txtid.setfocus<br>   
    endif<br>   
    endif<br>   
    在"取消"按钮的"click"事件中添加代码如下:<br>   
    * 清空各文本框<br>   
    thisform.txtid.value=''<br>   
    thisform.txtname.value=''<br>   
    thisform.txtsex.value=''<br>   
    thisform.txtbirth.value=''<br>   
    thisform.txtlearn.value=''<br>   
    thisform.txtpolitics.value=''<br>   
    thisform.txtphone.value=''<br>   
    thisform.txtaddress.value=''<br>   
    thisform.txtdepartment.value=''<br>   
    thisform.txtfunction.value=''<br>   
    thisform.txtdate.value=''<br>   
    thisform.edtmemo.value=''<br>   
    thisform.txtid.setfocus<br>   
    在"退出"按钮的"click"事件中添加代码如下:<br>   
    thisform.release<br>   
    do form 主界面<br>   
  部分代码  你们会吗??
菩提本无树,明镜亦非台本来无一物,何处染尘埃?

ddddddd

TOP

TOP

TOP

TOP

TOP

TOP

ding

TOP

TOP

TOP

返回列表

Powered by Discuz! 7.2   论坛QQ群:逐梦论坛群

© 2001-2021 Comsenz Inc. 鲁公网安备 37120302000001号