Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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.


Ïà¹ØÎĵµ£º

delphiÖкó׺Ãû·Ö±ðÖ¸´úµÄÎļþºÍÓô¦

dpr Ϊ¹¤³ÌÎļþ
dfm Ϊ´°ÌåÎļþ
pas Ϊµ¥ÔªÎļþ
cfg ÅäÖÃÎļþ
dof ΪÏîÄ¿Ñ¡ÏîÎļþ(Ò»°ãûÓÃ)
dcu compiled   unitsÎļþ ,±àÒëºóµÄµ¥ÔªÎļþ
res ×ÊÔ´Îļþ
ddp Îļþ¾ÍÊÇDelphi   Diagram   Portfolio¼òд,ÊÇÓÃÀ´±£´æCode   EditorÖеÄDiagramÐÅÏ¢µÄ.
Ò»°ãÒ»¸öÏîÄ¿Òª¿¼¸ö±ðÈ ......

DelphiͼÏñ´¦ÀíÖÐScanLineµÄʹÓÃ

Ò»°ãÎÒÃÇÔÚ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Àà±ÏÒµÉè¼Æ
ÏÂÒ»Ò³£º×îÐÂDELPHI±ÏÒµÂÛÎÄ
ÈôÓкÏÊÊÄúµÄÉè¼Æ£¬Çë¸æËßÎÒÏêϸ˵Ã÷µÄÍøÖ·£¡Ð»Ð»ºÏ×÷£¡
±àºÅ ÌâÄ¿ ¿ª·¢¹¤¾ß ÄÚÈÝ ×ÊÁÏ·Ñ Ïêϸ˵Ã÷
001DPAC ÍøÂç½Ìѧ¹ÜÀíϵͳ DELPH I+ ACCESS delphiÔ´´úÂë+±ÏÒµÂÛÎÄ+¿ªÌⱨ¸æ+´ð±ç¸å £¤150 Ïêϸ˵Ã÷
002DPAC ½Ìѧ¼Æ»®¹ÜÀíϵͳ DELPH I+ ACCESS delphiÔ´´úÂë+±ÏÒµÂÛÎ ......

ÈçºÎÈÃDelphiµ÷ÓÃÍⲿ³ÌÐò²¢µÈ´ýÆäÔËÐÐÐÅÏ¢£¨Èç½áÊø£©

º¯ÊýÒ»£º
view plaincopy to clipboardprint?
uses 
    Windows,  
    SysUtils,  
    Classes,  
    ShellAPI;  
function RunAndWait(FileName: string; Visibility: Integer): THandle;&nbs ......

ʹÓÃDelphiÄÚÖú¯Êý¶ÁдINIÎļþ


ÀûÓÃWindows APIº¯ÊýWritePrivateProfileString ºÍGetPrivateProfileString¿É¶Ô.INIÎļþ½øÐжÁд²Ù×÷¡£Æäʵ£¬¶Ô.INIÎļþµÄ¶ÁдÍêÈ«¿ÉÒÔÀûÓÃDelphiµÄÄÚÖú¯ÊýÀ´ÊµÏÖ¡£ÏÂÃæ¾Í½éÉÜһЩ¶Ô.INIÎļþ¶ÁдʱÏà¹ØµÄÀ༰ÆäÊôÐÔ·½·¨¡£
1¡¢TIniFile¶ÔÏó
ÒÔDelphiÖУ¬¶¨ÒåÁËÒ»¸öTIniFile¶ÔÏ󣬽«.INIÎļþ·â×°ÔÚÆäÖУ¬²¢ÌṩһЩ·½·¨£ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ