📄 intraweb开发指南.htm
字号:
iweChnName.Text := '';</SPAN></P>
<P><SPAN lang=EN-US>
iweEngName.Text := '';</SPAN></P>
<P><SPAN lang=EN-US>
iwePhone.Text := '';</SPAN></P>
<P><SPAN lang=EN-US>
iweFax.Text := '';</SPAN></P>
<P><SPAN lang=EN-US>
iwmChnInfo.Lines.Text := '';</SPAN></P>
<P><SPAN lang=EN-US>
iwmEngInfo.Lines.Text := '';</SPAN></P>
<P><SPAN lang=EN-US>
iwmComments.Lines.Text := '';</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>procedure TformEditCorp.iwbEditClick(Sender:
TObject);</SPAN></P>
<P><SPAN lang=EN-US>var</SPAN></P>
<P><SPAN lang=EN-US> S:String;</SPAN></P>
<P><SPAN lang=EN-US>begin</SPAN></P>
<P><SPAN lang=EN-US> case EditMode of</SPAN></P>
<P><SPAN lang=EN-US> emEdit:</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: 宋体; Times: ">这里直接用</SPAN><SPAN
lang=EN-US>Sql</SPAN><SPAN
style="FONT-FAMILY: 宋体; Times: ">来实现的</SPAN></P>
<P><SPAN
lang=EN-US>
adocEdit.CommandText :=</SPAN></P>
<P><SPAN lang=EN-US>format('Update TblCorp Set ChnName=''%s'',
EngName=''%s'', Fax=''%s'', </SPAN></P>
<P><SPAN lang=EN-US>Phone=''%s'', ChnInfo=''%s'', EngInfo=''%s'',
Comments=''%s'' Where </SPAN></P>
<P><SPAN lang=EN-US>CorpID=%d', [iweChnName.text, iweEngName.text,
iweFax.Text, iwePhone.Text,</SPAN></P>
<P><SPAN lang=EN-US>iwmChninfo.Lines.Text, iwmEngInfo.Lines.Text,
iwmComments.Lines.Text, </SPAN></P>
<P><SPAN lang=EN-US>CorpId]);</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.Refresh;</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> emInsert:</SPAN></P>
<P><SPAN lang=EN-US> begin</SPAN></P>
<P><SPAN lang=EN-US>
//todo:</SPAN><SPAN
style="FONT-FAMILY: 宋体; Times: ">判断其他字段的值</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: 宋体; Times: ">中文名称不能为空</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: 宋体; Times: ">这里直接用</SPAN><SPAN
lang=EN-US>Sql</SPAN><SPAN
style="FONT-FAMILY: 宋体; Times: ">来实现的</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: 宋体; Times: ">这里唯一需要注意的就是编辑信息入库后，要想返回主界面，只要调用当前界面的</SPAN><SPAN
lang=EN-US>Hide</SPAN><SPAN
style="FONT-FAMILY: 宋体; Times: ">方法就可以了。</SPAN></P>
<P><B><SPAN style="FONT-FAMILY: 宋体; Times: ">人员信息编辑</SPAN></B></P>
<P><SPAN
style="FONT-FAMILY: 宋体; Times: ">完成了公司信息界面后，只剩下了职员信息编辑了，界面如下</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: 宋体; Times: ">里面的浏览等功能的实现方法同公司信息编辑非常类似，这里就不进行详细论述了，其中同公司信息编辑稍微有些不同的是，人员信息编辑界面支持简历上传的操作，上传操作是通过</SPAN><SPAN
lang=EN-US>TIWFile</SPAN><SPAN
style="FONT-FAMILY: 宋体; Times: ">来实现的，我们添加一个上传简历的按钮来实现上传的功能，代码如下：</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: 宋体; Times: ">同名的</SPAN><SPAN
lang=EN-US>%s</SPAN><SPAN
style="FONT-FAMILY: 宋体; Times: ">文件已经存在，请将文档改名后重新</SPAN></P>
<P><SPAN style="FONT-FAMILY: 宋体; Times: ">上传</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: 宋体; Times: ">将简历文档保存起来</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: 宋体; Times: ">文件上传成功</SPAN><SPAN
lang=EN-US>');</SPAN></P>
<P><SPAN lang=EN-US>end;</SPAN></P>
<P><SPAN
style="FONT-FAMILY: 宋体; Times: ">有上⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -