Создание программного обеспечения для небольшого супермаркета
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
?оектирование баз данных СУБД MS Access/ Гринченко н.Н. и др./ М.: Горячая линия-Телеком, 2004.
8.Информационные системы/ В.Н. Петров/учебник/ПИТЕРСпб 2002г.
.Информационные технологии в экономике и управлении. Учебник/ Козырев А.А./ Спб.: Питер, 2001.
.Информационные системы в экономике/ Патрушина С.М./ М.: ИКЦ МарТ, 2004.
.Окулов С.М. Основы программирования. Москва. 2002г.-424с.
.Культин Н.Б. Программирование в Turbo Pascal 7.9 и Delphi. Санкт-Петербург, 2001г.
13.Александровский А.Д. Delphi 5. Разработка корпоративных приложений. Изд.Для программистов М.-2000г.
14.Брябкин В.М. Программное обеспечение персональных ЭВМ. М.-1990г.
15.Культин Н.Б. Delphi 6. Программирование на Object Pascal.
.Периодическая литература Мир ПК, КомпьюПресс.
.Гофман В.Е., А.Д. Хомоненко. Delphi 7.
.Кузнецов С.Д. Основы современных баз данных,
.Карпова Т. Базы данных. Модели, разработка, реализация, С-Петербург, 2001.
.Кириллов В.В. Структуризованный язык запросов (SQL). - СПб.: ИТМО, 1994. - 80 с.
.Кириллов В.В. Структурированный язык запросов (SQL). - СПб.: ИТМО, 1994
.Культин. Н.Б.Delphi 7 - программирование на Object Pascal.
.Тиори Т., Фрай Дж. Проектирование структур баз данных. В 2 кн., - М.: Мир, 1985
.Тиори Т., Фрай Дж. Проектирование структур баз данных. В 2 кн., - М.: Мир, 1985. Кн. 1. - 287 с.: Кн. 2. - 320 с.
.Фараонов В.В., Delphi 6.0, учебный курс, ISBN 5-8952-020-4, 400 с.
.Фаронов В. Система программирования Delphi, Санкт-Петербург, БХВ-Петербург, 2005
.Фаронов В. Программирование баз данных в Delphi 7.
.Хаббард Дж. Автоматизированное проектирование баз данных. - М.: Мир, 1999
.Эрик Хармон Руководство разработчика баз данных в Delphi/Kylix, Москва,2002.
ПРИЛОЖЕНИЯ
ПРИЛОЖЕНИЕ 1. ЛИСТИНГ UNIT1
unit Unit1;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DBTables, DB, Grids, DBGrids, Menus,inifiles, StdCtrls,comobj,, ExtCtrls, OleCtrls;= class(TForm): TDataSource;: TDBGrid;: TTable;: TQuery;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TTable;: TQuery;: TDataSource;: TDBGrid;: TLabel;: TLabel;: TMenuItem;: TMenuItem;: TButton;: TButton;: TButton;: TButton;Name: TStringField;Trademark: TStringField;Kind: TStringField;Ed_izm: TStringField;Opisanie: TMemoField;Cena: TFloatField;Kol_vo: TIntegerField;kod: TAutoIncField;: TMenuItem;Name: TIntegerField;Kod: TAutoIncField;Kol_vo: TFloatField;Data_post: TDateField;Srok_god: TDateField;Naimen: TStringField;: TMenuItem;: TMenuItem;: TImage;FormCreate(Sender: TObject);N6Click(Sender: TObject);N7Click(Sender: TObject);N9Click(Sender: TObject);N11Click(Sender: TObject);N2Click(Sender: TObject);N3Click(Sender: TObject);N4Click(Sender: TObject);N13Click(Sender: TObject);N14Click(Sender: TObject);N15Click(Sender: TObject);N16Click(Sender: TObject);N21Click(Sender: TObject);N19Click(Sender: TObject);N17Click(Sender: TObject);N18Click(Sender: TObject);FormActivate(Sender: TObject);N22Click(Sender: TObject);N23Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm1;:string;Unit2, Unit4, Unit5, Unit6, Unit3, Unit7, Unit10, Unit11, Unit12,;
{$R *.dfm}TForm1.FormCreate(Sender: TObject);.ShowMainForm:=false;:=Application.ExeName; // полный путь и название запущенной программы:=ExtractFileDir(Path); // отбрасываем название программы. Остается путь.
if Path[Length(Path)]<>'\' then Path:=Path+'\'; // если последний символ не \ то добавить его
{Последняя строка нужна для присвоения последнего символа '\',
потому что при обрезке файла 'C:\PROG.EXE' получим 'C:\',
а при обрезке 'C:\WINDOWS\PROG.EXE' получим 'C:\WINDOWS' }
form1.table1.databasename:= Path;.table1.tablename:='supermarket.db';.Query1.DatabaseName:=Path;.table2.databasename:= Path;.table2.tablename:='postuplenie.DB';.Query2.DatabaseName:=Path;.Active:=true;;TForm1.N6Click(Sender: TObject);.Active:=true;.Active:=true;;TForm1.N7Click(Sender: TObject);.Active:=false;.Active:=false;;TForm1.N9Click(Sender: TObject);.Close;TForm1.N11Click(Sender: TObject);.Show;;TForm1.N2Click(Sender: TObject);.Show;TForm1.N3Click(Sender: TObject);.Table1.Delete;TForm1.N4Click(Sender: TObject);.Show;.edit2.Text:=form1.Table1.FieldByName('Name').AsString;.edit3.Text:=form1.Table1.FieldByName('Trademark').AsString;.edit4.Text:=form1.Table1.FieldByName('Kind').AsString;.combobox1.Text:=form1.Table1.FieldByName('Ed_izm').AsString;.edit6.Text:= floattostr(form1.Table1.FieldByName('Cena').AsFloat);;TForm1.N13Click(Sender: TObject);.show;.Close;.SQL.Clear;.SQL.Add('select * from supermarket');.SQL.Add('where kol_vo>0');.Open;.quickrep1.Preview;.Close;TForm1.N14Click(Sender: TObject);.show;.Close;.SQL.Clear;.SQL.Add('select * from supermarket');.SQL.Add('where kol_vo=0');.Open;.QRLabel2.Caption:='по отсутствующим товарам ';.quickrep1.Preview;.Close;TForm1.N15Click(Sender: TObject);.show;.Close;.SQL.Clear;.SQL.Add('select * from supermarket');1.Open;
form7.QRLabel2.Caption:='по всем товарам, имеющимся в базе данных ';
form7.quickrep1.Preview;.Close;TForm1.N16Click(Sender: TObject);.show;.Close;.SQL.Clear;.SQL.Add('select * from supermarket');.SQL.Add('where Srok_god<"'+datetostr(date)+'"');.Open;.QRLabel2.Caption:='по отсутствующим товарам ';.quickrep1.Preview;.Close;TForm1.N21Click(Sender: TObject);.show;TForm1.N19Click(Sender: TObject);.Show;TForm1.N17Click(Sender: TObject);,Sheet,Colum:Variant;,i:Integer;:=CreateOleObject('Excel.Application');.Visible:=true;.Workbooks.Add(-4167) ;.Workbooks[1].Worksheets[1].Name:='Отчет';:=XLApp.Workbooks[1].Worksheets[1].Columns;.columns[1].ColumnWidth:=20;.columns[2].ColumnWidth:=20;.columns[3].ColumnWidth:=20;.columns[4].ColumnWidth:=20;.columns[5].ColumnWidth:=20;.columns[6].ColumnWidth:=20;.columns[7].ColumnWidth:=20;:=XLApp.Workbooks[1].Worksheets[1].Rows;.Rows[2].Font.Bold:=true;.Rows[1].Font.Bold:=true;.Rows[1].Font.Color:=clBlue;.Rows[1].Font.Size:=14;:=XLApp.Workbooks[1].Worksheets[1];.Cells[1,2]:='Данные о товаре';
Sheet.Cells[2,1]:='Код товара';
Sheet.Cells[2,2]:= 'Наименование' ;
Sheet.Cells[2,3]:='Фирма-производитель';
Sheet.Cells[2,4]:='Вид';
Sheet.Cells[2,5]:='Единица измерения';
Sheet.Cells[2,6]:='Цена за ед';
Sheet.Cells[2,7]:='Количество';:=3;.First;i:=0 to table1.RecordCount-1 do.Cells[index,1]:=table1.Fieldbyname('kod').Asinteger;.Cells[index,2]:=table1.Fieldbyname('name').AsString;.Cells[index,3]:=table1.Fieldbyname('trademark').AsString;.Cells[index,4]:=table1.Fieldbyname('kind').AsString;. Cells [index, 5] :=table1.Fieldbyname('ed_izm').AsString;. Cells [index, 6] :=table1.Fieldbyname('cena').Asinteger;. Cells [index, 7] :=table1.Fieldbyname('kol_vo').Asinteger;( index) ;.Next;;;TForm1.N18Click(Sender: TObject);,Sheet,Colum:Variant;,i:Integer;:=CreateOleObject('Excel.Application');.Visible:=true;.Workbooks.Add(-4167) ;.Workbooks[1].Worksheets[1].Name:='Отчет';:=XLApp.Workbooks[1].Worksheets[1].Columns;.columns[1].ColumnWidth:=20;.columns[2].ColumnWidth:=20;.columns[3].ColumnWidth:=20;.columns[4].ColumnWidth:=20;.columns[5].ColumnWidth:=20;:=XLApp.Workbooks[1].Worksheets[1].Rows;.Rows[2].Font.Bold:=true;.Rows[1].Font.Bold:=true;.Rows[1].Font.Color:=clBlue;.Rows[1].Font.Size:=14;:=XLApp.Workbooks[1].Worksheets[1];.Cells[1,2]:='Данные о поступлении';
Sheet.Cells[2,1]:='№п\п';.Cells[2,2]:= 'Код товара' ;.Cells[2,3]:='Наименование';.Cells[2,4]:='Дата поступления';;
Sheet.Cells[2,5]:='Количество';
index:=3;.First;i:=0 to table2.RecordCount-1 do.Cells[index,1]:=table2.Fieldbyname('kod').Asinteger;.Cells[index,2]:=table2.Fieldbyname('name').Asinteger;.Cells[index,3]:=table2.Fieldbyname('naimen').AsString;.Cells[index,4]:=table2.Fieldbyname('data_post').AsDateTime;. Cells [index, 5] :=table2.Fieldbyname('kol_vo').Asinteger;( index) ;.Next;;;TForm1.F