Учащийся группы ПО-392
Мисоченко Антон Юрьевич
Шифр: 82
18. Перечислите и опишите компоненты с возможностью редактирования.
Edit - строка ввода. В компоненте Edit вводимый и выводимый текст содержится в свойстве Text. Это свойство можно устанавливать в процессе проектирования или задавать программно.
Memo - комнпонент для редактирования многострочного текста. В компоненте Memo формат (т.е шрифт, выравнивания и т.д) одинаков для всего текста и определяется свойством Font.
ComboBox – объединяет функции Listbox и Edit. Пользователь может либо ввести текст, либо выбрать его из списка.
33. Опишите компоненты OpenDialog и SaveDialog.
Компонент лдю. реализует диалог открытия файла. При запуске этого диалога появляется окно, в котором можно выбрать имя открываемого файла. В случае успешного закрытия диалогового окна нажатием кнопки Open в качестве результата возвращается выбранное имя файла.
Компонент SaveDialog это стандартный диалог сохранения файла, который отличается от диалога открытия файла только своим заголовком.
68. Опишите компоненты и приложения для работы с базами данных.
Для работы с базами данных используются следующее компоненты:
Table - обеспечивает доступ к таблицам базы данных, создавая набор данных,(Набором данных называют записи одной или нескольких таблиц, переданные в приложение в результате активизации компонента доступа к данным.) структура полей которого повторяет базу данных. С помощью компонента Table можно организовать доступ к любой записи таблицы. Компонент содержит все необходимые свойства и методы для создания приложения.
Database – представляет базу данных как единое целое, т.е. совокупность таблиц.
DataSourse – обеспечивает взаимодействие набора даны компонентами
для отображения данных. С каждым компонентом доступа к данным
должен быть связан как минимум один компонент DataSourse. Также с
этим компонентом может связано несколько визуальных компонентов.
DBGrid – предназначен для организации табличного просмотра и редактирования данных. Внешний вид данных, отображаемый DBGrid по умолчанию соответсвует структуре набора данных.
94. Создайте приложение для перевода введенного числа литров в миллилитры, метры кубические. Выбор единиц, в которые надо перевести число осуществлять при помощи компонента RadioButton.
unit Unit1;
interface
us es
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XPMan, Menus;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
XPManifest1: TXPManifest;
Button1: TButton;
Button2: TButton;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure N5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1; создание формы
implementation
{$R *.dfm}
procedure TForm1.RadioButton1Click(Sender: TObject); создание кнопки RadioButton1
var
a,b:real; переменные
begin
a:=StrToFloat (Edit1.Text);
b:=a*1000; формула перевода литров в миллилитры
ShowMessage ('Результат:'+FloatToStr(b)+ 'мл'); создание окна результата
end;
procedure TForm1.RadioButton2Click(Sender: TObject); создание книопки RadioButton2
var
a,c:real; переменные
begin
a:=StrToFloat (Edit1.Text);
c:=a*0.001; формула перевода литров в метры кубичиские
ShowMessage ('Результат:' +FloatToStr(c)+ 'м3'); создание окна результата
end;
procedure TForm1.Button1Click(Sender: TObject); создание кнопки Button1 для удаления данных
begin
Edit1.Clear;
end;
procedure TForm1.Button2Click(Sender: TObject); создание кнопки Button2 для закрытия приложения
begin
Close
end;
procedure TForm1.N5Click(Sender: TObject);
begin
showmessage(' При помощи этой программы возможно литры перевести в миллилитры и в метры кубические. Вводим в строку "Литры" наше значение и ставим метку во что хотим перевести наше значение. Получаем результат.')
end;
end.
135. Создайте приложение позволяющее при помощи системного диалога выбрать цвет, при помощи компонента CheckBox указать компоненты (форма, метка, текстовое окно), которые должны принять выбранный цвет.
unit Unit15;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, XPMan;
type
TForm1 = class(TForm)
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
Edit1: TEdit;
ColorDialog1: TColorDialog;
BitBtn1: TBitBtn;
Label1: TLabel;
XPManifest1: TXPManifest;
procedure Button1Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1; создание формы приложения
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); создание кнопки Button1 для закрытия приложения
begin
close;
end;
procedure TForm1.CheckBox1Click(Sender: TObject); Создание компонента Checkbox1
begin
colorDialog1.Execute; создание диалогового окна ColorDialog
Form1.Color:=colordialog1.Color выбор цвета для формы
end;
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
ColorDialog1.Execute;
Edit1.Color:=colordialog1.color выбор цвета для текстого окна
end;
procedure TForm1.CheckBox3Click(Sender: TObject); Создания книпоки CheckBox3
begin
ColorDialog1.Execute;
Bitbtn1.Font.Color:= Colordialog1.Color; выбор цвета текста кнопки Закрыть
Checkbox1.Font.Color:= Colordialog1.color; выбор цвета текста компонента CheckBox1
Checkbox2.Font.Color:= ColorDialog1.Color; выбор цвета текста компонента CheckBox2
Checkbox3.Font.Color:= ColorDialog1.Color; выбор цвета текста компонента CheckBox3
Edit1.Font.Color:= ColorDialog1.Color; выбор цвета текста компонента Edit1
label1.Font.Color:= ColorDialog1.Color; выбор цвета текста метки Label1
end;
procedure TForm1.BitBtn1Click(Sender: TObject); создание кнопки BitBth1 для закрытия приложения
begin
close;
end;
end.
Список используемых источников
1 ГОСТ ИСО / МЭК 2382-99. Информационные технологии. Словарь. Ч. 1. Основные термины.
2 ГОСТ19.701-90 (ИСО 5807-85). Описание символов. Правила применения символов и выполнения схем.
3 СТУ СМК 4.04-2011. Стандарт учреждения. Общие требования к оформлению текстовых документов».
4 Архангельский, А.Я. Программирование в Delphi 6 / А.Я.Архангельский. – Москва: ЗАО «Издательство Бином», 2002. – 1120 с.
5 Бобровский, С.И. Delphi 7. Учебный курс / С.И.Бобровский. - Санкт-Петербург: Питер, 2003. – 736 с.
6 www.helpdelphi.ru