Курсовая работа: База данных "Пассажирские железнодорожные перевозки"

QReport.SQL.Clear;

QReport.SQL.Add(SQLString);

QReport.Open;

frReport1.LoadFromFile(Path+'\ticket.frf');

frReport1.ShowReport;

with FormPay do

begin

ComboBox1.Text:= '';

ComboBox2.Text:= '';

RzDateTimeEdit1.Text:= '';

// RzToolButton1Click(sender);

with StringGrid1 do

begin

RowCount:= 2;

ColCount:=55;

for i:=1 to ColCount-1 do

begin

ColWidths[i]:=20;

Cells[i,0]:=IntToStr(i);

end;

end;

end;

end;

end;

end else ShowMessage('Не введены обязательные данные!');

3.3 Описание интерфейса пользователя

При запуске программы на выполнение на экране компьютера появляется следующее меню изображённое на рисунке 3.

Рисунок 3 – Главное окно