98
36. Максимов Н. В. Информационные технологии в
профессиональной деятельности : - Москва : ФОРУМ, 2018. – 286 с.
37. Малыхина М. П. Базы данных: основы, проектирование,
использование М. П. Малыхина. - 2-е изд. - Санкт-Петербург : БХВ-
Петербург, 2017. – 248 с.
38. Методические указания. Экономическое обоснование дипломных
проектов “Организация и планирование производства. Управление
предприятием ”, - СПб.: СЗПИ 2016. – 274 с.
39. Методы и модели информационного менеджмента / под ред. А.
В. Кострова. - Москва: Финансы и статистика, 2017. 326 с.
40. Мишенин А. И. Сборник задач по программированию/ А. И.
Мишенин. - Москва : Финансы и статистика : ИНФРА-М, 2016. – 412 с.
41. Романова, Ю. Д. Информатика и информационные технологии:
конспект лекций / Ю. Д. Романова, И. Г. Лесничая - Москва: Эксмо, 2016. –
408 с.
42. Савицкий, Н. И. Экономическая информатика / Н. И. Савицкий. -
М.: Экономистъ, 2017. – 312 с.
43. Сибикин Ю. Д. Охрана труда и электробезопасность / Ю. Д.
Сибикин. - Москва : РадиоСофт, 2017. – 256 с.
44. Симонович, С. В. Общая информатика / С. В. Симонович. -
Санкт-Петербург: Питер, 2018. – 312 с.
45. Фаронов В. В. Delphi : программирование на яз. Высокого
уровня: [Учеб. для вузов по направлению подгот. дипломир. специалистов
"Информатика и вычисл. техника" / В. В. Фаронов. - СПб. и др. : Питер, 2016.
– 214 с.
46. Фаронов В. В. Delphi. Программирование на языке высокого
уровня : В. В. Фаронов. - Санкт- Петербург [и др.] : Питер, 2017. – 232 с.
47. Фаронов В. В. Программирование баз данных в Delphi 10 :
[реализация соврем. технологий баз данных средствами Delphi] / В. Фаронов.
- СПб. [и др.] : Питер, 2016. – 254 с.
99
48. Фельдман С. К. Система программирования DELPHI без
секретов: как создать приложение для Windows с "нуля" : энциклопедия /
Сергей Фельдман.- М. : Новый изд. дом [и др.], 2017. – 228 с.
49. Фокеев В. А. Библиографоведение. Информатика:
терминологический словарь / В. А. Фокеев. - Москва: Литера, 2016. – 260 с.
50. Фролов И. М. Энциклопедия Microsoft Office 2013 : [рук. по
новейшей версии пакета Microsoft office] / Иван Фролов. - М. : Новый изд.
дом, 2016. – 268 с.
100
ПРИЛОЖЕНИЕ 1
Файл Form__dogovor.pas
unit Form__dogovor;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.ComCtrls,
Vcl.StdCtrls,
Vcl.Grids, Vcl.DBGrids;
type
TForm_dogovor = class(TForm)
Label1: TLabel;
Label4: TLabel;
DBGrid_dogovor: TDBGrid;
DBGrid_sdog: TDBGrid;
GroupBox1: TGroupBox;
Label2: TLabel;
Label3: TLabel;
Edit_dogovor: TEdit;
Button1: TButton;
DBGrid_postavshik: TDBGrid;
GroupBox2: TGroupBox;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
101
DBGrid_izdelie: TDBGrid;
DateTimePicker1: TDateTimePicker;
Edit_kolvo: TEdit;
Button2: TButton;
Button_delete_dogovor: TButton;
Button_delete_sdog: TButton;
procedure view_dogovor;
procedure view_sdog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button_delete_dogovorClick(Sender: TObject);
procedure Button_delete_sdogClick(Sender: TObject);
procedure DBGrid_dogovorCellClick(Column: TColumn);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_dogovor: TForm_dogovor;
implementation
{$R *.dfm}
uses datamodule;
procedure TForm_dogovor.Button1Click(Sender: TObject);
102
var buf_zapros : string;
buf_kav : string;
begin
buf_kav := '''';
buf_zapros := 'INSERT INTO dogovor(nomer_dogovor,postacshik)
VALUES ('
+buf_kav+form_dogovor.Edit_dogovor.Text+buf_kav+','
+form_dogovor.DBGrid_postavshik.DataSource.DataSet.Fields[0].AsString+');';
datamodule1.Query_all.Close;
datamodule1.Query_all.SQL.Clear;
datamodule1.Query_all.SQL.Text := buf_zapros;
datamodule1.Query_all.ExecSQL;
datamodule1.Query_all.Close;
//обновляю данные на форме
view_dogovor;
//чищу поля ввода
form_dogovor.Edit_dogovor.Text := '';
end;
procedure TForm_dogovor.Button2Click(Sender: TObject);
var buf_zapros : string;
buf_kav : string;
begin
buf_kav := '''';
buf_zapros := 'INSERT INTO
sdog(nomer_dogovor,kod_izdelia,data_dogovor,kolvo) VALUES ('
103
+buf_kav+form_dogovor.DBGrid_dogovor.DataSource.DataSet.Fields[0].AsStrin
g+buf_kav+','
+form_dogovor.DBGrid_izdelie.DataSource.DataSet.Fields[0].AsString+','
+buf_kav+formatdatetime('yyyy-m-
dd',form_dogovor.DateTimePicker1.Date)+buf_kav+','
+form_dogovor.Edit_kolvo.Text+');';
datamodule1.Query_all.Close;
datamodule1.Query_all.SQL.Clear;
datamodule1.Query_all.SQL.Text := buf_zapros;
datamodule1.Query_all.ExecSQL;
datamodule1.Query_all.Close;
//чищу поля ввода
form_dogovor.Edit_kolvo.Text := '';
//обновляю данные на форме
view_sdog;
end;
procedure TForm_dogovor.Button_delete_dogovorClick(Sender: TObject);
var buf_zapros : string;
buf_kav : string;
begin
buf_kav := '''';
buf_zapros := 'DELETE FROM dogovor WHERE nomer_dogovor =
'+buf_kav+form_dogovor.DBGrid_dogovor.DataSource.DataSet.Fields[0].AsStrin
g+buf_kav+';';
datamodule1.Query_all.Close;
104
datamodule1.Query_all.SQL.Clear;
datamodule1.Query_all.SQL.Text := buf_zapros;
datamodule1.Query_all.ExecSQL;
datamodule1.Query_all.Close;
//обновляю данные на форме
view_dogovor;
end;
procedure TForm_dogovor.Button_delete_sdogClick(Sender: TObject);
var buf_zapros : string;
buf_kav : string;
begin
buf_kav := '''';
buf_zapros := 'DELETE FROM sdog WHERE nomer_dogovor ='
+buf_kav+form_dogovor.DBGrid_dogovor.DataSource.DataSet.Fields[0].AsStrin
g+buf_kav
+' AND kod_izdelia = ' +
form_dogovor.DBGrid_sdog.DataSource.DataSet.Fields[0].AsString+';';
datamodule1.Query_all.Close;
datamodule1.Query_all.SQL.Clear;
datamodule1.Query_all.SQL.Text := buf_zapros;
datamodule1.Query_all.ExecSQL;
datamodule1.Query_all.Close;
//обнволяю данные на форме
view_sdog;
end;
105
procedure TForm_dogovor.DBGrid_dogovorCellClick(Column: TColumn);
begin
view_sdog;
end;
procedure TForm_dogovor.FormCreate(Sender: TObject);
begin
form_dogovor.DateTimePicker1.Date := Now();
end;
procedure TForm_dogovor.view_dogovor;
var buf_zapros : string;
begin
buf_zapros := 'SELECT nomer_dogovor as Договор,name_postavshik as
поставщик FROM dogovor, postavshik WHERE postacshik = kod_postavshik;';
datamodule1.Query_view_dogovor.Close;
datamodule1.Query_view_dogovor.SQL.Clear;
datamodule1.Query_view_dogovor.SQL.Text := buf_zapros;
datamodule1.Query_view_dogovor.Open;
view_sdog;
end;
procedure TForm_dogovor.view_sdog;
var buf_zapros : string;
buf_kav : string;
begin
if Form_dogovor.DBGrid_dogovor.DataSource.DataSet.RecordCount <>
0 then
begin
106
buf_kav := '''';
buf_zapros := 'SELECT izdelie.kod_izdelie,name_izdelie as
Изделие,kolvo as Кол_во,data_dogovor as Дата_поставки FROM sdog,izdelie
WHERE nomer_dogovor = '
+buf_kav+form_dogovor.DBGrid_dogovor.DataSource.DataSet.Fields[0].AsStrin
g+buf_kav
+' AND sdog.kod_izdelia = izdelie.kod_izdelie ORDER BY
name_izdelie;';
datamodule1.Query_view_sdog.Close;
datamodule1.Query_view_sdog.SQL.Clear;
datamodule1.Query_view_sdog.SQL.Text := buf_zapros;
datamodule1.Query_view_sdog.Open;
form_dogovor.DBGrid_sdog.Columns[0].Visible := False;
end;
end;
end.
-- MySQL Workbench Forward Engineering
SET @OLD_UNIQUE_CHECKS=@@UNIQUE_CHECKS,
UNIQUE_CHECKS=0;
SET @OLD_FOREIGN_KEY_CHECKS=@@FOREIGN_KEY_CHECKS,
FOREIGN_KEY_CHECKS=0;
SET @OLD_SQL_MODE=@@SQL_MODE,
SQL_MODE='TRADITIONAL,ALLOW_INVALID_DATES';
-- -----------------------------------------------------
-- Schema postavshik_oplata
-- -----------------------------------------------------
DROP SCHEMA IF EXISTS `postavshik_oplata` ;
-- -----------------------------------------------------
-- Schema postavshik_oplata
-- -----------------------------------------------------
107
CREATE SCHEMA IF NOT EXISTS `postavshik_oplata` DEFAULT
CHARACTER SET cp1251 COLLATE cp1251_general_ci ;
USE `postavshik_oplata` ;
-- -----------------------------------------------------
-- Table `postavshik_oplata`.`ed_izm`
-- -----------------------------------------------------
DROP TABLE IF EXISTS `postavshik_oplata`.`ed_izm` ;
CREATE TABLE IF NOT EXISTS `postavshik_oplata`.`ed_izm` (
`kod_ed_izm` INT NOT NULL,
`name_ed_izm` VARCHAR(45) NOT NULL,
PRIMARY KEY (`kod_ed_izm`))
ENGINE = InnoDB;
-- -----------------------------------------------------
-- Table `postavshik_oplata`.`izdelie`
-- -----------------------------------------------------
DROP TABLE IF EXISTS `postavshik_oplata`.`izdelie` ;
CREATE TABLE IF NOT EXISTS `postavshik_oplata`.`izdelie` (
`kod_izdelie` INT NOT NULL AUTO_INCREMENT,
`name_izdelie` VARCHAR(45) NOT NULL,
`kod_izmerenie` INT NOT NULL,
`price` FLOAT NOT NULL,
PRIMARY KEY (`kod_izdelie`),
INDEX `6_idx` (`kod_izmerenie` ASC),
CONSTRAINT `6`
FOREIGN KEY (`kod_izmerenie`)
REFERENCES `postavshik_oplata`.`ed_izm` (`kod_ed_izm`)
ON DELETE CASCADE
ON UPDATE CASCADE)
ENGINE = InnoDB;
-- -----------------------------------------------------
-- Table `postavshik_oplata`.`postavshik`
-- -----------------------------------------------------
DROP TABLE IF EXISTS `postavshik_oplata`.`postavshik` ;
CREATE TABLE IF NOT EXISTS `postavshik_oplata`.`postavshik` (
`kod_postavshik` INT NOT NULL AUTO_INCREMENT,
`name_postavshik` VARCHAR(45) NOT NULL,
`adres` VARCHAR(45) NOT NULL,
PRIMARY KEY (`kod_postavshik`))
ENGINE = InnoDB;
-- -----------------------------------------------------
-- Table `postavshik_oplata`.`dogovor`
-- -----------------------------------------------------
DROP TABLE IF EXISTS `postavshik_oplata`.`dogovor` ;
CREATE TABLE IF NOT EXISTS `postavshik_oplata`.`dogovor` (