PChar ( Ти справді хочеш видалити + DataModule2.ADOTable3DSDesigner.AsString), Внимание !!! raquo ;, MB_OKCANCEL)=id_OK then DataModule2.ADOTable3.Delete; end; procedure TForm4.Button4Click (Sender: TObject); begin Form4.Close; end; end. unit Unit5; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DBCtrls, StdCtrls, Mask; type TForm5=class (TForm) Label1: TLabel; DBEdit1: TDBEdit; Label2: TLabel; DBEdit2: TDBEdit; Label3: TLabel; Label4: TLabel; DBEdit4: TDBEdit; Label5: TLabel; DBLookupComboBox1: TDBLookupComboBox; Button1: TButton; DBComboBox1: TDBComboBox; procedure Button1Click (Sender: TObject); private {Private declarations} public {Public declarations} end; var Form5: TForm5; implementation uses Unit2, Unit1, Unit4, Unit3; {$ R * .dfm} procedure TForm5.Button1Click (Sender: TObject); begin DataModule2.ADOTable3.Post; Form5.Close; end; end. unit Unit6; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, StdCtrls, Buttons; type TForm6=class (TForm) DBGrid1: TDBGrid; Button1: TButton; Button2: TButton; procedure FormClose (Sender: TObject; var Action: TCloseAction); procedure Button1Click (Sender: TObject); procedure Button2Click (Sender: TObject); private {Private declarations} public {Public declarations} end; var Form6: TForm6; implementation uses Unit1, Unit2; {$ R * .dfm} procedure TForm6.FormClose (Sender: TObject; var Action: TCloseAction); begin if DataModule2.ADOTable4.Modified then DataModule2.ADOTable4.Post; end; procedure TForm6.Button1Click (Sender: TObject); begin Form6.Close; end; procedure TForm6.Button2Click (Sender: TObject); begin DataModule2.ADOTable4.Edit; DataModule2.ADOTable4.Insert; end; end. unit Unit7; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids; type TForm7=class (TForm) DBGrid1: TDBGrid; Button1: TButton; Button2: TButton; procedure Button2Click (Sender: TObject); procedure Button1Click (Sender: TObject); private {Private declarations} public {Public declarations} end; var Form7: TForm7; implementation uses Unit2; {$ R * .dfm} procedure TForm7.Button2Click (Sender: TObject); begin Form7.Close; end; procedure TForm7.Button1Click (Sender: TObject); begin DataModule2.ADOTable5.Edit; DataModule2.ADOTable5.Insert; end; end. unit Unit8; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls; type TForm8=class (TForm) Image1: TImage; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; private {Private declarations} public {Public declarations} end; var Form8: TForm8; implementation {$ R * .dfm} end. unit Unit9; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, StdCtrls, Buttons, RpRave, RpDefine, RpCon, RpConDS, DB, ADODB, ComCtrls; type TForm9=class (TForm) DBGrid1: TDBGrid; BitBtn1: TBitBtn; procedure FormCreate (Sender: TObject); private {Private declarations} public {Public declarations} end; var Form9: TForm9; implementation uses Unit2, Unit1; {$ R * .dfm} procedure TForm9.FormCreate (Sender: TObject); begin if DataModule2.ADOTable6.Modified then DataModule2.ADOTable6.Post; end; end. unit Unit10; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids; type TForm10=class (TForm) DBGrid1: TDBGrid; private {Private declarations} public {Public declarations} end; var Form10: TForm10; implementation uses Unit2; {$ R * .dfm} end.
