[goonia91]

Вот весь код:

Листинг программы (Unit 1,avtorizacia);

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask, jpeg, ExtCtrls;

type
  Tavtorizacia = class(TForm)
    fon: TImage;
    predlozenie: TLabel;
    gost: TRadioButton;
    admin: TRadioButton;
    kod: TMaskEdit;
    vxod: TBitBtn;
    Timer: TTimer;
    procedure gostClick(Sender: TObject);
    procedure adminClick(Sender: TObject);
    procedure vxodClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure TimerTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  avtorizacia: Tavtorizacia;

implementation 
uses Unit2;

{$R *.dfm}

procedure Tavtorizacia.gostClick(Sender: TObject);
begin
kod.Visible:=false;
baza.N1.Visible:=false;
end;

procedure Tavtorizacia.adminClick(Sender: TObject);
begin
kod.Visible:=true;
baza.N1.Visible:=true;
end;

procedure Tavtorizacia.vxodClick(Sender: TObject);
 var pas:String;
begin
 pas:=('696');
 if ((admin.Checked=true)and(kod.Text=pas))or gost.Checked=true
    then
  begin
   baza.Show;
   avtorizacia.Visible:=false;
  end
   else MessageDlg('Введите пароль',mtWarning,[mbOk],0);
end;

procedure Tavtorizacia.FormActivate(Sender: TObject);
begin
if gost.Checked=true then
kod.Visible:=false
else
kod.Visible:=true; 
end;

procedure Tavtorizacia.TimerTimer(Sender: TObject);
  var
   txt:string;
begin
  txt:=predlozenie.Caption;
predlozenie.Caption:=copy(txt,2,length(txt)-1)+copy(txt,1,1);
end;

end.

Приложение Б
Листинг программы (Unit2,Baza);

Код:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, Menus, XPMan, Buttons, Grids, DBGrids, DB, ADODB,
  StdCtrls;

type
  Tbaza = class(TForm)
    fon: TImage;
    MainMenu: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    turke: TSpeedButton; 
     Egipet: TSpeedButton;
    Germany: TSpeedButton;
    Bolgaria: TSpeedButton;
    America: TSpeedButton;
    Chexia: TSpeedButton;
    XPManifest1: TXPManifest;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    table: TDBGrid;
    N9: TMenuItem;
    Edit1: TEdit;
    Label1: TLabel;
    procedure turkeClick(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure AmericaClick(Sender: TObject);
    procedure ok;
    procedure ChexiaClick(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure tableTitleClick(Column: TColumn);
    procedure Edit1Change(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure EgipetClick(Sender: TObject);
    procedure GermanyClick(Sender: TObject);
    procedure BolgariaClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var 
 baza: Tbaza;

implementation

uses Unit1, Unit4, Unit3;

{$R *.dfm}

 procedure Tbaza.ok;  
 begin
 baza.ADOQuery1.Active:=true;
 baza.table.Visible:=true;
 baza.table.Columns[0].Width:=12;
 baza.table.Columns[0].Visible:=false;
 baza.table.Columns[1].Width:=65;
 baza.table.Columns[2].Width:=120;
 baza.table.Columns[3].Width:=125;
 baza.table.Columns[4].Width:=45;
 baza.table.Columns[5].Width:=65;
 baza.table.Columns[6].Width:=55;
 baza.table.Width:=510;
 end;

procedure Tbaza.turkeClick(Sender: TObject);  
begin
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('Select * from Турция');
 ok;
end;

procedure Tbaza.N9Click(Sender: TObject);  
begin
avtorizacia.Close;
end;
 
procedure Tbaza.AmericaClick(Sender: TObject); 
begin
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('Select * from Америка');
 ok;
end;

procedure Tbaza.ChexiaClick(Sender: TObject);  
begin
   ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('Select * from Чехия');
 ok;
end;

procedure Tbaza.N2Click(Sender: TObject);  
begin
AdoQuery1.Insert;
add.ShowModal;
end;

procedure Tbaza.N4Click(Sender: TObject);   
begin
add.Show;
end;

procedure Tbaza.N3Click(Sender: TObject);  
begin
adoquery1.Delete;

end;

procedure Tbaza.tableTitleClick(Column: TColumn);  
begin
AdoQuery1.Sort:=Column.FieldName;
end; 
procedure Tbaza.Edit1Change(Sender: TObject);  
var s:string;
begin
s:=edit1.Text;
table.DataSource.DataSet.Locate('рейс',s,[lopartialkey]);
end;

procedure Tbaza.N7Click(Sender: TObject);  
begin
admin.show;
end;

procedure Tbaza.EgipetClick(Sender: TObject);  
begin
   ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('Select * from Египет');
 ok;
end;
end.

Приложение В
Листинг программы (Unit 3,Admin);

Код:

unit Unit3;
	
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg;

type
  Tadmin = class(TForm)
    Image1: TImage;
    Panel1: TPanel; 
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  admin: Tadmin;

implementation

{$R *.dfm}

end.

Приложение Г
Листинг программы (Unit 4,Add);

Код:

unit Unit4;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, Buttons;

type
  Tadd = class(TForm)
    reis: TDBEdit;
    ok: TBitBtn;
    data: TDBEdit;
    Vrema: TDBEdit;
    Cena: TDBEdit;
    platform: TDBEdit;
    aaeroport:TDBComboBox; 
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure okClick(Sender: TObject); 

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  add: Tadd;

implementation

uses Unit2;

{$R *.dfm}

procedure Tadd.okClick(Sender: TObject);
begin
baza.adoquery1.Post;
add.Close;
end;
end.

lmikle: пользуемся тегами. последнее предупреждение.