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.



 

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

45846. Модельный комплект 18.2 KB
  Конструкция модели должна обеспечивать быстрое удаление модели из формы без разрушения. величина усадки сплава выраженная в процентах серый чугун 1 цветные сплавы 15 углеродная сталь 2 ; формовочные уклоны на поверхностях перпендикулярных плоскости разъёма по ГОСТ 3212 для удобства извлечения модели из плоскости формы без разрушения; галтели скругления в местах сопряжения стенок и ребер величина которых зависит от толщины сопрягаемых стенок; знаковые части модели которые не участвуют в создании конфигурации отливки...
45847. Центробежное литьё (технология) 26.5 KB
  Этот способ применяют в настоящее время преимущественно для изготовления отливок представляющих собой тела вращения втулки трубы шестерни биметаллические втулки и т.За счёт вращения изложницы достигается высокая плотность отливки. возможно изготовление тел вращения а также изза ликвации { неоднородное старение }. Центробежное литьё получается на машинах с вертикальной и горизонтальной осью вращения.
45848. Сущность процесса ГОШ, оборудование, преимущества и недостатки, область применения 12.73 KB
  После калибровки точность поковок такая же как при мех. при штамповке увеличивается производительность труда до 800 поковок в смену. в противном случае размеры поковок выходят за требования чертежа. Процесс изготовления штамповых поковок: резка проката на мерные заготовки делается на прессножницах хладноломах пилами электромеханическая и газопламенная резка.
45849. Свободная ковка 156.88 KB
  Свободной ковкой можно получать поковки от самых малых размеров до самых крупных массой до 250300 т. Этим способом изготавливают поковки простой формы. Осадку применяют для увеличения площади поперечного сечения поковки. Раскаткой изготовляют поковки колец а протяжкой на оправке поковки сосудов высокого давления стволов орудий и др.
45850. Этапы проектирования штампованных поковок, получаемых ГОШ вдоль оси заготовок на молотах и КГШП 17.44 KB
  Автоматизированное рабочее место АРМ или в зарубежной терминологии рабочая станция worksttion представляет собой место пользователяспециалиста той или иной профессии оборудованное средствами необходимыми для автоматизации выполнения им определенных функций. Автоматизированное рабочее место АРМ определяется как правило совокупностью технических средств и программных средств. В качестве технических средств преимущественно используется ПК дополняемый по мере необходимости другими вспомогательными электронными устройствами:...
45851. Холодная штамповка. Операция вытяжка в листовой штамповке 42.56 KB
  Холодная штамповка имеет ряд преимуществ: отсутствует операция нагрева металла; поверхностный слой металла не окисляется отсутствует окалина; изделия получаются более точными по размерам и с меньшей шероховатостью поверхности. По сравнению с обработкой резанием холодная штамповка позволяет значительно сократить расход металла уменьшить трудоемкость изготовления изделий повысить производительность. Изготавливаемая вытяжкой деталь в зависимости от ее глубины и пластических свойств металла может быть изготовлена одной вытяжной...
45852. Сварка металлов 19.26 KB
  Основные виды сварки термического класса: Дуговая сварка сварка плавлением при которой нагрев осуществляется электрической дугой. Особым видом дуговой сварки являются плазменная сварка при котором нагрев осуществляется сжатой дугой. Газовая сварка сварка плавлением при которойкромки соединяющихся частей нагревают пламенем газов сжигаемых на выходе горелки для газовой сварки.
45853. Порошковая металлургия 17.54 KB
  Порошковая металлургия - это отрасль технологии занимающаяся изготовлением изделий из порошков металлов их окислов и смесей металлических и диэлектрических порошков. Методы и средства технологии порошковой металлургии или технологии металлокерамики как ее называют отличаются высокой экономичностью при изготовлении изделий позволяют получать материалы и детали характеризующиеся высокой механической прочностью жаростойкостью и особыми физикомеханическими свойствами. Порошковой металлургией изготавливают алмазнометаллические материалы...
45854. Основные понятия и определения. Механизация и автоматизация производства. Виды автоматизации производства 13.22 KB
  Механизация и автоматизация производства. Виды автоматизации производства. АПП развивается в направлении создании автоматизированных и автоматических систем машин и систем управления ими на разных уровнях производства. Автоматизация развивается одновременно с комплексной механизацией возникает и базируется на основе комплексномеханизированного производства.