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;
---- ÒÔÉϹý³Ì°üº¬Îå¸ö²ÎÊý£¬ÊµÏÖ´ÓÒ³ÃæÖеÄһϵÁб༿
Ïà¹ØÎĵµ£º
ÖØÔØ CreateParams ·½·¨¼´¿É
ÉùÃ÷£º
procedure CreateParams(var Params: TCreateParams);override;
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WndParent := 0;
end; ......
XMLÎļþ
<?xml version="1.0" encoding="utf-8"?>
.......
ÒòΪÔÒòºÜ¶à£¬ËùÒÔÕâ¸ö·½·¨²»Ò»¶¨Äܽâ¾öÎÊÌâ
XMLDocument1.LoadfromFile('test.XML');
XMLDocument1.Active:=TRUE;
XMLDocument1.Encoding:='gb2312';
memo1.Text:=XMLDocument1.XML.Text; ......
1£¬¹æ·¶¼ò½é
¡¡¡¡±¾¹æ·¶Ö÷Òª¹æ¶¨DelphiÔ´³ÌÐòÔÚÊéд¹ý³ÌÖÐËùÓ¦×ñѵĹæÔò¼°×¢ÒâÊÂÏî¡£±àд¸Ã¹æ·¶µÄÄ¿µÄÊÇʹ¹«Ë¾Èí¼þ¿ª·¢ÈËÔ±µÄÔ´´úÂëÊéдϰ¹ß±£³ÖÒ»Ö¡£ÕâÑù×ö¿ÉÒÔʹÿһ¸ö×éÔ±¶¼¿ÉÒÔÀí½âÆäËü×éÔ±µÄ´úÂ룬ÒÔ±ãÓÚÔ´´úÂëµÄ¶þ´Î¿ª·¢¼ÇÒäϵͳµÄά»¤¡£
2£¬Ò»°ã¸ñʽ¹æ·¶
2.1 Ëõ½ø
¡¡¡¡Ëõ½ø¾ÍÊÇÔÚµ±Ô´³ÌÐòµÄ¼¶¸Ä±äʱΪÔö¼ ......
Ë÷ÒýÊÇitemindex
itemÊÇÀïÃæµÄÄÚÈÝ
Ë÷ÒýµÄ»°£¬ÊÇ´Ó0¿ªÊ¼
item itemindex
A 1
B 2
C 3
listbox1.items.count¾ÍÊÇÕâ¸öÁбí¿òÀï×ܹ²ÓжàÉÙÏî. ......
±¾ÊéÈÚºÏÁËÔÚWindowsÏÂÀûÓÃDelphi 7.0¿ª·¢Ó¦ÓóÌÐòµÄÀíÂÛºÍʵ¼ù£¬È«Ãæ¶øÉîÈëµØ½éÉÜÁËÀûÓÃDelphi 7.0¿ª·¢Ó¦ÓóÌÐòµÄ³£Ó÷½·¨ºÍ¼¼ÇÉ¡£ÄÚÈݰüÀ¨Óû§½çÃæÉè¼Æ¡¢Í¼ÐÎͼÏñ±à³Ì¡¢Îļþ¹ÜÀí¡¢¶àýÌå¼¼Êõ¡¢ÏµÍ³¿ØÖÆ¡¢ÍøÂçºÍÊý¾Ý¿â±à³ÌÒÔ¼°ÓÎÏ·ÖÆ×÷µÈÄÚÈÝ¡£ ÏêϸÔĶÁÍ»ÆÆDelphi 7.0±à³ÌʵÀýÎåÊ®½²£¬À´×ÔITµç×ÓͼÊé¹Ý ......