- 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:=' режим просмотра базы';
Комментарии (0) RSS
Добавить комментарий