📄 真正所见即所得的delphi web开发利器-intraweb.mht
字号:
">=C9=CF=CA=B5=CF=D6=D5=E2=D2=BB=B9=A6=C4=DC=A3=AC=D5=E2=D0=E8=D2=AA=C9=E8=
=B6=A8</SPAN><SPAN=20
lang=3DEN-US>IWDBGrid</SPAN><SPAN style=3D"FONT-FAMILY: =CB=CE=CC=E5; =
Times: ">=B5=C4</SPAN><SPAN=20
lang=3DEN-US>Column</SPAN><SPAN style=3D"FONT-FAMILY: =CB=CE=CC=E5; =
Times: ">=B6=D4=CF=F3=B5=C4</SPAN><SPAN=20
lang=3DEN-US>LinkField</SPAN></FONT><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5; Times: "><FONT=20
size=3D2>=CA=F4=D0=D4=A1=A3</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><IMG height=3D132=20
src=3D"file:///G:/=B7=C7=B3=A3=CE=C4=B5=B5/IntraWeb/=D5=E6=D5=FD=CB=F9=BC=
=FB=BC=B4=CB=F9=B5=C3=B5=C4Delphi%20Web=BF=AA=B7=A2=C0=FB=C6=F7-IntraWeb.=
files/web014.jpg"=20
width=3D115 v:shapes=3D"_x0000_i1031"> <IMG height=3D262=20
src=3D"file:///G:/=B7=C7=B3=A3=CE=C4=B5=B5/IntraWeb/=D5=E6=D5=FD=CB=F9=BC=
=FB=BC=B4=CB=F9=B5=C3=B5=C4Delphi%20Web=BF=AA=B7=A2=C0=FB=C6=F7-IntraWeb.=
files/web016.jpg"=20
width=3D197 v:shapes=3D"_x0000_i1032"> <IMG height=3D242=20
src=3D"file:///G:/=B7=C7=B3=A3=CE=C4=B5=B5/IntraWeb/=D5=E6=D5=FD=CB=F9=BC=
=FB=BC=B4=CB=F9=B5=C3=B5=C4Delphi%20Web=BF=AA=B7=A2=C0=FB=C6=F7-IntraWeb.=
files/image018.jpg"=20
width=3D181 v:shapes=3D"_x0000_i1033"> </SPAN></P>
<P><SPAN style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: "><FONT=20
size=3D2>=B1=C8=C8=E7=D4=DA=CD=BC=D6=D0=CE=D2=C3=C7=B8=F8</FONT></SPAN><F=
ONT size=3D2><SPAN lang=3DEN-US>ChnName</SPAN><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: =
">=D7=D6=B6=CE=C9=E8=B6=A8=C1=CB</SPAN><SPAN=20
lang=3DEN-US>LinkField</SPAN><SPAN style=3D"FONT-FAMILY: =CB=CE=CC=E5; =
Times: ">=CE=AA</SPAN><SPAN=20
lang=3DEN-US>CorpID</SPAN><SPAN style=3D"FONT-FAMILY: =CB=CE=CC=E5; =
Times: ">=BC=FC=D6=B5=D7=D6=B6=CE=A3=AC</SPAN><SPAN=20
lang=3DEN-US>LinkField</SPAN><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: =
">=BF=C9=D2=D4=BD=AB=B0=F3=B6=A8=B5=C4=D7=D6=B6=CE=B5=C4=B5=B1=C7=B0=D6=B5=
=B4=AB=B8=F8</SPAN><SPAN=20
lang=3DEN-US>OnClick</SPAN><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: =
">=CA=C2=BC=FE=A3=AC=BF=C9=D2=D4=D3=C3=C0=B4=B6=A8=CE=BB=CA=FD=BE=DD=BC=AF=
=B5=C4=D3=CE=B1=EA=A3=AC</SPAN><SPAN=20
lang=3DEN-US>OnClick</SPAN></FONT><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5; Times: "><FONT=20
size=3D2>=CA=C2=BC=FE=B5=C4=CA=B5=CF=D6=B4=FA=C2=EB=C8=E7=CF=C2=A3=BA</FO=
NT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2>procedure=20
TformCorpList.iwgCorpColumns1Click(ASender: TObject;</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> const AValue: =
String);</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2>var</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> =
Id:Integer;</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2>begin</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> inherited;</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> //</FONT></SPAN><FONT =
size=3D2><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: ">=BB=F1=B5=C3</SPAN><SPAN =
lang=3DEN-US>CorpID</SPAN><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: =
">=D6=B5=A3=AC=CA=B9=D3=C3</SPAN><SPAN=20
lang=3DEN-US>Locate</SPAN></FONT><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5; Times: "><FONT=20
size=3D2>=B6=A8=CE=BB=D6=B5</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> =
Id:=3DStrToInt(AValue);</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> =20
dmHR.badoCorp.Locate('CorpId',Id,[]);</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2>end;</FONT></SPAN></P>
<P><SPAN style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: "><FONT=20
size=3D2>=D4=CB=D0=D0=BA=F3=A3=AC=B4=D3=C7=B0=C3=E6=B5=C4=CD=BC=D6=D0=CE=D2=
=C3=C7=BF=C9=D2=D4=BF=B4=B5=BD=D4=DA=C7=E5=BB=AA=CD=AC=B7=BD=B9=AB=CB=BE=B5=
=C4=CF=C2=C3=E6=D3=D0=D2=BB=B8=F6=CF=C2=BB=AC=CF=DF=A3=AC=B5=E3=BB=F7=B3=AC=
=C1=AC=BD=D3=BE=CD=BB=E1=B5=F7=D3=C3</FONT></SPAN><FONT=20
size=3D2><SPAN lang=3DEN-US>OnClick</SPAN></FONT><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: "><FONT=20
size=3D2>=CA=C2=BC=FE=A3=AC=BD=AB=CA=FD=BE=DD=BC=AF=D3=CE=B1=EA=B8=FC=D0=C2=
=CE=AA=B1=BB=B5=E3=BC=C7=C2=BC=A3=AC=CD=AC=CA=B1=B8=FC=D0=C2=BD=E7=C3=E6=CF=
=C2=B1=DF=B5=C4=B9=AB=CB=BE=D6=D0=CE=C4=D0=C5=CF=A2=BA=CD=D3=A2=CE=C4=D0=C5=
=CF=A2=A1=A3</FONT></SPAN></P>
<P><B><SPAN style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: =
">=D0=C5=CF=A2=B1=E0=BC=AD</SPAN></B></P>
<P><SPAN style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: "><FONT=20
size=3D2>=CD=EA=B3=C9=BC=C7=C2=BC=E4=AF=C0=C0=B9=A6=C4=DC=A3=AC=CE=D2=C3=C7=
=D0=E8=D2=AA=CA=B5=CF=D6=B6=D4=B9=AB=CB=BE=D0=C5=CF=A2=B1=E0=BC=AD=B5=C4=B9=
=A6=C4=DC=A1=A3=C6=E4=D6=D0=D4=F6=BC=D3=BA=CD=D0=DE=B8=C4=B9=AB=CB=BE=BC=C7=
=C2=BC=D3=C3=D2=BB=B8=F6=BD=E7=C3=E6=C0=B4=CD=EA=B3=C9=A3=AC=CE=AA=C1=CB=CA=
=B6=B1=F0=B2=D9=D7=F7=D0=D4=D6=CA=B5=C4=B2=BB=CD=AC=A3=AC=CE=D2=C3=C7=CE=AA=
=B1=E0=BC=AD=BD=E7=C3=E6=D4=F6=BC=D3=C1=CB=D2=BB=B8=F6</FONT></SPAN><FONT=
=20
size=3D2><SPAN lang=3DEN-US>EditMode</SPAN><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: =
">=CA=F4=D0=D4=A3=AC=CB=FC=CA=C7=C3=B6=BE=D9=C0=E0=D0=CD=B5=C4=A3=AC=B5=B1=
=D0=DE=B8=C4=CA=B1=C9=E8=CE=AA</SPAN><SPAN=20
lang=3DEN-US>emEdit, </SPAN><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: =
">=B5=B1=CC=ED=BC=D3=CA=B1=C9=E8=CE=AA</SPAN><SPAN=20
lang=3DEN-US>emInsert</SPAN></FONT><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5; Times: "><FONT=20
size=3D2>=A1=A3=CF=C2=C3=E6=CA=C7=B4=FA=C2=EB=CA=B5=CF=D6=A3=BA</FONT></S=
PAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2>//</FONT></SPAN><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: "><FONT =
size=3D2>=D0=DE=B8=C4=B9=AB=CB=BE=D0=C5=CF=A2</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2>procedure =
TformCorpList.iwnCorpEdit(Sender:=20
TObject);</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2>begin</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> =
//inherited;//</FONT></SPAN><FONT=20
size=3D2><SPAN style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: =
">=D7=A2=D2=E2=D5=E2=C0=EF=B2=BB=D2=AA=B5=F7=D3=C3</SPAN><SPAN=20
lang=3DEN-US>TIWDBNavigator</SPAN></FONT><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: "><FONT =
size=3D2>=C4=AC=C8=CF=B5=C4=B7=BD=B7=A8</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> =20
FEditForm.EditMode:=3DemEdit;</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> =20
FEditForm.CorpId:=3Ddmhr.badoCorp.FieldByName('CorpId').AsInteger;//</FON=
T></SPAN><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: "><FONT =
size=3D2>=B4=AB=B5=DD=BC=FC=D6=B5=BD=F8=C8=A5</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> // </FONT></SPAN><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: "><FONT =
size=3D2>=CF=D4=CA=BE=B1=E0=BC=AD=B4=B0=CC=E5</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> =
FEditForm.Show;</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2>end;</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2>//</FONT></SPAN><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: "><FONT =
size=3D2>=CC=ED=BC=D3=B9=AB=CB=BE=D0=C5=CF=A2</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2>procedure =
TformCorpList.iwnCorpInsert(Sender:=20
TObject);</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2>begin</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> =
//inherited;</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> =20
FEditForm.EditMode:=3DemInsert;</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> // </FONT></SPAN><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: "><FONT =
size=3D2>=CF=D4=CA=BE=B1=E0=BC=AD=B4=B0=CC=E5</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> =
FEditForm.Show;</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2>end;</FONT></SPAN></P>
<P><SPAN style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: "><FONT=20
size=3D2>=B6=D4=D3=DA=C9=BE=B3=FD=B5=C4=CA=B5=CF=D6=D0=E8=D2=AA=D2=BB=D0=A9=
=CC=D8=CA=E2=B4=A6=C0=ED=A3=AC=D5=E2=C0=EF=CE=D2=C3=C7=B2=BB=C4=DC=CA=B9=D3=
=C3</FONT></SPAN><FONT size=3D2><SPAN=20
lang=3DEN-US>TIWDBNavigator</SPAN><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: =
">=C4=AC=C8=CF=B5=C4</SPAN><SPAN lang=3DEN-US>Delete</SPAN><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: =
">=B0=B4=C5=A5=C0=B4=CA=B5=CF=D6=A3=AC=D2=F2=CE=AA</SPAN><SPAN=20
lang=3DEN-US>Intraweb</SPAN><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: =
">=C4=AC=C8=CF=CA=C7=CF=C8=D6=B4=D0=D0=C9=BE=B3=FD=B2=D9=D7=F7=A3=AC=C8=BB=
=BA=F3=B2=C5=B5=F7=D3=C3</SPAN><SPAN=20
lang=3DEN-US>OnClick</SPAN><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: =
">=CA=C2=BC=FE=A3=AC=D2=B2=BE=CD=CA=C7=CB=B5=CE=D2=C3=C7=CE=DE=B7=A8=D4=DA=
=C9=BE=B3=FD=C7=B0=C5=D0=B6=CF=CA=C7=B7=F1=D4=CA=D0=ED=C9=BE=B3=FD=A3=AC=D2=
=F2=CE=AA=B9=AB=CB=BE=CF=C2=C3=E6=BF=C9=C4=DC=BB=E1=D3=D0=BA=DC=B6=E0=B5=C4=
=D4=B1=B9=A4=D0=C5=CF=A2=A3=AC=B5=B1=B9=AB=CB=BE=CF=C2=D4=B1=B9=A4=CA=FD=C4=
=BF=B2=BB=CE=AA=C1=E3=CA=B1=A3=AC=CE=D2=C3=C7=D3=A6=B8=C3=BD=FB=D6=B9=C9=BE=
=B3=FD=B9=AB=CB=BE=A3=AC=CB=F9=D2=D4=D5=E2=C0=EF=D2=AA=D3=C3</SPAN><SPAN =
lang=3DEN-US>Button</SPAN><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: =
">=C0=B4=CA=B5=CF=D6=A3=A8=D7=A2=D2=E2=A3=BA=D4=DA</SPAN><SPAN =
lang=3DEN-US>intraweb=20
5.0.35</SPAN></FONT><SPAN style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: =
"><FONT=20
size=3D2>=B0=E6=B1=BE=D6=D0=D3=D0=D5=E2=B8=F6=CE=CA=CC=E2=A3=AC=D0=C2=B5=C4=
=B0=E6=B1=BE=CA=C7=B7=F1=BD=E2=BE=F6=C1=CB=CE=D2=BE=CD=B2=BB=C7=E5=B3=FE=C1=
=CB=A3=A9=A1=A3=CF=C2=C3=E6=CA=C7=C9=BE=B3=FD=B5=C4=CA=B5=CF=D6=B4=FA=C2=EB=
=A3=BA</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2>procedure =
TformCorpList.iwbDeleteClick(Sender:=20
TObject);</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2>begin</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> inherited;</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> //</FONT></SPAN><FONT =
size=3D2><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: ">=D2=F2=CE=AA</SPAN><SPAN=20
lang=3DEN-US>IWDBNavigator</SPAN></FONT><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: "><FONT=20
size=3D2>=C4=AC=C8=CF=C7=E9=BF=F6=CF=C2=CA=C7=CF=C8=C9=BE=B3=FD=A3=AC=C8=BB=
=BA=F3=B2=C5=B5=F7=D3=C3=CE=D2=C3=C7=B5=C4=CA=C2=BC=FE=A3=AC=D2=F2=B4=CB=D0=
=E8=D2=AA=D0=DE=B8=C4=D5=E2=D2=BB</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2>//</FONT></SPAN><FONT =
size=3D2><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: =
">=B4=A6=C0=ED=B9=FD=B3=CC=A3=AC=CB=F9=D2=D4=D6=BB=BA=C3=CA=C7=D3=C3</SPA=
N><SPAN=20
lang=3DEN-US>Button</SPAN></FONT><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5; Times: "><FONT=20
size=3D2>=C0=B4=CA=B5=CF=D6</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> with dmHR =
do</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> begin</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> =20
badoQuery.Active:=3DFalse;</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> =20
badoQuery.CommandText:=3Dformat('Select count(*) as HumanCount from =
tblhuman where=20
CorpID=3D%s', =
[badoCorp.FieldByName('CorpID').AsString]);</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> =20
badoQuery.Active:=3DTrue;</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> if=20
badoQuery.FieldByName('HumanCount').AsInteger>0 =
then</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> =
begin</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> =20
WebApplication.ShowMessage('</FONT></SPAN><FONT size=3D2><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: =
">=CF=C8=C9=BE=B3=FD=B8=C3=B9=AB=CB=BE=CF=C2=CB=F9=D3=D0=B5=C4=C8=CB=D4=B1=
=D0=C5=CF=A2=BA=F3=B2=C5=C4=DC=C9=BE=B3=FD=B8=C3=B9=AB=CB=BE</SPAN></FONT=
><SPAN=20
lang=3DEN-US><FONT size=3D2>');</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> =20
Exit;</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> =
end;</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> =20
badoCorp.Delete;</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2> end;</FONT></SPAN></P>
<P><SPAN lang=3DEN-US><FONT size=3D2>end;</FONT></SPAN></P>
<P><SPAN style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: "><FONT=20
size=3D2>=D7=EE=BA=F3=BE=CD=CA=C7=B9=AB=CB=BE=D0=C5=CF=A2=B1=E0=BC=AD=BD=E7=
=C3=E6=B5=C4=CA=B5=CF=D6=C1=CB=A3=AC=CF=C2=C3=E6=CA=C7=B1=E0=BC=AD=BD=E7=C3=
=E6=B5=C4=CA=BE=D2=E2=CD=BC=A3=BA</FONT></SPAN></P>
<P align=3Dcenter><SPAN lang=3DEN-US><IMG height=3D314=20
src=3D"file:///G:/=B7=C7=B3=A3=CE=C4=B5=B5/IntraWeb/=D5=E6=D5=FD=CB=F9=BC=
=FB=BC=B4=CB=F9=B5=C3=B5=C4Delphi%20Web=BF=AA=B7=A2=C0=FB=C6=F7-IntraWeb.=
files/image020.jpg"=20
width=3D348 v:shapes=3D"_x0000_i1034"> </SPAN></P>
<P><SPAN style=3D"FONT-FAMILY: =CB=CE=CC=E5; Times: "><FONT=20
size=3D2>=C8=E7=B9=FB=B5=B1=C7=B0=B1=E0=BC=AD=B2=D9=D7=F7=CA=C7=CC=ED=BC=D3=
=B5=C4=BB=B0=A3=AC=D0=E8=D2=AA=C9=E8=B6=A8=BD=E7=C3=E6=C9=CF=B5=C4=D0=C5=CF=
=A2=CE=AA=BF=D5=A3=AC=C8=E7=B9=FB=CE=AA=B1=E0=BC=AD=D4=F2=D2=AA=BB=F1=B5=C3=
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -