Дипломная работа: Автоматизация расчетов с поставщиками и подрядчиками ООО «МЕТРО КЭШ ЭНД КЕРРИ»

Скачать файл

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

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.

-- 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` (

Источник: https://baza.diplomsite.ru/previewfile/670

Смотрите также:







Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал
_10_Эмиль Золя для эл версии