50134 (Создание базы данных "Wc3 Cybersport Data Base"), страница 3

2016-07-30СтудИзба

Описание файла

Документ из архива "Создание базы данных "Wc3 Cybersport Data Base"", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.

Онлайн просмотр документа "50134"

Текст 3 страницы из документа "50134"

begin

Title.Caption:=Form1.Name;

// Buildind Report

Form1.MyQuery1.First;

for x:=0 to Form1.DBGrid1.Columns.Count-1 do begin

LabelMassive[x]:=TQRLabel.Create(form2);

LabelMassive[x].Parent:=Columnheaderband1;

LabelMassive[x].Font.Style:=[fsbold];

LabelMassive[x].Caption:=Form1.DBGrid1.Columns[x].FieldName;

LabelMassive[x].Top:=trunc(columnheaderband1.Height/2);

labelmassive[x].AutoSize:=false;

labelmassive[x].Width:=Form1.DBGrid1.Columns[x].Width;

// labelmassive[x].Frame.DrawRight:=true;

if x>0 then LabelMassive[x].Left:=trunc(quickrep1.Width/(Form1.DBGrid1.Columns.Count+1))+LabelMassive[x-1].Left+labelmassive[x-1].width-LabelMassive[x].Width

else LabelMassive[x].Left:=trunc(quickrep1.Width/(Form1.DBGrid1.Columns.Count+1))-LabelMassive[x].Width;

LabelMassive[x].Show;

end;

for x:=0 to Form1.DBGrid1.Columns.Count-1 do begin

TextMassive[x]:=TQRDBtext.Create(form2);

TextMassive[x].Parent:=Detailband1;

TextMassive[x].DataSet:=Form1.MyQuery1;

TextMassive[x].DataField:=Form1.DBGrid1.Columns[x].FieldName;

TextMassive[x].Top:=trunc(detailband1.Height/2);

Textmassive[x].AutoSize:=false;

Textmassive[x].Width:=Form1.DBGrid1.Columns[x].Width;

// textmassive[x].Frame.DrawRight:=true;

if x>0 then textMassive[x].Left:=trunc(quickrep1.Width/(Form1.DBGrid1.Columns.Count+1))+textMassive[x-1].Left+textmassive[x-1].width-textMassive[x].Width

else textMassive[x].Left:=trunc(quickrep1.Width/(Form1.DBGrid1.Columns.Count+1))-textMassive[x].Width;

textMassive[x].Show;

end;

end;

procedure TForm2.Button3Click(Sender: TObject);

var

x:integer;

begin

for x:=0 to Form1.DBGrid1.Columns.Count-1 do begin

labelmassive[x].Free;

textmassive[x].Free;

end;

form2.hide;

end;

Свежие статьи
Популярно сейчас
А знаете ли Вы, что из года в год задания практически не меняются? Математика, преподаваемая в учебных заведениях, никак не менялась минимум 30 лет. Найдите нужный учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4098
Авторов
на СтудИзбе
667
Средний доход
с одного платного файла
Обучение Подробнее