|
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>
部分代码 你们会吗?? |
|