Контрольная работа: Разработка программы представления табличных данных в виде диаграммы прямоугольников
👉🏻👉🏻👉🏻 ВСЯ ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻
Разработка программы представления табличных данных в виде диаграммы прямоугольников.
Нажатием кнопки «Новый» производится создание нового типизированного (nrec) файла: выводится диалоговое окно с текстовым полем для имени файла, затем это имя устанавливается в соответствие файловой переменной (fdata). Файл открывается процедурой Rewrite, затем производится проверка на наличие ошибок при открытии файла. Если открытие было успешным, то флаг is_open присваивается значение true, становятся доступными элементы для ввода записей.
Нажатием кнопки «Открыть» производится открытие файла для чтения процедурой Reset. Если файл открыт, производится считывание всех записей из этого файла и помещение их в таблицу (SG), флаг is_open устанавливается в true.
Нажатием кнопки «Ввод» проверяется не пусты ли текстовые поля EKEY и EVAL. Если «нет»б проверяются данные в поле EVAL. Если эти данные являются числом, то данные из EKEY и EVAL записываются в таблицу.
Диаграмма (GR) строится нажатием кнопки «Построить»: очищаются значения диаграммы, если в таблице значений не больше чем два, построение не выполняется.
Кнопка «Сохранить» перемещает указатель на начало файла и записывает все данные из таблицы в открытый файл.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, Series;
SG: TStringGrid; GR: TChart; EKEY: TEdit; EVAL: TEdit;
BENT: TButton; BNEW: TButton; BOPEN: TButton; BMAKE: TButton;
Button1: TButton; BCLO: TButton; BSAV: TButton; Label1: TLabel;
Label2: TLabel; Series1: TBarSeries;
procedure BNEWClick(Sender: TObject);
procedure BSAVClick(Sender: TObject);
procedure BENTClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure BOPENClick(Sender: TObject);
procedure BMAKEClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure BCLOClick(Sender: TObject);
procedure TFMAIN.BNEWClick(Sender: TObject);
AssignFile(fdata, FDIALOG.getName);
MessageDlg('Ошибка при открытии файла!',
SG.Cells[0,1]:=''; SG.Cells[1,1]:='';
SG.Enabled:=true; EVAL.Enabled:=true;
GR.Enabled:=true; EKEY.Enabled:=true;
BENT.Enabled:=true; BMAKE.Enabled:=true;
BCLO.Enabled:=true; BSAV.Enabled:=true;
BNEW.Enabled:=false; BOPEN.Enabled:=false;
FMAIN.Caption:='Таблица '+FDIALOG.getName;
procedure TFMAIN.BSAVClick(Sender: TObject);
rec.val:=StrToFloat(SG.Cells[1, i]);
procedure TFMAIN.BENTClick(Sender: TObject);
if (EKEY.Text<>'')and(EVAL.Text<>'') then
MessageDlg('Вводить только числа', mtWarning, [mbOK], 0);
SG.Cells[0, SG.RowCount-1]:=EKEY.Text;
SG.Cells[1, SG.RowCount-1]:=EVAL.Text;
procedure TFMAIN.FormClose(Sender: TObject; var Action: TCloseAction);
procedure TFMAIN.FormCreate(Sender: TObject);
procedure TFMAIN.BOPENClick(Sender: TObject);
AssignFile(fdata, FDIALOG.getName);
MessageDlg('Ошибка при открытии файла!',
SG.Cells[1, i]:=FloatToStr(rec.val);
SG.Enabled:=true; EVAL.Enabled:=true;
GR.Enabled:=true; EKEY.Enabled:=true;
BENT.Enabled:=true; BMAKE.Enabled:=true;
BCLO.Enabled:=true; BSAV.Enabled:=true;
FMAIN.Caption:='Таблица '+FDIALOG.getName;
BNEW.Enabled:=false; BOPEN.Enabled:=false;
procedure TFMAIN.BMAKEClick(Sender: TObject);
MessageDlg('В таблице нет данных!', mtWarning, [mbOK], 0);
for ser:=1 to SG.RowCount-2 do begin
GR.Series[0].Add(StrToFloat(SG.Cells[1, ser]),
procedure TFMAIN.Button1Click(Sender: TObject);
procedure TFMAIN.BCLOClick(Sender: TObject);
SG.Cells[0,1]:=''; SG.Cells[1,1]:='';
SG.Enabled:=false; EVAL.Enabled:=false;
GR.Enabled:=false; EKEY.Enabled:=false;
BENT.Enabled:=false; BMAKE.Enabled:=false;
BSAV.Enabled:=false; BCLO.Enabled:=false;
FMAIN.Caption:='Представление табл. данных прямоугольной диаграммой'
BNEW.Enabled:=true; BOPEN.Enabled:=true;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
procedure BOKClick(Sender: TObject);
procedure BCANClick(Sender: TObject);
procedure TFDIALOG.BOKClick(Sender: TObject);
procedure TFDIALOG.BCANClick(Sender: TObject);
Forms, Kmain in 'Kmain.pas' {FMAIN}, KDialog in 'KDialog.pas' {FDIALOG};
Application.CreateForm(TFMAIN, FMAIN);
Application.CreateForm(TFDIALOG, FDIALOG);
При закрытии программы всегда выполняется процедура CloseFile;
Для каждой записи строится своя диаграмма;
При нажатии «Построить» данные из таблицы добавляются к прошлым значениям диаграммы;
При сохранении в файл считывается больше записей чем есть в таблице;
Не очищаются имена и значения в таблице при закрытии файла.
Чтобы при закрытии программы процедура CloseFile выполнялась только тогда, когда есть открытый файл введена переменная is_open;
GR.Series[i].Add(StrToFloat(SG.Cells[1, ser]), SG.Cells[0, ser], clMedGray);
GR.Series[0].Add(StrToFloat(SG.Cells[1, ser]), SG.Cells[0, ser], clMedGray);
В обработчике события OnClick кнопки «Построить» добавлена строка
Число записей читаемых из таблицы уменьшено на единицу:
В обработчике события OnClick кнопки «Закрыть» добавлено:
Название: Разработка программы представления табличных данных в виде диаграммы прямоугольников
Раздел: Рефераты по информатике, программированию
Тип: контрольная работа
Добавлен 22:54:35 15 июня 2010 Похожие работы
Просмотров: 19
Комментариев: 15
Оценило: 3 человек
Средний балл: 5
Оценка: неизвестно Скачать
Срочная помощь учащимся в написании различных работ. Бесплатные корректировки! Круглосуточная поддержка! Узнай стоимость твоей работы на сайте 64362.ru
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.
Контрольная работа: Разработка программы представления табличных данных в виде диаграммы прямоугольников
Реферат: Москва и Московская губерния в годы иностранной военной интервенции и гражданской войны
Сочинение Про Марию Миронову Капитанская Дочка
Реферат по теме Этиология, патогенез и клиника диффузного токсического зоба
Эссе По Обществознанию Егэ План Примеры
Курсовая работа по теме Операції банку з платіжними картками та напрями підвищення їх ефективності
Реферат: Методика обучения истории в начале XX века
Курсовая работа: Учение А.В. Чаянова. Скачать бесплатно и без регистрации
Масс Медиа Реферат
Слава Определение Для Сочинения 9.3
Примеры Дипломных Работ По Юриспруденции
Сочинение По Станционному Смотрителю В 1 Страницу
Всегда Ли Я Прав Декабрьское Сочинение
Курсовые работы: Радиоэлектроника, компьютеры и переферийные устройства
Курсовая работа по теме Профессиональные и личностные качества будущего педагога профессионального обучения
Клише Для Сочинения Рассуждения
Дипломная работа: Кредитная политика коммерческого банка и выработка направлений ее совершенствования
Учебное пособие: Методические указания по разработке систем автоматизации в курсовых
Сочинение Про Качества Человека
Курсовая Работа На Тему Неправомерные Действия При Банкротстве
Контрольная Работа В Сети Интернет Единый Урок
Реферат: Биржевые стратегии на рынке опционов
Реферат: The Impact the Civil War 1861-1865 on Economic, Politic and Industry Development in the USA
Сочинение: Своеобразие проблематики ранней прозы М. Горького. (На примере одного из рассказов.)