дт, Г. Програмування на BORLAND C ++ для професіоналів: пров. з англ./Г. Шілдт - Мінськ .: Попурі, 1998. - 800 с.
Шілдт, Г. Теорія і практика С ++: пров. з англ./Г. Шілдт.- СПб .: БХВ-Петербург, 2001. - 416 с.
Методичні рекомендації для учнів з виконання курсового проекту з дисципліни Конструювання програм і мови програмування raquo ;, +2011.
ГОСТ 19.402-2000 ЕСПД. Опис програми.
ГОСТ 19.404-79 ЕСПД. Пояснювальна записка. Вимоги до змісту та оформлення.
ГОСТ 19.504-79 ЕСПД. Керівництво програміста. Вимоги до змісту та оформлення.
ГОСТ 19.505-79 ЕСПД. Керівництво оператора. Вимоги до змісту та оформлення.
Програми
Додаток A
Код програми
Лістинг програми в C ++ Builder.
# include lt; vcl.h gt;
# pragma hdrstop
# include Unit1.h
# include Unit2.h
# include Unit3.h
# pragma package (smart_init)
# pragma resource *. dfm * Form1;
__ fastcall TForm1 :: TForm1 (TComponent * Owner)
: TForm (Owner)
{
} __ fastcall TForm1 :: BitBtn1Click (TObject * Sender)
{- gt; Enabled=False; - gt; Show ();
} __ fastcall TForm1 :: BitBtn4Click (TObject * Sender)
{(MessageDlg ( Ви впевнені, що хочете закрити програму? raquo ;, mtConfirmation, TMsgDlgButtons () lt; lt; mbYes lt; lt; mbNo, 0) == mrYes)
{- gt; Terminate ();
}
} __ fastcall TForm1 :: DBGrid1CellClick (TColumn * Column)
{- gt; Caption= Повна вартість: + Form1 - gt; ADOTable1 - gt; FieldByName ( Повна стоймость ) - gt; AsString; - gt; Caption= Вартість прокату: + Form1 - gt; ADOTable1 - gt; FieldByName ( стоймость прокату ) - gt; AsString; - gt; Caption= Марка автомобіля: + Form1 - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString; - gt; Caption= Дата повернення: + Form1 - gt; ADOTable1 - gt; FieldByName ( дата повернення ) - gt; AsString; - gt; Caption= Дата видачі: + Form1 - gt; ADOTable1 - gt; FieldByName ( Дата видачі ) - gt; AsString;
} __ fastcall TForm1 :: BitBtn3Click (TObject * Sender)
{(DBGrid1 - gt; DataSource - gt; DataSet - gt; IsEmpty ())
{( База даних порожня, нічого видаляти! );
}
{- gt; Enabled=False; - gt; Show ();
}
} __ fastcall TForm1 :: BitBtn2Click (TObject * Sender)
{- gt; ADOTable1 - gt; Filter= [ + ComboBox1 - gt; Text + ] + Laquo;= + Edit1 - gt; Text + raquo ;; - gt; ADOTable1 - gt; Filtered=true;
} __ fastcall TForm1 :: Button1Click (TObject * Sender)
{- gt; ADOTable1 - gt; Filtered=false;
}
//---------------------------------------------------------------------------__fastcall TForm1 :: N9Click (TObject * Sender)
{
//ShowMessage ( Дисципліна: КПіЯП nСреда розробки: Borland C ++ Builder nАвтор: Сафронов Євген, гр. II - 83 ); ( Дисципліна: КПіЯП nСреда розробки: Borland C ++ Builder nАвтор: Сафронов Євген, гр. II - 83 raquo ;, mtInformation, TMsgDlgButtons () lt; lt; mbOK, 0);
} __ fastcall TForm1 :: BitBtn5Click (TObject * Sender)
{(DBGrid1 - gt; DataSource - gt; DataSet - gt; IsEmpty ())
{( База данвих порожня, нічого видаляти! );
}
{(MessageDlg ( Видалити запис? raquo ;, mtConfirmation, TMsgDlgButtons () lt; lt; mbYes lt; lt; mbNo, 0) == mrYes)
{- gt; ADOTable1 - gt; Delete ();
}
}
} __ fastcall TForm1 :: N8Click (TObject * Sender)
{(NULL, open raquo ;, Helpm raquo ;, NULL, NULL, SW_SHOWNORMAL);
} __ fastcall TForm1 :: DataSource1DataChange (TObject * Sender, * Field)
{- gt; Caption= Повна вартість: + Form1 - gt; ADOTable1 - gt; FieldByName ( Повна стоймость ) - gt; AsString; - gt; Caption= Вартість прокату: + Form1 - gt; ADOTable1 - gt; FieldByName ( стоймость прокату ) - gt; ...
