Компьютерное моделирование беспроводных AD-HOC сетей для целей расчета времени связи мобильных абонентов
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
8>.[6]"> (от англ. виде. [6]
Объектная модель ADO состоит из следующих объектов высокого уровня и семейств объектов:
Connection (представляет подключение к удалённому источнику данных)
Recordset (представляет набор строк, полученный от источника данных)
-)">Command (используется для выполнения команд и SQL -запросов с параметрами)
Record (может представлять одну запись объекта Recordset или же иерархическую структуру, состоящую из текстовых данных)
Stream (используется для чтения и записи потоковых данных, например, документов XML или двоичных объектов)
Errors (представляет ошибки)
Fields (представляет столбцы таблицы базы данных)
-)">Parameters (представляет набор параметров SQL -инструкции)
Properties (представляет набор свойств объекта)
ASP.
Методы программирования.
Автоматическое добавление записи в таблицу Испытание:
Form2.ADOTable1.Last;.ADOTable1.Insert;.ADOTable1.FieldByName(Дата).AsString:=Data;.ADOTable1.FieldByName(Начало).AsString:=TimeStart;.ADOTable1.FieldByName(Окончание).AsString:=TimeEnd;.ADOTable1.FieldByName(Узлов).AsInteger:=k;.ADOTable1.FieldByName(Совпадений).AsInteger:=j;.ADOTable1.FieldByName(Среднее время жизни).AsString:=TimeToStr(SrTime);.ADOTable1.Post;.ADOTable1.Refresh;
Form2.ADOTable1.Last;
Примечание: автоматическое добавление записей в таблицы Соединения, Параметры поля и Начальные параметры происходит аналогично приведенному примеру выше, на таблице Испытание.
Отображение всех данных из Базы Данных.
ADOConnection1.Connected:=False;.ConnectionString:=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=+ExtractFilePath(Application.ExeName)+\БД\AllStat.mdb;Persist Security Info=False;.Connected:=True;.Active:=True;.Active:=True;.Active:=True;.Active:=True;.FieldByName(Id).Visible:=true;.FieldByName(Id).Visible:=false;.FieldByName(Id).Visible:=false;.FieldByName(Id).Visible:=false;.Columns[0].Title.Caption:=№;.Columns[0].Width:=20;.Columns[1].Width:=138;
MessageDlg(Ошибка при открытие Базы Данных!Доступ ограничен, либо отсутствует!+#13Данные испытаний не будут внесены в Базу,mtError,[mbOk],0);
ADOConnection1.Connected:=False;.N7.Enabled:=False;;;
Фильтрация Базы данных
.Filtered:=False;.Filtered:=False;.Filtered:=False;.Filter:=Испытание=+ADOTable1.FieldByName(Id).AsString; ADOTable3.Filter:=Испытание=+ADOTable1.FieldByName(Id).AsString;.Filter:=Испытание=+ADOTable1.FieldByName(Id).AsString; ADOTable2.Filtered:=True;.Filtered:=True;.Filtered:=True;
Автоматическая проверка на образование связей между узлов и образование сети:
procedure LifePath(j:integer);l,x0,y0,r1,x2,y2:integer;:byte; str:string;l:=j+1 to k do
//считывание параметров:=StrToInt(Form1.StringGrid1.Cells[6,j]);:=StrToInt(Form1.StringGrid1.Cells[1,j]);:=StrToInt(Form1.StringGrid1.Cells[2,j]);
//изменение параметров для вычислений в соответствие с радиусом
StrToInt(Form1.StringGrid1.Cells[6,l])then:=StrToInt(Form1.StringGrid1.Cells[6,l]);:=StrToInt(Form1.StringGrid1.Cells[1,l]);:=StrToInt(Form1.StringGrid1.Cells[2,l]);:=x2;:=y2;:=StrToInt(Form1.StringGrid1.Cells[1,l]);:=StrToInt(Form1.StringGrid1.Cells[2,l]);;">if r1>StrToInt(Form1.StringGrid1.Cells[6,l]) then:=StrToInt(Form1.StringGrid1.Cells[6,l]);:=StrToInt(Form1.StringGrid1.Cells[1,l]);:=StrToInt(Form1.StringGrid1.Cells[2,l]);:=x2;:=y2;:=StrToInt(Form1.StringGrid1.Cells[1,l]);:=StrToInt(Form1.StringGrid1.Cells[2,l]);;
//проверка соединения(sqr(x2-x0)+sqr(y2-y0))<=sqr(r1) then[j-1,l-1]:=1;[l-1,j-1]:=1;
//прорисовка соединения.Image1.Canvas.Brush.Style:=bsSolid;.Image1.Canvas.Pen.Color:=RGB(0,0,255);.Image1.Canvas.Pen.Width:=2;.Image1.Canvas.MoveTo(x0,y0);.Image1.Canvas.LineTo(x2,y2);.Image1.Canvas.Pen.Width:=1;[j-1,l-1]:=0;[l-1,j-1]:=0;;;
//проверка сети
if flag then
begin //проверка на разрыв сети
for l:=0 to Length(Net)-2 doConnect[Net[l],Net[l+1]]=0 then:=false;.StringGrid2.Cells[2,p]:=TimeToStr(Time);.StringGrid2.Cells[3,p]:=TimeToStr((StrToTime(Form1.StringGrid2.Cells[1,p])-Time)*20);p=ks then.Button1.Enabled:=False;.Button4.Enabled:=False;.Button2.Enabled:=True;.LabeledEdit1.Enabled:=True;.LabeledEdit2.Enabled:=True;.Timer1.Enabled:=false;:=TimeToStr(Time);.CheckBox1.Enabled:=True;
//GropuBox.LabeledEdit3.Enabled:=True;.LabeledEdit4.Enabled:=True;.Edit1.Enabled:=True;.Edit2.Enabled:=True;.Edit3.Enabled:=True;.Edit4.Enabled:=True;.Button5.Enabled:=True;
//ЗАПИСЬ В БДForm1.N7.Enabled then;(Ошибка при добавление данных в БД,mtError,[mbCancel],0);;;;
//проверка на появление сети
begin
for l:=0 to k-1 do
;:=str+IntToStr(Net[Length(Net)-1]+1);x0:=1toForm1.StringGrid2.RowCount-1doForm1.StringGrid2.Cells[0,x0]=then:=x0;.StringGrid2.Cells[0,p]:=str;.StringGrid2.Cells[1,p]:=TimeToStr(Time);:=;;;;;;;;;">begin:=0;j:=0 to k-1 do:=s+Connect[l,j];:=s-2;s=1 then:=nil;(l);Length(Net)=k then:=true;y0:=0 to Length(net)-2 do:=str+IntToStr(Net[y0]+1)+;:=str+IntToStr(Net[Length(Net)-1]+1);x0:=1 to Form1.StringGrid2.RowCount-1 doForm1.StringGrid2.Cells[0,x0]= then:=x