Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm3 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit1, Unit2;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
begin
form1.adodataset1.Active:=false;
form1.ADODataSet1.CommandText:='SELECT Price.ID, Price.LG, Price.Öåíà FROM Price WHERE (((Price.LG) Like "%'+Edit1.text+' ñì%"));';
form1.adodataset1.Active:=true;
form2.Close;
end;
end;
end.
Форма 4:
unit Unit4;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm4 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit1, Unit2;
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
form1.adodataset1.Active:=false;
form1.ADODataSet1.CommandText:='SELECT Price.[ID], Price.[LG], Price.[Цена] FROM Price WHERE (((Price.[LG]) Like "%'+Edit3.text+' см%") AND ((Price.[Цена])>'+Edit1.text+' And (Price.[Цена])<'+Edit2.text+'));';
form1.adodataset1.Active:=true;
form2.Close;
end;
end.
Практическая работа
Создание приложения «Карточка студента» (модуль для учебной части)
Структура БД
Рис. 1. Таблицы БД «Base.mdb»
Столбцы таблицы Discipline:
Код_дисциплины (числовой)
Название_дисциплины (текстовый)
Столбцы таблицы Exam:
Код_ведомости (счётчик)
Вид промежуточной аттестации (текстовый)
Код_специальности (числовой)
Код_группы (текстовый)
Код_дисциплины (числовой)
Преподаватель (текстовый)
Столбцы таблицы Group:
Код_группы (счётчик)
Название_группы (текстовой)
Курс (числовой)
Столбцы таблицы Special:
Код_специальности (числовой)
Название специальности (текстовый)
Столбцы таблицы Student:
Код (счётчик)
Код_группы (числовой)
Код_специальности (числовой)
Фото (текстовый)
Фамилия (текстовый)
Имя (текстовый)
Отчество (текстовый)
Пол (текстовый)
Дата и год рождения (текстовый)
Гражданство (текстовый)
Адрес проживания (текстовый)
Адрес по прописке (текстовый)
Паспортные данные (текстовый)
Домашний телефон (текстовый)
Сотовый телефон (текстовый)
Чем увлекается в свободное время (текстовый)
Хобби (текстовый)
Посещаемые кружки, секций (текстовый)
Дополнительное образование (текстовый)
Достижения (текстовый)
Вредные привычки (текстовый)
Подпись студента (текстовый)
Подпись куратора (текстовый)
ФИО отца (текстовый)
Место жительства (текстовый)
Место работы, должность (текстовый)
Телефон сотовый (текстовый)
Телефон домашний (текстовый)
Телефон рабочий (текстовый)
ФИО матери (текстовый)
Место жительства2 (текстовый)
Место работы, должность2 (текстовый)
Телефон сотовый2 (текстовый)
Телефон домашний2 (текстовый)
Телефон рабочий2 (текстовый)
Столбцы таблицы Teacher:
Код_преподавателя (счётчик)
Фамилия (текстовый)
Имя (текстовый)
Отчество (текстовый)
Код_дисциплины (числовой)
Рис. 2. Схема данных БД «Base.mdb»
Структура программы
Рис. 3. Элементы формы
Рис. 4. Главная форма
Листинг программы
unit Unit1;