- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, Grids, DBGrids;
type
TForm_magnituda = class(TForm)
DataSource2: TDataSource;
Table1: TTable;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
DBGrid1: TDBGrid;
Table1Id: TStringField;
Table1Data: TStringField;
Table1Shirota: TStringField;
Table1Dolgota: TStringField;
Table1Magnituda: TStringField;
Table1Glubina: TStringField;
Table1Bal: TStringField;
Table1Local: TStringField;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_magnituda: TForm_magnituda;
implementation
uses unit1;
{$R *.dfm}
procedure TForm_magnituda.Button1Click(Sender: TObject);
begin
form1.show;
form_magnituda.Hide;
end;
procedure TForm_magnituda.Button2Click(Sender: TObject);
begin
form_magnituda.Table1.Append;
end;
end.
Комментарии (0) RSS
Добавить комментарий