Database °æ (¾«»ªÇø)

·¢ÐÅÈË: yunguo (liuliu), ÐÅÇø: Database
±ê  Ìâ: »ùÓÚdelphiµÄÊý¾Ý¿â¹ÜÀíϵͳµÄ¿ª·¢
·¢ÐÅÕ¾: ×Ï ¶¡ Ïã (Thu Oct  1 12:03:12 1998), ×ªÐÅ

×÷ÕߣºÁºÐËçù 


¡¡¡¡ÕªÒª: ±¾ÎÄ·ÖÎöÁËdelphiµÄ»ù±¾Ìصã,ÃèÊöÁËÓàdelphi¿ª·¢Êý¾Ý¿â¹ÜÀíϵͳµÄ·½·¨ºÍ²½Öè,Ìá³öÁËһЩdelphi±à³Ì¼¼ÇÉ 

¡¡¡¡¹Ø¼ü´Ê: ¿Ø¼þ ¿ÉÊÓ»¯ µ¥Ôª Êý¾Ý¿âÒýÇæ 

¡¡¡¡ Ò».Òý ÑÔ 

¡¡¡¡Êý¾Ý¿â¹ÜÀíϵͳµÄÓ¦ÓÃÊǼÆËã»úÓ¦ÓÃÁìÓòµÄÒ»¸öÖØÒª·ÖÖ§¡£ ±¾ÈËÔø¶à´Î²Î¼ÓÊý¾Ý¿â¹ÜÀíϵͳµÄ¿ª·¢,ʹÓõĿª·¢¹¤¾ß´ÓÔçÆÚµÄDbase ¡¢ Foxbase ¡¢ Foxpro, µ½Ä¿Ç°±È½ÏÁ÷ÐеÄVisual Basic(ÒÔϼò³ÆVB)ºÍdelphi¡£VBÊÇÒ»ÖÖ¸ßЧµÄ¿ÉÊÓ»¯³ÌÐòÉè¼ÆÓïÑÔ , 
ËüµÄ³öÏÖʹDbase¡¢Foxbase¡¢Foxpro÷öȻʧɫ,ʹ¿ª·¢Windows ÏµÄÓ¦ÓÃÈí¼þÒÔ¼°Êý¾Ý¿âÓ¦ÓÃÈí¼þ±äµÃ·Ç³£ÈÝÒ×,ΪÄÇЩÐÄ»ÒÒâÀäµÄ³ÌÐòÉè¼ÆÈËÔ±ÖØеãȼÁËÏ£ÍûÖ®»ð¡£µ±ÈËÃÇÕýÔÚ½»¿Ú³ÆÔÞVBµÄʱºò,Borland¹«Ë¾µÄdelphi³öÏÖÁË¡£Õ§Ò»¿´,delphiÓëVBÊ®·ÖÏàËÆ, 
¿ÉÊÇÔÚʹÓùý³ÌÖÐÎÒÃǸе½delphiµÄÐÔÄܱÈVBÃ÷ÏÔÔöÇ¿¡£Ê×ÏÈdelphiÊÇÒ»¸öÕæ±àÒëϵͳ,¶øVB²»ÄÜÕæ±àÒë, ²ÉÓÃÁËα±àÒëµÄ´¦Àí·½Ê½,Òò´ËÓÃdelphi¿ª·¢µÄÓ¦ÓÃÈí¼þ±ÈÓÃVB¿ª·¢µÄÓ¦ÓÃÈí¼þÓÐ×Å10ÖÁ20±¶µÄËÙ¶ÈÐÔÄÜÓÅÊÆ;Æä´Î, delphi ÓÅ»¯Á˶ÔÊý¾Ý¿âµÄ²Ù×÷ , °üÀ¨Á˹㷺µÄÊý¾Ý¿âÖ§³Ö , 
ÌṩÁË Database Engine(Êý¾Ý¿âÒýÇæ),ËüʹµÃSQLÓïÑÔ¸üΪÓÐЧ¡¢¿ìËÙ, ¶ÔÍøÂçÊý¾Ý¿âµÄ²Ù×÷Ò²´ó´ó¼Ó¿ì¡£ÁíÍâ,delphi»¹ÓÐÐí¶àVB²»¾ßÓеÄÔöÇ¿¹¦ÄÜ¡£×î½ü,±¾ÈËÓÃdelphi ¿ª·¢ÁËÒ»Ì×ÀÍÎñÊä³öÈËÔ±¹ÜÀíϵͳ,ÏÂÃæ¾Í¸Ãϵͳ̸һ̸ÓÃdelphi¿ª·¢Êý¾Ý¿â¹ÜÀíϵͳµÄ¾­Ñé¡£ 

¡¡¡¡ ¶þ.delphiµÄ»ù±¾ÖªÊ¶ 

¡¡¡¡1. delphiÖеĵ¥Ôª¸ÅÄî 

¡¡¡¡ÏÖ´ú³ÌÐòÉè¼Æ·½·¨(½á¹¹»¯³ÌÐòÉè¼Æ·½·¨ºÍÃæÏò¶ÔÏóµÄ³ÌÐòÉè¼Æ·½·¨) ÒªÇó½«Ò»¸ö´óµÄÈí¼þ·ÖΪÈô¸É¸ö×é³É²¿·Ö,²¢·Ö±ðʵÏÖËü¡£´ÓÕâÖÖÔ­Àí³ö·¢,delphiÔÚ×Ô¼ºµÄObject Pascal°æ±¾Öй㷺µÄʹÓÃÁË"µ¥Ôª"¡£ÔÚdelphiÖÐ,ÿһ¸ö´°¿Ú¶¼ÓµÓÐÒ»¸öµ¥Ôª, 
ÀûÓõ¥Ôª¿ÉÒÔ½«Ò»¸ö´ó³ÌÐò·Ö³ÉÈô¸É¸öÄ£¿é¡£ 

¡¡¡¡2. Êý¾Ý¿âÒýÇæBDE(Borland Database Engine) 

¡¡¡¡ÔÚDelphi³ÌÐò×éÖÐÓÐÒ»¸öBDE Configuration,¿ÉÒÔÓÃËüÀ´¶ÔÊý¾Ý¿âÒýÇæ½øÐÐÉèÖᣠËü°üº¬ÓÐDrivers,Aliases,System,Date,Time,NumberÁù¸ö²»Í¬µÄ±ê¼ÇÒ³,ËüÃǶ¼Ê®·ÖÖØÒª,ÀýÈç,ÔÚDriversÖÐ,Drive 
NameÀïÃæÁгöÁËÔÚDelphiÖпÉÒÔʹÓõÄÊý¾Ý¿âÖÖÀàµÄÃû×Ö¡£DelphiËùÖ§³ÖµÄÊý¾Ý¿âÊ®·Ö¹ã·º,Èçaccess¡¢dbase¡¢paradox¡¢foxproµÈ¡£¶ÔÓÚÄÇЩÔÚDrive NameÖÐûÓгöÏÖµÄÊý¾Ý¿â , Ö»ÐèҪͨ¹ý ODBC ÏàÁ¬½Ó°ÕÁË¡£ 
¶ÔÓÚÉè¼ÆÖÐÎÄÈí¼þµÄ³ÌÐòÔ±À´Ëµ,DriversÖÐParametersµÄÉèÖÃÓÈΪÖØÒª,Ö»Òª½«ËüµÄLANGDRIVERÉèÖÃΪdBASECHScp936¼´¿É¡£ 

¡¡¡¡ Èý.ÀÍÎñÊä³öÈËÔ±¹ÜÀíϵͳ 

¡¡¡¡1.½¨Á¢ÀÍÎñÊä³öÈËÔ±Êý¾Ý¿â(LWSC.dbf) 

¡¡¡¡ ÔÚdelphiÖÐ,½¨Á¢Ò»¸öÊý¾Ý¿âÖ÷ÒªÓжþÖÖ·½Ê½:Ò»ÊÇÀûÓÃDatabase DesktopµÄ¼¯³É»·¾³,¶þÊÇÀûÓÃTable¿Ø¼þÔÚ³ÌÐòÖн¨Á¢Êý¾Ý¿â¡£±¾ÏµÍ³ÀûÓõÚÒ»ÖÖ·½Ê½¡£ÔÚDatabase 
DesktopµÄ¼¯³É»·¾³ÖÐ,Ñ¡ÔñFile²Ëµ¥ÏµÄNew×Ӳ˵¥,´ÓÖÐÑ¡È¡TableÃüÁî,¼´¿É½¨Á¢ÀÍÎñÊä³öÈËÔ±Êý¾Ý¿âLWSC.dbf¡£ÖµµÃÇ¿µ÷µÄÊÇÊý¾Ý¿âµÄTable Properties,Ëü°üº¬Á½Ïî : indexes ºÍ Table 
Language¡£ÆäÖÐIndexesÓÃÀ´ÉèÖÃÊý¾Ý¿âµÄË÷Òý¡£ÓÐÒ»µãҪעÒâ,ʹÓÃSetkey...Gotokeg²éÕÒÓÐÒ»¸öÌõ¼þ,¾ÍÊDzéÕÒµÄ×ֶαØÐëÒѾ­½¨Á¢ÁËË÷Òý;¶øTable Language 
ÓÃÀ´ÉèÖÃÊý¾Ý¿âʹÓõÄÓïÑÔ×Ö·û¼¯¡£¶ÔÓÚ±¾ÏµÍ³ÎÒÃǽ«ÐÕÃû¡¢³öÉúÄêÔ¡¢³ö¹úÈÕÆÚ¡¢Ö°³ÆµÈ×ֶν¨Á¢ÁËË÷Òý,Ñ¡ÔñdBASECHScp936(¼òÌ庺×Ö×Ö·û¼¯)ΪÊý¾Ý¿âµÄÓïÑÔ×Ö·û¼¯¡£ 

¡¡¡¡2.Ö÷´°¿ÚµÄÉè¼Æ 

¡¡¡¡Ö÷´°¿ÚÊDZ¾ÏµÍ³µÄºËÐÄ´°¿Ú,ËüÊÇÔÚ´°¿ÚForml»ù´¡ÉϽ¨Á¢µÄ¡£´°¿ÚFormlµÄÊôÐÔÈç±í1: 

ÊôÐÔ ×ÓÊôÐÔ Öµ 
left ¡¡ 178 
Top ¡¡ 86 
width ¡¡ 430 
Height ¡¡ 336 
Caption ¡¡ ÀÍÎñÊä³öÈËÔ±¹ÜÀíϵͳ 
Font color clwindowtext 
¡¡ Height -13 
¡¡ Name  system 
¡¡ Style ¡²¡³  
position ¡¡ poscreenCerter 
Windowstate ¡¡ wsMaximized 
Menu ¡¡ MainMenu1 



¡¡¡¡ÆäÖв˵¥¿Ø¼þMainMenuλÓÚStandard±ê¼ÇÒ³ÉÏ,ÔÚForm1ÖзÅÖÃÕâ¸ö¿Ø¼þ¡£ÔÚMainMenu1¿Ø¼þµÄÊôÐÔÉèÖñê¼ÇÒ³ÖÐ,ItemsÊôÐÔÊÇÓÃÀ´ÉèÖò˵¥Öеĸ÷²Ëµ¥ÏîµÄ,°´Ï¸ÃÏî, 
¾Í»á´ò¿ªÒ»¸ö±êÌâΪForm1.MainMenu1µÄ´°¿Ú,Ôڸô°¿ÚÖÐÓÐÒ»¸öÀ¶É«ÇÒÄÚ²¿ÓÐÐéÏߵĿòÔڲ˵¥À¸ÉÏ,´ËʱÔÚÐéÏß¿òÉϼ´¿ÉÉèÖò˵¥Ïî¡£±¾ÏµÍ³µÄ²Ëµ¥Èç±í2: 

ÔöÌí ÐÞ ¸Ä É¾ ³ý ²é ÕÒ ´ò Ó¡ Í³ ¼Æ Ïµ Í³ 
×·¼Ó
²åÈë ¸ù¾ÝÐÕÃû
³ö¹úÈÕÆÚ
¼¼ÊõÖÖÀà
Ö° ³Æ ¸ù¾ÝÐÕÃû
³ö¹úÈÕÆÚ
ºÏͬÆÚÏÞ
¹úÄÚµ¥Î»
¹úÍⵥλ
¼¼ÊõÖÖÀà
Ö° ³Æ ¸ù¾ÝÐÕÃû
³ö¹úÈÕÆÚ
³ö¹úÈÕÆÚ
¹úÄÚµ¥Î»
¹úÍⵥλ
¼¼ÊõÖÖÀà
Ö° ³Æ ¸ö±ð´òÓ¡
ÅúÁ¿´òÓ¡
ÏԠʾ Í³¼ÆÊý¾Ý
ͳ¼Æ±¨±í ÏµÍ³ÐÅÏ¢
¿ÚÁîÉèÖÃ
ÍË ³ö 
¡¡¡¡ 

´°¿ÚForm2µÄÊôÐÔ (±í3) ÊôÐÔ ×ÓÊôÐÔ Öµ  
left ¡¡ 140 
top ¡¡ 125 
borderIcons ¡¡ ¡²biMinimize, 
biMaximize¡³ 
¡¡ ¡¡ bsdialog 
borderstyle ¡¡ ÊäÈëÌáʾ 
Caption color clwindowText 
Font Height -11 
¡¡ Name system 
¡¡ Style ¡²¡³ 


Form2ÖÐLabel1µÄÊôÐÔ(±í4) ÊôÐÔ Öµ 
Caption  ÊäÈë²éÕÒÐÕÃû 


08209t05

Form2ÖÐEditlµÄÊôÐÔ(±í5) ÊôÐÔ  Öµ 
text ¿Õ 
Taborder 0 





Form2ÖÐÆäËü¿Ø¼þµÄÊôÐÔ(±í6) °´Å¥Ãû ÊôÐÔ Öµ  
BitBtn1  Caption È·ÈÏ 
¡¡ Style bsNew 
BitBtn2 Caption  ²éÏÂÒ»¸ö 
¡¡ Style  bsNew 
BitBtn3 Caption ¹Ø±Õ  
¡¡ Style  bsNew  

¡¡

Form3Öа´Å¥ºÍÊý¾Ý¿Ø¼þµÄÊôÐÔ(±í7) ¿Ø¼þÃû ÊôÐÔ  Öµ 
BitBtn1 Caption ¹Ø±Õ 
¡¡ kind  bkclose 
¡¡ Style bsNew  
Table1 DatabaseName C:\asd 
¡¡ IndexName ÐÕÃû  
¡¡ TableName LWSC.DBF 
¡¡ TableType ttDbase 
DataSource1 Dataset table1 

¡¡

´°¿ÚForm3µÄÊôÐÔ(±í8)  ÊôÐÔ ×ÓÊôÐÔ Öµ 
left ¡¡ 60 
Top ¡¡ 40 
Borderstyle ¡¡ bsdialog 
Caption ¡¡ °´ÐÕÃû²éѯµÄ¼Ç¼ 
clientHeight ¡¡ 420 
clientwidth ¡¡ 530  
Font Color clwindowText 
¡¡ Height -11 
¡¡ Name System 
¡¡ Style ¡²¡³ 


¡¡¡¡3. ²Ëµ¥ÏîµÄ³ÌÐòÉè¼ÆºÍ×Ó´°¿ÚµÄ½¨Á¢ 

¡¡¡¡µ±Ö÷´°¿Ú¼°Ö÷²Ëµ¥Éè¼ÆÍê³Éºó,¾Í¿ªÊ¼×ÅÊÖ½øÐв˵¥ÏîµÄ³ÌÐòÉè¼ÆºÍ½¨Á¢ËüÃÇËù¶ÔÓ¦µÄ×Ó´°¿Ú¡£ÀýÈç,¶ÔÓÚ²éÕÒ--ÐÕÃû²Ëµ¥Ïî,¶ÔÓ¦µÄ×Ó´°¿ÚÓÐ2¸ö,ΪForm2¡¢Form3,ÕâÁ½¸ö´°¿ÚÒÔ¼°ËüÃÇÀïÃæ¿Ø¼þµÄÊôÐÔÈçÏÂ: 

¡¡¡¡ 
²Ëµ¥Ïî²éÕÒ--ÐÕÃûËù¶ÔÓ¦µÄ×Ó´°¿ÚÒÔ¼°×Ó´°¿ÚÀïÃæµÄ¿Ø¼þÉè¼ÆÍê³Éºó,±ã¿É½øÐÐËüÃǵijÌÐòÉè¼Æ¡£´ò¿ªÖ÷´°¿Ú,½«Êó±êÖ¸ÕëÖ¸Ïò²Ëµ¥²éÕÒ--ÐÕÃû,Ë«»÷¸Ã²Ëµ¥Ïî,±ã¿É½øÈë¸ÃÏîµÄ³ÌÐòÉè¼Æ,¶ÔÓÚÆäËü¿Ø¼þµÄ³ÌÐòÉè¼Æ,¶¼¿É²ÉÓÃÕâÖÖ·½Ê½¡£ÏÞÓÚƪ·ù,ÏÂÃæ½ö¸ø³öÓйزéÕÒ--ÐÕÃû²Ëµ¥ÏîµÄ²¿·ÖÔ´³ÌÐò¡
£µ¥ÔªÎļþLwdy2.pasÔ´³ÌÐòÈçÏÂ: 

¡¡¡¡unit Lwdy2; 

¡¡¡¡interface 

¡¡¡¡uses 

¡¡¡¡ SysUtils,WinTypes,WinProcs,Messages,Classes,Buttons,Graphics, 

¡¡¡¡ Controls,Forms,Dialogs,ExtCtrls,StdCtrls,Lwdy3; 

¡¡¡¡Type 

¡¡¡¡ TForm2=class(TForm) 

¡¡¡¡ Label1: TLabel; 

¡¡¡¡ Edit1: TEdit; 

¡¡¡¡ BitBtn1:TBitBtn; 

¡¡¡¡ BitBtn2:TBitBtn; 

¡¡¡¡ BitBtn3:TBitBtn; 

¡¡¡¡ procedure BitBtn1click(Sender: TObject); 

¡¡¡¡ procedure BitBtn2click(Sender: TObject); 

¡¡¡¡ private 

¡¡¡¡ { private declaration} 

¡¡¡¡ public 

¡¡¡¡ { public declaration} 

¡¡¡¡ end; 

¡¡¡¡var 

¡¡¡¡ Form2: TForm2; 

¡¡¡¡implementation 

¡¡¡¡ {$R *.DFM} 

¡¡¡¡procedure TForm2.BitBtn1click(Sender: TObject); 

¡¡¡¡ var 

¡¡¡¡ STRU: TForm3; 

¡¡¡¡ begin 

¡¡¡¡ STRU:= TForm3.Create(Self); 

¡¡¡¡ STRU.Table1.Open; 

¡¡¡¡ STRU.Table1.Setkey; 

¡¡¡¡ STRU.Table1.FieldByName('ÐÕÃû').AsString:=Edit1.Text; 

¡¡¡¡ if STRU.Table1.Gotokey then 

¡¡¡¡ begin 

¡¡¡¡ with STRU do 

¡¡¡¡ begin 

¡¡¡¡ Edit1.Text:= Table1.FieldByName('ÐÕÃû').AsString; 

¡¡¡¡ Edit2.Text:= Table1.FieldByName('ÐÔ±ð').AsString; 

¡¡¡¡ Edit3.Text:= Table1.FieldByName('³öÉíÄêÔÂ').AsString; 

¡¡¡¡ Edit4.Text:= Table1.FieldByName('Ãñ×å').AsString; 

¡¡¡¡ Edit5.Text:= Table1.FieldByName('ÕþÖÎÃæò').AsString; 

¡¡¡¡ Edit6.Text:= Table1.FieldByName('»é·ñ').AsString; 

¡¡¡¡ Edit7.Text:= Table1.FieldByName('¹úÄÚµ¥Î»').AsString; 

¡¡¡¡ Edit8.Text:= Table1.FieldByName('³ö¹úÈÕÆÚ').AsString; 

¡¡¡¡ Edit9.Text:= Table1.FieldByName('ºÏͬÆÚÏÞ').AsString; 

¡¡¡¡ Edit10.Text:= Table1.FieldByName('¼¼ÊõÖÖÀà').AsString; 

¡¡¡¡ Edit11.Text:= Table1.FieldByName('Ö°³Æ').AsString; 

¡¡¡¡ Edit12.Text:= Table1.FieldByName('¹úÍⵥλ').AsString; 

¡¡¡¡ Edit13.Text:= Table1.FieldByName('±¸×¢').AsString; 

¡¡¡¡ end; 

¡¡¡¡ STRU.Show; 

¡¡¡¡ end 

¡¡¡¡ else 

¡¡¡¡ begin 

¡¡¡¡ if Application.MessageBox('Î޴˼Ǽ','Ìáʾ¿ò', 

¡¡¡¡ mb_RETRYCANCEL+mb_ICONQUESTION)=IDCANCEL then 

¡¡¡¡ close; 

¡¡¡¡ end; 

¡¡¡¡ end; 

¡¡¡¡procedure TForm2.BitBtn2click(Sender: TObject); 

¡¡¡¡ var 

¡¡¡¡ STRU: TForm3; 

¡¡¡¡ begin 

¡¡¡¡ STRU:= TForm3.Create(Self); 

¡¡¡¡ STRU.Table1.Next; 

¡¡¡¡ if not STRU.Table1.Gotokey then 

¡¡¡¡ begin 

¡¡¡¡ Application.MessageBox('ûÓÐÏÂÒ»¸ö¼Ç¼','Ìáʾ¿ò', 

¡¡¡¡ mb_OK+mb_ICONSTOP); 

¡¡¡¡ STRU.Table1.close; 

¡¡¡¡ close; 

¡¡¡¡ end; 

¡¡¡¡ end; 

¡¡¡¡end. 

¡¡¡¡ ËÄ¡¢ ½á Êø Óï 

¡¡¡¡DelphiÊÇÒ»¸öÓÅÐãµÄ¿ÉÊÓ»¯Èí¼þ¿ª·¢»·¾³,¿É¹ã·ºÓ¦ÓÃÓÚϵͳÈí¼þºÍÊý¾Ý¿âµÄ¿ª·¢¡£ÊÀ½çÉÏÐí¶àÖøÃûµÄµçÄÔÔÓÖ¾¶¼½«ËüÁÐΪ×îÓÅÐãµÄ¿ª·¢Èí¼þ¡£ÎÒÃÇÏàÐŲ»¾ÃÖ®ºó,ÔÚ¶Ô WindowsÇ°¶Ë¿ª·¢¹¤¾ßµÄÑ¡ÔñÉÏ,Delphi½«»á³ÉΪ´ó²¿·ÖÈ˵ÄÊ×Ñ¡¡£ 

¡¡¡¡°²»Õ¾­¼Ã¹ÜÀí¸É²¿Ñ§Ôº 230059 

¡¡¡¡ 

¡¡¡¡ 

[Ò»¾Å¾Å°ËÄêµÚËÄÆÚ] 

--
¡ù À´Ô´:£®×Ï ¶¡ Ïã bbs.hit.edu.cn£®[FROM: jxjd.hit.edu.cn]
[°Ù±¦Ïä] [·µ»ØÊ×Ò³] [Éϼ¶Ä¿Â¼] [¸ùĿ¼] [·µ»Ø¶¥²¿] [Ë¢ÐÂ] [·µ»Ø]
Powered by KBS BBS 2.0 (http://dev.kcn.cn)
Ò³ÃæÖ´ÐÐʱ¼ä£º3.799ºÁÃë