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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
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 ('
Источник: https://baza.diplomsite.ru/previewfile/670

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

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