📄 intraweb开发指南.htm
字号:
adocHR.RollbackTrans;</SPAN></P>
<P><SPAN lang=EN-US>
end;</SPAN></P>
<P><SPAN lang=EN-US> end;</SPAN></P>
<P><SPAN lang=EN-US> emInsert:</SPAN></P>
<P><SPAN lang=EN-US> begin</SPAN></P>
<P><SPAN lang=EN-US>
//todo:</SPAN><SPAN style="FONT-FAMILY: 宋体">判断其他字段的值</SPAN></P>
<P><SPAN lang=EN-US> if
Trim(iweChnName.Text) = '' then</SPAN></P>
<P><SPAN lang=EN-US>
begin</SPAN></P>
<P><SPAN
lang=EN-US>
WebApplication.ShowMessage('</SPAN><SPAN
style="FONT-FAMILY: 宋体">中文名称不能为空</SPAN><SPAN
lang=EN-US>');</SPAN></P>
<P><SPAN
lang=EN-US>
Exit;</SPAN></P>
<P><SPAN lang=EN-US>
end;</SPAN></P>
<P><SPAN lang=EN-US> with
dmHR do</SPAN></P>
<P><SPAN lang=EN-US>
begin</SPAN></P>
<P><SPAN
lang=EN-US>
adocHR.BeginTrans;</SPAN></P>
<P><SPAN
lang=EN-US>
try</SPAN></P>
<P><SPAN
lang=EN-US>
//</SPAN><SPAN style="FONT-FAMILY: 宋体">这里直接用</SPAN><SPAN
lang=EN-US>Sql</SPAN><SPAN style="FONT-FAMILY: 宋体">来实现的</SPAN></P>
<P><SPAN lang=EN-US>
adocEdit.CommandText
:=</SPAN></P>
<P><SPAN lang=EN-US>format('Insert Into TblCorp
(ChnName,EngName,Phone, Fax, ChnInfo, EngInfo, </SPAN></P>
<P><SPAN lang=EN-US>Comments) Values(''%s'', ''%s'', ''%s'', ''%s'',
''%s'', ''%s'', ''%s'')', </SPAN></P>
<P><SPAN lang=EN-US>[iweChnName.text, iweEngName.text,
iwePhone.Text, iweFax.Text,</SPAN></P>
<P><SPAN lang=EN-US>
iwmChninfo.Lines.Text,
iwmEngInfo.Lines.Text,</SPAN></P>
<P><SPAN
lang=EN-US>
iwmComments.Lines.Text, CorpId]);</SPAN></P>
<P><SPAN
lang=EN-US>
S:=adocEdit.CommandText;</SPAN></P>
<P><SPAN
lang=EN-US>
adocEdit.Execute;</SPAN></P>
<P><SPAN
lang=EN-US>
adocHR.CommitTrans;</SPAN></P>
<P><SPAN
lang=EN-US>
badoCorp.Requery;</SPAN></P>
<P><SPAN
lang=EN-US>
except</SPAN></P>
<P><SPAN lang=EN-US>
adocHR.RollbackTrans;</SPAN></P>
<P><SPAN
lang=EN-US>
end;</SPAN></P>
<P><SPAN lang=EN-US>
end;</SPAN></P>
<P><SPAN lang=EN-US> end;</SPAN></P>
<P><SPAN lang=EN-US> end;</SPAN></P>
<P><SPAN lang=EN-US> hide;</SPAN></P>
<P><SPAN lang=EN-US>end;</SPAN></P>
<P><SPAN lang=EN-US>procedure TformEditCorp.iwbCancelClick(Sender:
TObject);</SPAN></P>
<P><SPAN lang=EN-US>begin</SPAN></P>
<P><SPAN lang=EN-US> hide;</SPAN></P>
<P><SPAN lang=EN-US>end;</SPAN></P>
<P><SPAN
style="FONT-FAMILY: 宋体">这里唯一需要注意的就是编辑信息入库后，要想返回主界面，只要调用当前界面的</SPAN><SPAN
lang=EN-US>Hide</SPAN><SPAN
style="FONT-FAMILY: 宋体">方法就可以了。</SPAN></P>
<P><B><SPAN style="FONT-FAMILY: 宋体">人员信息编辑</SPAN></B></P>
<P><SPAN
style="FONT-FAMILY: 宋体">完成了公司信息界面后，只剩下了职员信息编辑了，界面如下</SPAN><SPAN
lang=EN-US>:</SPAN></P>
<P><SPAN lang=EN-US><IMG height=387
src="IntraWeb开发指南.files/image022.jpg" width=456
v:shapes="_x0000_i1035"> </SPAN></P>
<P><SPAN
style="FONT-FAMILY: 宋体">里面的浏览等功能的实现方法同公司信息编辑非常类似，这里就不进行详细论述了，其中同公司信息编辑稍微有些不同的是，人员信息编辑界面支持简历上传的操作，上传操作是通过</SPAN><SPAN
lang=EN-US>TIWFile</SPAN><SPAN
style="FONT-FAMILY: 宋体">来实现的，我们添加一个上传简历的按钮来实现上传的功能，代码如下：</SPAN></P>
<P><SPAN lang=EN-US>procedure TformEditHuman.iwbUploadClick(Sender:
TObject);</SPAN></P>
<P><SPAN lang=EN-US>var</SPAN></P>
<P><SPAN lang=EN-US> FileName: string;</SPAN></P>
<P><SPAN lang=EN-US>begin</SPAN></P>
<P><SPAN lang=EN-US> FileName := gsAppPath + 'resumes\' +
iwfResume.Filename;</SPAN></P>
<P><SPAN lang=EN-US> if FileExists(FileName) then</SPAN></P>
<P><SPAN lang=EN-US> begin</SPAN></P>
<P><SPAN lang=EN-US>WebApplication.ShowMessage(format('</SPAN><SPAN
style="FONT-FAMILY: 宋体">同名的</SPAN><SPAN lang=EN-US>%s</SPAN><SPAN
style="FONT-FAMILY: 宋体">文件已经存在，请将文档改名后重新</SPAN></P>
<P><SPAN style="FONT-FAMILY: 宋体">上传</SPAN><SPAN lang=EN-US>',
[FileName]));</SPAN></P>
<P><SPAN lang=EN-US> Exit;</SPAN></P>
<P><SPAN lang=EN-US> end;</SPAN></P>
<P><SPAN lang=EN-US> //</SPAN><SPAN
style="FONT-FAMILY: 宋体">将简历文档保存起来</SPAN></P>
<P><SPAN lang=EN-US> iwfResume.SaveToFile(gsAppPath +
'resumes\' + iwfResume.FileName);</SPAN></P>
<P><SPAN lang=EN-US> iwlResume.Caption :=
ExtractFilename(FileName);</SPAN></P>
<P><SPAN lang=EN-US> WebApplication.ShowMessage('</SPAN><SPAN
style="FONT-FAMILY: 宋体">文件上传成功</SPAN><SPAN lang=EN-US>');</SPAN></P>
<P><SPAN lang=EN-US>end;</SPAN></P>
<P><SPAN style="FONT-FAMILY: 宋体">有上传文件，自然就要允许人力资源部门的人员通过</SPAN><SPAN
lang=EN-US>Web</SPAN><SPAN
style="FONT-FAMILY: 宋体">查看简历，当用户点击</SPAN><SPAN
lang=EN-US>resume.doc</SPAN><SPAN
style="FONT-FAMILY: 宋体">的超级联结的时候，通过调用</SPAN><SPAN
lang=EN-US>WebApplication.SendFile</SPAN><SPAN
style="FONT-FAMILY: 宋体">可以将文件内容传送给浏览器，打开</SPAN><SPAN
lang=EN-US>Word</SPAN><SPAN
style="FONT-FAMILY: 宋体">文档，代码如下：</SPAN></P>
<P><SPAN lang=EN-US>procedure TformEditHuman.iwlResumeClick(Sender:
TObject);</SPAN></P>
<P><SPAN lang=EN-US>var</SPAN></P>
<P><SPAN lang=EN-US> FileName: string;</SPAN></P>
<P><SPAN lang=EN-US>begin</SPAN></P>
<P><SPAN lang=EN-US> if (Trim(iwlResume.Caption) <>
'</SPAN><SPAN style="FONT-FAMILY: 宋体">无</SPAN><SPAN lang=EN-US>')
and (Trim(iwlResume.Caption) <> '') then</SPAN></P>
<P><SPAN lang=EN-US> begin</SPAN></P>
<P><SPAN lang=EN-US> //gsAppPath</SPAN><SPAN
style="FONT-FAMILY: 宋体">定义在</SPAN><SPAN
lang=EN-US>SWSystem</SPAN><SPAN style="FONT-FAMILY: 宋体">中</SPAN></P>
<P><SPAN lang=EN-US> FileName := gsAppPath +
'resumes\' + iwlResume.Caption;</SPAN></P>
<P><SPAN lang=EN-US> if not FileExists(FileName)
then</SPAN></P>
<P><SPAN lang=EN-US> begin</SPAN></P>
<P><SPAN lang=EN-US>
WebApplication.ShowMessage('</SPAN><SPAN
style="FONT-FAMILY: 宋体">没有找到相应的简历</SPAN><SPAN
lang=EN-US>!');</SPAN></P>
<P><SPAN lang=EN-US> Exit;</SPAN></P>
<P><SPAN lang=EN-US> end;</SPAN></P>
<P><SPAN lang=EN-US>
WebApplication.SendFile(gsAppPath + 'resumes\' + iwlResume.Caption,
'', '',</SPAN></P>
<P><SPAN lang=EN-US> true);</SPAN></P>
<P><SPAN lang=EN-US> end;</SPAN></P>
<P><SPAN lang=EN-US>end;</SPAN></P>
<P><SPAN style="FONT-FAMILY: 宋体">职员技能信息同职员是多对一的关系，这里我们采用</SPAN><SPAN
lang=EN-US>IWGrid</SPAN><SPAN
style="FONT-FAMILY: 宋体">来实现技能列表信息编辑的功能，它其实就是一个</SPAN><SPAN
lang=EN-US>TStringGrid</SPAN><SPAN
style="FONT-FAMILY: 宋体">的</SPAN><SPAN lang=EN-US>Web</SPAN><SPAN
style="FONT-FAMILY: 宋体">版本，用法也非常相似，代码如下：</SPAN></P>
<P><SPAN lang=EN-US>procedure TformEditHuman.iwbAddClick(Sender:
TObject);</SPAN></P>
<P><SPAN lang=EN-US>var</SPAN></P>
<P><SPAN lang=EN-US> I: Integer;</SPAN></P>
<P><SPAN lang=EN-US>begin</SPAN></P>
<P><SPAN lang=EN-US> //</SPAN><SPAN
style="FONT-FAMILY: 宋体">添加信息，判断是否已经添加过相应技术了，如果是就退出</SPAN></P>
<P><SPAN lang=EN-US> for I := 0 to iwgTech.RowCount - 1
do</SPAN></P>
<P><SPAN lang=EN-US> begin</SPAN></P>
<P><SPAN lang=EN-US> if iwgTech.Cell[I, 0].Text =
iwcTech.Text then</SPAN></P>
<P><SPAN lang=EN-US> begin</SPAN></P>
<P><SPAN lang=EN-US>
WebApplication.ShowMessage('</SPAN><SPAN
style="FONT-FAMILY: 宋体">列表中已经有相应的技术了</SPAN><SPAN
lang=EN-US>');</SPAN></P>
<P><SPAN lang=EN-US> Exit;</SPAN></P>
<P><SPAN lang=⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -