ИНФОРМАЦИОННЫЕ ТЕХНОЛОГИИВ СИСТЕМЕ ЭЛЕКТРОСНАБЖЕНИЯ ЭЛЕКТРИФИЦИРОВАННЫХ ЖЕЛЕЗНЫХ ДОРОГ.РАЗРАБОТКА ПРИЛОЖЕНИЙ БАЗ ДАННЫХ В СРЕДЕ DELPHI

dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
form4.ShowModal;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
try
If MessageDlg('Удалить запись?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
adoquery2.Close;
adoquery2.Parameters.ParamByName('Par1').Value:=ADOQuery1Id_sydna.Value;
adoquery2.Open;
AdoQuery3.Parameters.ParamByName('Par1').Value:=ADOQuery1Id_sydna.Value;
adoQuery3.ExecSQL;
end;

except
ShowMessage('Запись не удалена!!!');
end;
ADOQuery1.Close;
ADOQuery1.Open;
form3.sStatusBar1.Panels[0].Text:='Всего в базе:'+' '+inttostr(ADOQuery1.RecordCount)+' судно/судна/судов';
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
Close;
end;

procedure TForm3.Button4Click(Sender: TObject);
begin
RvProject1.Execute;
RvProject1.ExecuteReport('Список судовСписок судов.rav');
RvProject1.Open;
end;

procedure TForm3.FormShow(Sender: TObject);
begin
form3.sStatusBar1.Panels[0].Text:='Всего в базе:'+' '+inttostr(ADOQuery1.RecordCount)+' судно/судна/судов';
end;

end.
unit Unit4;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB;

type
TForm4 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
ADOQuery3: TADOQuery;
procedure ComboBox1Change(Sender: TObject);
procedure ComboBox1DropDown(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure ComboBox2DropDown(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form4: TForm4;

implementation

uses Unit1, Unit3;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin
try
ADOQuery3.Close;
ADOQuery3.Parameters.ParamByName('Nazv_sydna').Value:=Edit1.Text;
ADOQuery3.Parameters.ParamByName('Ident_nomer').Value:=Edit2.Text;
ADOQuery3.Parameters.ParamByName('Benzin').Value:='0';
ADOQuery3.ExecSQL;
form3.ADOQuery1.Close;
form3.ADOQuery1.Open;
Close;
form3.sStatusBar1.Panels[0].Text:='Всего в базе:'+' '+inttostr(form3.ADOQuery1.RecordCount)+' судно/судна/судов';
except
Beep;
ShowMessage('Заполнены не все поля!!!');
end;
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm4.ComboBox1Change(Sender: TObject);
begin
Продолжение приложения А

{ADOQuery1.Parameters.ParamByName('par1').Value:=ComboBox1.Text;
ADOQuery1.open;
ComboBox1.Tag:=ADOQuery1Id_kap.Value;
ADOQuery1.close;}
end;

procedure TForm4.ComboBox1DropDown(Sender: TObject);
begin
{ComboBox1.Clear;
ADOQuery1.close;
ADOQuery1.Parameters.ParamByName('par1').Value:='%';
ADOQuery1.open;
while not ADOQuery1.Eof do
begin
ComboBox1.items.Append(ADOQuery1FIO.Value);
ADOQuery1.next;
end;
ADOQuery1.close;}
end;

procedure TForm4.ComboBox2Change(Sender: TObject);
begin
{ADOQuery2.Parameters.ParamByName('par1').Value:=ComboBox2.Text;
ADOQuery2.open;
ComboBox2.Tag:=ADOQuery2Id_sobstv.Value;
ADOQuery2.close; }
end;

procedure TForm4.ComboBox2DropDown(Sender: TObject);
begin
{ComboBox2.Clear;
ADOQuery2.close;
ADOQuery2.Parameters.ParamByName('par1').Value:='%';
ADOQuery2.open;
while not ADOQuery2.Eof do
begin
ComboBox2.items.Append(ADOQuery2FIO_sobstv.Value);
ADOQuery2.next;
end;
ADOQuery2.close;}
end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
edit1.Clear;
Edit2.Clear;
//ComboBox1.Clear;
//ComboBox2.Clear;
end;

end.
unit Unit5;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, ExtCtrls, sLabel, Mask, DBCtrls,
sGroupBox;

type
TForm5 = class(TForm)
Panel1: TPanel;
DBGrid1: TDBGrid;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
Button1: TButton;
Button2: TButton;
Button3: TButton;
ADOQuery1Id_sobstv: TAutoIncField;
ADOQuery1Nomer: TWideStringField;
ADOQuery1FIO_sobstv: TWideStringField;
ADOQuery2: TADOQuery;
ADOQuery3: TADOQuery;
ADOQuery2Id_sobstv: TAutoIncField;
ADOQuery2Nomer: TWideStringField;
ADOQuery2FIO_sobstv: TWideStringField;
ADOQuery1SobstvennikiId_sydna: TIntegerField;
ADOQuery1SydnoId_sydna: TAutoIncField;
ADOQuery1Nazv_sydna: TWideStringField;
ADOQuery1Ident_nomer: TIntegerField;
sGroupBox1: TsGroupBox;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
sLabelFX1: TsLabelFX;
sLabelFX2: TsLabelFX;
sLabelFX3: TsLabelFX;
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form5: TForm5;

implementation

uses Unit1, Unit6;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
begin
form6.ShowModal;
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
try
If MessageDlg('Удалить запись?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
adoquery2.Close;
adoquery2.Parameters.ParamByName('Par1').Value:=ADOQuery1Id_sobstv.Value;
adoquery2.Open;
AdoQuery3.Parameters.ParamByName('Par1').Value:=ADOQuery1Id_sobstv.Value;
adoQuery3.ExecSQL;
end;
except
Продолжение приложения А

ShowMessage('Запись не удалена!!!');
end;
ADOQuery1.Close;
ADOQuery1.Open;
end;

procedure TForm5.Button3Click(Sender: TObject);
begin
close;
end;

end.
unit Unit6;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls;

type
TForm6 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
ADOQuery1: TADOQuery;
ComboBox1: TComboBox;
Label3: TLabel;
ADOQuery2: TADOQuery;
Button3: TButton;
ADOQuery2Id_sydna: TAutoIncField;
ADOQuery2Ident_nomer: TIntegerField;
ADOQuery2Nazv_sydna: TWideStringField;
procedure Button1Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure ComboBox1DropDown(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form6: TForm6;

implementation

uses Unit1, Unit5, Unit3;

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);
begin
try
ADOQuery1.Parameters.ParamByName('FIO_sobstv').Value:=Edit1.Text;
Продолжение приложения А

ADOQuery1.Parameters.ParamByName('Nomer').Value:=Edit2.Text;
ADOQuery1.Parameters.ParamByName('Id_sydna').Value:=ComboBox1.Tag;
ADOQuery1.ExecSQL;
form5.ADOQuery1.Close;
form5.ADOQuery1.Open;
Close;
except
Beep;
ShowMessage('Заполнены не все поля!!!');
end;
end;

procedure TForm6.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm6.Button3Click(Sender: TObject);
begin
form3.ShowModal;
end;

procedure TForm6.ComboBox1Change(Sender: TObject);
begin
ADOQuery2.Parameters.ParamByName('par1').Value:=ComboBox1.Text;
ADOQuery2.open;
ComboBox1.Tag:=ADOQuery2Id_sydna.Value;
ADOQuery2.close;
end;

procedure TForm6.ComboBox1DropDown(Sender: TObject);
begin
ComboBox1.Clear;
ADOQuery2.close;
ADOQuery2.Parameters.ParamByName('par1').Value:='%';
ADOQuery2.open;
while not ADOQuery2.Eof do
begin
ComboBox1.items.Append(ADOQuery2Nazv_sydna.Value);
ADOQuery2.next;
end;
ADOQuery2.close;
end;

unit Unit7;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, sComboBox, sButton, ExtCtrls,
sPanel, sEdit, sLabel;

type
TForm7 = class(TForm)
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
ADOQuery1Id_personala: TAutoIncField;
ADOQuery1PersonalId_sydna: TIntegerField;
ADOQuery1FIO: TWideStringField;
Продолжение приложения А

ADOQuery1SydnoId_sydna: TAutoIncField;
ADOQuery1Ident_nomer: TIntegerField;
ADOQuery1Nazv_sydna: TWideStringField;
ADOQuery1Benzin: TWideStringField;
ADOQuery1Dolgnost: TWideStringField;
sPanel1: TsPanel;
sComboBox1: TsComboBox;
sPanel2: TsPanel;
DBGrid1: TDBGrid;
sPanel3: TsPanel;
sButton3: TsButton;
sButton2: TsButton;
sButton1: TsButton;
sLabelFX1: TsLabelFX;
sEdit1: TsEdit;
sLabelFX2: TsLabelFX;
sButton4: TsButton;
ADOQuery2: TADOQuery;
ADOQuery3: TADOQuery;
ADOQuery4: TADOQuery;
sButton5: TsButton;
procedure ADOQuery1AfterScroll(DataSet: TDataSet);
procedure sButton3Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure sButton1Click(Sender: TObject);
procedure sButton5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form7: TForm7;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm7.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
{ADOQuery2.Close;
AdoQuery2.Parameters.ParamByName('par1').Value:=ADOQuery1SydnoId_sydna.Value;
ADOQuery2.Open;}
end;

procedure TForm7.FormShow(Sender: TObject);
begin
sPanel1.Width:=0;
Form7.Width:=350;

end;

procedure TForm7.sButton1Click(Sender: TObject);
begin
sPanel1.Width:=140;
Form7.Width:=490;
end;
Продолжение приложения А

procedure TForm7.sButton3Click(Sender: TObject);
begin
close;
end;

procedure TForm7.sButton5Click(Sender: TObject);
begin
sPanel1.Width:=0;
Form7.Width:=350;
end;

end.

unit Unit8;

interface

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

type
TForm8 = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
Label1: TLabel;
Label2: TLabel;
DBNavigator1: TDBNavigator;
DataSource1: TDataSource;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form8: TForm8;

implementation

uses Unit1;

{$R *.dfm}

end.
unit Unit9;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, sGroupBox, ExtCtrls, sPanel,
sButton, sComboBox, sLabel, sEdit, sSpinEdit;

type
TForm9 = class(TForm)
sGroupBox1: TsGroupBox;
DBGrid1: TDBGrid;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
Продолжение приложения А

ADOQuery1Id_zapr: TAutoIncField;
ADOQuery1Nazv_zapr_sydna: TWideStringField;
sPanel2: TsPanel;
sButton1: TsButton;
sButton2: TsButton;
ADOQuery2: TADOQuery;
ADOQuery3: TADOQuery;
ADOQuery2Id_zapr: TAutoIncField;
ADOQuery2Nazv_zapr_sydna: TWideStringField;
sGroupBox2: TsGroupBox;
ADOQuery1Benzin: TIntegerField;
ADOQuery2Benzin: TIntegerField;
sComboBox1: TsComboBox;
DBGrid2: TDBGrid;
DataSource2: TDataSource;
ADOQuery4: TADOQuery;
sButton3: TsButton;
ADOQuery4Id_sydna: TAutoIncField;
ADOQuery4Ident_nomer: TIntegerField;
ADOQuery4Nazv_sydna: TWideStringField;
ADOQuery4Benzin: TWideStringField;
ADOQuery5: TADOQuery;
ADOQuery5Id_zapr: TAutoIncField;
ADOQuery5Nazv_zapr_sydna: TWideStringField;
ADOQuery5Benzin: TIntegerField;
sLabelFX1: TsLabelFX;
sLabelFX2: TsLabelFX;
sSpinEdit1: TsSpinEdit;
procedure sButton1Click(Sender: TObject);
procedure sButton2Click(Sender: TObject);
procedure sComboBox1Change(Sender: TObject);
procedure sComboBox1DropDown(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form9: TForm9;

implementation

uses Unit1, Unit10;

{$R *.dfm}

procedure TForm9.sButton1Click(Sender: TObject);
begin
form10.ShowModal;
end;

procedure TForm9.sButton2Click(Sender: TObject);
begin
try
If MessageDlg('Удалить запись?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
adoquery2.Close;
adoquery2.Parameters.ParamByName('Par1').Value:=ADOQuery1Id_zapr.Value;
adoquery2.Open;
Продолжение приложения А

AdoQuery3.Parameters.ParamByName('Par1').Value:=ADOQuery1Id_zapr.Value;
adoQuery3.ExecSQL;
end;
except
ShowMessage('Запись не удалена!!!');
end;
ADOQuery1.Close;
ADOQuery1.Open;
end;

procedure TForm9.sComboBox1Change(Sender: TObject);
begin
ADOQuery5.Parameters.ParamByName('par1').Value:=sComboBox1.Text;
ADOQuery5.open;
sComboBox1.Tag:=ADOQuery5Id_zapr.Value;
ADOQuery5.close;
end;

procedure TForm9.sComboBox1DropDown(Sender: TObject);
begin
sComboBox1.Clear;
ADOQuery5.close;
ADOQuery5.Parameters.ParamByName('par1').Value:='%';
ADOQuery5.open;
while not ADOQuery5.Eof do
begin
sComboBox1.items.Append(ADOQuery5Nazv_zapr_sydna.Value);
ADOQuery5.next;
end;
ADOQuery5.close;
end;

end.

unit Unit10;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, sButton, sLabel, sEdit, DB, ADODB;

type
TForm10 = class(TForm)
ADOQuery1: TADOQuery;
sEdit1: TsEdit;
sLabelFX1: TsLabelFX;
sButton1: TsButton;
sLabelFX2: TsLabelFX;
sEdit2: TsEdit;
procedure sButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form10: TForm10;

Продолжение приложения А

implementation

uses Unit1, Unit9;

{$R *.dfm}

procedure TForm10.sButton1Click(Sender: TObject);
begin
try
ADOQuery1.Close;
ADOQuery1.Parameters.ParamByName('Nazv_zapr_sydna').Value:=sEdit1.Text;
ADOQuery1.Parameters.ParamByName('Benzin').Value:=sEdit2.Text;
ADOQuery1.ExecSQL;
form9.ADOQuery1.Close;
form9.ADOQuery1.Open;
close;
Except
ShowMessage('Заполнены не все поля!!!');
end;
end;

end.

















51



Персонал

* Номер_персонала
Код_состава
ФИО
Должность


Собственники

*Номер_собственника
Телефон
Код_ состава
ФИО_собственника


Состав

* Номер_ состава
Идентификационный_номер
Название_ состава
Количество_груза
Вывод в ремонт


Грузчик

* Номер_грузчика
Название_ состава
Количество_груза