Следующая программа ведет простую базу данных. При каждом ее запуске на экране появляется диалоговое окно (рис. 7.5), в поля которого пользователь может ввести дату и температуру воздуха.
Рис. 7.5. Диалоговое окно программы База данных «Погода»
Дата вводится в поле Edit1, температура – в поле Edit2. Текст программы приведен в листинге 7.3.
Листинг 7.3. Простая база данных (запись в файл).
unit pogoda_; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCTRLs; type TForm1 = class(TForm) Edit1: TEdit; // дата Edit2: TEdit; // температура Button1: TButton; // кнопка Добавить Label1: TLabe1; Label2: TLabe1; procedure FormActivate(Sender: TObject); procedure ButtonlClick(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private < Private declarations >public < Public declarations >end; var Form1: TForm1; implementation const DBNAME = ‘a:pogoda .db’; var db: TextFile; // файл – база данных procedure TForm1.FormActivate(Sender: TObject); begin AssignFile(db, DBNAME);. Append(db); if IOResult = 0 then begin Edit1.Text: = DateToStr(Date); // получить текущую дату Edit2.SetFocus; // курсор в поле Edit2 end else begin Rewrite(db); if IOResult <> 0 then begin // сделать недоступными поля ввода // и командную кнопку Edit1.Enabled: = False; Edit2.Enabled: = False; Buttonl.Enabled: = False; ShowMessage(‘Ошибка создания ‘+DBNAME); end; end; end; // щелчок на кнопке Добавить procedure TForml.Button1Click(Sender: TObject); begin if (Length(edit1.text)=0) or (Length(edit2.text)=0) then ShowMessage(‘Ошибка ввода данных.’ +#13+’Bce поля должны быть заполнены.’) else writeln(db, editl.text,’ ‘,edit2.text); end; // Событие OnClose возникает при закрытии формы procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin CloseFile(db); // закрыть файл БД end; end.
Источник: samoychiteli.ru
Урок 3. Исходный код программы на Delphi 11
Delphi 7 код программы
Недавно добавленные исходники
Архив исходников
ИСХОДНИКИ
На этой странице собраны как мои, так и исходные коды других пользователей на Delphi.
Вы также можете стать автором и добавить свой исходник, воспользовавшись данной формой.
При этом рядом с исходником будет добавлена ссылка на Ваш почтовый адрес,
а также его краткое описание со скриншотом.
Разделы
Добавить исходник
в нашу коллекцию примеров на Delphi
(всего исходников на сайте: 1 359).
ТОП-20 наиболее скачиваемых исходников
20 недавно добавленных исходников
| Название | Автор | Просмотры |
| TDictionary Custom Sort | Nikolay Smolin | 1 882 |
| Fast Watermark Sources | Admin | 1 902 |
| 3D Designer | Felix John COLIBRI | 3 345 |
| Sik Screen Capture | g1i7ch | 2 313 |
| Patch Maker | Eagle | 2 493 |
| Айболит (remote control) | Del | 2 321 |
| ListBox Drag color: #F7F7F7″ align=»center»>Gary Darby | 1 920 | |
| Доска для игры Реверси | Gary Darby | 70 010 |
| Графические эффекты | Gary Darby | 2 523 |
| Рисование по маске | Gary Darby | 2 046 |
| Перетаскивание изображений | Gary Darby | 1 602 |
| Canvas Drawing | Gary Darby | 1 605 |
| Рисование Луны | Gary Darby | 1 621 |
| Поворот изображения | Gary Darby | 1 239 |
| Рисование стержней | Gary Darby | 1 282 |
| Paint on Shape | Gary Darby | 919 |
| Генератор кроссвордов | Gary Darby | 1 432 |
| Головоломка Paletto | Gary Darby | 1 118 |
| Теорема Монжа об окружностях | Gary Darby | 1 462 |
| Пазл Numbrix | Gary Darby | 1 037 |
51 Delphi 7 Текстовый редактор Код программы
Delphi 7, Вычисление заданной функции. (Урок 3)
Когда то выполнял лабораторные работы Delphi , решил по ним провести краткий курс. В программную часть особо лезть не буду скорее всего, хотя кто знает…посмотрим.
Итак, задача: Создать программку, для вычисления функции. Используемкомпоненты Edit, Label, LabeledEdit, Button, BitBtn . Создать иконку, организовать изменение прозрачности формы (AlphaBlend). Задать изменение курсора над разными элементами формы(Cursor). Использовать подсказки (Hint). В случае ошибки вызываем соответствующее окошко (ShowMessage).
Форма нам нужна только одна, компонентов использовать будем не много. Так как у меня уже есть готовый вариант, сделанный мной примерно год назад, покажу вам как это примерно выглядит.
А вот и сама функция:
Глядя на форму, видно что использованы компоненты Edit , Label , LabeledEdit , Button , BitBtn и TrackBar.
Поле ввода Х и надпись сверху это 2 компонента Edit и Label , а Поле ввода К и надпись над ним это LabeledEdit . На мой взгляд, в подобных случаях LabeledEdit использовать разумнее.
Кнопка решить пример это компонент Button . Далее опять Edit и Label .
Кнопка Close закрывает программу, это BitBtn . Для этого компонента имеются несколько стандартных картинок, об этом позже.
В самом низу расположен Edit и TrackBar, с передвижением ползунка, прозрачность формы будет меняться.
Элементы Edit , Label , Button вы найдете на вкладке Standard :
Компоненты LabeledEdit и BitBtn на вкладке Additional :
Компонент TrackBar на вкладке Win 32:
Что бы в Delphi поставить на форму, какой либо компонент, надо кликнуть по нему на панели компонентов, затем кликнуть по месту на форме где хотите его установить. Визуальные компоненты можно растягивать в произвольные размеры.
Как ставить иконку и изменять название формы мы уже рассматривали в предыдущем уроке(начало работы в Delphi 7).
Меняем цвет формы. Выбираем форму, смотрим в Инспектор объектов. Находим там Color , жмем на выпадающий список и выбираем понравившийся цвет. Вот так все просто.
Что бы написать в Edit и LabelEdit свой произвольный текст выбираем нужный компонент, опять заглядываем в Инспектор объектов. В случае если вы выбрали Edit , просто ищите Caption и пишете нужный текст. Если же выбран LabelEdit , сначала необходимо найти EditLabel , кликнуть на плюсик, и в выпавших строчках найти Caption .
В общем говоря, что бы изменить текст на каком либо визуальном компоненте изменять следует атрибут Caption . К Button и BitBtn это тоже относится.
Ранее я говорил про некоторые встроенные возможности BitBtn . Вот сейчас пришло время показать, как ими пользоваться. Выделяем поставленный нами на форму BitBtn , в Инспекторе объектов ищем атрибут Kind , и там уже выбираем желаемую кнопочку.
Компонент получил большее распространение, так как в нем можно установить свою картинку.
Сделаем изменение курсора при наведении на разные компоненты. Комментарии наверно уже будут лишними:
Там же ищем атрибут Hint , пишем соответствующую элементу подсказку. А затем ищем ShowHint и устанавливаем значение True , если это не сделать подсказка не будет появляться при наведении курсора на компонент.
С визуальными объектами мы закончили, интерфейс программы готов, осталось куда надо вставить рабочий код. Если следовать логике, то расчеты должны проводиться после нажатия на кнопку «Решить пример». Для этого кликаем по кнопке 2 раза, и лицезреем редактор программного кода.
Сразу генерируются подобные строчки :
procedure TForm1.Button1Click(Sender: TObject);
Если вы изучали Turbo Pascal , а я на это очень надеюсь, тогда вас ничего не напугает.
Вставляем рабочий код, и все это будет выглядеть следующим образом:
procedure TForm1.Button1Click(Sender: TObject);
if (edit1.text=») or (labelededit1.text=») then
messagedlg(‘Введены не все данные!’,mterror,[mbOK],0) ;
Источник: www.ikasteko.ru