В нашей
рассылке вы узнаете о новых статьях, программах, и темах на форуме. Рассылка
выходит один раз в неделю, каждый четверг.
Подписаться на рассылку можно в этой форме:
Последний выпуск
Приветствую! Сегодня
четверг, и я надеюсь вы не забыли, что сегодня вы еще должны почитать
рассылочку )) Сегодня она , как всегда, самая самая самая
интересная!
Я решил порадовать вас
статьей о встроенной в
Delphi
базе данных от Грузина. А также наконец официальные
итоги 1 этапа Конкурса программистов. Читайте об этом ниже. А также самые
смешные анекдоты по самым разным темам.
В
комплекте с Delphi 7 поставляются сразу несколько библиотек для работы с
базами данных (ADO, BDE, dbExpress, InterBase и др.). Для того чтобы
создать приложение, работающее с локальной базой данных, то вы обычно
используете библиотеку BDE. Эта библиотека создана компанией Borland и уже
порядком устарела. Но без определённой подготовки операционной системы эти
компоненты работать не будут. Есть альтернатива этим компонентам.
Существует автономный компонент
TClientDataSet который использует свой собственный формат данных.
Итак, переходим к практике. Компонент
TClientDataSet использует файлы с расширением *.CDS и *.XML мы будем
рассматривать формат CDS, так как XML формат занимает вдвое больше места
на диске и такой файл легко можно изменить, открыв его через блокнот. Этот
компонент при создании проецирует файл в память и модифицирует только
память, а при уничтожении данные записываются в файл целиком. Путь к файлу
определяет свойство FileName. Файлы формата CDS можно найти в папке
program files\Common Files\Borland Shared\Data. Давайте сначала откроем
один из них. Скопируем один из них в папку c:\data .
Кидаем на форму 4 компонента
1. TClientDataSet
2. TDataSource
3. TDBGrid
4. TDBNavigator
В результате :
1. DataSource1
2. ClientDataSet1
3. DBGrid1
4. DBNavigator1
Настраиваем их свойства так чтобы
получилось примерно так:
DBNavigator1.DataSource = DataSource1
DBGrid1.DataSource = DataSource1
DataSource1.DataSet = ClientDataSet1
ClientDataSet1.FileName =
'D:I\www\customer.cds'
ClientDataSet1.Active =
True (самое главное этого не забыть :-))
И
всё готово. Вы сразу у меня спросите: "А как создать новую таблицу?".
Всё очень просто даже не нужно НИКАКИХ
дополнительных программ, только компонент TClientDataSet и конечно Delphi.
1. Создаём новый проект (можно даже
его не сохранять) и добавляем на форму компонент TClientDataSet.
2. Сначала определим структуру таблицы.
Для этого открываем свойство FieldDefs нашего компонента. Открывается окно
"Editing ClientDataSet1.FieldDefs" жмём "добавить новый", и определяем
свойства поля (тип, формат, размер и т.д.).
3. Теперь самое главное. Щёлкаем правой
кнопкой мыши на компоненте TClientDataSet и выбираем пункт CreateDataSet.
Потом ещё раз открываем контекстное меню и выбираем пункт "Save to binary
MyBase file" и сохраняем файл туда, куда нам
надо.
Всё готово теперь у нас есть файл
CDS. Можно закрывать данный проект и создавать новый, так как это было
показано выше. Изменяете его, как хотите, добавляйте, удаляйте, изменяйте
короче как обычно. Как модифицировать файл программно и фильтровать и
индексировать записи, я вам расскажу позже.
1 этап закончился.
Во второй этап вышло 4 человека:
SIMPLY_ART
Грузин
Zetrix
Umen
Для победы во втором этапе нужно выполнить
следующие условия:
1. Открыть цветную или чёрно-белую картинку. с
возможностью настройки размеров, желательно настройка по контрастности,
чтобы можно было выбрать сколько тёмных и светлых квадратов.
2. Ручное
редактирование полученной матрицы.
3. Сохранение в файл матрицы.
работы присылать на админский майл, до 20 февраля.
Те кто не прошёл
первый тур, прошу не расстраиваться, с 1 марта будет новый конкурс с
призами.
- Маша, съешь кусочек
тортика!
- Не хочу!
- Ну съешь, вкусный…
- Я не ем после
шести!
- Ну съешь пожалуйста…
- Да я вообще сладкое не люблю…
-
Ешь дура!!! Там кольцо, жениться на тебе хочу!!!
***
“Слабое
звено”.
Ведущая:
- Вопрос: как называется человек, который спит с
мужчиной?
- Гей!!!
- Это неправильный ответ. Правильный ответ:
женщина!
***
У кандидата спрашивают:
-
Почему вы решили баллотироваться?
- Да вы посмотрите, что творится!
Власть погрязла в роскоши, коррупции, безделье!
- А, так вы хотите со
всем этим бороться?
- Ну что вы! Я хочу во всем этом
участвовать!
***
Мама не разрешает мне
смотреть интернет.
Она говорит, что там разврат, мат и
плохо.
Единственный сайт который я могу открыть это
about:blank.
Сначала было скучно, но потом я втянулся.
Теперь у меня
там живет два воображаемых друга и я слышу голоса из розетки!
***
Молодой адвокат впервые
выступет на суде:
- То, что мой подсудимый решился обратится за защитой
ко мне, четко доказывает его невменяемость…
***
Сцена в американском отеле.
Пара расплачивается за завтрак. Кассир хочет потрепаться и задает
наводящие вопросы… Мужчина лаконично и без особого выражения
отвечает.
- Вы на все выходные?
- Да…
- А дети есть?
-
Да…
- А в этот раз не взяли?
- Нет…
- Так вы только вдвоем?..
Романтика!..
- Да…
- А кто с детьми остался?
- Жена.
***
Разговор двух другов:
- Жена
каждый день меня упрекает за то, что я перестал за ней ухаживать.
Как
быть?
- Подумай сам: стоит ли ухаживать за женщиной, которая уже
замужем?
Если у вас есть
желание поделиться своим опытом с читателями, вы являетесь обладателем
ценных, интересных статей
или авторских программ, а
может
вы просто хотите высказать свое мнение или замечание о
рассылке, просто
напишите
мне
. Я постараюсь уделить внимание каждому. А "
Клуб программистов
" всегда рад
приветствовать в своих рядах новых пользователей.