DelphiÊý¾Ý¿â±à³ÌÒ»ÈÕͨ
DelphiÊý¾Ý¿â±à³ÌÒ»ÈÕͨ¡£
¡¡¡¡Í¨³£Çé¿öÏ£¬ÀûÓà Delphi ¿ª·¢Êý¾Ý¿âÓ¦ÓóÌÐò£¬¿ÉÒÔʹÓÃTTable¡¢TDataSource¡¢TDBEdit¡¢TDBNavigatorµÈ¹¹¼þ¡£Ö»ÒªÕýÈ·ÉèÖÃÁ˹¹¼þµÄijЩÊôÐÔ£¬ÔÙ±àд±ØÒªµÄ³ÌÐò´úÂë¶ÔһЩÌض¨Ê¼þ½øÐд¦Àí£¬¾ÍÄܹ»Íê³É¶Ô¶àÖÖÊý¾Ý¿â½øÐеÄÊý¾Ý´¦Àí£¬ÀýÈ磺¼Ç¼µÄÊäÈë¡¢Ð޸ġ¢É¾³ýºÍ²éѯµÈ¡£ÕâÑù×öËäȻֻÐèÒª±àд¼«ÉÙÁ¿µÄ³ÌÐò´úÂë¾ÍÄÜ´ïµ½ºÜºÃµÄЧ¹û£¬µ«Èç¹ûÔÚ³ÌÐòÉè¼Æ¹ý³ÌÖУ¬Ä³Ð©Êý¾Ý±íµÄ½á¹¹·¢ÉúÁ˸ı䣬Ôò±ØÐëÐÞ¸ÄÓë´ËÊý¾Ý±íÓйصÄËùÓй¹¼þµÄÊôÐÔ£¬Õ⽫ʹ³ÌÐòÔ±ÏÝÈë·±ËöµÄÖظ´ÀͶ¯ÖС£
Ê×ÏÈÀ´½éÉÜһЩ²éѯ¼¼ÇÉ
DelphiÖÐʵÏÖ¶àÏß³Ìͬ²½²éѯ
---- Ϊ±ÜÃâÉÏÊöµÄÂé·³£¬ÎÒÃÇ¿ÉÒÔÔÚ±àдÍøÂçÊý¾Ý¿âÓ¦ÓóÌÐòʱ²ÉÓýṹ»¯²éѯÓïÑÔ SQL(Structured Query Language)£¬ÕâÑù²»½ö¿ÉÒÔ¸ü·½±ãµØÓëÖîÈç SQL Server¡¢Oracle µÈ¸÷ÖÖºǫ́Êý¾Ý¿â½øÐж¯Ì¬µÄÊý¾Ý½»»»£¬¶øÇÒ¿ÉÒÔʹ³ÌÐòµÄÐ޸ĺÍÒÆÖ²¸ü¼ÓÁé»î¡£ÎÒÃÇÒÔÊý¾ÝÊäÈëÄ£¿éΪÀý£¬ËµÃ÷¿ª·¢¿Í»§·þÎñÆ÷Ó¦ÓóÌÐòʱÈçºÎ²ÉÓà SQL Óï¾äʵÏÖÊý¾Ý´¦Àí¹¦ÄÜ¡£Ê×ÏÈ£¬ÅжÏÊÇ·ñÒѾÓÐÊÂÎñ´¦Àí³ÌÐòÔÚÔËÐУ¬Èç¹ûÓУ¬½«Æä»Ø¾í(rollback)£»Èç¹ûûÓУ¬ÔòÆô¶¯Ò»¸öеÄÊÂÎñ£¬ÎªÊý¾ÝµÄ×îÖÕ´¦Àí×ö×¼±¸¡£Æä´Î£¬ÊÇÉèÖà SQL Óï¾ä£¬²¢½«ÆäдÈë TQuery ¹¹¼þÖС£×îºó£¬½«ÊÂÎñÌá½»»ò»Ø¾í£¬ÖÁ´ËÍê³ÉÒ»Ìõ¼Ç¼µÄÊý¾ÝÊäÈë¡£
---- ÏÂÃæÊÇÒÔÒ³ÃæÖÐµÄ TEdit ÀàÐͱ༿òÄÚÈÝ×÷ΪÊý¾ÝÔ´£¬ÏòÊý¾Ý¿âÊäÈë¼Ç¼µÄ¹ý³Ì´úÂ룺
procedure DataInsert(const qName:TQuery;
szDBName:string;iNum:Integer;
iMark:array of Integer;eName:array of TEdit);
var
i : Integer;
szSQL : string;
begin
if DataModule1.DataBase1.InTransaction=true then
DataModule1.DataBase1.RollBack;
DataModule1.DataBase1.StartTransaction;
szSQL := 'INSERT INTO '+szDBName+' VALUES('
for i:=0 to iNum-1 do
begin
if iMark[i]=0 then
szSQL := szSQL+eName[i].Text {·Ç×Ö·û·½Ê½}
else
szSQL := szSQL+'"'+eName[i].Text+'"'; {×Ö·û·½Ê½}
if i=iNum-1 then
szSQL := szSQL+')'
else
szSQL := szSQL+',';
end;
qName.Close; {¹Ø±Õ²éѯ}
qName.SQL.Clear; {ÇåSQLÌØÐÔÄÚÈÝ}
qName.SQL.ADD(szSQL); {Ìí¼ÓSQLÄÚÈÝ}
szSQL := 'SELECT * from '+szDBName;
qName.SQL.ADD(szSQL);
qName.Open; {·µ»Ø½á¹û¼¯}
DataModule1.DataBase1.Commit;
end;
---- ÒÔÉϹý³Ì°üº¬Îå¸ö²ÎÊý£¬ÊµÏÖ´ÓÒ³ÃæÖеÄһϵÁб༿
Ïà¹ØÎĵµ£º
Delphiͨ¹ýÏòµ¼¿ÉÒԷdz£Ñ¸Ëٺͷ½±ãµÄÖ±½Ó½¨Á¢ÊµÏÖCOM¶ÔÏóµÄ´úÂ룬µ«ÊÇÕû¸öCOMʵÏֵĹý³Ì±»ÍêÈ«µÄ·â×°£¬ÉõÖÁûÓÐVCLÄÇô½á¹¹ÇåÎú¿É¼û¡£Ò»¸öûÓÐC++ÏÂCOM¿ª·¢¾ÑéÉõÖÁûÓнӴ¥¹ýCOM¿ª·¢µÄDelphi³ÌÐòÔ±£¬Ò²Äܹ»ºÜÈÝÒ׵İ´Õս̳ÌÉè¼ÆÒ»¸ö½Ó¿Ú£¬µ«ÊÇ£¬¿ÖÅÂÉîÈëÒ»Ï룬Á¬Éú³ÉµÄ´úÂë´ú±íºÎÖÖÒâÒ壬ÄÄЩÄܹ»¶¨Öƶ¼²»Çå³þ¡£Ç°¼¸ÆÚ &ld ......
1.SHIFT+Êó±ê×ó¼ü ÏÈÑ¡ÖÐÈÎÒ»¿Ø¼þ,°´¼üºó¿ÉÑ¡Öд°Ìå(Ñ¡Öпؼþºó°´EscЧ¹ûÒ»Ñù)
2.Shift+F8 µ÷ÊÔʱµ¯³öCPU´°¿Ú¡£
3.Shift+F10 µÈÓÚÊó±êÓÒ¼ü£¨Windows¿ì½Ý¼ ......
Ä¿Ç°¿ª·¢ÆåÅÆÀàÓÎÏ·µÄ¹«Ë¾ºÍ¸öÈ˺ܶࡣµ«ÊǶÔÓںܶ࿪·¢ÕßÀ´Ëµ£¬¿ª·¢Ò»¿î¾ßÓпÉÀ©Õ¹¡¢Îȶ¨µÄÆåÅÆÀàÓÎÏ·»¹ÊǾßÓÐÒ»¶¨µÄÄѶȡ£Õâ´ÎÎÒ¾ÍÒÔÎÒ¿ª·¢ÆåÅÆÀàÓÎϷΪÀý£¬½²ÊöÈçºÎʹÓÃDELPHIÀ´¿ª·¢ÆåÅÆÀàÓÎÏ·¡£Ï£ÍûÎҵľÑé¿ÉÒÔ¶ÔÓÎÏ·¿ª·¢°®ºÃÕßÆðµ½Å×שÒýÓñµÄ×÷Óá£Èç¹ûÄú¶ÔÎÒ»ù´¡ÆªÖÐÉæ¼°µ½µÄÄÚÈݷdz£ÊìϤ£¬¿ÉÒÔÖ±½ÓÌø¹ý½øÈëÉè¼Æƪ¡£ ......
±¾ÊéÈÚºÏÁËÔÚWindowsÏÂÀûÓÃDelphi 7.0¿ª·¢Ó¦ÓóÌÐòµÄÀíÂÛºÍʵ¼ù£¬È«Ãæ¶øÉîÈëµØ½éÉÜÁËÀûÓÃDelphi 7.0¿ª·¢Ó¦ÓóÌÐòµÄ³£Ó÷½·¨ºÍ¼¼ÇÉ¡£ÄÚÈÝ°üÀ¨Óû§½çÃæÉè¼Æ¡¢Í¼ÐÎͼÏñ±à³Ì¡¢Îļþ¹ÜÀí¡¢¶àýÌå¼¼Êõ¡¢ÏµÍ³¿ØÖÆ¡¢ÍøÂçºÍÊý¾Ý¿â±à³ÌÒÔ¼°ÓÎÏ·ÖÆ×÷µÈÄÚÈÝ¡£ ÏêϸÔĶÁÍ»ÆÆDelphi 7.0±à³ÌʵÀýÎåÊ®½²£¬À´×ÔITµç×ÓͼÊé¹Ý ......