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.



 

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

7570. Политика управления оборотными активами 95 KB
  Политика управления оборотными активами Политика управления оборотными активами заключается в воздействии на объем и структуру оборотных активов, а также на источники его формирования с целью повышения эффективности использования. Главной целью упра...
7571. Конституционное право-ведущая отрасль права в Республике Беларусь 78 KB
  ТЕМА 1. Введение. Конституционное право-ведущая отрасль права в Республике Беларусь. Понятие и предмет конституционного права Республики Беларусь как отрасли права Место конституционного права в системе права Республики Беларусь Консти...
7572. Теоретические основы конституции и процессы ее развития 80 KB
  Теоретические основы конституции и процессы ее развития Понятие, сущность, юридические свойства, функции Конституции Роль конституции в правовой системе и ее отличие от иных правовых актов Этапы Конституционного развития Белар...
7573. Основы конституционного строя республики Беларусь 85 KB
  ТЕМА 3. Основы конституционного строя республики Беларусь 3.1. Понятие и структура конституционного строя Республики Беларусь 3.2. Конституционные основы экономической системы общества 3.3. Конституционные основы политической системы общества 3.4. К...
7574. Конституционные основы правового статуса человека и гражданина 125.5 KB
  ТЕМА 4. Конституционные основы правового статуса человека и гражданина 4.1. Понятие и элементы конституционно-правового статуса личности в Республике Беларусь 4.2. Понятие, особенности и классификация конституционных (основных) прав и свобод граждан...
7575. Административно-территориальное устройство республики Беларусь 52.5 KB
  Административно-территориальное устройство республики Беларусь Понятие и принципы административно-территориального устройства Республики Беларусь Виды административно-территориальных единиц в Республике Беларусь Порядок решени...
7576. Избирательное право и избирательная система республики Беларусь 88 KB
  ТЕМА 6. Избирательное право и избирательная система республики Беларусь Понятие избирательного права, избирательной системы. Источники избирательного права Республики Беларусь Конституционные принципы избирательного права Республики Белару...
7577. Референдум (народное голосование) в республике Беларусь 49.5 KB
  Референдум (народное голосование) в республике Беларусь Понятие, назначение и виды референдумов. Порядок организации и проведения республиканского референдума Порядок организации и проведения местного референдума. Юридиче...
7578. Понятие и система государственных органов в республике Беларусь 38 KB
  ТЕМА 8. Понятие и система государственных органов в республике Беларусь Понятие, виды и система государственных органов Понятия власть и субъект власти ПОНЯТИЕ, ВИДЫ И СИСТЕМА ГОСУДАРСТВЕННЫХ ОРГАНОВ Государственный орган...