11734

Клиентская часть: размещение визуальных компонентов отображения таблиц

Лабораторная работа

Информатика, кибернетика и программирование

Лабораторная работа № 6 Клиентская часть: размещение визуальных компонентов отображения таблиц Цель: закрепить практические умения и навыки управления визуальными компонентами отображения таблиц организации запроса. Закрепление навыков работы в среде программир...

Русский

2013-04-10

16.53 KB

1 чел.

Лабораторная работа № 6

Клиентская часть: размещение визуальных компонентов отображения таблиц

Цель: закрепить практические умения и навыки управления визуальными компонентами отображения таблиц, организации запроса.

Закрепление навыков работы в среде программирования Delphi.

  Выполнил: Скворцов И.А.

  Группа: 091-ПО

Преподаватель: Афанасьева Г.Ю.

      Дата:15.02.2013

Ход работы:

Поместил на форму следующие компоненты:

  1.  ADODataSet
  2.  DataSource
  3.  ADOTable
  4.  DBGrid
  5.  DBNavigator

Компонент

Свойство

Значение

ADODataSet1

Connection

ADOConnection1

ADOTable1

Connection

ADOConnection1

DataSource11

DataSet

ADOTable1

DBGrid1

DataSource

DataSource1

DBNavigator1

DataSource

DataSource1

Поместил на форму компоненты: два компонента ComboBox, Memo, 2 компонента Button, OpenDialog.

Листинг программы:

procedure TForm1.BOpenSQLClick(Sender: TObject);

begin

adodataset1.Close;

adotable1.Close;

datasource1.DataSet:=adodataset1;

adoDataSet1.CommandText:=Memo1.Text;

try

adodataset1.Active:=true;

except on e: Exception do

begin

Messagedlg('Неправильный синтаксис SQL-команды', mtError, [mbOK], 0);

adodataset1.Close;

end; end; end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if opendialog1.Execute then begin

adoconnection1.ConnectionString:='FILE NAME='+opendialog1.FileName;

adoconnection1.Provider:=opendialog1.FileName;

adoconnection1.Open;

end; end;

procedure TForm1.BCloseClick(Sender: TObject);

begin

if (adodataset1.State=dsedit) or (adodataset1.State=dsinsert) then adodataset1.Post;

if (adotable1.State=dsedit) or (adotable1.State=dsinsert) then adotable1.Post;

adoconnection1.Connected:=false;

close;

end;

procedure TForm1.ComboBox1DropDown(Sender: TObject);

begin

  adoconnection1.Open;

adoconnection1.GetTableNames(combobox1.Items);

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

adoconnection1.GetFieldNames(combobox1.Text, combobox2.items);

adodataset1.Close;

adotable1.Close;

datasource1.DataSet:=adotable1;

adotable1.TableName:=combobox1.Text;

try

adotable1.Open;

except on e: Exception do

begin

Messagedlg('Проверьте соединение', mtError, [mbOK], 0);

adotable1.Close;

end; end;

combobox1.Text:='';

combobox2.Text:='';

end;

procedure TForm1.N11Click(Sender: TObject);

begin

ShellExecute(Form1.Handle, nil, 'Путь к файлу связи.udl', nil, nil, sw_shownormal);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if (adoDAtaSet1.State=dsedit) or (adoDAtaSet1.State=dsinsert) then adoDAtaSet1.Post;

if (adotable1.State=dsedit) or (adotable1.State=dsinsert) then adotable1.Post;

adoconnection1.Close;

end;

procedure TForm1.ComboBox2Change(Sender: TObject);

begin

adodataset1.Close;

adotable1.Close;

datasource1.DataSet:=adodataset1;

adoDataSet1.CommandText:='Select '+combobox2.Text+' From '+combobox1.Text;

try

adodataset1.Active:=true;

except on e: Exception do

begin

Messagedlg('Проверьте соединение', mtError, [mbOK], 0);

adodataset1.Close;

end;end;

combobox2.Text:='';

end; end.

Вывод: закрепили практические умения и навыки управления визуальными компонентами отображения таблиц, организации запроса.

Закрепили навыки работы в среде программирования Delphi.



 

А также другие работы, которые могут Вас заинтересовать

38830. Методическое пособие по написанию и оформлению выпускной квалификационной работы 501 KB
  62 – Земельный кадастр Квалификация степень выпускника бакалавринженер Краснодар 2013 Рецензент: Декан инженерноземлеустроительного факультета и факультета земельного кадастра профессор к. Гаврюхов Рекомендованы к изданию учебно – методической комиссией инженерно – землеустроительного факультета и факультета земельного кадастра протокол № 7 от 23 апреля 2013 г. Методическое пособие рекомендовано студентам бакалаврам очной и заочной форм обучения инженерноземлеустроительного факультета и факультета земельного кадастра...
38831. Методические рекомендации по выполнению выпускной квалификационной (дипломной) работы 151.5 KB
  Для оказания помощи студенту в подготовке выпускной квалификационной дипломной работы назначается научный руководитель. Права и обязанности сторон в процессе подготовки выпускной квалификационной дипломной работы регламентируются нормативными актами высшей школы образовательными стандартами учебными планами и требованиями ИЭ и ВЭС ЮФУ. Выпускник обязан: в соответствии с учебным планом и требованиями ИЭ и ВЭС ЮФУ выбрать научного руководителя и тему выпускной квалификационной дипломной работы; в полном объеме и своевременно...
38833. МЕТОДИЧЕСКИЕ РЕКОМЕНДАЦИИ ПО ВЫПОЛНЕНИЮ ВЫПУСКНОЙ КВАЛИФИКАЦИОННОЙ РАБОТЫ 159 KB
  Подготовка и защита дипломного проекта являются завершающим этапом обучения студентов. Выпускная квалификационная работа должна отражать реальный профессиональный уровень документоведа по специальности «Документоведение и документационное обеспечение управления»
38834. Розроблення, оформлення та захист дипломних проектів 3.81 MB
  Мета та завдання дипломного проектування. Тематика дипломного проектування. Порядок проведення та контролю дипломного проектування. Обов’язки керівника дипломного проекту.
38835. Методические рекомендации по подготовке, написанию, оформлению и защите дипломного проекта 193.5 KB
  Менеджмент организации Цель и задачи дипломного проекта Выбор темы дипломного проекта и ее утверждение Задание на дипломный проект Структура и примерный план дипломного проекта Краткое содержание составных частей дипломного проекта Основные этапы и сроки выполнения дипломного проекта Изложение текстового материала дипломного проекта Порядок оформления материалов дипломного проекта к защите Руководитель дипломного проекта Внешнее рецензирование дипломного проекта Доклад при защите дипломного...
38836. МЕТОДИЧНІ РЕКОМЕНДАЦІЇ ЩОДО ВИКОНАННЯ ДИПЛОМНИХ МАГІСТЕРСЬКИХ РОБІТ 243.5 KB
  заступник декана юридичного факультету з наукової роботи завідувач кафедри кримінальноправових дисциплін Харківського національного університету ім. ПОНЯТТЯ МЕТА І ЗАВДАННЯ ДИПЛОМНОЇ МАГІСТЕРСЬКОЇ РОБОТИ Дипломна магістерська робота є самостійним закінченим науковим дослідженням в галузі кримінального права кримінології або кримінальновиконавчого права що виконане у вигляді спеціально підготовленого рукопису яке характеризується єдністю змісту і свідчить про внесок автора в науку. Вона виконується на базі теоретичних знань і...
38837. МЕТОДИЧНІ ВКАЗІВКИ до виконання, оформлення та захисту дипломних робіт 275 KB
  Методичні вказівки до виконання оформлення та захисту дипломних робіт студентів юридичного факультету спеціальності “Правознавство†містять загальні положення щодо організації підготовки дослідження побудови структури та оформлення роботи підготовки до попереднього захисту та захисту дипломної роботи в Державній екзаменаційній комісії. Вибір теми дипломної роботи 8 1. Затвердження теми дипломної роботи та наукового керівника 10 РОЗДІЛ 2. ПРОВЕДЕННЯ ДОСЛІДЖЕННЯ НАПИСАННЯ ДИПЛОМНОЇ РОБОТИ 12 2.
38838. МЕТОДИЧНІ ВКАЗІВКИ ТА ВИМОГИ до виконання та захисту магістерської дипломної роботи 371.5 KB
  У процесі виконання дипломної роботи студент відповідно до кваліфікаційних вимог повинен виявити: знання загальнотеоретичних загальноекономічних професійноорієнтованих і спеціальних дисциплін які розкривають теоретичні основи та практичні питання щодо зовнішньоекономічної діяльності підприємства розробки та реалізації стратегії та тактики управління міжнародною комерційною діяльністю; вміння відбирати систематизувати та обробляти інформацію відповідно до цілей дослідження; вміння визначати і використовувати причиннонаслідкові...