- 001
 - 002
 - 003
 - 004
 - 005
 - 006
 - 007
 - 008
 - 009
 - 010
 - 011
 - 012
 - 013
 - 014
 - 015
 - 016
 - 017
 - 018
 - 019
 - 020
 - 021
 - 022
 - 023
 - 024
 - 025
 - 026
 - 027
 - 028
 - 029
 - 030
 - 031
 - 032
 - 033
 - 034
 - 035
 - 036
 - 037
 - 038
 - 039
 - 040
 - 041
 - 042
 - 043
 - 044
 - 045
 - 046
 - 047
 - 048
 - 049
 - 050
 - 051
 - 052
 - 053
 - 054
 - 055
 - 056
 - 057
 - 058
 - 059
 - 060
 - 061
 - 062
 - 063
 - 064
 - 065
 - 066
 - 067
 - 068
 - 069
 - 070
 - 071
 - 072
 - 073
 - 074
 - 075
 - 076
 - 077
 - 078
 - 079
 - 080
 - 081
 - 082
 - 083
 - 084
 - 085
 - 086
 - 087
 - 088
 - 089
 - 090
 - 091
 - 092
 - 093
 - 094
 - 095
 - 096
 - 097
 - 098
 - 099
 - 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:='           режим просмотра базы';