Выполнение.
Создание формы ввода элементов ПК.
Þ Начните работу с новым приложением.
Þ Перетащите компоненту выбора из списка ComboBox. Очистите содержимое свойства Text.
Þ Создайте компоненту Label со свойством Caption “Список элементов ПК”
Þ Перетащите компоненту отображения текста Edit. Очистите содержимое свойства Text. Значение свойства Read Only (только чтение) измените на true.
Þ Создайте компоненту Label со свойством Caption “ Цена ”.
Þ Перетащите компоненту ввода и отображения целых чисел CspinEdit. Значение свойства MinValue (минимальное значение) измените на 0.
Þ Создайте компоненту Label со свойством Caption “Количество”.
Þ Перетащите компоненту таблицы символьных строк StringGrid. Значение свойств ColCount (количество столбцов) измените на 4, FixedCols (количество фиксированных столбцов) на 0, FixedRows(количество фиксированных строк) на 1, RowCount (количество строк) на 2.
Þ Создайте компоненту Label со свойством Caption “Выбранные комплектующие”.
Þ Создайте обработчик события FormActivate. В окне редактора кода введите текст:
ComboBox1->Items->LoadFromFile("naz.txt"); // Загружаются из файла
// наименования компонент ПК
StringGrid1->Cells[0][0] = "Наименование";
StringGrid1->Cells[1][0] = "Количество";
StringGrid1->Cells[2][0] = "Цена";
StringGrid1->Cells[3][0] = "Сумма";
Þ Создайте обработчик события ComboBox1Change. В окне редактора кода введите текст:
TStringList* TEMP = new TStringList;
TEMP->LoadFromFile("zena.txt"); // Загружаются из файла
// значения цен компонент ПК
AnsiString Temp;
Temp = TEMP->Strings[ComboBox1->ItemIndex];
Edit1->Text = Temp;
Þ Перетащите компоненту кнопки Button. Задайте ее свойство Caption “Выбрать”.
Þ Создайте обработчик события Button1Click. В окне редактора кода введите текст:
K++;
StringGrid1->RowCount = K+1;
StringGrid1->Cells[0][K] = ComboBox1->Text;
StringGrid1->Cells[1][K] = CSpinEdit1->Value;
StringGrid1->Cells[2][K] = Edit1->Text;
float zena = StrToFloat(StringGrid1->Cells[2][K]);
float kolvo = StrToFloat(StringGrid1->Cells[1][K]);
StringGrid1->Cells[3][K] = FloatToStr(zena*kolvo);
// Для данного программного кода необходимо вначале описать переменную К целого типа с начальным значением 0.
Þ Перетащите компоненту кнопки Button. Задайте ее свойство Caption “Готово ”.
(По нажатию этой кнопки будет создаваться новая форма с товарным чеком.)
Þ Создайте обработчик события Button1Click. В окне редактора кода введите текст:
TForm2* Form2 = new TForm2(this);
Form2->Show();
Þ Перетащите компоненту кнопки BitBtn. Задайте ее свойство Kind – bkClose, а Caption – &Выход.
Создание формы с компонентой RichEdit.
Þ Создайте новую форму.
Þ Перетащите компоненту многострочного окна редактирования RichEdit. Задайте ее свойство HideScrollBars на false, а ScrollBars на ssVertical.
Þ Создайте обработчик события FormActivate. В окне редактора кода введите текст:
RichEdit1->Clear();
int K = Form1->StringGrid1->RowCount;
for (int I = 1; I < K; I++)
{RichEdit1->Font->Size = 12;
RichEdit1->Font->Style = RichEdit1->Font->Style << fsBold << fsItalic;
RichEdit1->Lines->Append(Form1->StringGrid1->Cells[0][I]);
RichEdit1->Font->Size = 8;
RichEdit1->Paragraph->Numbering = nsBullet;
RichEdit1->Lines->Append("Кол-во "+Form1->StringGrid1->Cells[1][I]);
RichEdit1->Lines->Append("Цена "+Form1->StringGrid1->Cells[2][I]);
RichEdit1->Lines->Append("Сумма "+Form1->StringGrid1->Cells[3][I]);
RichEdit1->Paragraph->Numbering = nsNone;
RichEdit1->Lines->Append(" ");
}
Þ Перетащите компоненту кнопки Button. Задайте ее свойство Caption “Сохранить”.
Þ Создайте обработчик события Button1Click. В окне редактора кода введите текст:
TSaveDialog* dialog = new TSaveDialog(this);
dialog->Title = "Сохранить файл";
if(dialog->Execute())
RichEdit1->Lines->SaveToFile(dialog->FileName);
Þ Перетащите компоненту кнопки BitBtn. Задайте ее свойство Kind – bkClose, а Caption – &Закрыть.
Þ