Проектирование формы «Электронная энциклопедия: Страны мира»

procedure TFm_A.label_3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

label_3.Font.Color:=clred;

label_3.Font.Size:=22;

end;

procedure TFm_A.label_3MouseLeave(Sender: TObject);

begin

label_3.Font.Color:=clpurple;

label_3.Font.Size:=20;

end;

procedure TFm_A.label_3MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

FM_Poisk.ShowModal;

end;

procedure TFm_A.N1Click(Sender: TObject);

begin

FM_Help.ShowModal;

end;

procedure TFm_A.FormCreate(Sender: TObject);

begin

Label1.Transparent := True;

Label2.Transparent := True;

Label_strana.Transparent := True;

Label_3.Transparent := True;

end;

procedure TFm_A.N4Click(Sender: TObject);

begin

Fm_help.ShowModal;

end;

end.

 

 

 

Форма 2 – Страны мира

 

unit M_Strana;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, DBTables, DB, Grids, DBGrids, StdCtrls, jpeg;

type

TFm_Strana = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

Q_strana: TQuery;

Label1: TLabel;

Edit_kont: TEdit;

Table_Kont: TTable;

DataSource_Kont: TDataSource;

PanelADD: TPanel;

Panel1: TPanel;

Edit0: TEdit;

Edit1: TEdit;

PanelOK: TPanel;

DBGrid_Kont: TDBGrid;

Image1: TImage;

DBGrid1: TDBGrid;

Button1: TButton;

Edit2: TEdit;

Edit3: TEdit;

Label2: TLabel;

procedure Edit_kontMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure FormDblClick(Sender: TObject);

procedure PanelADDClick(Sender: TObject);

procedure DBGrid1CellClick(Column: TColumn);

procedure PanelOKClick(Sender: TObject);

procedure DBGrid_KontCellClick(Column: TColumn);

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

kont,nz,R:integer;

public

{ Public declarations }

end;

var

Fm_Strana: TFm_Strana;

implementation

{$R *.dfm}

procedure TFm_Strana.Edit_kontMouseDown(Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

DBGrid_kont.Visible:=true;

end;

procedure TFm_Strana.FormDblClick(Sender: TObject);

begin

Q_strana.SQL.Clear;

Q_strana.SQL.Add('Select T_strana.*, T_kont.Name_kont, T_rel.rel, T_dos.dos, T_gos.gos');

Q_strana.SQL.Add(' from  T_strana,T_kont, T_rel, T_dos, T_gos');

Q_strana.SQL.Add(' where T_strana.kont=T_kont.kont and T_strana.rel=T_rel.kod and T_strana.gos=T_gos.kod and T_strana.dos=T_dos.kod');

Q_strana.Open;

end;

procedure TFm_Strana.PanelADDClick(Sender: TObject);

begin

R:=1; // фиксируем режим ввода

table1.Last;

if table1.Fields[0].IsNull then nz:=1

else nz:=table1.Fields[0].Value+1;

edit0.Text:=InTToStr(nz);

edit1.text:='';

panel1.Visible:=true;

end;

procedure TFm_Strana.DBGrid1CellClick(Column: TColumn);

begin

nz:=Q_strana.Fields[0].Value; // фиксируем код выбранной страны

R:=2; // фиксируем режим  редактирования записи

edit0.text:= InTToStr(nz);

edit1.text:= Q_strana.Fields[1].Value;

panel1.Visible:=true;

end;

procedure TFm_Strana.PanelOKClick(Sender: TObject);

begin

if R=1 then table1.Append

else begin

table1.FindKey([nz]); table1.Edit;

end;

table1.Fields[0].Value:=StrToInt(edit0.text);

table1.Fields[1].Value:= edit1.text;

table1.Fields[2].Value:= kont;

table1.Post;

panel1.Visible:=false;

Q_strana.Close; Q_strana.Open;

end;

procedure TFm_Strana.DBGrid_KontCellClick(Column: TColumn);

begin

kont:=table_kont.Fields[0].Value;

edit_kont.Text:=table_kont.Fields[1].Value;

DBGrid_kont.Visible:=false;

// перестраиваем SQL -выражение  запроса

//  (добавляем условие  отбора записей по параметру  kont)

Q_strana.SQL.Clear;

Q_strana.SQL.Add('Select T_strana.*, T_kont.Name_kont, T_rel.rel, T_dos.dos, T_gos.gos');

Q_strana.SQL.Add(' from  T_strana,T_kont, T_rel, T_dos, T_gos');

Q_strana.SQL.Add(' where T_strana.kont=T_kont.kont and T_strana.rel=T_rel.kod and    T_strana.gos=T_gos.kod and T_strana.dos=T_dos.kod');

Q_strana.SQL.Add(' and t_strana.kont=' + IntToStr(kont));

Q_strana.Open;

end;

procedure TFm_Strana.Button1Click(Sender: TObject);

begin

if Edit2.Text='qwerty' then PanelAdd.Visible:=true

else

Edit3.Text:='Неправильный пароль';

end;

procedure TFm_Strana.FormCreate(Sender: TObject);

begin

Label2.Transparent := True;

end;

end.

 

Форма 3 – Поиск стран

 

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls, Menus;

type

TFM_Poisk = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N3: TMenuItem;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure N3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FM_Poisk: TFM_Poisk;

implementation

uses Unit1, Unit3, Unit4, M_A, Unit5;

{$R *.dfm}

procedure TFM_Poisk.Button1Click(Sender: TObject);

begin

Fm_rel.ShowModal;

end;

procedure TFM_Poisk.Button2Click(Sender: TObject);

begin

FM_dos.ShowModal;

end;

procedure TFM_Poisk.Button3Click(Sender: TObject);

begin

FM_Gos.ShowModal;

end;

procedure TFM_Poisk.N3Click(Sender: TObject);

begin

FM_Help.ShowModal;

end;

end.

 

Форма 4 – Религия

 

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls, Grids, DBGrids, DB, DBTables;

type

TFm_rel = class(TForm)

Image1: TImage;

DataSource1: TDataSource;

Query1: TQuery;

DBGrid1: TDBGrid;

Label1: TLabel;

Table1: TTable;

DataSource2: TDataSource;

DBGrid2: TDBGrid;

Panel1: TPanel;

procedure DBGrid2CellClick(Column: TColumn);

procedure Panel1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

rel:integer;

{ Private declarations }

public

{ Public declarations }

end;

var

Fm_rel: TFm_rel;

implementation

{$R *.dfm}

procedure TFm_rel.DBGrid2CellClick(Column: TColumn);

begin

rel:=Table1.Fields[0].Value;

// перестраиваем SQL -выражение  запроса

//  (добавляем условие  отбора записей по параметру rel)

Query1.SQL.Clear;

Query1.SQL.Add('Select T_rel.*, T_Strana.Name_strana');

Query1.SQL.Add(' from  T_strana, T_rel');

Query1.SQL.Add(' where T_rel.kod=T_strana.rel');

Query1.SQL.Add(' and t_strana.rel=' + IntToStr(rel));

Query1.Open;

end;

procedure TFm_rel.Panel1Click(Sender: TObject);

begin

close;

end;

procedure TFm_rel.FormCreate(Sender: TObject);

begin

Label1.Transparent := True;

end;

end.

 

Форма 5 – Достопримечательность

 

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, DBTables, DB, jpeg, ExtCtrls, DBCtrls, StdCtrls;

type

TFm_dos = class(TForm)

Image1: TImage;

DataSource1: TDataSource;

Query1: TQuery;

Table1: TTable;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

<span class="dash041e_0431_044b_0447_043d_044b_0439__C