Приветствую!
Сегодня четверг, и я надеюсь вы не забыли, что сегодня вы еще должны
почитать рассылочку )) Сегодня она , как всегда, самая самая самая
интересная!
Я решил
порадовать вас статьей о встроенной в 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.
Сначала было скучно, но потом я втянулся.
Теперь у меня там живет два воображаемых друга и я слышу голоса из
розетки!
***
Молодой адвокат впервые
выступет на суде:
- То, что мой подсудимый решился обратится за защитой ко мне, четко
доказывает его невменяемость…
***
Сцена в американском
отеле. Пара расплачивается за завтрак. Кассир хочет потрепаться и задает
наводящие вопросы… Мужчина лаконично и без особого выражения отвечает.
- Вы на все выходные?
- Да…
- А дети есть?
- Да…
- А в этот раз не взяли?
- Нет…
- Так вы только вдвоем?.. Романтика!..
- Да…
- А кто с детьми остался?
- Жена.
***
Разговор двух другов:
- Жена каждый день меня упрекает за то, что я перестал за ней ухаживать.
Как быть?
- Подумай сам: стоит ли ухаживать за женщиной, которая уже замужем?
Если у вас есть желание
поделиться своим опытом с читателями, вы являетесь обладателем ценных,
интересных статей или авторских программ, а может вы просто хотите высказать свое мнение или
замечание о рассылке, просто
напишите мне. Я
постараюсь уделить внимание каждому. А "Клуб
программистов" всегда рад приветствовать в своих рядах новых
пользователей.