2
, .
1. . ( Database.mdb) :
- Key1 ( );
- 30 .
2. . : , .
3. , DataModuleUnit ( ). DataSource ( TownSource) ADOTable ( TownTable). TownSource DataSet TownTable.
4. TownTable . Connection ADOConnection1, . TableName . Active True, .
5. TownTable . Key1 , .
6. TownBookUnit. TownBookForm.
7. DataModuleUnit, . File Use Unit ( ), DataModuleUnit .
8. DBGrid DataSource DataModule2.TownSource. . 3 : , .
9. OnClick :
procedure TTownBookForm.Button2Click(Sender: TObject);
begin
DataModule2.TownTable.Insert;
DBGrid1.SetFocus;
end;
Insert TownTable . SetFocus , .
10. OnClick :
procedure TTownBookForm.Button3Click(Sender: TObject);
begin
if DataModule2.TownTable.Modified then
DataModule2.TownTable.Post;
end;
, Modifies true, false. , , . Post.
11. OnClick :
procedure TTownBookForm.Button4Click(Sender: TObject);
begin
DataModule2.TownTable.Delete;
end;
Delete .
, .
12. OnClick :
|
|
procedure TTownBookForm.Button1Click(Sender: TObject);
begin
TownBookForm.Close;
end;
13. .
14. OnClick :
procedure TForm1.N4Click(Sender: TObject);
begin
TownBookForm.ShowModal;
end;
15. , , Delphi , TownBookForm TuwnBookUnit . . .
16. , . , .
. .
17. DBGrid1 Options dgEditing false.
18. , . :
- ;
- ;
- .
19. , . EditFormUnit. EditRecordForm. :
- BorderStyle bsSingle;
- Position poMainFormCenter;
20. DataModuleUnit (File Use Unit), .
21. . , .
22. , , , (, , ..).
23. , , , e-mail DBEdit DataControls. Edit, . , DataSource (DataModule2.DataSourse1), DataField , . .
24. DBCheckBox, CheckBox. , DBEdit.
25. . , . , , . , DBLookupComboBox DataControls. DataSource (DataModule2.DataSource1), (, ), DataField , .
26. DBLookupComboBox ( TComboBox). . ListSource , . DataModule2.TownSource. ListField , . KeyField , ( Key1).
|
|
27. OnClick :
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
if DataModule2.BookTable.Modified then
DataModule2.BookTable.Post;
Close;
end;
, , .
28. OnClick :
procedure TForm3.Button1Click(Sender: TObject);
begin
DataModule2.BookTable.Cancel;
end;
.
29. :
procedure TForm1.N6Click(Sender: TObject);
begin
DataModule2.BookTable.Insert;
EditRecordForm.ShowModal;
end;
. .
30. - EditRecordForm.ShowModal.
31. . . - . . . (, 3). , Key1, 3, , .
32. Access , .
.
. , .
1. :
begin
if Application.MessageBox(PChar(' '
+DataModule2.BookTableDSDesigner.AsString), '!',
MB_OKCANCEL)=id_OK then
DataModule2.BookTable.Delete;
end;
MessageBox. ( ) - DataModule2.BookTableDSDesigner.AsString. , . , DataModule. BookTable, , . , BookTableDSDesigner. ? DataModule2, BookTableDSDesigner AsString, .
. . .
2. DataModule2 BookTable. Active false. , . , . New Field. :
|
|
, Active false.
3. :
- Name Town;
- Type String ;
- Field Type Lookup ;
- Key Fields ( ) ( , );
- DataSet TownTable - , ;
- Lookup Keys Key1 -, .
- Result Field , .
4. . Town. , , . ( ).
5. BookTable ( Active true) . Town .
, , Town . BookTable, Visible false. Town DisplayLabel .