Wolfgang Chien's Homepage | Delphi¾Ç²ßµ§°O - °Ýµª½g |
§Ún¦b form1 ¤Î form2 ¤¤ "¦P®É" ¨Ï¥Î "¦P¤@Ó" dbf ÀÉ,¨º§Ú¬OÀ³¸Ó¦b form1 ¤Î form2 ¤¤¦U«Ø¥ß¤@Ó table ©Î¥u¶·¦b¨ä¤¤¤@Ó form ¤¤«Ø¥ß©O ?
¥HÓ¤HªºÆ[ÂI, ¨âÓ Form ¦P®É¦@¥Î¤@Ó¸ê®Æ®w, ¥u¦b¸û¥ý¶}¥X¨Óªº¨ºÓ form ¤¤¶}±Ò¸ê®Æ®w¬OÓ¦n¥D·N, ²z¥Ñ¦³¨âÂI:
![]() |
1. ¤£ºÞ¦bþ¤@Ó form ¤¤¾Þ§@¸ê®Æ®w, ¥t¤@Ó form ¤Wªº data-aware ¤¸¥ó§¡¬°¦P¨B¹ï¸Ó¶µ¾Þ§@¦³©Ò¤ÏÀ³,¥H user ªºÆ[ÂI¨Ó»¡¤ñ¸û¦ÛµM |
![]() |
2. ¹ï©ó¸ê®Æ®w¸ê®Æªºªì©lȳ]©w©Î¿é¤J¸ê®Æªº¥¿½T©ÊÀËÅç SetRange, Data Stateªº§PÂ_µ¥µ¥¾Þ§@, ¦pªG²Î¤@¦b¦PÓ¦a¤èºÞ²z, ·§©À»P§@ªk¤W³£¤ñ¸û²¼ä |
¦pªG±z¨ºùئw¸Ë Delphi ®É¤]¤@¨Ö¦w¸Ë¨ä½d¨Ò¸ê®Æ®wªº¸Ü, ±z¥i¥H°Ñ¦Ò¤@¤U³oÓ²³æªº¨Ò¤l:
![]() |
1. ·s¶}¤@Ó project |
![]() |
2. ¦b form1 ¤¤¦w¸m Table, DataSource, DBGrid, Button¤¸¥ó¦U¤@ |
![]() |
3. with Table1: set DatabaseName = DBDEMOS set TableName = ANIMALS.DBF Set DataSource1.DataSet = Table1 Set DBGrid1.DataSource = Datasource1 |
![]() |
4. ¦b Form1 ªº OnCreate ¨Æ¥ó¥[¤Jµ{¦¡:
Table1.Open; |
![]() |
5. File | New Form ·s¶}¤@Ó Form2, ¨Ã¦b form2 ¤¤¦w¸m
DBGrid, DBNavigator ¦U¤@ |
![]() |
6. ¦b form2 ªº OnCreate ¨Æ¥ó¥[¤Jµ{¦¡:
DBGrid1.DataSource := Form1.DataSource1; DBNavigator1.DataSource := Form1.DataSource1; |
![]() |
7. ¦b Unit2 ªº implementation ³¡¤À¥[¤Jµ{¦¡:
uses Unit1; |
![]() |
11. ¦^¨ì³æ¤¸ Unit1, ¦b interface ªº uses z¥y¤¤ªþ ¥[¤W Unit2; |
![]() |
12. ¬° Form1 ªº Button1 ¼¶¼g OnClick ¨Æ¥ó³B²zµ{¦¡:
Form2.Show; |
![]() |
13. ¦sÀÉ, ¨âÓ Form ¦U¥H unit1, Unit2 ¬°¥DÀɦW |
![]() |
14. °õ¦æ³oÓµ{¦¡ |
µù°O: ¦b Delphi 2.0 ¤¤¦³¤@Ó¥s°µ Data Module ªº¾÷¨î, «Ü¾A¦X§@¸ê®Æªº¶°¤¤ºÞ²z
º¶ | ¾Ç²ßµ§°O | ¥DÃD¤½¶é | ³nÅé¤U¸ü | Ãö©ó¥»¯¸ | °Q½×«H¸s | ¬Û¬ù¤U¦¸ |