Реферат Автоматизована інформаційна система рекламного агентства

Тема: Курсовые проекты

;;. Text:= raquo ;;;

//закриття формиTForm7.Button2Click (Sender: TObject) ;;;

//добавленіеTForm8.Button1Click (Sender: TObject); (edit1.Text= ) or (edit2.text= ) then begin ( Заповніть всі поля ) ; exit; end;

adotable1.First;.append;.fields[1].AsString:=edit1.text;.fields[2].AsInteger:=strtoint(edit2.text);.post;(laquo;Запись успішно додана , mtinformation, [mbok], 0) ;. Text:= raquo ;;. Text:= raquo ;;;

//закриття формиTForm8.Button2Click (Sender: TObject) ;;;

//добавленіеTForm9.Button1Click (Sender: TObject);.First;.insert;.fieldvalues[laquo;id_zayavkiraquo;]:=strtoint(dbedit2.Text);.fieldvalues[laquo;fio_zakazhikaraquo;]:=dbedit1.text;.fieldvalues[laquo;data_zajvkiraquo;]:=dbedit5.text;.fieldvalues[laquo;id_uslugiraquo;]:=strtoint(dbedit3.text);.fieldvalues[laquo;kolraquo;]:=strtoint(dbedit4.text);.FieldValues[laquo;cenaraquo;]:=strtoint(dbedit6.text);.fieldvalues[laquo;stoimraquo;]:=strtoint(dbedit7.text);.fieldvalues[laquo;statusraquo;]:=dbedit8.text;.post;.close;(laquo;Техническое завдання відправлено майстру ) ;; end;

//добавленіеTForm10.Button1Click (Sender: TObject);.First;.append;.fields[0].AsInteger:=strtoint(dbedit1.text);.fields[1].AsInteger:=strtoint(dbedit2.text);.fields[2].AsInteger:=strtoint(dbedit3.text);.fields[3].AsInteger:=strtoint(dbedit4.text);.fields[4].AsInteger:=strtoint(dbedit5.text);.post;(laquo;Заказ виконаний, кошторис відправлена ??менеджеру , mtinformation, [mbok], 0) ;;

end;

//запросTForm12.Button1Click (Sender: TObject) ;. SQL.clear; .SQL.add ( select month (data_zajvki) as № місяці raquo ;, sum (kol) as Кількість продажів raquo ;, sum (stoim) as Загальна вартість from zayvka ) ;. SQL.add ( group by month (data_zajvki) ) ;. open ;;

//закриття формиTForm12.Button2Click (Sender: TObject) ;;;

//перехід на form5TForm14.Button1Click (Sender: TObject) ;. show ;;

//перехід на form15TForm14.Button2Click (Sender: TObject) ;. show ;;

//закриття формиTForm14.Button3Click (Sender: TObject) ;;;

//закриття формиTForm15.Button1Click (Sender: TObject) ;;;

//ДобавленіеTForm15.Button2Click (Sender: TObject);.First;.append;.fields[1].AsDateTime:=DateTimePicker1.date;.fields[2].Asstring:=edit2.text;1.post;

messagedlg ( Спасибі за те, що Ви оцінили роботу нашої компанії , mtinformation, [mbok], 0);

end;

//закриття формиTForm16.Button1Click (Sender: TObject) ;;;

//перехід на form3TForm17.Button1Click (Sender: TObject) ;. show ;;

//перехід на form16TForm17.Button2Click (Sender: TObject) ;. show ;;

//закриття формиTForm17.Button3Click (Sender: TObject) ;;;