Листинг программного кода Delphi

Список использованных источников

1.Delphi. Профессиональное программирование/ Дмитрий Осипов.: Из-во Символ-Плюс, 2011.

2.Delphi в задачах и примерах/ Никита Культин.: Из-во БХВ-Петербург, 2013.

3.Агафонова В.В. Проектирование интерфейсов информационных систем: Учебно-методический комплекс. – Самара. Изд-во Самарского государственного экономического университета, 2009.

4.Чаплыгин С.И. Проектирование корпоративных экономических информационных систем: Учебно-методический комплекс. - Самара. Изд-во Самарского государственного экономического университета, 2009.

5.Excel 2010. Библия пользователя / Джон Уокенбах.: Изд-во Диалектика, 2012.

6.Абросимов, А.Г. Информационные системы в экономике: учеб. Пособие / А.Г. Абросимов, М.А. Бородинова. – Самара: Изд-во Самар. Гос. Экон. Ун-та, 2007.

7.Абросимов, А.Г. Корпоративные экономические информационные системы: учеб. Пособие / А.Г. Абросимов, Н.В. Абрамов, Н.В. Мотовилов. – Самара: Изд-во Самар. Гос. Экон. Ун-та, 2007.

8.Абросимов А.Г., Бородинова М.А. Дипломное проектирование: Учебное пособие. – Самара. Изд-во Самарского государственного экономического университета, 2010.

9.Симионов Ю.Ф., Боромотов В.В. Информационный менеджмент. — Ростов н.Д: Феникс, 2013, 250с., ил.

10. Бухгалтерский учет в торговле: Учеб. пособие для вузов / Под общ. ред. В.В. Кожарского. Л.И. Кравченко. - Мн.: Высш. Шк., 1996.- 407с.

11. Торговое дело: Экономика и организация: Учебник для вузов / Под общ. ред. Л.А. Брагина, Т.П. Данько. - М.: ИНФРА - М, 1997. - 256с.

12. Котлер Ф. Маркетинг-менеджмент/Пер. с англ. Под ред. Л.А. Волковой, Ю.Н.Каптуревского, СПб.: КОРОНА принт, 2000.

13. Котлер Ф. Фрагмент из книги ИД Питер "Маркетинг менеджмент. Экспресс-курс". http://marketing.spb.ru/lib-mm/ecom_manage.htm

14. Дж. Мартин «Организация баз данных в вычислительных системах», Мир, Москва, 1999 г.

15. ГОСТ ИСО/МЭК 9136-1. Информационная технология. Характеристики и метрики качества программного обеспечения. – М.: Первое издание, 1998. – 25с. (ГОСТ.)

16. ГОСТ ISO/IEC 12207. Международный стандарт. Информационная технология. Процессы жизненного цикла программного обеспечения. – М.: Первое издание, 1995. – 62с. (ГОСТ.)

17. ГОСТ 34.201-89. Международный стандарт. Комплекс стандартов на автоматизированные системы. – М.: Издательство стандартов, 1991. – 29с.: ил. (ГОСТ.)

18. Официальный сайт ООО «Евросеть-Ретейл» http://euroset.ru/samara/corp/

ПРИЛОЖЕНИЯ

Приложение 1

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Mask, StdCtrls, ComObj, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

users: TCombobox;

Password: TEdit;

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Memo1: TMemo;

Memo2: TMemo;

Image1: TImage;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses unit2, unit5, unit3, unit4, unit6;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

i:byte;

begin

if (users.Text = memo2.lines[0]) and (password.text = memo1.lines[0]) or (users.Text = memo2.lines[1]) and (password.text = memo1.lines[1]) or (users.Text = memo2.lines[2]) and (password.text = memo1.lines[2])then

begin

form4.show;

form1.Hide;

end

else

begin

showmessage('Неверный пароль');

password.Clear;

end;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

excel1.Workbooks.Close;

excel2.Workbooks.Close;

excel3.Workbooks.Close;

excel1.Application.Quit;

excel2.Application.Quit;

excel3.Application.Quit;

excel1:= Unassigned;

excel2:= Unassigned;

excel3:= Unassigned;

end;

procedure TForm1.FormCreate(Sender: TObject);

var

t1:textfile;

user, pass:string;

begin

memo1.Clear;

memo2.Clear;

assignfile(t1,GetCurrentDir() + '\Документы\Пользователи.txt');

reset(t1);

while not eof(t1) do begin

readln(t1, user);

readln(t1, pass);

users.Items.Add(user);

memo2.Lines.Add(user);

memo1.Lines.Add(pass);

end;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, unit1, Menus, Grids, ComObj, StdCtrls, jpeg, ExtCtrls;

type

TForm2 = class(TForm)

MainMenu1: TMainMenu;

tovar: TMenuItem;

sg1: TStringGrid;

Button1: TButton;

Button3: TButton;

sell: TMenuItem;

stat: TMenuItem;

Label1: TLabel;

Label2: TLabel;

N1: TMenuItem;

Image1: TImage;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure sellClick(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure statClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

excel1: Variant;

implementation

uses

unit3, unit4, unit5, unit6;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

form3.show;

end;

procedure TForm2.Button3Click(Sender: TObject);

var

i:byte;

begin

for i:= 1 to sg1.RowCount-1 do begin

excel1.ActiveSheet.cells[i+1,1]:=sg1.Cells[0,i];

excel1.ActiveSheet.cells[i+1,2]:=sg1.Cells[1,i];

excel1.ActiveSheet.cells[i+1,3]:=sg1.Cells[2,i];

excel1.ActiveSheet.cells[i+1,4]:=sg1.Cells[3,i];

excel1.ActiveSheet.cells[i+1,5]:=sg1.Cells[4,i];

excel1.ActiveSheet.cells[i+1,6]:=sg1.Cells[5,i];

end;

excel1.DisplayAlerts:= False;

excel1.ActiveWorkBook.Saveas(GetCurrentDir() + '\Документы\товары.xls');

end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form1.close;

end;

procedure TForm2.FormCreate(Sender: TObject);

var

rows,i, k, k1, j, kmax:byte;

begin

sg1.Cells[0,0]:='Артикул';

sg1.Cells[1,0]:='Наименование';

sg1.Cells[2,0]:='Производитель';

sg1.Cells[3,0]:='Тип товара';

sg1.Cells[4,0]:='Количество';

sg1.Cells[5,0]:='Стоимость';

excel1:= CreateOleObject('excel.Application');

excel1.Workbooks.Open[GetCurrentDir() + '\Документы\товары.xls'];

rows:=excel1.ActiveSheet.UsedRange.Rows.Count-1;

for i:= 1 to rows do

begin

sg1.Cells[0,i]:=excel1.ActiveSheet.cells[i+1,1];

sg1.Cells[1,i]:=excel1.ActiveSheet.cells[i+1,2];

sg1.Cells[2,i]:=excel1.ActiveSheet.cells[i+1,3];

sg1.Cells[3,i]:=excel1.ActiveSheet.cells[i+1,4];

sg1.Cells[4,i]:=excel1.ActiveSheet.cells[i+1,5];

sg1.Cells[5,i]:=excel1.ActiveSheet.cells[i+1,6];

sg1.RowCount:=sg1.RowCount +1;

end;

sg1.RowCount:=sg1.RowCount -1;

end;

procedure TForm2.FormShow(Sender: TObject);

begin

label2.caption:=form1.users.Text;

end;

procedure TForm2.N1Click(Sender: TObject);

begin

form1.Show;

form2.Hide;

end;

procedure TForm2.sellClick(Sender: TObject);

begin

form4.show;

form2.Hide;

end;

procedure TForm2.statClick(Sender: TObject);

begin

form6.show;

form2.Hide;

end;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm3 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Edit1: TEdit;

Button1: TButton;

ComboBox5: TComboBox;

Label7: TLabel;

Edit3: TEdit;

Label8: TLabel;

Button2: TButton;

Edit5: TEdit;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

ComboBox3: TComboBox;

ComboBox4: TComboBox;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Image1: TImage;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses unit2, unit1;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

var

i:byte;

begin

for i:= 1 to form2.sg1.RowCount-1 do begin

if combobox5.Text = form2.sg1.Cells[0,i] then

form2.sg1.Cells[4,i]:=inttostr(strtoint(form2.sg1.Cells[4,i])+strtoint(edit3.text));

end;

end;

procedure TForm3.Button2Click(Sender: TObject);

var

i:byte;

begin

form2.sg1.RowCount:=form2.sg1.RowCount+1;

form2.sg1.Cells[0,form2.sg1.RowCount-1]:=combobox1.Text;

form2.sg1.Cells[1,form2.sg1.RowCount-1]:=combobox2.Text;

form2.sg1.Cells[2,form2.sg1.RowCount-1]:=combobox3.Text;

form2.sg1.Cells[3,form2.sg1.RowCount-1]:=combobox4.Text;

form2.sg1.Cells[4,form2.sg1.RowCount-1]:=edit1.Text;

form2.sg1.Cells[5,form2.sg1.RowCount-1]:=edit5.Text;

end;

procedure TForm3.FormCreate(Sender: TObject);

var

i:byte;

sl: TStringList;

begin

for i:= 1 to form2.sg1.rowcount - 1 do begin

combobox5.Items.Add(form2.sg1.cells[0,i])

end;

sl:= TStringList.Create;

sl.Duplicates:= dupIgnore;

sl.sorted:= true;

sl.AddStrings(combobox5.Items);

Combobox5.Items:= sl;

sl.Free;

for i:= 1 to form2.sg1.rowcount - 1 do begin

combobox1.Items.Add(form2.sg1.cells[0,i])

end;

sl:= TStringList.Create;

sl.Duplicates:= dupIgnore;

sl.sorted:= true;

sl.AddStrings(combobox1.Items);

Combobox1.Items:= sl;

sl.Free;

for i:= 1 to form2.sg1.rowcount - 1 do begin

combobox2.Items.Add(form2.sg1.cells[1,i])

end;

sl:= TStringList.Create;

sl.Duplicates:= dupIgnore;

sl.sorted:= true;

sl.AddStrings(combobox2.Items);

Combobox2.Items:= sl;

sl.Free;

for i:= 1 to form2.sg1.rowcount - 1 do begin

combobox3.Items.Add(form2.sg1.cells[2,i])

end;

sl:= TStringList.Create;

sl.Duplicates:= dupIgnore;

sl.sorted:= true;

sl.AddStrings(combobox3.Items);

Combobox3.Items:= sl;

sl.Free;

for i:= 1 to form2.sg1.rowcount - 1 do begin

combobox4.Items.Add(form2.sg1.cells[3,i])

end;

sl:= TStringList.Create;

sl.Duplicates:= dupIgnore;

sl.sorted:= true;

sl.AddStrings(combobox4.Items);

Combobox4.Items:= sl;

sl.Free;

end;

procedure TForm3.FormShow(Sender: TObject);

begin

label12.caption:=form1.users.Text;

end;

end.

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, StdCtrls, TeEngine, ExtCtrls, TeeProcs, Chart, Series, Grids, ComObj, DateUtils,

jpeg;

type

TForm6 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

Tovar: TMenuItem;

sell: TMenuItem;

stat: TMenuItem;

sg1: TStringGrid;

Button1: TButton;

Image1: TImage;

Button2: TButton;

Button3: TButton;

procedure TovarClick(Sender: TObject);

procedure sellClick(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

excel3: variant;

implementation

uses unit2, unit4, unit1;

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);

var

i, j:byte;

begin

for j:= 1 to 12 do begin

for i:= 1 to form4.sg1.RowCount-1 do begin

if monthof(strtodate(form4.sg1.Cells[0,i])) = strtoint(sg1.Cells[0,j]) then begin

sg1.Cells[2,j]:=inttostr((strtoint(sg1.Cells[2,j]))+strtoint(form4.sg1.Cells[6,i]));

end;

end;

if sg1.Cells[2,j]<>'0' then

sg1.Cells[3,j]:=inttostr(strtoint(sg1.Cells[2,j])-strtoint(sg1.Cells[1,j]));

end;

end;

procedure TForm6.Button2Click(Sender: TObject);

var

i:byte;

begin

for i:= 1 to sg1.RowCount-1 do begin

excel3.ActiveSheet.cells[i+1,1]:=sg1.Cells[0,i];

excel3.ActiveSheet.cells[i+1,2]:=sg1.Cells[1,i];

excel3.ActiveSheet.cells[i+1,3]:=sg1.Cells[2,i];

excel3.ActiveSheet.cells[i+1,4]:=sg1.Cells[3,i];

end;

excel3.DisplayAlerts:= False;

excel3.ActiveWorkBook.Saveas(GetCurrentDir() + '\Документы\План.xls');

end;

procedure TForm6.Button3Click(Sender: TObject);

begin

Excel3.ActiveWorkBook.Sheets.Item[2].Activate;

Excel3.visible:=true;

end;

procedure Tform6.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form1.close;

end;

procedure TForm6.FormCreate(Sender: TObject);

var

rows, rows2, i:byte;

begin

sg1.Cells[0,0]:='Месяц';

sg1.Cells[1,0]:='Запланировано';

sg1.Cells[2,0]:='Выполнено';

sg1.Cells[3,0]:='Разница';

excel3:= CreateOleObject('excel.Application');

excel3.Workbooks.Open[GetCurrentDir() + '\Документы\План.xls'];

rows:=excel3.ActiveSheet.UsedRange.Rows.Count-1;

for i:= 1 to rows do

begin

sg1.Cells[0,i]:=excel3.ActiveSheet.cells[i+1,1];

sg1.Cells[1,i]:=excel3.ActiveSheet.cells[i+1,2];

sg1.Cells[2,i]:=excel3.ActiveSheet.cells[i+1,3];

sg1.Cells[3,i]:=excel3.ActiveSheet.cells[i+1,4];

sg1.RowCount:=sg1.RowCount +1;

end;

sg1.RowCount:=sg1.RowCount -1;

end;

procedure TForm6.N1Click(Sender: TObject);

begin

form1.Show;

form6.Hide;

end;

procedure TForm6.sellClick(Sender: TObject);

begin

form4.show;

form6.Hide;

end;

procedure TForm6.TovarClick(Sender: TObject);

begin

form2.show;

form6.Hide;

end;

end.

Дипломный проект выполнен мной совершенно самостоятельно. Все использованные в работе материалы и концепции из опубликованных научной литературы и других источников отображены в списке использованных источников.

__________________/________________/Садиров Умеджон Асатулоевич

Дата Подпись Фамилия, Имя, Отчество

Дата добавления: 2015-07-13