Sender: TObject);
begin.Font.Style:=Label1.Font.Style- [fsUnderline];
end;
Форма Korzina має Наступний вигляд:
Дана форма вікорістовується для відображення товарів, что знаходяться у корзіні. Є можливість відалення" Зайвий» товару.
Програмний код:
procedure TForm1.Button1Click (Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.Button2Click (Sender: TObject);
begin
if ListView1.Items.Count gt; 0 then
begin.symma_zakaza:=Magazin.symma_zakaza-StrToFloat(ListView1.ItemFocused.SubItems.Strings[2]);.Items.Delete(ListView1.ItemFocused.Index);.Caption:=laquo;Товаров в кошику: + IntToStr (ListView1.Items.Count) ;. Caption:= Сума замовлення: + FloatToStr (Magazin.symma_zakaza) + грн. ; Magazin.symma_zakaza=0 then Magazin.SDIAppForm.Label1.Caption:= Кошик порожній Magazin.SDIAppForm.Label1.Caption:= Кошик: + FloatTostr (symma_zakaza) + грн. raquo ;;. Enabled:=false ;;;
procedure TForm1.FormActivate (Sender: TObject);
begin.Caption:= Товарів у кошику: + IntToStr (ListView1.Items.Count) ;. Caption:= Сума замовлення: + FloatToStr (Magazin.symma_zakaza) + грн. ;;
procedure TForm1.ListView1Click (Sender: TObject);
beginListView1.ItemFocused.Index gt;=0 then Button2.Enabled:=true;
except ;;
Форма Poisk має Наступний вигляд:
Форма «Poisk» вікорістовується для поиска товару Із використанн питань комерційної торгівлі параметрів, что значний заощаджує годину.
Програмний код:
procedure TForm2.Button1Click (Sender: TObject);
begin.SDIAppForm.ADOQuery1.SQL.Clear; .SDIAppForm.ADOQuery1.SQL.Add ( SELECT * ) ;. SDIAppForm.ADOQuery1.SQL.Add ( FROM Товари ) ; .SDIAppForm.ADOQuery1.SQL.Add ( WHERE Товари.Категорія Like ( % + DBLookUpComboBox2.Text + % ) and ) ;. SDIAppForm.ADOQuery1.SQL.Add ( Товари.Наіменованіе Like ( % + Edit1.Text + % ) and ); CheckBox1.Checked then.SDIAppForm.ADOQuery1.SQL.Add ( Товари.Налічіе =true and ); Edit3.Text lt; gt; then Magazin.SDIAppForm.ADOQuery1.SQL.Add ( Товари.Цена BETWEEN CCur ( + Edit3.Text + ) ) Magazin.SDIAppForm.ADOQuery1.SQL.Add ( Товари.Цена BETWEEN CCur (0) ); Edit4.Text lt; gt; then Magazin.SDIAppForm.ADOQuery1.SQL.Add ( AND CCur ( + Edit4.Text + ) and ) Magazin.SDIAppForm.ADOQuery1.SQL.Add ( AND CCur (999999999) and ) ;. SDIAppForm.ADOQuery1.SQL.Add ( Товари.ID Like ( % + Edit2.Text + % ); ) ;. SDIAppForm.ADOQuery1.Active:=True ;;
procedure TForm2.FormActivate (Sender: TObject);
begin.ListSource:=Magazin.SDIAppForm.DataSource1;.ListField:=laquo;Имяraquo;;.KeyField:=laquo;Имяraquo;;;
Висновок
Даній курсовий проект БУВ Виконання з використанн мови програмування Delphi у середовіщі Embarcadero RAD Studio Delphi 2010. У якості бази даних булу звертаючись база формату * .mdb (База даних Microsoft Access Office 2002-2003) через зручність у вікорістані та обробка информации. Для зв язку между програмою та базою вікорістовувалася технологія ADO (компоненти ADOConnection, ADOTable, ADOQuery), окрім вісокої швідкодії ця технологія дает змогу переносіті Цю інформаційну систему между різнімі персональних комп ютерами помощью простого Копіювання. Тобто, чи не нужно Виконувати Ніякі налаштування, что значний полегшує использование.
Використана література
1. Ізбачков Ю., Петров В. Інформаційні системи.- СПб .: Питер, 2005.
. Колесник А.П. Комп'ютерні системи в управлінні фінансами.- М .: Фінанси і статистика, +1994
. Антіфеев Дм.Д. Сучасні засоби побудови корпоративних систем підтримки прийняття управлінських рішень Терн raquo ;, М., 2 001
. Рогач І. Ф., Сендзюк М. А., Антонюк В. А. Інформаційні системи у фінансово-кредитних установах: Нанч. посібник.- 2-ге вид.,
. Савчук Т.О. Організація баз даних и знань. Вінниця: ВДТУ, 2000 р.
