标题:
[
毕业论文
]
[讨论]企业职员管理系统.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:"times new roman";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
作者:
xinlangwww
时间:
2006-9-18 08:35
作者:
wld93986141
时间:
2006-11-12 15:56
作者:
ftsswsj
时间:
2006-11-16 16:13
好
作者:
晴天小雨
时间:
2006-12-7 23:45
作者:
冰晶
时间:
2006-12-22 16:07
ding
作者:
eeyore
时间:
2007-1-3 21:28
作者:
hao
时间:
2007-1-7 15:43
作者:
huhualing
时间:
2007-1-18 17:00
v
作者:
cjxiaoxin
时间:
2007-1-18 19:35
作者:
lyfei
时间:
2007-1-19 15:46
作者:
0206110215
时间:
2007-1-19 15:59
作者:
captskyh
时间:
2007-2-9 23:44
作者:
cession
时间:
2007-3-9 21:20
作者:
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
看看 正需要呢
作者:
icbchz
时间:
2007-4-17 21:37
谢谢楼主了
作者:
zhengfan8985
时间:
2007-4-18 12:07
ytjytjghjghjghjghjghjghj
作者:
hy8899
时间:
2007-5-3 16:29
good ,look
作者:
fjzhq2007
时间:
2007-5-4 00:42
看看0000000000000000000000000
作者:
13726491
时间:
2007-5-4 17:43
yao ding o
作者:
kuiper
时间:
2007-5-5 16:44
依然看不到
作者:
sacrtap
时间:
2007-5-5 17:15
看一下幅度撒发阿瑟分
作者:
evil247
时间:
2007-5-6 09:28
在看下 能行不?
作者:
evil247
时间:
2007-5-6 10:31
怎么没系统?
作者:
dx10011
时间:
2007-5-6 20:38
好！！谢谢
作者:
seanyang
时间:
2007-5-7 10:00
多谢楼主大人
作者:
xlp
时间:
2007-5-7 13:22
获得哈似的发生发哈发 电风扇但是 是发似的
作者:
eruda0312
时间:
2007-5-9 10:15
lllll
作者:
newlysl
时间:
2007-5-10 20:36
ddddddddddddddddddddddddddddddddddddddddd
作者:
爱在戏院前
时间:
2007-5-17 17:06
开帖看看先
作者:
guihongwuyan
时间:
2007-5-18 14:20
看看看看看!!!
作者:
ly88127959
时间:
2007-5-18 15:45
look - look!!!
作者:
yanxiaofang
时间:
2007-5-30 17:30
好呀，我要看了，
作者:
yu1983926
时间:
2007-6-4 23:46
fadfsaf
作者:
ltllovehy
时间:
2007-6-5 11:54
111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
作者:
onlyfat
时间:
2007-6-5 12:56
看看这个是我要的东东不。
作者:
lccc
时间:
2007-6-14 18:24
wo ding
作者:
yixin0102
时间:
2007-6-17 14:45
我来回复看看
作者:
a2127
时间:
2007-6-18 13:02
3tw34t545t
作者:
huchangguo
时间:
2008-1-17 23:33
wrsfs
作者:
lifeixiang
时间:
2008-1-19 15:09
fgdsf
作者:
tongxing
时间:
2008-4-8 01:11
我要啊``兄弟
作者:
sunset85
时间:
2008-4-8 01:42
看看~~~~~~~~~~
作者:
gy2004176
时间:
2008-4-9 19:33
怎么样？先顶一下
作者:
saohun
时间:
2008-4-13 18:52
let me see see！
作者:
110AK47
时间:
2010-1-15 10:47
0.0
欢迎光临 逐梦论坛 (http://temp2023.zhumeng.org/)
Powered by Discuz! 7.2
