Компьютерное моделирование беспроводных AD-HOC сетей для целей расчета времени связи мобильных абонентов
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
9;;TForm1.N17Click(Sender: TObject);.Show;;TForm1.N18Click(Sender: TObject);OpenDialog.Execute() then.FormCreate(N18);;TForm1.N19Click(Sender: TObject);.Visible:=True;;TForm1.N9Click(Sender: TObject);GroupBox1.Visible then.Visible:=False.Visible:=True;;TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);s:string;,y:Byte;:=StringGrid1.Selection.Left;x=5 then:=StringGrid1.Selection.Top;:=StringGrid1.Cells[x,y];((Key=,)or(Key=.))and (Pos(,,s)=0)thens= then.Cells[x,y]:=0,;:=#0;;.Cells[x,y]:=s+,;:=#0;;;;((key#8) then:=#0;;TForm1.Button6Click(Sender: TObject);.Visible:=False;.Text:=IntToStr(Par[0]);.Text:=IntToStr(Par[1]);.Text:=IntToStr(Par[2]);.Text:=IntToStr(Par[3]);.Text:=IntToStr(Par[4]);.Text:=IntToStr(Par[5]);;TForm1.Button7Click(Sender: TObject);Patch:string;LabeledEdit5.Text= then(Введите имя Базы Данных!,mtConfirmation,[mbOK],0):=ExtractFilePath(Application.ExeName)+\БД\;not CopyFile(PWideChar(Patch+#.mdb),PWideChar(Patch+LabeledEdit5.Text+.mdb),True) then MessageDlg(База с таким именем уже существует! Перезаписать?,mtConfirmation,[mbNo,mbYes],0)=mrYes then(PWideChar(Patch+#.mdb),PWideChar(Patch+LabeledEdit5.Text+.mdb),False);(Patch+LabeledEdit5.Text+.mdb,128);.FormCreate(N19);.Visible:=False;;;TForm1.Button8Click(Sender: TObject);.Visible:=False;;TForm1.Button5Click(Sender: TObject);q,w:Real;(Edit1.Text=) or (Edit2.Text=) or (Edit3.Text=) or (Edit4.Text=)(LabeledEdit3.Text=) or (LabeledEdit4.Text=)then
MessageDlg(Не все поля начальных параметров заполнены!,mtConfirmation,[mbOK],0);
StrToInt(Edit2.Text))or(StrToInt(Edit3.Text)>StrToInt(Edit4.Text))(StrToInt(Edit1.Text)=0)or(StrToInt(Edit3.Text)=0)then">exit;;(StrToInt(Edit1.Text)>StrToInt(Edit2.Text)) or (StrToInt(Edit3.Text)>StrToInt(Edit4 .Text))(StrToInt(Edit1.Text)=0) or (StrToInt(Edit3.Text)=0) then
MessageDlg(Начальные параметры введены не верно!,mtConfirmation,[mbOK],0);
=StrToInt(LabeledEdit4.Text))and(StrToInt(LabeledEdit3.Text)StrToInt(LabeledEdit3.Text)) and (StrToInt(LabeledEdit4.Text)<StrToInt(Edit2.Text))) then
MessageDlg(Максимально возможный радиус не должен превышать максимум из ширины и высоты!,mtConfirmation,[mbOK],0);
46340)or(StrToInt(LabeledEdit4.Text)>46340)then">exit;;(StrToInt(LabeledEdit3.Text)>46340) or(StrToInt(LabeledEdit4.Text)>46340) then
MessageDlg(Ширина и высота не должны привышать 46340 м.!,mtConfirmation,[mbOK],0);
q)and(Image1.Heightq)and(Image1.Height<=Form1.Height-70))or((w<q)and(Image1.Width<=Form1.Width-300)));:=(Par[0]*Par[1])/(Image1.Width*Image1.Height);.Caption:=1 pix = +FloatToStr(sqrt(Pix))+ (м);;TForm1.N11Click(Sender: TObject);(By MMK-P453 Troitskiy Sergey 2010-2011);;.
Листинг программы (Unit2).Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ADODB, Grids, DBGrids, StdCtrls, XPMan;= class(TForm): TADOConnection;: TADOTable;: TDataSource;: TADOTable;: TADOTable;: TDataSource;: TDataSource;: TDBGrid;: TDBGrid;: TDBGrid;Id: TAutoIncField;DSDesigner: TWideStringField;DSDesigner2: TWideStringField;DSDesigner3: TWideStringField;DSDesigner4: TIntegerField;DSDesigner5: TIntegerField;DSDesigner6: TWideStringField;: TLabel;: TLabel;: TLabel;: TButton;: TXPManifest;: TButton;: TDBGrid;: TLabel;: TADOTable;: TDataSource;FormCreate(Sender: TObject);FormDestroy(Sender: TObject);DBGrid1CellClick(Column: TColumn);Button1Click(Sender: TObject);Button2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm2;Unit1;
{$R *.dfm}TForm2.FormCreate(Sender: TObject);:TSearchRec;:Word;,Patch,PNFile:string;:TDateTime;: TFileTime;: TSystemTime; Sender=Form1.N18 then // открытие выбранной Базы Данных
PNFile:=Form1.OpenDialog.FileNameif Sender=Form1.N19 then // открытие cозданной Базы Данных:=ExtractFilePath(Application.ExeName)+\БД\+Form1.LabeledEdit5.Text+.mdb
begin // Нахождение последней Базы Данных которая была изменена в папке БД в каталоге с программой
DateTimethen:=SR.Name;:=SystemTimeToDateTime(SystemTime);;;:=Patch+FileName;;">Patch:=ExtractFilePath(Application.ExeName)+\БД\;:=FindFirst(Patch+*.mdb,faArchive,SR);:=SR.Name;(sr.FindData.ftLastWriteTime, FileTime);(FileTime, SystemTime);:=SystemTimeToDateTime(SystemTime);result=0 do:=FindNext(SR);(sr.FindData.ftLastWriteTime, FileTime);(FileTime, SystemTime);SystemTimeToDateTime(SystemTime)>DateTime then:=SR.Name;:=SystemTimeToDateTime(SystemTime);;;:=Patch+FileName;;
// соединение и открытие Базы Данных
ADOConnection1.Connected:=False;.ConnectionString:=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=+PNFile+;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;
then.Filtered:=False;.Filtered:=False;.Filtered:=False;.Filter:=Испытание=+ADOTable1.FieldByName(Id).AsString;.Filter:=Испытание=+ADOTable1.FieldByName(Id).AsString;.Filter:=Испытание=+ADOTable1.FieldByName(Id).AsString;.Filtered:=True;.Filtered:=True;.Filtered:=True;;;TForm2.Button1Click(Sender: TObject);ADOTable2.Filtered then.Filtered:=False;.Filtered:=False;.Filtered:=False;;;TForm2.Button2Click(Sender: TObject);.Close;;.">// ADOTable3.FieldByName(Путь).Size:=30;(Ошибка при открытие Базы Данных!Доступ ограничен, либо отсутствует!,mtError,[mbOk],0);.Connected:=False;.N7.Enabled:=False;;;TForm2.FormDestroy(Sender: TObject);.N7.Enabled:=False;;TForm2.DBGrid1CellClick(Column: TColumn);ADOTable1.Fields[0].AsString<> then.Filtered:=False;.Filtered:=False;.Filtered:=False;.Filter:=Испытание=+ADOTable1.FieldByName(Id).AsString;.Filter:=Испытание=+ADOTable1.FieldByName(Id).AsString;.Filter:=Испытание=+ADOTable1.FieldByName(Id).AsString;.Filtered:=True;.Filtered:=True;.Filtered:=True;;;TForm2.Button1Click(Sender: TObject);ADOTable2.Filtered then.Filtered:=False;.Filtered:=False;.Filtered:=False;;;TForm2.Button2Click(Sender: TObject);.Close;;.