Справочная служба кинотеатров города. Программная система менеджера музыкальных групп

Open App.Path & "\" & "4_дата.rtf" For Input As f

Do While Not EOF(f)

Input #f, txt

List1.AddItem (txt)

Loop

Close #f

 

Open App.Path & "\" & "4_город.rtf" For Input As f

Do While Not EOF(f)

Input #f, a

List2.AddItem (a)

Loop

Close #f

 

Open App.Path & "\" & "4_страна.rtf" For Input As f

Do While Not EOF(f)

Input #f, b

List3.AddItem (b)

Loop

Close #f

 

Open App.Path & "\" & "4_площадка.rtf" For Input As f

Do While Not EOF(f)

Input #f, c

List4.AddItem (c)

Loop

Close #f

End If

If Form1.Combo1.ListIndex = 5 Then

Label5.Caption = "2008"

Open App.Path & "\" & "5_дата.rtf" For Input As f

Do While Not EOF(f)

Input #f, txt

List1.AddItem (txt)

Loop

Close #f

 

Open App.Path & "\" & "5_город.rtf" For Input As f

Do While Not EOF(f)

Input #f, a

List2.AddItem (a)

Loop

Close #f

 

Open App.Path & "\" & "5_страна.rtf" For Input As f

Do While Not EOF(f)

Input #f, b

List3.AddItem (b)

Loop

Close #f

 

Open App.Path & "\" & "5_площадка.rtf" For Input As f

Do While Not EOF(f)

Input #f, c

List4.AddItem (c)

Loop

Close #f

End If

If Form1.Combo1.ListIndex = 6 Then

Label5.Caption = "2011"

Open App.Path & "\" & "6_дата.rtf" For Input As f

Do While Not EOF(f)

Input #f, txt

List1.AddItem (txt)

Loop

Close #f

 

Open App.Path & "\" & "6_город.rtf" For Input As f

Do While Not EOF(f)

Input #f, a

List2.AddItem (a)

Loop

Close #f

 

Open App.Path & "\" & "6_страна.rtf" For Input As f

Do While Not EOF(f)

Input #f, b

List3.AddItem (b)

Loop

Close #f

 

Open App.Path & "\" & "6_площадка.rtf" For Input As f

Do While Not EOF(f)

Input #f, c

List4.AddItem (c)

Loop

Close #f

End If

If Form1.Combo1.ListIndex = 7 Then

Label5.Caption = "2011"

Open App.Path & "\" & "7_дата.rtf" For Input As f

Do While Not EOF(f)

Input #f, txt

List1.AddItem (txt)

Loop

Close #f

 

Open App.Path & "\" & "7_город.rtf" For Input As f

Do While Not EOF(f)

Input #f, a

List2.AddItem (a)

Loop

Close #f

 

Open App.Path & "\" & "7_страна.rtf" For Input As f

Do While Not EOF(f)

Input #f, b

List3.AddItem (b)

Loop

Close #f

 

Open App.Path & "\" & "7_площадка.rtf" For Input As f

Do While Not EOF(f)

Input #f, c

List4.AddItem (c)

Loop

Close #f

End If

 

If Form1.Combo1.ListIndex = 8 Then

Label5.Caption = "2011"

Open App.Path & "\" & "8_дата.rtf" For Input As f

Do While Not EOF(f)

Input #f, txt

List1.AddItem (txt)

Loop

Close #f

 

Open App.Path & "\" & "8_город.rtf" For Input As f

Do While Not EOF(f)

Input #f, a

List2.AddItem (a)

Loop

Close #f

 

Open App.Path & "\" & "8_страна.rtf" For Input As f

Do While Not EOF(f)

Input #f, b

List3.AddItem (b)

Loop

Close #f

 

Open App.Path & "\" & "8_площадка.rtf" For Input As f

Do While Not EOF(f)

Input #f, c

List4.AddItem (c)

Loop

Close #f

End If

End Sub

 

Delphi

 

procedure TForm1.Timer1Timer(Sender: TObject); - когда полоса загрузки дойдет до конца, тогда откроется основная форма (form2), а форма загрузки (form1) закроется.

begin

ProgressBar1.Position:= ProgressBar1.Position+1;

if (ProgressBar1.Position=progressbar1.Max) then  begin

form2.Show;

form1.Visible:= false;

end;

end;

 

procedure TForm2.FormCreate(Sender: TObject); - при загрузке формы в stringgrid добавляются значения и нумеруются строки.

var i, j:integer;

begin

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

stringgrid1.Cells[1,0]:='Название кинотеатра';

stringgrid1.Cells[2,0]:='Расположение кинотеатра';

stringgrid1.Cells[3,0]:='Категория';

stringgrid1.Cells[4,0]:='Вместимость';

for i:=1 to stringgrid1.RowCount-1 do

stringgrid1.Cells[0,i]:=inttostr(i);

 

for i:=1 to stringgrid2.rowcount-1 do

stringgrid2.Cells[0,i]:=inttostr(i);

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

stringgrid2.Cells[1,0]:='Название фильма';

stringgrid2.Cells[2,0]:='Режиссер';

stringgrid2.Cells[3,0]:='Актеры';

stringgrid2.Cells[4,0]:='Жанр';

stringgrid2.Cells[5,0]:='Производство';

stringgrid2.Cells[6,0]:='Призы от кинофестивалей';

stringgrid2.Cells[7,0]:='Продолжительность сеанса';

 

Tbbtn1:=bitbtn1.top/(form2.height/100); - объявляются переменные, в которых содержатся размеры, отношения от границ для всех элементов программы.

Lbbtn1:=bitbtn1.left/(form2.width/100);

Hbbtn1:=bitbtn1.height/(form2.height/100);

Wbbtn1:=bitbtn1.width/(form2.width/100);

Tbbtn2:=bitbtn2.top/(form2.height/100);

Lbbtn2:=bitbtn2.left/(form2.width/100);

Hbbtn2:=bitbtn2.height/(form2.height/100);

Wbbtn2:=bitbtn2.width/(form2.width/100);

 

Tstrg1:=stringgrid1.top/(form2.height/100);

Lstrg1:=stringgrid1.left/(form2.width/100);

Hstrg1:=stringgrid1.height/(form2.height/100);

Wstrg1:=stringgrid1.width/(form2.width/100);

 

Tpage1:=pagecontrol1.top/(form2.height/100);

Lpage1:=pagecontrol1.left/(form2.width/100);

Hpage1:=pagecontrol1.height/(form2.height/100);

Wpage1:=pagecontrol1.width/(form2.width/100);

 

Tbbtn3:=bitbtn3.top/(form2.height/100);

Lbbtn3:=bitbtn3.Left/(form2.Width/100);

Hbbtn3:=bitbtn3.Height/(form2.Height/100);

Wbbtn3:=bitbtn3.Width/(form2.Width/100);

 

Tstrg2:=stringgrid2.Top/(form2.Height/100);

Lstrg2:=stringgrid2.Left/(form2.Width/100);

Hstrg2:=stringgrid2.Height/(form2.Height/100);

Wstrg2:=stringgrid2.Width/(form2.Width/100);

 

Tbbtn4:=bitbtn4.Top/(form2.Height/100);

Lbbtn4:=bitbtn4.Left/(form2.Width/100);

Hbbtn4:=bitbtn4.Height/(form2.Height/100);

Wbbtn4:=bitbtn4.Width/(form2.Width/100);

 

Tlb1:=listbox1.Top/(form2.Height/100);

Llb1:=listbox1.Left/(form2.Width/100);

Hlb1:=listbox1.Height/(form2.Height/100);

Wlb1:=listbox1.Width/(form2.Width/100);

 

Timg1:=image1.Top/(form2.Height/100);

Limg1:=image1.Left/(form2.Width/100);

Himg1:=image1.Height/(form2.Height/100);

Wimg1:=image1.Width/(form2.Width/100);

 

Timg2:=image2.Top/(form2.Height/100);

Limg2:=image2.Left/(form2.Width/100);

Himg2:=image2.Height/(form2.Height/100);

Wimg2:=image2.Width/(form2.Width/100);

 

Timg3:=image3.Top/(form2.Height/100);

Limg3:=image3.Left/(form2.Width/100);

Himg3:=image3.Height/(form2.Height/100);

Wimg3:=image3.Width/(form2.Width/100);

 

Tlbl1:=label1.Top/(form2.Height/100);

Llbl1:=label1.Left/(form2.Width/100);

Hlbl1:=label1.Height/(form2.Height/100);

Wlbl1:=label1.Width/(form2.Width/100);

 

Tlbl2:=label2.Top/(form2.Height/100);

Llbl2:=label2.Left/(form2.Width/100);

Hlbl2:=label2.Height/(form2.Height/100);

Wlbl2:=label2.Width/(form2.Width/100);

 

Tlbl3:=label3.Top/(form2.Height/100);

Llbl3:=label3.Left/(form2.Width/100);

Hlbl3:=label3.Height/(form2.Height/100);

Wlbl3:=label3.Width/(form2.Width/100);

 

Tlbl4:=label4.Top/(form2.Height/100);

Llbl4:=label4.Left/(form2.Width/100);

Hlbl4:=label4.Height/(form2.Height/100);

Wlbl4:=label4.Width/(form2.Width/100);

 

Tlbl6:=label6.Top/(form2.Height/100);

Llbl6:=label6.Left/(form2.Width/100);

Hlbl6:=label6.Height/(form2.Height/100);

Wlbl6:=label6.Width/(form2.Width/100);

 

Tlbl7:=label7.Top/(form2.Height/100);

Llbl7:=label7.Left/(form2.Width/100);

Hlbl7:=label7.Height/(form2.Height/100);

Wlbl7:=label7.Width/(form2.Width/100);

 

Tlbl8:=label8.Top/(form2.Height/100);

Llbl8:=label8.Left/(form2.Width/100);

Hlbl8:=label8.Height/(form2.Height/100);

Wlbl8:=label8.Width/(form2.Width/100);

 

Tlbl9:=label9.Top/(form2.Height/100);

Llbl9:=label9.Left/(form2.Width/100);

Hlbl9:=label9.Height/(form2.Height/100);

Wlbl9:=label9.Width/(form2.Width/100);

 

Tlbl10:=label10.Top/(form2.Height/100);

Llbl10:=label10.Left/(form2.Width/100);

Hlbl10:=label10.Height/(form2.Height/100);

Wlbl10:=label10.Width/(form2.Width/100);

 

Tlbl11:=label11.Top/(form2.Height/100);

Llbl11:=label11.Left/(form2.Width/100);

Hlbl11:=label11.Height/(form2.Height/100);

Wlbl11:=label11.Width/(form2.Width/100);

 

Tlbl12:=label12.Top/(form2.Height/100);

Llbl12:=label12.Left/(form2.Width/100);

Hlbl12:=label12.Height/(form2.Height/100);

Wlbl12:=label12.Width/(form2.Width/100);

 

Tlbl13:=label13.Top/(form2.Height/100);

Llbl13:=label13.Left/(form2.Width/100);

Hlbl13:=label13.Height/(form2.Height/100);

Wlbl13:=label13.Width/(form2.Width/100);

 

Tlbl14:=label14.Top/(form2.Height/100);

Llbl14:=label14.Left/(form2.Width/100);

Hlbl14:=label14.Height/(form2.Height/100);

Wlbl14:=label14.Width/(form2.Width/100);

 

Tlbl15:=label15.Top/(form2.Height/100);

Llbl15:=label15.Left/(form2.Width/100);

Hlbl15:=label15.Height/(form2.Height/100);

Wlbl15:=label15.Width/(form2.Width/100);

 

Tlbl21:=label21.Top/(form2.Height/100);

Llbl21:=label21.Left/(form2.Width/100);

Hlbl21:=label21.Height/(form2.Height/100);

Wlbl21:=label21.Width/(form2.Width/100);

 

Tlbl22:=label22.Top/(form2.Height/100);

Llbl22:=label22.Left/(form2.Width/100);

Hlbl22:=label22.Height/(form2.Height/100);

Wlbl22:=label22.Width/(form2.Width/100);

 

Tlbl23:=label23.Top/(form2.Height/100);

Llbl23:=label23.Left/(form2.Width/100);

Hlbl23:=label23.Height/(form2.Height/100);

Wlbl23:=label23.Width/(form2.Width/100);

 

Tlbl24:=label24.Top/(form2.Height/100);

Llbl24:=label24.Left/(form2.Width/100);

Hlbl24:=label24.Height/(form2.Height/100);

Wlbl24:=label24.Width/(form2.Width/100);

 

Tlbl25:=label25.Top/(form2.Height/100);

Llbl25:=label25.Left/(form2.Width/100);

Hlbl25:=label25.Height/(form2.Height/100);

Wlbl25:=label25.Width/(form2.Width/100);

end;

 

procedure TForm2.FormActivate(Sender: TObject); - при загрузке формы в stringgrid1 считывается информация из data.txt. А также срабатывает нажатие скрытой кнопки открытия data2.txt для заполнения stringgrid2.

const

  Fn = 'data.txt';

var

  F : TextFile;

  Sg : TStringGrid;

  i, j, Num, b : Integer;

  S : String;

begin

  Sg := StringGrid1;

  AssignFile(F, Fn);

  Reset(F);

  //Чтение сведений о размерах таблицы.

  //Общее количество  строк.

  Readln(F, Num);

  if Num = 0 then begin

    ShowMessage('Неверный формат файла. Действие отменено.');

    CloseFile(F);

    Exit;

  end;

  //Очистка лишних  строк. Это действие предусмотрено  для устранений

  //последствий бага TStringGrid. - TStringGrid при уменьшении числа

  //строк, может на  самом деле их не удалить,  а только скрыть.

  //И в дальнейшем, при добавлении новых строк, вместо появления пустых

  //строк могут появиться  ранее скрытые строки с прежними  данными.

  //Это касается  также и столбцов.

  if Num < Sg.RowCount then

    for i := Num - 1 to Sg.RowCount - 1 do

      Sg.Rows[i].Clear

  ;

  Sg.RowCount := Num;

  //Общее количество столбцов.

  Readln(F, Num);

  if Num = 0 then begin

    ShowMessage('Неверный формат файла. Действие отменено.');

    CloseFile(F);

    Exit;