Руководство пользователя
В основном окне присутствует множество кнопок для использования данной программы. Для навигации используются соответствующие кнопки на панели «Navigation». Для добавления нужно нажать кнопку «New record», заполнить появившиеся поля и нажать «Apply». Для редактирования записи следует кликнуть по «Edit record», провести нужные изменения в записи и так же нажать «Apply». Данные изменения сразу же сохраняются в таблице без возможности возврата в предыдущее состояние таблицы (так что будьте внимательны при заполнении полей). Для выхода из режима добавления/редактирования записи следует кликнуть по кнопке «Cancel». Чтобы удалить текущую запись нужно кликнуть по «Delete current record».
Для запросов в окне программы присутствует отдельная панель. Для поиска по наименованию товара нажмите кнопку «Find name product» и в появившемся окне введите наименование товара, которое хотите найти. При желании поставьте галочку для сохранения результата в MS Word. Чтобы определить, какие продукты имеют издержки, превышающие чистую прибыль, следует кликнуть по «Show costs>clear profit». Для сохранения результата данного запроса в документ MS Excel поставьте галочку возле «Save in MS Excel». Для возврата к таблице кликните по «Show all table».
Примечание: навигация работает исключительно в таблице. При просмотре результатов запроса, навигация не работает.
Блок-схема программы Модуль MyClass
Constructor TDataBase.Create(a,f,g:String;b,c,e:Real;d:Integer)
FF7:=g
FF4:=d
FF3:=c
FF2:=b
FF6:=f
Inherited create
2
FF1:=a
3
4
5
6
7
8
Вход
9
FF5:=e
10
Возврат
procedure TDataBase.CreateRecord
2 2 Form1.Table.Append
11
10
9
8
7
6
5
4
3
Возврат
Form1.Table.Post
Form1.Table.FieldByName('Type_activity').AsString:=FF7
Form1.Table.FieldByName('Name_company').AsString:=FF6
Form1.Table.FieldByName('Cost_price').AsFloat:=FF5
Form1.Table.FieldByName('Sales_volume').AsInteger:=FF4
Form1.Table.FieldByName('Clear_profit').AsFloat:=FF3
Form1.Table.FieldByName('Costs').AsFloat:=FF2
Form1.Table.FieldByName('Name_product').AsString:=FF1
1
2 Form1.Table.Edit Procedure tDataBase.EditRecord
2
7
6
Form1.Table.FieldByName('Cost_price').AsFloat:=FF5
Form1.Table.FieldByName('Sales_volume').AsInteger:=FF4
Form1.Table.FieldByName('Name_product').AsString:=FF1
Form1.Table.FieldByName('Costs').AsFloat:=FF2
Form1.Table.FieldByName('Clear_profit').AsFloat:=FF3
3
4
5
11
10
9
8
Возврат
Form1.Table.Post
Form1.Table.FieldByName('Type_activity').AsString:=FF7
Form1.Table.FieldByName('Name_company').AsString:=FF6
1