2.5 Опис програми

Процедура, яка визивається при виборі напрямку поїзда в списку

procedure TForm1.Button3Click(Sender: TObject);

begin

Відповідає за список і відкриває ту форму з таблицею, яку вибрали в списку з напрямами поїздів

if combobox1.ItemIndex=0 then form2.show;

if combobox1.ItemIndex = 1 then form4.show;

if combobox1.ItemIndex=2 then form5.show;

if combobox1.ItemIndex=3 then form6.show;

if combobox1.ItemIndex=4 then form7.show;

if combobox1.ItemIndex=5 then form8.show;

if combobox1.ItemIndex=6 then form9.show;

if combobox1.ItemIndex=7 then form10.show;

if combobox1.ItemIndex=8 then form11.show;

if combobox1.ItemIndex=9 then form12.show;

end;

Процедура виконує пошук

procedure TForm1.Button6Click(Sender: TObject);

var

col, Row : integer;

S: String;

q,w:integer;

begin

Слово яке ви надрукуєте у відповідне поле

S := Edit4.Text;

q:=row;

До змінної “q” присвоїмо “-1”

q := -1;

Через цикл for перевіряємо всі рядки в таблиці

for Col := 0 to form2.StringGrid1.ColCount - 1 do begin

q := form2.StringGrid1.Cols[Col].IndexOf(S);

if q > -1 then Break;

end;

Якщо наше слово співпало зі словом в таблиці, то рядок виділяемо

if q > -1 then

form2.StringGrid1.Selection := TGridRect(rect( 1,q,6,q ));

q := -1;

for Col := 0 to form2.StringGrid1.ColCount - 1 do begin

q := form2.StringGrid1.Cols[Col].IndexOf(S);

if q > -1 then Break;

end;

Якщо слово співпало, то відкриваємо форму з таблицею

if q > -1 then form2.Show else form2.Visible:=false;

for col:=0 to form2.stringgrid2.colcount-1 do begin

q:=form2.StringGrid2.Cols[col].IndexOf(s);

if q>-1 then break;

end;

if q > -1 then

form2.StringGrid2.Selection := TGridRect(rect( 1,q,6,q ));

procedure TForm1.FormShow(Sender: TObject);

begin

Ховаємо всі форми

form2.Show; form2.Visible:=false;

form4.Show; form4.Visible:=false;

form5.Show; form5.Visible:=false;

form6.Show; form6.Visible:=false;

form7.Show; form7.Visible:=false;

form8.Show; form8.Visible:=false;

form9.Show; form9.Visible:=false;

form10.Show; form10.Visible:=false;

form11.Show; form11.Visible:=false;

form12.Show; form12.Visible:=false;

form14.Show; form14.Visible:=false;

end;

Процедура, яка пряцює при натисканні на кнопку “Керівництво”

procedure TForm1.R1Click(Sender: TObject);

begin

Відкривається форма

form14.show;

end;

procedure TForm16.Button1Click(Sender: TObject);

Var I : Byte;

F : TextFile;

S : String;

Begin

Пов'язує дескриптор файлу з бінарним або текстовим файлом

AssignFile(F, form15.Edit1.Text);

Відкриває файл ждя запису

Rewrite(F);

For I := 1 to form2.StringGrid2.RowCount - 1 do

Begin

Присвоємо значення, які знаходяться в таблиці

S:=form2.StringGrid2.Cells[1,I]+' '+form2.StringGrid2.Cells[2,I]

+''+form2.StringGrid2.Cells[3,I]+' '+form2.StringGrid2.Cells[4,I]

+''+form2.StringGrid2.Cells[5,I]+' '+form2.StringGrid2.Cells[6,I]

+''+form2.StringGrid2.Cells[7,I]+' '+form2.StringGrid2.Cells[6,I];

Записуємо в файл

Writeln(F,S)

end;

Закриваємо файл

CloseFile(F)

end;

Викликається при натисканні “Справка”

procedure TForm1.N2Click(Sender: TObject);

begin

Виклакає діалогове вікно

MessageBox(Handle, 'Програма "Розклад руху поїздів". Написав програму Козак В.А., ОПСК-31', 'Розклад руху поїздів', 0);

end;

Процедура, яка заповнює таблиці

procedure TForm2.StringGrid1Enter(Sender: TObject);

begin

StringGrid1.Cells[5,0]:='Відправлення';

stringgrid1.Cells[4,0]:='Прибуття';

stringgrid1.Cells[2,0]:='Прибуття';

stringgrid1.Cells[3,0]:='Відправлення';

stringgrid1.Cells[1,0]:='Станції';

stringgrid1.Cells[0,0]:='№';

stringgrid1.Cells[0,1]:='1';

stringgrid1.Cells[0,2]:='2';

stringgrid1.Cells[0,3]:='3';

stringgrid1.Cells[0,4]:='4';

stringgrid1.Cells[0,5]:='5';

stringgrid1.Cells[0,6]:='6';

stringgrid1.Cells[0,7]:='7';

stringgrid1.Cells[0,8]:='8';

stringgrid1.Cells[0,9]:='9';

stringgrid1.Cells[0,10]:='10';

stringgrid1.Cells[1,1]:='Бахмач пас.';

stringgrid1.Cells[1,2]:='Часниківка';

stringgrid1.Cells[1,3]:='Доч';

stringgrid1.Cells[1,4]:='Бондарівка';

stringgrid1.Cells[1,5]:='Макошине';

stringgrid1.Cells[1,6]:='Мена';

stringgrid1.Cells[1,7]:='Низківка';

stringgrid1.Cells[1,8]:='Лютівка';

stringgrid1.Cells[1,9]:='Щимель';

stringgrid1.Cells[1,10]:='Щорс';

stringgrid1.Cells[2,1]:='-';

stringgrid1.Cells[2,2]:='8:40';

stringgrid1.Cells[2,3]:='9:06';

stringgrid1.Cells[2,4]:='9:28';

stringgrid1.Cells[2,5]:='9:43';

stringgrid1.Cells[2,6]:='9:57';

stringgrid1.Cells[2,7]:='10:23';

stringgrid1.Cells[2,8]:='10:31';

stringgrid1.Cells[2,9]:='10:42';

stringgrid1.Cells[2,10]:='10:52';

end;