³ -- /. Master Source Master Fields ᑺ ADOTable.
1) ᑺ ADOTable Master Source Data Source 瑺 ᑺ ADOTable. , ᑺ ADOTable Master Source .
2) Master Fields ᑺ ADOTable , ᑺ . Master Fields . , . IndexFieldName IndexName.
3) TDBGrid .
4) TDBNavigator.
1) Delphi ?
2) () ?
3) ?
4) Delphi ?
2
: . .
: TADOTable Delphi.
:
1. :
¾ ;
¾ , ;
¾ ;
¾ ancel.
2. 䳿:
¾ ;
¾ ;
¾ .
- . :
a) ( );
b) ;
c) - ;
d) Cancel.
() , .
(Field Editor) , ᑺ ADOTable. : AddFields, NewField AllFields, . . ᑺ . ᑺ. Add Field ᑺ ADOTable . , .
|
|
1:
1) "__", " " _. ᑺ :
ADOConnection1- ᑺ 䑺 ; ADOTable1, ADOTable2 - : , __; DataSource1, DataSource2 - 䑺 ;DBLookupComboBox1- " "; DBEdit1, DBEdit2, DBEdit3, DBEdit4, DBEdit5 - : ϲ, ³, , , .
DBNavigator1 - "__";
DBGrid1 - "__";
2) ADOConnection, ADOTable, DataSource : " " "__".
3) " ". ᒺ DBLookupComboBox1 : DataSource DataSource2, ListSource DataSource1, " ", KeyField - _, ListField , DataField _.
4) DBEdit1, DBEdit2, DBEdit3, DBEdit4, DBEdit5 DataSource DataSource2, DataField ϲ, ³, , , .
5) ϳ DBNavigator1 DBGrid1.
6) . 3.
5. "__"
2: DBGrid.
1) "_", "볺" 볺. ᑺ :
ADOConnection1- ᑺ 䑺 ; ADOTable1, ADOTable2 - : "볺", "_" ; DataSource1, DataSource2 - 䑺 ; DBNavigator1 - "_";
DBGrid1 - "_".
DBGrid1 ( 5) , DataSet - ADOTable2.
, , Lookup ᑺ ADOTable2. ADOTable2.Active False, . , , . ϳ , New Field. ³ 4.
6.
:
Name - ( 볺);
Type - (String);
|
|
Field type (Lookup);
Key Fields , ( ).
Dataset , (ADOTable1);
Lookup Keys ;
Result Field , .
ϳ , , Active ADOTable2 True 䑺 ᑺ ADOTable2 ᑺ DBGrid1. 5.
7. ᑺ DBGrid
(b) .
Delphi Mask Editor . , Mask Editor EditMask ᑺ TField ( , ). Mask Editor , . , Default.
(d) Cancel.
, , , , . : 4 , 0.
ADOTable1, DataSource1, Edit1, Button1. Button1. , . :
Procedure TForm1.Button1.Click (Sender: TObject);
Begin
Table1.Edit;
While not (EOF) do
If StrtoInt (Edit1.text) <0 then
Table1.Fields[4]. AsInt:= strtoInt (Edit1.text);
Table1.Post
Else
Begin
Application.MessageBox (" ", , MB_OK);
Table1.Cancel;
End;
End;