Button1

TButton

Caption

Выход

-

Font

12

-

Bitbtn1

TBitbtn

Caption

Вход

-

SpeedButton1

TSpeedButton

Caption

Вход

-

Label1

TLabel

Caption

вывод

-

Edit1

Tedit

Text

ввод

-

SpinEdit1

TSpinEdit

Text

ввод

-

RadioGroup1

TRadioGroup

Caption

выбор

-

ListBox1

TListBox

Context

Вывод

-

Image1

TImage

Checked

Вывод

OnClick

2.2 Описание проблемной программы

2.2.1 Постановка проблемной программы №1

Обеспечить решение задач с выдачей соответствующих информации вывести количество проданных и бракованных товаров. Для этого пользователю выдается кнопка табличного типа в ней записан пункт, для чего она необходима, при запуске кнопки, она выводит информацию-отчет.

2.2.2 Блок-схема проблемной программы №1

2.2.3 Постановка проблемной программы №2

Обеспечить решение задач с выдачей соответствующей информации - вывод анкет сотрудников, общую сумму товаров. Для этого пользователю выдается кнопка табличного типа в ней записан пункт, для чего она необходима, при запуске кнопки, она выводит информацию-отчет.

2.2.4 Блок-схема алгоритма проблемной программы №2



3. ОРГАНИЗАЦИЯ ПРОИЗВОДСТВА

3.1 Комплекс технических средств

Рекомендуемая конфигурация компьютера:

- BM PC - совместимый компьютер с процессором Athlon 1600+ или выше;

- 512 Мбайт или выше оперативной памяти;

- 12 Мбайт или выше на жестком диске;

- ОС MS DOS 6.22;

- Клавиатура.

3.2 Инструкция пользователю

Для запуска программного комплекса пользователю необходимо запустить файл Project1.dpr. Окно ввода пароля представлено на рисунке 3.1.

Рисунок 3.1 - Ввод пароля

Если пароль введён неверно, на рисунке 3.2

Рисунок 3.2

При выборе пункта «База данных » и нажатии кнопки появляется вложенное меню в котором предоставляется список создание, открытие, сохранения БД, а так же выхода из программы.

При выборе пункта создать или открыть появится полоса выбора БД, в которой при помощи клавиш управления можно выбрать нужную БД.

При выборе нужной базы появится БД в которой при помощи клавиш вверх, вниз выбирается добавление, удаление, редактирование, просмотр и создание.

Tсли пароль верен, то открывается главное меню базы данных. В главном меню содержится (меню, база данных <<LogyCom>>, замена пароля, о программе) Рисунок 3.3

Рисунок 3.3

При запуске (Анализ продаж на складе компании «LogyCom») открывается база данных , которая состоит из трех частей (Товары склада компании «LogyCom», Анализ продаж на складе компании «LogyCom», Работающий персонал) Рисунок 3.4

Рисунок 3.4

Пример фильтрации, в котором нужно ввести название товара и код. По этим двум пунктам он будет фильтровать данные. Рисунок 3.5. Рисунок 3.6

Рисунок 3.5 - Фильтрация

Рисунок 3.6

Поиск, который ищет по трем полям (имя, фамилия, должность) Рисунок 3.7

Рисунок 3.7

На рисунке 3.8 представлен задачи пример1. который выводит кол-во проданных и бракованых товаров



Рисунок 3.8

Заключение

По истечению срока курсовой, я освоил новые этапы работы с программным языком Delphi, поднял благодаря практическим занятиям сноровку в отношении функций и других видов деятельности в создании программ, теперь я уверен что осознанно могу создать программы идентичные по свойствам с программами созданными во время практики, а так же поверх них имея опыт и в других типах функций и операторов написания программ.

Список литературы

1. Архангельский А. Я. Программирование в Delphi 6.-M.:ЗАО “Издательство БИНОМ” 2003 г.

2. Гутман Г.Н. Статья в газете “Информатика” № 21, 2003 г.

3. Иллюстрированный самоучитель по Delphi 6, 2002 г.

4. Иллюстрированный самоучитель по Delphi 7 для профессионалов.

5. Куандыков А.А. Создание системы базы данных в среде Delphi: учебное пособие. Алматы: 2006 г.

6. Малышев О.В. Справочная система по DELPHI. Версия 1.0. 1999 г.

7. Попов В.Б. Turbo Pascal для школьников, M.: <<Финансы и статистика>>, 2003 г.

8. Пинкус М. Электронный учебник 32 урока по Delphi: электронная библиотека InfoCity.

9. Фаронов В.В. Delphi 2005 разработка приложений для баз данных и интернета.

СПб.: Питер, 2006 г.

10. Фаронов В.В. Turbo Pascal 7/0, 2001 г.

11. Фленов М.Е. Базы данных в среде Delphi 3, 2003 г.

ПРИЛОЖЕНИЕ А

Листинг программы

Unit1

procedure TForm1.SpeedButton1Click(Sender: TObject);

var a,b:string;

f:textfile;

c:boolean;

begin

Assignfile(f,'C:\Baza\parol.txt');

reset (f);

b:=edit1.Text;

c:=false;

while(not EOF(f)) and (c=false) do begin

read(f,a);

if a=b then c:=true;

form1.Hide;

end;

if(c=true) then form2.show

else messagedlg('НЕ ВЕРНО',mtinformation,[mbOK],0);

closefile(f);

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

close;

end;

end.

Unit2

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

Table1.First;

end;

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

Table1.Last;

end;

procedure TForm3.BitBtn3Click(Sender: TObject);

begin

if Table1.Eof then

else

Table1.Next;

end;

procedure TForm3.BitBtn4Click(Sender: TObject);

begin

if Table1.Bof then

else

table1.Prior;

end;

procedure TForm3.BitBtn8Click(Sender: TObject);

begin

Table1.Insert;

end;

procedure TForm3.BitBtn6Click(Sender: TObject);

begin

Table1.Delete;

showMessage('запись удалина!');

end;

procedure TForm3.SpeedButton2Click(Sender: TObject);

begin

if not Table1.Locate('Tovar', Edit1.Text, [loCaseInsensitive,

loPartialKey]) then

ShowMessage('Запись не найдена');

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

Table1.Filtered:=false;

Table1.FilterOptions:=[focaseinsensitive];

Table1.Filter:='(Tovar='''+edit3.Text+''')and(Kol_vo='+edit2.Text+')';

Table1.Filtered:=true;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

Table1.Filtered:=false;

end;

procedure TForm3.Timer1Timer(Sender: TObject);

begin

Label1.Caption:=TimeToStr(Time);

end;

procedure TForm3.Button7Click(Sender: TObject);

begin

if openpicturedialog1.Execute then

begin

table3.Edit;

DBimage1.Picture.LoadFromFile(openpicturedialog1.FileName);

table3.Post;

end;

end;

procedure TForm3.SpeedButton4Click(Sender: TObject);

begin

close;

form2.show;

end;

procedure TForm3.BitBtn19Click(Sender: TObject);

var pole:shortstring;

begin

Case RadioGroup3.itemindex of

0:pole:='Tovar';

1:pole:='Model';

2:pole:='Kod_tovara';

end;

table1.Locate(pole,edit1.Text,[locaseinsensitive,lopartialKey]) ;

end;

procedure TForm3.BitBtn20Click(Sender: TObject);

var pole:shortstring;

begin

Case RadioGroup2.itemindex of

0:pole:='Tovar';

1:pole:='Naimenovanie';

2:pole:='Kod_tovara';

end;

table2.Locate(pole,edit4.Text,[locaseinsensitive,lopartialKey]) ;

end;

procedure TForm3.BitBtn21Click(Sender: TObject);

var pole:shortstring;

begin

Case RadioGroup1.itemindex of

0:pole:='Tovar';

1:pole:='Familiya';

2:pole:='Doljnost';

end;

table3.Locate(pole,edit9.Text,[locaseinsensitive,lopartialKey]) ;

end;

procedure TForm3.BitBtn22Click(Sender: TObject);

var a:byte;

begin

a:=MessageDLg('Сохранить записи',mtWarning,[mbYES,mbNO],0);

if a=1 then

Table1.Post;

end;

procedure TForm3.BitBtn23Click(Sender: TObject);

var a:byte;

begin

a:=MessageDLg('Сохранить записи',mtWarning,[mbYES,mbNO],0);

if a=1 then

Table2.Post;

end;

procedure TForm3.Button8Click(Sender: TObject);

var s:integer;

i:longint;

begin

s:=0;

table1.First;

for i:=1 to table1.RecordCount do

begin

s:=s+table1.fieldbyname('Cena_roznicu').asinteger;

table1.Next;

end;

label10.Caption:=inttostr(s);

end;

procedure TForm3.Button9Click(Sender: TObject);

var s:integer;

i:longint;

begin

s:=0;

table2.First;

for i:=1 to table2.RecordCount do

begin

s:=s+table2.fieldbyname('Prodaja_za_mesyac').asinteger;

table2.Next;

end;

label11.Caption:=inttostr(s);

end;

procedure TForm3.Button10Click(Sender: TObject);

var s:integer;

i:longint;

begin

s:=0;

table2.First;

for i:=1 to table2.RecordCount do

begin

s:=s+table2.fieldbyname('Brakovanie').asinteger;

table2.Next;

end;

label12.Caption:=inttostr(s);

end;

procedure TForm3.Button4Click(Sender: TObject);

begin

Table2.Filtered:=false;

Table2.FilterOptions:=[focaseinsensitive];

Table2.Filter:='(Tovar='''+edit5.Text+''')and(Kod_tovara='+edit6.Text+')';

Table2.Filtered:=true;

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

Table2.Filtered:=false;

end;

procedure TForm3.Button5Click(Sender: TObject);

begin

Table1.MoveBy (SpinEdit1.Value);

end;

procedure TForm3.Button6Click(Sender: TObject);

begin

Table2.MoveBy (SpinEdit2.Value);

end;

procedure TForm3.Button11Click(Sender: TObject);

var n:integer;

begin

for n:=0 to table3.FieldCount-1 do

ListBox1.Items.Add (table3.Fields [n].AsString);

end;

procedure TForm3.BitBtn5Click(Sender: TObject);

begin

Table2.First;

end;

procedure TForm3.BitBtn7Click(Sender: TObject);

begin

if Table2.Eof then

else

Table2.Next;

end;

procedure TForm3.BitBtn9Click(Sender: TObject);

begin

Table2.Last;

end;

procedure TForm3.BitBtn10Click(Sender: TObject);

begin

if Table2.Bof then

else

table2.Prior;

end;

procedure TForm3.BitBtn11Click(Sender: TObject);

begin

Table2.Insert;

end;

procedure TForm3.BitBtn12Click(Sender: TObject);

begin

Table2.Delete;

showMessage('запись удалина!');

end;

procedure TForm3.BitBtn13Click(Sender: TObject);

begin

Table3.First;

end;

procedure TForm3.BitBtn15Click(Sender: TObject);

begin

Table3.Last;

end;

procedure TForm3.BitBtn14Click(Sender: TObject);

begin

if Table3.Eof then

else

Table3.Next;

end;

procedure TForm3.BitBtn16Click(Sender: TObject);

begin

if Table3.Bof then

else

table3.Prior;

end;

procedure TForm3.BitBtn17Click(Sender: TObject);

begin

Table3.Insert;

end;

procedure TForm3.BitBtn18Click(Sender: TObject);

begin

Table3.Delete;

showMessage('запись удалина!');

end;

procedure TForm3.BitBtn24Click(Sender: TObject);

var a:byte;

begin

a:=MessageDLg('Сохранить записи',mtWarning,[mbYES,mbNO],0);

if a=1 then

Table3.Post;

end; end.

Unit3

procedure TForm4.SpeedButton1Click(Sender: TObject);

var f:textfile;

a:string;

c,s:string;

begin

begin

s:=getcurrentdir;

assignfile(f,'C:\Baza\parol.txt');

reset(f);

c:=edit1.text;

while (not (EOF(f)))

do

begin

readln(f,a);

end;

closefile(f);

if a=c then

begin

assignfile(f,'C:\Baza\parol.txt');

rewrite(f);

a:=edit2.Text;

write(f,a);

closefile(f);

messagedlg('пароль успешно изменен',mtinformation,[mbok],0);

end

else messagedlg('невероно введен текущий пароль',mterror,[mbok],0);

end;

procedure TForm4.SpeedButton2Click(Sender: TObject);

begin

close;

form1.show;

end;

ПРИЛОЖЕНИЕ Б

Входные формы

Входные формы представлены в таблицах B.1 - B.3.

Таблица B.1 - Счет-фактура

Таблица B.2- база данных «Анализ продаж»

Товар	Модель	Код товара	Продажа за месяц	Возврат	Бракованные

Таблица B.3- Личный листок сотрудника

ПРИЛОЖЕНИЕ В

Выходные формы

Выходные формы представлены на рисунках С.1 - С.3.

Рисунок С.1 - Данные о товарах

Рисунок C.2- данные о продажах товаров

Рисунок C.3-данные о сотрудниках

Размещено на Allbest.ur