VPF::не большая база delphi - Форум программистов

GR0Mi

Дата 22.4.2010, 09:19 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 85
Регистрация: 9.4.2010

Репутация: нет
Всего: нет

решил написать для себя не большую базу. д так что не очень понимаю как её написать примерный вид её должен быть
такой
user posted image

мои акки, у меня вида мыло:пас:голоса:город:имя и тд нужно чтобы в базу мог добавить такой список а оно уже определяло разделитель и заносило в соотвествующю колонку

Данкинг

Дата 22.4.2010, 09:30 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Вопрос-то в чём?

--------------------

There's nothing left but silent epitaphs.

GR0Mi

Дата 22.4.2010, 09:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 85
Регистрация: 9.4.2010

Репутация: нет
Всего: нет

какие компоненты лутчше использовать. база полность локальная. и используется просто для хранение и вывода информации

Данкинг

Дата 22.4.2010, 10:21 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(GR0Mi @ 22.4.2010, 10:53

)

какие компоненты лутчше использовать.

DbGrid, судя по всему, подойдёт.

--------------------

There's nothing left but silent epitaphs.

Deniz

Дата 22.4.2010, 10:54 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1251
Регистрация: 16.10.2004
Где: Новый Уренгой

Репутация: 8
Всего: 44

Да и TButton не помешает smile

--------------------

"Для того чтобы сделать шаг вперед, достаточно пинка сзади" (с)

GR0Mi

Дата 22.4.2010, 10:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 85
Регистрация: 9.4.2010

Репутация: нет
Всего: нет

вот нашол примерную прогу бд . вот такую примерно хочю написать я
вот ссылка __http://ded4sell.ru/?tag=dedicated-server-book-v0-7

former

Дата 22.4.2010, 11:24 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 7
Всего: 17

Цитата(GR0Mi @ 22.4.2010, 10:59

)

вот нашол примерную прогу бд . вот такую примерно хочю написать я

как вариант VirtualTreeView.

Не с прилагательным пишется слитно (небольшую)

Добавлено через 3 минуты и 20 секунд

Цитата(GR0Mi @ 22.4.2010, 09:53

)

Компоненты для чего? Для доступа к данным, визуальные, создания отчета и т.п.
СУБД какая?

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Frees

Дата 22.4.2010, 14:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54

Цитата(former @ 22.4.2010, 14:24

)

Компоненты для чего? Для доступа к данным, визуальные, создания отчета и т.п.СУБД какая?

ты что такие сложные вещи человека спрашиваешь.... ему же просто базу надо smile

)

рас данные в файле то пусть там и лежат а прога только должна его показывать уметь

по моему обычного StringGrid достаточно, зачем база то?

--------------------

Кольцов Виктор Владимирович

Akella

Дата 22.4.2010, 14:45 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Потому что всё будет как всегда - по принципу "Дай котёнку молока и он попросит печенья" smile

GR0Mi

Дата 22.4.2010, 14:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 85
Регистрация: 9.4.2010

Репутация: нет
Всего: нет

Frees правельно говорит даные в тхт файле а прога должна показать их в таблице. просто с. дельфи работал только с веб авторизациями и тд. вот по етому и интересуюсь как сделать лучше

Данкинг

Дата 22.4.2010, 15:46 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(GR0Mi @ 22.4.2010, 11:59

)

вот ссылка __http://ded4sell.ru/?tag=dedicated-server-book-v0-7

Да, щяс кликать все будем. smile

Цитата(GR0Mi @ 22.4.2010, 15:54

)

даные в тхт файле

Файл с разделителями, что ли? Ну, тогда ещё строки парсить надо будет, как ты понимаешь.

--------------------

There's nothing left but silent epitaphs.

GR0Mi

Дата 22.4.2010, 15:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 85
Регистрация: 9.4.2010

Репутация: нет
Всего: нет

Данные в таком формате лежат в тхт

Код


мыло:пас:голоса:город:имя
мыло:пас:голоса:город:имя
мыло:пас:голоса:город:имя
мыло:пас:голоса:город:имя

нужно их вывести в таком виде как на скрине в 1 посте

~FoX~

Дата 22.4.2010, 16:09 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 4
Всего: 68

Кладешь на форму стринггрид
Вот простой парсер:

Код


procedure StrPars(ss: string; var S: array of string): boolean; //Парсер
begin
  s[4] := copy(ss, LastDelimiter(':',ss)+1, Length(ss)-LastDelimiter(':',ss));
  ss := copy(ss, 0, LastDelimiter(':',ss)-1);
  s[3] := copy(ss, LastDelimiter(':',ss)+1, Length(ss)-LastDelimiter(':',ss));
  ss := copy(ss, 0, LastDelimiter(':',ss)-1);
  s[2] := copy(ss, LastDelimiter(':',ss)+1, Length(ss)-LastDelimiter(':',ss));
  ss := copy(ss, 0, LastDelimiter(':',ss)-1);
  s[1] := copy(ss, LastDelimiter(':',ss)+1, Length(ss)-LastDelimiter(':',ss));
  ss := copy(ss, 0, LastDelimiter(':',ss)-1);
  s[0] := copy(ss, LastDelimiter(':',ss)+1, Length(ss)-LastDelimiter(':',ss));
end;

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  S: array [0..4] of string;
  i: integer;
begin
  StrPars('мыло:пас:голоса:город:имя', S); //Здесь передавай то что прочел из файла

  for i := 0 to 4 do begin
    StringGrid1.Cells[i, 1] := s[i];
  end;
end;

Это сообщение отредактировал(а) ~FoX~ - 22.4.2010, 16:11

--------------------

…множественность никогда не следует полагать без необходимости…

Frees

Дата 22.4.2010, 20:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54

Цитата(GR0Mi @ 22.4.2010, 18:48

)

Данные в таком формате лежат в тхт

корявенько... а если в поле "пас" например ":" будет фигурировать....??

ты где такой файл берешь...

--------------------

Кольцов Виктор Владимирович

GR0Mi

Дата 22.4.2010, 20:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 85
Регистрация: 9.4.2010

Репутация: нет
Всего: нет

в ручную регаю на сайте одном.
разделитель то между данными я могу поставить любой "!№%: не имеет значения. главное чтобы разделяло
вот набросал маленькую программку. теперь
пару вопросов. как подписать колонки ?
и столбцов. и как сделать чтоб при нажат и на столбец например возраст оно сортировало по убыванию или возрастанию

Код


procedure TForm1.Button1Click(Sender: TObject);
var ss:TSTRINGLIST;
    s:string;
    mystr:string;
    values:tstringlist;
    i:integer;
    stolb:integer;
begin

stolb:=0;

ss:=tstringlist.create;
ss.loadFromFile('3.txt');

grid.RowCount:=ss.count;
grid.ColCount:=0;

for i:=0 to ss.Count-1 do
 begin;
 mystr:=ss[i];
 while(pos(':',mystr)<>0) do
  begin;
  s:=copy(mystr,1,pos(':',mystr)-1);
  delete(mystr,1,pos(':',mystr));
  inc(stolb);
  if(grid.colCount<stolb) then grid.ColCount:=stolb;
  grid.Cells[stolb-1,i]:=s;
  end;
 end;


end;

Это сообщение отредактировал(а) GR0Mi - 22.4.2010, 20:58

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »