逐梦论坛 » 学习资料 » [讨论]企业职员管理系统.txt

知道了 发表于 2006-9-12 15:40

[讨论]企业职员管理系统.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>   
  部分代码  你们会吗？？

ysh31415 发表于 2006-9-13 16:39

ddddddd

xinlangwww 发表于 2006-9-18 08:34

[EM03]

xinlangwww 发表于 2006-9-18 08:35

[EM03]

wld93986141 发表于 2006-11-12 15:56

[EM03]

ftsswsj 发表于 2006-11-16 16:13

好

晴天小雨 发表于 2006-12-7 23:45

[EM25]

冰晶 发表于 2006-12-22 16:07

ding[EM12]

eeyore 发表于 2007-1-3 21:28

[EM07][EM08][EM09]

hao 发表于 2007-1-7 15:43

[EM02]

huhualing 发表于 2007-1-18 17:00

v

cjxiaoxin 发表于 2007-1-18 19:35

[EM03]

lyfei 发表于 2007-1-19 15:46

[EM02]

0206110215 发表于 2007-1-19 15:59

[EM03]

captskyh 发表于 2007-2-9 23:44

[EM03]

cession 发表于 2007-3-9 21:20

[EM03][EM02]

jeanipher 发表于 2007-3-13 20:49

我要看

kakuhm 发表于 2007-4-17 15:02

kan kan 2007-04-17 14:53:28

kakuhm 发表于 2007-4-17 15:15

dddddddddddddddd

kakuhm 发表于 2007-4-17 15:21

看看 正需要呢

查看完整版本: [讨论]企业职员管理系统.txt