ÓÃdelphiдһ¿ª·¢Æ½Ì¨
ÓÃÆ½Ì¨¿ª·¢³ÌÐò¡£
¹¤³ÌAÓд°Ìå1£¬ÀàTfrom1.ÀàΪ×Ô¶¯Éú³É¡£
¹¤³ÌBÓд°Ìå1£¬ÀàTfrom1.ÀàΪ×Ô¶¯Éú³É¡£
ÏÖÔÚÔÚ¹¤³ÌAÖд°Ìå1ÉÏÌí¼ÓÒ»°´Å¥ µã»÷µ¯³ö¹¤³ÌBµÄ´°Ìå1.
uses
VT5004Unit2
procedure Button1Click(Sender: TObject);
var
nForm:TForm1;& ......
ÎÒµÄÊý¾Ý¿âÀïÓÐÁ½¸ö±ítable1ºÍtable2£¬Á½¸ö±íµÄ½á¹¹Ò»Ñù£¬Êý¾ÝÀàÐÍ£¬cds£ºtclientdataset
ÎÒÏÖÔÚ²éѯ³ötable1ÀïµÄÊý¾Ýºó£¬Ê¹ÓÃcds.SaveToFile(tabledata);°Ñtable1µÄÊý¾Ý´æ´¢ÆðÀ´
£¬ÎÒÏÖÔÚÓÖ²éѯtable2ÀïµÄÊý¾Ý£¬ÔõôÑùÒ²°ÑÊý¾Ý×·¼Ó´æ´¢ÔÚtabledataÖУ¿²»Ê¤¸Ð¼¤¡£
²»ÒªSaveToFileÁË. Ö±½Ó
var
SaveData ......
ÎÒÓÃADOConnection1Á¬½ÓÊý¾Ý¿â,ADOQuery1Á¬ADOConnection1,DataSource1Á¬ADOQuery1,DBGridEh1Á¬DataSource1:
1¡¢ÎÒÒÑͨ¹ýÒ»¸ö°´Å¥´ÓÊý¾Ý¿â²éѯ³öA¡¢B¡¢C¡¢DËÄÁÐÐÅÏ¢ÏÔʾÔÚDBGridEh1ÖÐ(ÕâËÄÁÐÊý¾ÝÀ´Ô´ÓÚÒ»¸ö±í»ò½»²æÁ½¸ö±íµÄÐÅÏ¢)
2¡¢Ö®ºóÐèÒª¶ÔDBGridEh1ÖеÄÊý¾Ý½øÐб༣¬ÐÂÔöÐУ¬É¾³ýÐеȵȲÙ×÷£¬Íê³ÉÖ®ºóµã»÷ÁíÍâÒ ......
for i:= 0 to SelectedList.Count-1 do
begin
GotoBookmark(SelectedList.items[i]);
strOldReg_ID:='';
//OldAcc_date :=StrToDate(trim(FieldByName('acc_date').AsStri ......
http://good.gd/348868.htm
Õâ¸öÊÇÔ´ÂëÁË£¡¸ßÊÖ°ïæһÏ£¬Ð»Ð»
?
??
Â¥Ö÷Äܲ»ÄܰѴúÂëÌù³öÀ´£¿
¸Ð¾õÊÇÔÚË¢¹ã¸æ
// RegisterHookDlg.cpp : ʵÏÖÎļþ
//
#include "stdafx.h"
#include "RegisterHook.h"
#include "RegisterHookDlg.h"
#include " ......
ÎÒÔÚʹÓÃIdHTTP¿Ø¼þ×öÎļþÏÂÔØµÄʱºò,Ïë¼ÆËã³öÎļþÏÂÔØËÙ¶È,µ«ÊÇÎÞÂÛÔõÑù¶¼ÎÞ·¨³É¹¦,ÇëºÃÐÄÈ˰ïæ½â¾ö!
´úÂëÈçÏ£º
Delphi(Pascal) code:
procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
nsize.Caption := 'ÒÑÏÂÔØ:'+floattostr(ByteToStr( ......