delphi DataSnap³²×´Ö÷´Ó±íʵÏÖ
·þÎñ¶Ë£ºÌí¼ÓADOConnection£¬ADOQuery1£¬ADOQuery2¡£ÉèÖÃADOQuery1ΪÖ÷±í£¬ADOQuery2Ϊ´Ó±í¡£(ͨ¹ý ADOQuery2.SQL.Text:= 'select * from ´Ó±í where FKID=:Ö÷±íPKID'ÉèÖÃ)¡£Ìí¼ÓDataSetProvider1ºÍDataSetProvider2·Ö±ðÁ¬½Óµ½ADOQuery1ºÍADOQuery2¡£
¿Í»§¶Ë£ºÌí¼ÓClientDataSet1£¬ClientDataSet2¡£ClientDataSet1Á¬½Óµ½DataSetProvider1¡£Ë«»÷ClientDataSet1£¬ÓÒ¼üAdd All Field¡£¿ÉÒÔ¿´µ½Ò»¸öTDataSetField×ֶΡ£ÉèÖÃClientDataSet2µÄDataSetFieldÊôÐÔΪClientDataSet1ÖеÄTDataSetFieldÁС£Ìí¼ÓDataCourse1¡¢DataSource2·Ö±ðÁ¬½Óµ½ClientDataSet1ºÍClientDataSet2¿Ø¼þ¡£Ìí¼ÓDBGrid1ºÍDBGrid2·Ö±ðÁ¬½Óµ½DataCourse1¡¢DataSource2¡£ÉèÖÃClientDataSet1.Active:= True;Õâʱ·¢ÏÖClientDataSet2Ò²×Ô¶¯´ò¿ª¡£
×ÔÔöÁд¦Àí:¼ÙÈçÖ÷´Ó±íµÄÖ÷Íâ¼ü¶¼ÊÇ×ÔÔöÁУ¬Õâʱ¿ÉÒÔÔÚ·þÎñ¶Ë´¦ÀíÖ÷´Ó±í¹ØÁª¡£ÔÚDataSetProvider1ÖеÄBeforeUpdateRecordʼþÖÐÌí¼ÓÈçÏ´úÂ룺
procedure TForm1.DataSetProvider1BeforeUpdateRecord(Sender: TObject;
SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
UpdateKind: TUpdateKind; var Applied: Boolean);
begin
if ((UpdateKind = ukInsert) and
(SourceDS = ADOQuery2)
{and (DeltaDS.FieldByName('PKID').Value = Unassigned)}) then
begin
if DeltaDS.BOF then
begin
qryIdentity.Close; //qryIdentity.Sql.Text:= 'select @@identity';»ñÈ¡Ö÷±í×ÔÔöÁеÄ×îÐÂÖµ
qryIdentity.Open;
end;
DeltaDS.FieldByName('PKID').NewValue := qryIdentity.Fields[0].Value;//¸³¸ø×Ó±íµÄµ±Ç°ÐÐ
end;
end;
this over.
Ïà¹ØÎĵµ£º
dpr Ϊ¹¤³ÌÎļþ
dfm Ϊ´°ÌåÎļþ
pas Ϊµ¥ÔªÎļþ
cfg ÅäÖÃÎļþ
dof ΪÏîÄ¿Ñ¡ÏîÎļþ(Ò»°ãûÓÃ)
dcu compiled unitsÎļþ ,±àÒëºóµÄµ¥ÔªÎļþ
res ×ÊÔ´Îļþ
ddp Îļþ¾ÍÊÇDelphi Diagram Portfolio¼òд,ÊÇÓÃÀ´±£´æCode EditorÖеÄDiagramÐÅÏ¢µÄ.
Ò»°ãÒ»¸öÏîÄ¿Òª¿¼¸ö±ðÈ ......
Ò»°ãÎÒÃÇÔÚDelphiÖнøÐÐͼÏñ´¦Àíʱ²ÉÓÃPixelsÏñËص㸳ֵµÄ·½·¨£¬Delphi´úÂëÈçÏ£º
var
x,y:Integer;
cColor:TColor;
begin
for y:=0 to Image1.Height-1 do
for x:=0 to Image1.Width-1 do
cColor:=Image1.Canvas.Pixels[i,j];
end;
µ«ÊÇÕâÖÖ·½·¨Óиöȱ ......
DELPHIÀà±ÏÒµÉè¼Æ
ÏÂÒ»Ò³£º×îÐÂDELPHI±ÏÒµÂÛÎÄ
ÈôÓкÏÊÊÄúµÄÉè¼Æ£¬Çë¸æËßÎÒÏêϸ˵Ã÷µÄÍøÖ·£¡Ð»Ð»ºÏ×÷£¡
±àºÅ ÌâÄ¿ ¿ª·¢¹¤¾ß ÄÚÈÝ ×ÊÁÏ·Ñ Ïêϸ˵Ã÷
001DPAC ÍøÂç½Ìѧ¹ÜÀíϵͳ DELPH I+ ACCESS delphiÔ´´úÂë+±ÏÒµÂÛÎÄ+¿ªÌⱨ¸æ+´ð±ç¸å £¤150 Ïêϸ˵Ã÷
002DPAC ½Ìѧ¼Æ»®¹ÜÀíϵͳ DELPH I+ ACCESS delphiÔ´´úÂë+±ÏÒµÂÛÎ ......
º¯ÊýÒ»£º
view plaincopy to clipboardprint?
uses
Windows,
SysUtils,
Classes,
ShellAPI;
function RunAndWait(FileName: string; Visibility: Integer): THandle;&nbs ......
ÀûÓÃWindows APIº¯ÊýWritePrivateProfileString ºÍGetPrivateProfileString¿É¶Ô.INIÎļþ½øÐжÁд²Ù×÷¡£Æäʵ£¬¶Ô.INIÎļþµÄ¶ÁдÍêÈ«¿ÉÒÔÀûÓÃDelphiµÄÄÚÖú¯ÊýÀ´ÊµÏÖ¡£ÏÂÃæ¾Í½éÉÜһЩ¶Ô.INIÎļþ¶ÁдʱÏà¹ØµÄÀ༰ÆäÊôÐÔ·½·¨¡£
1¡¢TIniFile¶ÔÏó
ÒÔDelphiÖУ¬¶¨ÒåÁËÒ»¸öTIniFile¶ÔÏ󣬽«.INIÎļþ·â×°ÔÚÆäÖУ¬²¢ÌṩһЩ·½·¨£ ......