Разработка фрагмента специального математического и программного обеспечения передачи данных на основе протокола TCP/IP
Дипломная работа - Безопасность жизнедеятельности
Другие дипломы по предмету Безопасность жизнедеятельности
s };
: TfMain;
{$R *.dfm}
TfMain.Button1Click(Sender: TObject);.ShowModal;;
TfMain.FormCreate(Sender: TObject);.Panels.Items[2].Text := DateToStr(date);.Panels.Items[1].Text := TimeToStr(time);
;
TfMain.N11Click(Sender: TObject);.ShowModal;;
TfMain.N13Click(Sender: TObject);.ShowModal;;
TfMain.N3Click(Sender: TObject);.ShowModal;;
TfMain.nKBClick(Sender: TObject);i,j: integer;:= 1;.First;i := 0 to 3 doADOTable1.Fields[1].AsString <> 'Командир батареи' then.StringGrid.Cells[0,j] := ADOTable1.Fields[1].AsString;.StringGrid.Cells[1,j] := ADOTable1.Fields[2].AsString;.StringGrid.Cells[2,j] := ADOTable1.Fields[3].AsString;:= j + 1;;.MoveBy(1);;
fMain.Caption := 'АРМ командира батареи';
N4.Checked := false;.Checked := false;.Checked := true;.Checked := false;.Checked := false;.Checked := false;.Checked := true;.Checked := false;.Enabled := true;.Enabled := true;;
TfMain.nKDClick(Sender: TObject);i,j: integer;:= 1;.First;i := 0 to 3 doADOTable1.Fields[1].AsString <> 'Командир дивизиона' then.StringGrid.Cells[0,j] := ADOTable1.Fields[1].AsString;.StringGrid.Cells[1,j] := ADOTable1.Fields[2].AsString;.StringGrid.Cells[2,j] := ADOTable1.Fields[3].AsString;:= j + 1;;.MoveBy(1);;
fMain.Caption := 'АРМ командира дивизиона';
N4.Checked := true;.Checked := false;.Checked := false;.Checked := false;.Checked := true;.Checked := false;.Checked := false;.Checked := false;.Enabled := true;.Enabled := true;;
TfMain.NN21Click(Sender: TObject);.ShowModal;;
TfMain.NN22Click(Sender: TObject);.ShowModal;;
TfMain.NN23Click(Sender: TObject);.ShowModal;;
TfMain.nNShClick(Sender: TObject);i,j: integer;:= 1;.First;i := 0 to 3 doADOTable1.Fields[1].AsString <> 'Начальник штаба дивизиона' then.StringGrid.Cells[0,j] := ADOTable1.Fields[1].AsString;.StringGrid.Cells[1,j] := ADOTable1.Fields[2].AsString;.StringGrid.Cells[2,j] := ADOTable1.Fields[3].AsString;:= j + 1;;.MoveBy(1);;
fMain.Caption := 'АРМ начальника штаба дивизиона';
N4.Checked := false;.Checked := true;.Checked := false;.Checked := false;.Checked := false;.Checked := true;.Checked := false;.Checked := false;.Enabled := true;.Enabled := true;;
TfMain.nSOBClick(Sender: TObject);i,j: integer;:= 1;.First;i := 0 to 3 doADOTable1.Fields[1].AsString <> 'Старший офицер батареи' then.StringGrid.Cells[0,j] := ADOTable1.Fields[1].AsString;.StringGrid.Cells[1,j] := ADOTable1.Fields[2].AsString;.StringGrid.Cells[2,j] := ADOTable1.Fields[3].AsString;:= j + 1;;.MoveBy(1);;
fMain.Caption := 'АРМ старшего офицера батареи';
N4.Checked := false;.Checked := false;.Checked := false;.Checked := true;.Checked := false;.Checked := false;.Checked := false;.Checked := true;.Enabled := true;.Enabled := true;;
TfMain.tbExitClick(Sender: TObject);;;
TfMain.TcpServerAccept(Sender: TObject;: TCustomIpClient);i: integer;
// Определение отправителяi := 1 to fConnect.StringGrid.RowCount - 1 dofConnect.StringGrid.Cells[2,i] = ClientSocket.RemoteHost then.lSender.Caption := fConnect.StringGrid.Cells[1,i];;;
//.mText.Text := ClientSocket.Receiveln; // Прием сообщения.ShowModal; //Вывод сообщения;
TfMain.Timer1Timer(Sender: TObject);.Panels.Items[1].Text := TimeToStr(time);;
.
Форма таблицы абонентов
unit unTable;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;
= class(TForm): TDBGrid;: TDBNavigator;: TButton;bBackClick(Sender: TObject);
{ Private declarations }
{ Public declarations };
: TfTable;
{$R *.dfm}
unMain;
TfTable.bBackClick(Sender: TObject);.Close;;
.
Форма проверки состояния соединений
unit unConnect;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, StdCtrls;
= class(TForm): TButton;: TButton;: TButton;: TStringGrid;FormCreate(Sender: TObject);bBackClick(Sender: TObject);bConnectClick(Sender: TObject);bDisconnectClick(Sender: TObject);
{ Private declarations }
{ Public declarations };
: TfConnect;
{$R *.dfm}
unMain, unQuestion, unReport, unCommand, unTask;
TfConnect.bConnectClick(Sender: TObject);i: integer;I := 1 to 3 do.TcpClient.RemoteHost := StringGrid.Cells[2,i];.TcpClient.Active := true;fMain.TcpClient.Connected then StringGrid.Cells[3,i] := 'Установленно'StringGrid.Cells[3,i] := 'Установленно';.TcpClient.Active := false;;I := 1 to 3 doStringGrid.Cells[3,i] = 'Не установленно' then.tbConnect.ImageIndex := 5;.tbTask.Enabled := true;.N21.Enabled := true;.N22.Enabled := true;.N23.Enabled := true;;;;
TfConnect.bDisconnectClick(Sender: TObject);i: integer;.TcpClient.Active := false;I := 1 to 3 do.Cells[3,i] := 'Не установленно';.tbConnect.ImageIndex := 4;.tbTask.Enabled := false;.N21.Enabled := false;.N22.Enabled := false;.N23.Enabled := false;;
TfConnect.bBackClick(Sender: TObject);.Close;;TfConnect.FormCreate(Sender: TObject);.Cells[0,0] := 'Должностное лицо';.Cells[1,0] := 'Позывной';.Cells[2,0] := 'IP-адрес';.Cells[3,0] := 'Статус соединения';;.
Форма постановки огневых задач
unit unTask;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, CheckLst, ExtCtrls;
= class(TForm)
Label1: TLabel;: TLabel;: TCheckListBox;
rgPredvKomanda: TRadioGroup;: TLabel;: TEdit;
Label4: TLabel;: TComboBox;: TLabel;: TComboBox;: TComboBox;: TLabel;
Label7: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TLabel;: TEdit;: TLabel;: TLabel;: TEdit;: TLabel;: TLabel;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TComboBox;: TComboBox;: TEdit;: TLabel;: TComboBox;: TComboBox;: TLabel;: TLabel;: TEdit;: TLabel;: TComboBox;: TButton;: TButton;: TLabel;: TComboBox;FormActivate(Sender: TObject);bBackClick(Sender: TObject);bSendClick(Sender: TObject);
{ Private declarations }
{ Public declarations };
: TfTask;
{$R *.dfm}
unConnect, unMain;
TfTask.bBackClick(Sender: TObject);;;
TfTask.bSendClick(Sender: TObject);i,j: integer;: string;:= ' Цель ' + eNomer.Text;
ln := ln + ', ' + cbHarakter.Text;
if cbUcrytoct.ItemIndex = 1 then ln := ln + ' укрытая';cbBronirovanaya.ItemIndex = 1 then ln := ln + ' бронированная';:= ln + ', ' + cbTask.Text;eX.Text '' then ln := ', скачек ' + eSkachek.Text;cbVzr.ItemIndex = 0 then:= ln + '. ОФ'if cbVzr.ItemIndex = 1 then
ln := ln + '. Снаряд с ДВ'ln := ln + '. Снаряд с ДТ';cbVzr.ItemIndex <> 0 then:= ln + ', установка взрывателя ' + eUstVzr.Text:= ln + ', взрыватель ' + cbUstVzr.Text;:= ln + ', заряд ' + cbZar.Text;
ln := ln + '. Расход ' + eRashod.Text;:= ln + '. ' + cbIspCom.Text + '!';i := 0 to clbPozivnie.Count - 1 doclbPozivnie.Checked[i] then.TcpClient.RemoteHost := fConnect.StringGrid.Cells[2,i+1];.TcpClient.Active := true;rgPredvKomanda.ItemIndex = 0 then:= fConnect.StringGrid.Cells[1,i+1] + ', СТОЙ! ' + ln:= fConnect.StringGrid.Cells[1,i+1] + ', Внимание! ' + ln;.TcpClient.Sendln(p);.TcpClient.Active := false;;;
TfTask.FormActivate(Sender: TObject);i: integer;.Clear;I := 1 to fConnect.StringGrid.RowCount - 1 dofConnect.StringGrid.Cells[3,i] = 'Установленно' then.Items.Add(fConnect.StringGrid.Cells[1,i]);
end;
.
Форма отправки запроса
unit unQuestion;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;
= class(TForm): TLabel;: TLabel;: TButton;: TButton;: TComboBox;: TComboBox;bBackClick(Sender: TObject);FormActivate(Sender: TObject);bSendClick(Sender: TObject);
{ Private declarations }
{ Public declarations };
: TfQuestion;
{$R *.dfm}
unMain, unConnect;TfQuestion.bBackClick(Sender: TObject);;;
TfQuestion.bSendClick(Sender: TObject);i: integer;: string;(cbPost.ItemIndex = -1) or (cbTask.ItemIndex = -1) then('Проверьте правильность ввода!',mtError,[mbOk],0,mbOk);;;i := 1 to fConnect.StringGrid.RowCount - 1 docbPost.Text = fConnect.StringGrid.Cells[1,i] then break;cbTask.ItemIndex = 0 then ln := 'свои координаты';cbTask.ItemIndex = 1 then ln := 'готовность';cbTask.ItemIndex = 2 then ln := 'обстановку';.TcpClient.RemoteHost := fConnect.StringGrid.Cells[2,i];.TcpClient.Active := True;.TcpClient.Sendln('Доложите ' + ln);.TcpClient.Active := false;;
TfQuestion.FormActivate(Sender: TObject);i: integer;.Items.C