r />
При натисканні на кнопку «Звіт про прибуток» на формі «Інтерфейс бухгалтера» формується фінансовий звіт про прибутки і збитки у вигляді документа.
рис.34. Модуль «Звітність»
Система протестована на контрольному прикладі і готова до використання.
Список використаної літератури
1. МЕТОДИЧНІ РЕКОМЕНДАЦІЇ ЩОДО НАПИСАННЯ КУРСОВИХ ПРОЕКТІВ. Чаплигін С.І.- ЕІОС СГЕУ.
. Трофимов С.А. CASE-технології. Практична робота в Rational Rose. Друге видання. Москва Видавництво Біном, 2002.
Додаток 1
Лістинг програми
Unit 1
//закриття форми
procedure TForm1.Button1Click (Sender: TObject) ;;;
//запис в бдTForm1.FormActivate (Sender: TObject);.caption:=form5.dbedit2.Text;.caption:=form5.edit3.text;.caption:=form5.dbedit1.text;.caption:=inttostr(strtoint(form5.edit3.text)*strtoint(form5.DBEdit1.Text));.caption:=datetostr(form5.DateTimePicker1.Date);.caption:=form5.edit1.text;;
Unit 2
//авторізаціяTForm2.Button1Click (Sender: TObject); (combobox1.Text= Майстер ) and (edit1.Text= 111 ) then begin form17.show; if (combobox1. text= Менеджер ) and (edit1.text= 222 ) then begin form4.show; endif (combobox1.text= Клієнт ) and (edit1.text= ) then begin form14.show; if (combobox1.text= Бухгалтер ) and (edit1.text= 333 ) then begin form18.show; endbegin messagedlg ( Пароль невірний! , mtwarning, [mbok], 0); exit ;; end;
//заповнення розкривається спіскаTForm2.FormActivate (Sender: TObject);.items.Clear;.Items.Add(laquo;Мастерraquo;);.Items.Add(laquo;Менеджерraquo;);.Items.Add(laquo;Клиентraquo;);.Items.Add(laquo;Бухгалтерraquo;);;
//перехід на form10TForm3.Button1Click (Sender: TObject) ;. show; end;
//закриття формиTForm3.Button2Click (Sender: TObject) ;; end;
//перехід на form6TForm4.Button1Click (Sender: TObject) ;. show; end;
//перехід на form7TForm4.Button2Click (Sender: TObject) ;. show; end;
//перехід на form8TForm4.Button3Click (Sender: TObject);
form8.show; end;
//перевірка статусу замовлення
procedure TForm4.Button4Click (Sender: TObject); DBEdit1.Text= Чи не виконаний then begin form9.show; ( Замовлення вже виконаний ); end;
//перехід на form16TForm4.Button5Click (Sender: TObject) ;. show; end;
//закриття формиTForm4.Button6Click (Sender: TObject) ;; end;
//перехід на form19TForm4.Button7Click (Sender: TObject) ;. show; end;
//додавання замовлення в бдTForm5.Button1Click (Sender: TObject); (edit1.text= ) or (edit2.text= ) or (edit3.Text= laquo ; ) or (dbedit1.text= ) or (dbedit2.text= ) or (dbedit3.text= ) then begin ( Заповніть всі поля ); exit; end;
ADOTable2.First;.insert;.fieldvalues[laquo;fio_zakazhikaraquo;]:=edit1.text;.fieldvalues[laquo;data_zajvkiraquo;]:=DateTimePicker1.date;.fieldvalues[laquo;id_uslugiraquo;]:=strtoint(dbedit3.text);.fieldvalues[laquo;kolraquo;]:=strtoint(edit3.text);.FieldValues[laquo;cenaraquo;]:=strtoint(dbedit1.text);:=strtoint(edit3.text)*strtoint(dbedit1.text);.fieldvalues[laquo;stoimraquo;]:=stoim;.fieldvalues[laquo;statusraquo;]:=laquo;Не выполненraquo;;.post;.close;edit1.textlt;gt;ADOTable3.fieldvalues[laquo;fio_klientaraquo;] then begin.First;.insert;.fieldvalues[laquo;fio_klientaraquo;]:=edit1.text;.fieldvalues[laquo;telefonraquo;]:=edit2.text;.post;.close;(laquo;Ваш замовлення успішно прийнятий ) ;. show; showmessage ( Ваше замовлення успішно прийнятий ) ;. show ;;
//закриття формиTForm5.Button2Click (Sender: TObject) ;;;
//перехід на form11TForm5.Button3Click (Sender: TObject) ;. show ;;
//запросTForm6.Button1Click (Sender: TObject) ;. SQL.clear; .SQL.add ( Select price.name_uslugi as Найменування raquo ;, sum (zayvka.kol) as Кількість замовлень , sum (zayvka.stoim) as Вартість ) ;. SQL.add ( from zayvka inner join price on zayvka.id_uslugi=price.id_uslugi ) ;. SQL.add ( group by price.name_uslugi ) ;. open ;;
//закриття формиTForm6.Button2Click (Sender: TObject) ;;;
//добавленіеTForm7.Button1Click (Sender: TObject); (edit1.Text= ) or (edit2.text= ) then begin ( Заповніть всі поля ) ; exit; end;
adotable1.First;.append;.fields[1].AsString:=edit1.text;.fields[2].AsString:=edit2.text;.post;(laquo;Запись успішно додана , mtinformation, [mbok], 0) ;. Text:= raquo...
