1)
with qryGetId do
begin
close;
ParamByName('Id').asstring:=vDefUseId;
if not Prepared then Prepare;
ope ......
DELPHI¼Ç¼¼¯½á¹¹ÒÔÁ÷µÄ·½Ê½ÎÄ×Ö+ͼƬдÈë×Ô¶¨Òå¿â
ÎļþÃû:Libdat.dat,Õâ¸öÊý¾Ý¿âÊÇ×Ô¶¨ÒåµÄ²»ÊDZê×¼µÄ
ACCESSÖ®ÀàµÄ,ÎļþÄÚÈÝÈçÏÂ:
//--------------------------------------------------------
DelphiÎÄ×ÖºÍͼƬÒÔÁ÷µÄ·½Ê½Ð´ÈëÎļþÖÐ
¼Ç¼¼¯½á¹¹
½á¹¹·½Ê½Ð´ÈëÎļþµÄ,µ«ÊÇÎļþµÄ½á¹¹ÈçÏÂ:
ÐÕÃû  ......
¸÷λÅóÓÑ£¬Ð¡µÜÓÐÒ»¸öQQ£¬µ«ÀïÃæµÄȺ±È½Ï¶à£¬ÐèҪʵÏÖÈçϹ¦ÄÜ£º
1¡¢¿ÉÒÔ¶ÁÈ¡×Ô¼ºµÄQQÓжàÉÙ¸öȺ
2¡¢¿ÉÒÔ¶Áȡÿ¸öQQȺÀïÃæµÄËùÓгÉÔ±ÁÐ±í£¬¾ÍÊÇ˵£¬Ò»¸öQQȺÀïÃæÓÐÒ»°Ù¶à¸öÈË£¬¾ÍÄܽ«ÕâÒ»°Ù¶à¸öÈ˵ÄQQºÅÂëÈ«²¿¶ÁÈ¡³öÀ´
3¡¢¿ÉÒÔ½«ÉÏÃæÁ½µãµÄÊý¾Ýµ¼³öµ½EXCEL»òÕßSQLÊý¾Ý¿âÀïÃæÈ¥£¡
Èç¹ûÓÐÄÄλÅóÓÑ×ö¹ýÀàË ......
ÓÃ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ÖеÄÊý¾Ý½øÐб༣¬ÐÂÔöÐУ¬É¾³ýÐеȵȲÙ×÷£¬Íê³ÉÖ®ºóµã»÷ÁíÍâÒ ......