Волжский университет имени В.Н.Татищева
Факультет “Информатика и телекоммуникации”
Кафедра “Информатика и системы управления”
КУРСОВАЯ РАБОТА
по дисциплине: “Базы данных и знаний”
Тема: “Продажа и учет лекарственных средств ”
Выполнил:
студент гр. ИТ-311
Захаров Д.В.
Преподаватель:
Трубачева С.И.
Тольятти
2003
Волжский университет имени В.Н.Татищева
Факультет “Информатика и телекоммуникации”
Кафедра “Информатика и системы управления”
Специальность:
ЗАДАНИЕ
на курсовой проект по дисциплине
“Базы данных и знаний”
Студенту_ Захарову Д.В.
Группа___ИТ-311
Тема проекта_ Автоматизация продажи и учета лекарственных средств.
Календарный график задания_________________________________________
СОДЕРЖАНИЕ ЗАДАНИЯ
1. Изучить объект, его взаимосвязи.
2. Описать основные функции.
3. Создать таблицы.
4. Спроектировать диаграммы с помощью IDEF0, IDEF1
5. Спроектировать базу данных с помощью СУБД DELPHI.
6. Создать приложение, учитывая ввод, сохранение, удаление ненужных данных, редактирование имеющихся данных, позволяющие осуществить поиск.
Руководитель курсовой работы ______________________ / /
Студент ______________________ / /
Дата выдачи: “ ____ “ __________ 2002 г.
СОДЕРЖАНИЕ
1. Введение
2. Теоретическая часть
2.1 Постановка задачи
2.2 Описание предметной области
2.3 Построение SADT модели
Реляционные базы данных представляют связанную между собой совокупность таблиц баз данных. Связь между таблицами может находить свое отражение в структуре данных, а может только подразумеваться, то есть присутствовать на неформализованном уровне. В каждой таблице базы данных может существовать первичный ключ. Под первичным ключом понимают поле или набор полей, однозначно идентифицирующий запись. Значение первичного ключа в таблице базы данных должно быть уникальным, то есть в таблице не должно существовать двух или более записей с одинаковым значением первичного ключа. Первичный ключ должен быть минимально достаточным: в нем не должно быть полей, удаление которых из первичного ключа не отразится на его уникальности.
Так как в курсовом проекте представлена БД которая работает в сети следует это рассмотреть по подробнее. При работе с локальными базами данных сами БД расположены на том же компьютере, что и приложения, осуществляющие доступ к ним. Работа с БД происходит в однопользовательском режиме. BDE расположена на компьютере пользователя. Приложение ответственно за поддержание целостности БД и за выполнение запросов к БД. Общая схема однопользовательской архитектуры.
2. ТЕОРИТИЧЕСКАЯ ЧАСТЬ
2.1 Постановка задачи
Организация занимается продажей и учетом лекарственных средств.
Фирме поставляют лекарства предприятия, с которыми подписан контракт.
Диаграмма представлена в Приложении 2.
3. СОЗДАНИЕ ПРИЛОЖЕНИЯ В DELPHI
3.1 Работа с утилитой BDE Administrator
Назначение BDE Administrator
В Delphi для доступа к базам данных из приложения, как известно использует-ся цепочка "Приложение -> BDE -> База данных". Это означает что при любом обра-щении к БД из приложения реально адресуется BDE (напомним, это аббревиатура Borland Database Engine, машины баз данных фирмы Borland). BDE, используя соб-ственные функции, связывав непосредственно с базой данных. Действия, осуществля-емые при этом ВDE мы здесь обсуждать не будем, поскольку эта тема отдельного рассмотрения.
Для работы с конкретной базой данных BDE, во-первых, должна знать:
* где БД физически расположена;
* параметры этой БД;
* общие параметры драйвера БД того типа, к которому принадлежит. обрабатываемая БД;
* общие системные установки.
Параметры драйвера БД определяют параметры конкретной БД, знача которых не указаны.
Системные установки являются общими для всех драйверов.
Замечание. Те, кто работал с Delphi версий 1 и 2, будут поначалу неприятно удивлены, не обнаружив в 3-ей версии BDE Configuration Utility. Именно её функции и выполняет в Delphi 3 утилита BDE Administrator. Несомненно, что вы найдете в ней много общего с BDE Configuration Utility.
Таблица 1 Лекарства
Номер |
Название полей |
Тип поля |
Ключ |
|
1 |
Код лекарства |
N |
* |
|
2 |
Название лекарства |
A |
||
3 |
Срок годности |
D |
||
4 |
Упаковка |
A |
||
5 |
Вес |
N |
||
В таблице 1 поля имеют тип:
Код лекарства (N) имеет числовой тип, Название лекарства (А) символьные значения, Срок годности (D) дата, Упаковка (А) символьные значения, Вес (N) числовой тип .
Поле Код лекарства является ключевым(*).
Таблица 2 Предприятие:
Номер |
Название полей |
Тип поля |
Ключ |
|
1 |
Код предприятия |
N |
* |
|
2 |
Название предприятия |
A |
||
3 |
Адрес предприятия |
А |
||
В таблице 2 поля имеют тип:
Код предприятия (N) имеет числовой тип, Название предприятия (А) символьные значения, Адрес предприятия (А)
Поле Код предприятия является ключевым(*).
Таблица 3 Накладная:
Номер |
Название полей |
Тип поля |
Ключ |
|
1 |
Номер накладной |
N |
* |
|
2 |
Код предприятия |
N |
||
3 |
Дата накладной |
D |
||
В таблице 3 поля имеют тип:
Номер накладной (N) имеет числовой тип, Код предприятия (N)
числовой тип,
Дата накладной (D) дата.
Поле Номер Накладной является ключевым(*).
Таблица 4 Поступление:
Номер |
Название полей |
Тип поля |
Ключ |
|
1 |
Номер накладной |
N |
||
2 |
Код предприятия |
N |
||
3 |
Код лекарства |
N |
||
4 |
Код поступления |
N |
* |
|
5 |
Цена за ед. лекарства |
N |
||
6 |
Кол-во лекарства |
N |
||
В таблице 4 поля имеют тип:
Номер накладной (N) числовой тип, Код предприятия (N) имеет числовой тип, Код лекарства (N) имеет числовой тип, Код поступления (N) имеет числовой тип, Цена за ед. лекарства (N) имеет числовой тип, Кол-во лекарства (N) имеет числовой тип.
Поле Код поступления является ключевым(*).
Таблица 5 Продажа:
Номер |
Название полей |
Тип поля |
Ключ |
|
1 |
Код лекарства |
N |
||
2 |
Номер чека |
N |
* |
|
3 |
Дата продажи |
D |
||
4 |
Цена за ед. продукта |
N |
||
5 |
Кол-во проданных лекарств |
N |
||
В таблице 5 поля имеют тип:
Код лекарства (N) имеет числовой тип, Номер чека (N) имеет числовой тип, Дата продажи (D) дата, Цена за ед. продукта (N) имеет числовой тип, Кол-во проданных лекарств (N) числовой тип.
Поле Номер чека является ключевым(*).
Связи в базе организованны по соотношению один ко многим.
Для установления связей между таблицами открывали дочернюю таблицу
И выбирали в спадающем списке Table properties пункт Referential Integrity.
Связь таблицы Предприятие с таблицей Накладная.
Связь таблицы Лекарства с таблицей Продажа.
Связь таблицы Лекарства с таблицей Поступление.
По такому же принципу сделана связи с таблицей Накладная Поступление.
3.3 Организация пользовательского интерфейса
Интерфейс программы “Лекарственные средства” представлен на первой форме. Для удобства работы с базой при наведении курсора на объект появляются подсказки в статусной строке. Также присутствуют кнопки, для управления базой данных. В первой форме предусмотрен поиск позволяющий искать нужную запись.
Процедуры кнопок формы1:
Кнопка добавление:
procedure TForm1.Button1Click(Sender: TObject);
begin
If table1.State = dsBrowse then
table1.insert;
end;
Кнопка Изменения:
procedure TForm1.Button2Click(Sender: TObject);
begin
If table1.State = dsBrowse then
table1.edit;
end;
Кнопка Удаления:
procedure TForm1.Button3Click(Sender: TObject);
begin
If table1.State = dsBrowse then
If Messagedlg(,mtconfirmation,[mbYes,mbNo],0)=mrYes then
table1.delete;
end;
Процедура на кнопку поиск:
procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept:=Dataset[Name_lek] = Edit1.text;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
Table1.Filtered:=CheckBox1.Checked;
Table1.Filtered:=true;
end;
Форма 2 на которой находятся таблицы Предприятие и Накладная.
Процедуры кнопок Формы 2:
Процедура кнопки перехода на Форму1:
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
Form1.show;
Form2.hide;
end;
Процедура кнопки перехода на Форму3:
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
Form3.show;
Form2.hide;
end;
Процедура соединения таблиц двух таблиц, дочерняя таблица Накладная с родительской таблицей Предприятие :
procedure TForm2.OnActivate(Sender: TObject);
begin
DBGrid2.Columns.Items[1].PickList.Clear;
with Table1 do begin
first;
While not eof do Begin
DBGrid2.columns.Items[1].Picklist.add(FieldByName(Kod_pred).value);
next;
end;
end;
А также на форме присутствуют кнопки управления базой данных, как для таблицы Предприятие так и для таблицы Накладная:
кнопки добавления ,изменения, удаления, сохранения, отмены.
Процедура кнопки Запомнить:
procedure TForm2.Button4Click(Sender: TObject);
begin
If table1.State in [dsInsert,dsEdit]then
table1.post;
end;
Процедура кнопки Отменить:
procedure TForm2.Button9Click(Sender: TObject);
begin
If table1.State in [dsInsert,dsEdit]then
table1.Cancel;
end;
Процедура кнопки Добавить:
procedure TForm2.Button1Click(Sender: TObject);
begin
If table1.State = dsBrowse then
table1.insert;
end;
Процедура кнопки Изменить:
procedure TForm2.Button2Click(Sender: TObject);
begin
If table1.State = dsBrowse then
table1.edit;
end;
Процедура кнопки Удалить:
procedure TForm2.Button3Click(Sender: TObject);
begin
If table1.State = dsBrowse then
If Messagedlg(,mtconfirmation,[mbYes,mbNo],0)=mrYes then
table1.delete;
end;
Форма 3 с таблицами Поступление и Продажа.
На форме 3 находятся таблицы Продажа и Поступление. В этих таблицах фиксируется сколько лекарственных средств поступило на склад и по какой цене. Также фиксируется Код предприятия с которым установлены торговое соглашение, номер накладной где указан товар и в каком количестве. В таблице Продажа также фиксируются цена на лекарственные средства но при этом учитывается транспортировка и по этим параметрам устанавливается продажная цена.
Процедуры управляющих кнопок:
procedure TForm3.Button1Click(Sender: TObject);
begin
If table2.State = dsBrowse then
table2.insert;
end;
procedure TForm3.Button4Click(Sender: TObject);
begin
If table2.State in [dsInsert,dsEdit]then
table2.post;
end;
procedure TForm3.Button3Click(Sender: TObject);
begin
If table2.State = dsBrowse then
table2.edit;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
If table2.State = dsBrowse then
If Messagedlg(,mtconfirmation,[mbYes,mbNo],0)=mrYes then
table2.delete;
end;
procedure TForm3.Button5Click(Sender: TObject);
begin
If table1.State = dsBrowse then
table1.insert;
end;
procedure TForm3.Button6Click(Sender: TObject);
begin
If table1.State = dsBrowse then
If Messagedlg(,mtconfirmation,[mbYes,mbNo],0)=mrYes then
table1.delete;
end;
procedure TForm3.Button7Click(Sender: TObject);
begin
If table1.State = dsBrowse then
table1.edit;
end;
procedure TForm3.Button8Click(Sender: TObject);
begin
If table1.State in [dsInsert,dsEdit]then
table1.post;
end;
end;
end;
Процедуры соединения таблиц:
DBGrid2.Columns.Items[1].PickList.Clear;
with Form2.Table2 do begin
first;
While not eof do Begin
DBGrid2.columns.Items[1].Picklist.add(FieldbyName(Nom_naklad).value);
next;
end;
end;
DBGrid2.Columns.Items[2].PickList.Clear;
with Form2.Table1 do begin
first;
While not eof do Begin
DBGrid2.columns.Items[2].Picklist.add(FieldbyName(Kod_pred).value);
Форма 4 запрос SQL. На данной форме выводится параметрический запрос по полям “Название лекарства” и по ”Количеству проданных лекарств”.
Процедура Запроса SQL:
Процедура кнопки обновить список:
procedure TForm4.Button1Click(Sender: TObject);
begin
Query1.Filtered:=false;
Query1.Active:=true;
end;
Процедура кнопки поиска :
procedure TForm4.Button3Click(Sender: TObject);
begin
Query1.Filtered:=false;
Case Radiogroup1.itemindex of
0:pole:=Name_lek;
1:pole:=Kolvo_p_lek
end;
Query1.Filtered:=true;
end;
procedure TForm4.Query1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept:=Dataset[pole]=edit1.text;
end;
Форма 5 на ней показана информация о Программе.
ЗАКЛЮЧЕНИЕ
Данная программа пригодится небольшим фирмам занимающихся продажей и учетом лекарственных средств. Моя программа облегчит им работу, уменьшит работу с бумагами накладными и т.д.
После разработки своей программы я узнал более подробно о языке программирования Delphi и приложений к нему в частности BDE Administrator и Database Desktop . BDE Administrator нужен для установления псевдонима. При переносе базы данных на другой компьютер надо обязательно установить псевдоним т.е. каталог где она находится иначе при запуске базы данных выйдет сообщение об ошибке. Database Desktop нужна для создания и редактирования таблиц баз данных. Язык программирования Delphi является более простым для написания баз данных в нем есть все возможные компоненты упрощающие работу. На Delphi написано довольно большое число баз данных.
ЛИТЕРАТУРА
1. Delphi 3 и создание приложений баз данных Шумаков П.В. 704 с. иллюстрации есть.
2. Delphi 4 для профессионалов издание Питер М.Кенту 1088 с. иллюстрации есть.
Листинг программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Grids, DBGrids, Db, DBTables, ComCtrls, Menus,
Buttons, Mask, DBCtrls;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
Table1: TTable;
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
Label1: TLabel;
Panel1: TPanel;
GroupBox2: TGroupBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
GroupBox3: TGroupBox;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
N3: TMenuItem;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
SQL1: TMenuItem;
RadioGroup1: TRadioGroup;
CheckBox1: TCheckBox;
Edit1: TEdit;
Button6: TButton;
StatusBar1: TStatusBar;
N4: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure SQL1Click(Sender: TObject);
procedure Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
procedure CheckBox1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ShowHint(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
If table1.State = dsBrowse then
table1.insert;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
If table1.State = dsBrowse then
table1.edit;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
If table1.State = dsBrowse then
If Messagedlg(,mtconfirmation,[mbYes,mbNo],0)=mrYes then
table1.delete;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
If table1.State in [dsInsert,dsEdit]then
table1.post;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
If table1.State in [dsInsert,dsEdit]then
table1.Cancel;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Form2.show;
Form1.hide;
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
Form3.show;
Form1.hide;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
close;
end;
procedure TForm1.SQL1Click(Sender: TObject);
begin
Form4.show;
end;
procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept:=Dataset[Name_lek] = Edit1.text;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
Table1.Filtered:=CheckBox1.Checked;
Table1.Filtered:=true;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnHint := ShowHint;
end;
procedure TForm1.ShowHint(Sender: TObject);
begin
StatusBar1.Panels[0].text := Application.Hint;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Form5.show;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
Table1.Filtered:=False;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids, Db, DBTables, StdCtrls, ExtCtrls, ComCtrls, Buttons,
Mask, DBCtrls;
type
TForm2 = class(TForm)
GroupBox1: TGroupBox;
DataSource1: TDataSource;
Table1: TTable;
DBGrid1: TDBGrid;
GroupBox2: TGroupBox;
DBGrid2: TDBGrid;
DataSource2: TDataSource;
Table2: TTable;
GroupBox3: TGroupBox;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Label1: TLabel;
Label2: TLabel;
GroupBox4: TGroupBox;
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button9: TButton;
StatusBar1: TStatusBar;
GroupBox5: TGroupBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure OnActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1, Unit3;
{$R *.DFM}
procedure TForm2.Button1Click(Sender: TObject);
begin
If table1.State = dsBrowse then
table1.insert;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
If table1.State = dsBrowse then
table1.edit;
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
If table1.State = dsBrowse then
If Messagedlg(,mtconfirmation,[mbYes,mbNo],0)=mrYes then
table1.delete;
end;
procedure TForm2.Button4Click(Sender: TObject);
begin
If table1.State in [dsInsert,dsEdit]then
table1.post;
end;
procedure TForm2.Button9Click(Sender: TObject);
begin
If table1.State in [dsInsert,dsEdit]then
table1.Cancel;
end;
procedure TForm2.Button5Click(Sender: TObject);
begin
If table2.State = dsBrowse then
table2.insert;
end;
procedure TForm2.Button6Click(Sender: TObject);
begin
If table2.State = dsBrowse then
If Messagedlg(,mtconfirmation,[mbYes,mbNo],0)=mrYes then
table2.delete;
end;
procedure TForm2.Button8Click(Sender: TObject);
begin
If table2.State = dsBrowse then
table2.edit;
end;
procedure TForm2.Button7Click(Sender: TObject);
begin
If table2.State in [dsInsert,dsEdit]then
table2.post;
end;
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
Form1.show;
Form2.hide;
end;
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
Form3.show;
Form2.hide;
end;
procedure TForm2.OnActivate(Sender: TObject);
begin
DBGrid2.Columns.Items[1].PickList.Clear;
with Table1 do begin
first;
While not eof do Begin
DBGrid2.columns.Items[1].Picklist.add(FieldByName(Kod_pred).value);
next;
end;
end;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Db, DBTables, Grids, DBGrids, ComCtrls, Buttons,
Mask, DBCtrls;
type
TForm3 = class(TForm)
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Table1: TTable;
Label1: TLabel;
Label2: TLabel;
GroupBox2: TGroupBox;
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
GroupBox3: TGroupBox;
DBGrid2: TDBGrid;
DataSource2: TDataSource;
Table2: TTable;
GroupBox4: TGroupBox;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
StatusBar1: TStatusBar;
GroupBox5: TGroupBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
procedure Button1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure OnActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit1, Unit2;
{$R *.DFM}
procedure TForm3.Button1Click(Sender: TObject);
begin
If table2.State = dsBrowse then
table2.insert;
end;
procedure TForm3.Button4Click(Sender: TObject);
begin
If table2.State in [dsInsert,dsEdit]then
table2.post;
end;
procedure TForm3.Button3Click(Sender: TObject);
begin
If table2.State = dsBrowse then
table2.edit;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
If table2.State = dsBrowse then
If Messagedlg(,mtconfirmation,[mbYes,mbNo],0)=mrYes then
table2.delete;
end;
procedure TForm3.Button5Click(Sender: TObject);
begin
If table1.State = dsBrowse then
table1.insert;
end;
procedure TForm3.Button6Click(Sender: TObject);
begin
If table1.State = dsBrowse then
If Messagedlg(,mtconfirmation,[mbYes,mbNo],0)=mrYes then
table1.delete;
end;
procedure TForm3.Button7Click(Sender: TObject);
begin
If table1.State = dsBrowse then
table1.edit;
end;
procedure TForm3.Button8Click(Sender: TObject);
begin
If table1.State in [dsInsert,dsEdit]then
table1.post;
end;
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
Form1.show;
Form3.hide;
end;
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
Form2.show;
Form3.hide;
end;
procedure TForm3.OnActivate(Sender: TObject);
begin
DBGrid2.Columns.Items[3].PickList.Clear;
with Form1.Table1 do begin
first;
While not eof do Begin
DBGrid2.columns.Items[3].Picklist.add(FieldbyName(Kod_lek).value);
next;
end;
end;
DBGrid2.Columns.Items[1].PickList.Clear;
with Form2.Table2 do begin
first;
While not eof do Begin
DBGrid2.columns.Items[1].Picklist.add(FieldbyName(Nom_naklad).value);
next;
end;
end;
DBGrid2.Columns.Items[2].PickList.Clear;
with Form2.Table1 do begin
first;
While not eof do Begin
DBGrid2.columns.Items[2].Picklist.add(FieldbyName(Kod_pred).value);
next;
end;
end;
DBGrid1.Columns.Items[1].PickList.Clear;
with Form1.Table1 do begin
first;
While not eof do Begin
DBGrid1.columns.Items[1].Picklist.add(FieldbyName(Kod_lek).value);
next;
end;
end;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, DBTables, Grids, DBGrids, ExtCtrls;
type
TForm4 = class(TForm)
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Button1: TButton;
Query1: TQuery;
Edit1: TEdit;
Button3: TButton;
RadioGroup1: TRadioGroup;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Query1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
pole :shortstring;
implementation
{$R *.DFM}
procedure TForm4.Button1Click(Sender: TObject);
begin
Query1.Filtered:=false;
Query1.Active:=true;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
Query1.Active:=false;
end;
procedure TForm4.Button3Click(Sender: TObject);
begin
Query1.Filtered:=false;
Case Radiogroup1.itemindex of
0:pole:=Name_lek;
1:pole:=Kolvo_p_lek
end;
Query1.Filtered:=true;
end;
procedure TForm4.Query1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept:=Dataset[pole]=edit1.text;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Buttons;
type
TForm5 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BitBtn1: TBitBtn;
Label6: TLabel;
procedure Button1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
{$R *.DFM}
procedure TForm5.Button1Click(Sender: TObject);
begin
Form5.close;
end;
procedure TForm5.BitBtn1Click(Sender: TObject);
begin
Form5.Close;
end;
end.
! | Как писать курсовую работу Практические советы по написанию семестровых и курсовых работ. |
! | Схема написания курсовой Из каких частей состоит курсовик. С чего начать и как правильно закончить работу. |
! | Формулировка проблемы Описываем цель курсовой, что анализируем, разрабатываем, какого результата хотим добиться. |
! | План курсовой работы Нумерованным списком описывается порядок и структура будующей работы. |
! | Введение курсовой работы Что пишется в введении, какой объем вводной части? |
! | Задачи курсовой работы Правильно начинать любую работу с постановки задач, описания того что необходимо сделать. |
! | Источники информации Какими источниками следует пользоваться. Почему не стоит доверять бесплатно скачанным работа. |
! | Заключение курсовой работы Подведение итогов проведенных мероприятий, достигнута ли цель, решена ли проблема. |
! | Оригинальность текстов Каким образом можно повысить оригинальность текстов чтобы пройти проверку антиплагиатом. |
! | Оформление курсовика Требования и методические рекомендации по оформлению работы по ГОСТ. |
→ | Разновидности курсовых Какие курсовые бывают в чем их особенности и принципиальные отличия. |
→ | Отличие курсового проекта от работы Чем принципиально отличается по структуре и подходу разработка курсового проекта. |
→ | Типичные недостатки На что чаще всего обращают внимание преподаватели и какие ошибки допускают студенты. |
→ | Защита курсовой работы Как подготовиться к защите курсовой работы и как ее провести. |
→ | Доклад на защиту Как подготовить доклад чтобы он был не скучным, интересным и информативным для преподавателя. |
→ | Оценка курсовой работы Каким образом преподаватели оценивают качества подготовленного курсовика. |
Курсовая работа | Деятельность Движения Харе Кришна в свете трансформационных процессов современности |
Курсовая работа | Маркетинговая деятельность предприятия (на примере ООО СФ "Контакт Плюс") |
Курсовая работа | Политический маркетинг |
Курсовая работа | Создание и внедрение мембранного аппарата |
Курсовая работа | Социальные услуги |
Курсовая работа | Педагогические условия нравственного воспитания младших школьников |
Курсовая работа | Деятельность социального педагога по решению проблемы злоупотребления алкоголем среди школьников |
Курсовая работа | Карибский кризис |
Курсовая работа | Сахарный диабет |
Курсовая работа | Разработка оптимизированных систем аспирации процессов переработки и дробления руд в цехе среднего и мелкого дробления Стойленского ГОКа |