Энциклопедия: Гражданская авиация России

n="justify">    IBDatabase1: TIBDatabase;

    IBTransaction1: TIBTransaction;

    DataSource1: TDataSource;

    OpenPictureDialog1: TOpenPictureDialog;

    OpenTextFileDialog1: TOpenTextFileDialog;

    IBDataSet1: TIBDataSet;

    procedure Edit1Click(Sender: TObject);

    procedure Edit2Click(Sender: TObject);

    procedure Edit3Click(Sender: TObject);

    procedure Edit4Click(Sender: TObject);

    procedure DBGrid2CellClick(Column: TColumn);

    procedure DBGrid3CellClick(Column: TColumn);

    procedure DBGrid4CellClick(Column: TColumn);

    procedure Button2Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form3: TForm3;

implementation

uses Unit1, Unit2, Unit4, Unit5;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

Var  Locopts:tlocateoptions;

begin

Locopts:=[ ];

locopts:=locopts+[lopartialkey];

locopts:=locopts+[locaseinsensitive];

if edit1.Text<>'' then

ibdataset1.Locate('NAME_AIR', Edit1.Text, locopts)

else

showmessage('Введите название');

edit1.Text:='Введите название';

             end;

procedure TForm3.Button2Click(Sender: TObject);

begin

ibdataset1.SelectSQL.Clear;

ibdataset1.selectsql.Add('select * from AIR, TIME_AIR, TIP, TIP_D_AIR where air.nom_time_air=time_air.nom_time_air and time_air.time_air='+edit20.Text+' and air.nom_tip_air=tip.nom_tip_air and tip.tip_AIR='+edit30.text+' and air.nom_tip_d_air=tip_d_air.nom_d_air and tip_D_air='+edit40.text+'');

ibdataset1.Active:=false;

ibdataset1.Active:=true;

end;

procedure TForm3.DBGrid2CellClick(Column: TColumn);

var i:string;

begin

  edit2.Text:=form2.ibdataset2.Fields[0].Asstring;

   DBGrid2.Visible:=false;

  if edit2.Text='Все                                               ' then

  edit20.Text:='time_air.time_air'

  else

  begin

  i:=form2.ibdataset2.Fields[0].Asstring;

  edit20.Text:=#39+i+#39;

   end

end;

procedure TForm3.DBGrid3CellClick(Column: TColumn);

var i:string;

begin

  edit3.Text:=form2.ibdataset3.Fields[0].AsString;

  DBGrid3.Visible:=false;

  if edit3.Text='Все                                               ' then

  edit30.Text:='TIP.TIP_AIR'

  else

  begin

  i:=form2.ibdataset3.Fields[0].Asstring;

  edit30.Text:=#39+i+#39;

  end;

end;

procedure TForm3.DBGrid4CellClick(Column: TColumn);

var i:string;

begin

  edit4.Text:=form2.ibdataset4.Fields[0].AsString;

  DBGrid4.Visible:=false;

  i:=form2.ibdataset4.Fields[0].AsString;

  if edit4.Text='Все                                               ' then

  edit40.Text:='tip_D_Air.tip_d_air'

  else

  begin

  i:=form2.ibdataset4.Fields[0].Asstring;

  edit40.Text:=#39+i+#39;

  end;

end;

procedure TForm3.Edit1Click(Sender: TObject);

begin

edit1.Text:='';

end;

procedure TForm3.Edit2Click(Sender: TObject);

begin

DBGrid2.Visible:=true;

end;

procedure TForm3.Edit3Click(Sender: TObject);

begin

DBGrid3.Visible:=true;

end;

procedure TForm3.Edit4Click(Sender: TObject);

begin

DBGrid4.Visible:=true;

end;

procedure TForm3.N2Click(Sender: TObject);

begin

form3.Close;

form1.Show;

end;

procedure TForm3.N3Click(Sender: TObject);

begin

form3.close;

form1.Close;

end;

procedure TForm3.N5Click(Sender: TObject);

begin

form5.Show;

end;

procedure TForm3.N7Click(Sender: TObject);

begin

if form3.Panel2.Visible=true then

  begin

  form3.Panel2.Visible:=false;

  form3.Width:=727;

  end

else

begin

form3.Panel2.Visible:=true;

form3.Width:=926;

end;

end;

procedure TForm3.N8Click(Sender: TObject);

begin

form3.Close;

form4.show;

end;

end.

     ПРИЛОЖЕНИЕ 4

     Листинг Unit4; приложения Delphi

unit Unit4;

interface

uses

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

  Dialogs, Menus, IBQuery, ExtDlgs, DB, IBDatabase, IBCustomDataSet, StdCtrls,

  DBCtrls, Grids, DBGrids, ExtCtrls;

type

  TForm4 = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    Panel1: TPanel;

    DBNavigator1: TDBNavigator;

    DBGrid1: TDBGrid;

    Panel2: TPanel;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Edit2: TEdit;

    Edit1: TEdit;

    Button2: TButton;

    Edit3: TEdit;

    DBImage1: TDBImage;

    DBMemo1: TDBMemo;

    Button1: TButton;

    Edit30: TEdit;

    edit40: TEdit;

    Edit10: TEdit;

    IBDatabase1: TIBDatabase;

    IBDataSet1: TIBDataSet;

    IBTransaction1: TIBTransaction;

    DataSource1: TDataSource;

    OpenTextFileDialog1: TOpenTextFileDialog;

    OpenPictureDialog1: TOpenPictureDialog;

    IBQuery1: TIBQuery;

    DBGrid3: TDBGrid;

    DBGrid4: TDBGrid;

    DBGrid5: TDBGrid;

    Edit4: TEdit;

    Label5: TLabel;

    procedure DBGrid3CellClick(Column: TColumn);

    procedure DBGrid4CellClick(Column: TColumn);

    procedure DBGrid5CellClick(Column: TColumn);

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure Edit1Click(Sender: TObject);

    procedure Edit3Click(Sender: TObject);

    procedure Edit4Change(Sender: TObject);

    procedure Edit4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form4: TForm4;

implementation

uses Unit1, Unit2, Unit3, Unit5, JPEG;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

var j:TJPEGImage;

   bmp: TBitmap;

begin

      if form2.OpenPictureDialog1.Execute then

          begin

    j:=tjpegimage.Create ;

   bmp := TBitmap.Create;

    try

      j.LoadFromFile(form2.OpenPictureDialog1.FileName);

      bmp.Assign(j) ;

    ibdataset1.Edit;

      ibdataset1.FieldByName('FOTO').Assign(bmp);

      ibdataset1.Post;

         finally

        j.Free ;

             bmp.Free ;

    end;

end;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

if edit2.Text='' then

begin

label5.caption:='';

label5.caption:='Данные не добавлены причина не указано название';

end

else

if edit10.Text='' then

begin

label5.caption:='';

label5.caption:='Данные не добавлены причина не указано время';

end

else

if edit30.Text='' then

begin

label5.caption:='';

label5.caption:='Данные не добавлены причина не указан тип';

end

else

if edit40.Text='' then