1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
40. 40
41. 41
42. 42
43. 43
44. 44
45. 45
46. 46
47. 47
48. 48
49. 49
50. 50
51. 51
52. 52
53. 53
54. 54
55. 55
56. 56
57. 57
58. 58
59. 59
60. 60
61. 61
62. 62
63. 63
64. 64
65. 65
66. 66
67. 67
68. 68
69. 69
70. 70
71. 71
72. 72
73. 73
74. 74
75. 75
76. 76
77. 77
78. 78
79. 79
80. 80
81. 81
82. 82
83. 83
84. 84
85. 85
86. 86
87. 87
88. 88
89. 89
90. 90
91. 91
92. 92
93. 93
94. 94
95. 95
96. 96
97. 97
98. 98
99. 99
100. 100

unit form_view;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, Grids, DBGrids, DB, DBTables, StdCtrls, Mask, DBCtrls,
  ComCtrls;

type
  TF_view = class(TForm)
    MMenu: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    Table1: TTable;
    DataSource1: TDataSource;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    StatusBar1: TStatusBar;
    N4: TMenuItem;
    N5: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    DBGrid1: TDBGrid;
    Button_next: TButton;
    Button_prior: TButton;
    Button_first: TButton;
    Button_last: TButton;
    Button_new: TButton;
    Table1Id: TStringField;
    Table1Data: TStringField;
    Table1Shirota: TStringField;
    Table1Dolgota: TStringField;
    Table1Magnituda: TStringField;
    Table1Glubina: TStringField;
    Table1Bal: TStringField;
    Table1Local: TStringField;
    procedure N1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure Button_firstClick(Sender: TObject);
    procedure Button_nextClick(Sender: TObject);
    procedure Button_priorClick(Sender: TObject);
    procedure Button_lastClick(Sender: TObject);
    procedure Button_newClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_view: TF_view;

implementation
uses unit2, form_poisk;
{$R *.dfm}

procedure TF_view.N1Click(Sender: TObject);
begin
close;
end;

procedure TF_view.Button2Click(Sender: TObject);
begin

form_magnituda.Show;
end;

procedure TF_view.N5Click(Sender: TObject);
begin
f_view.Hide;
form_magnituda.Show;
end;

procedure TF_view.N7Click(Sender: TObject);
begin
poisk.Show;
end;

procedure TF_view.N3Click(Sender: TObject);
begin
f_view.Table1.Active:=false;
f_view.Hide;
f_view.Show;
f_view.Button_next.Visible:=true;
f_view.Button_prior.Visible:=true;
f_view.Button_first.Visible:=true;
f_view.Button_last.Visible:=true;
f_view.Button_new.Visible:=false;
f_view.DBGrid1.Visible:=true;
f_view.StatusBar1.SimpleText:='           режим просмотра базы';