Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.11.26;
Скачать: CL | DM;

Вниз

Вопросы по базам данных   Найти похожие ветки 

 
Defort ©   (2006-11-07 22:30) [0]

Удалено модератором
Примечание: СПАМ


 
Percent   (2006-11-07 22:36) [1]

Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или конфликтуют друг с другом

Наименования полей на русском языке, да еще и с пробелами - это круто!
Попробуй так:
DataModule1.ADOTable1.IndexFieldNames:= "[Дата заключения]";

Задача: чтобы к каждому договору он создавал новую таблицу График платежей

"Задачу" в топку. Забудь о таком. И не вспоминай даже. Нельзя создавать одинаковые таблицы динамически. Нельзя. Табу. Таблица "График платежей" должна быть в БД одна. Все.


 
Defort ©   (2006-11-07 22:44) [2]


> Наименования полей на русском языке, да еще и с пробелами
> - это круто!
> Попробуй так:
> DataModule1.ADOTable1.IndexFieldNames:= "[Дата заключения]";


Спасибо. Так все работает. А как можно отсортировать поля которые лукапают в другую таблицу?


> "Задачу" в топку. Забудь о таком. И не вспоминай даже. Нельзя
> создавать одинаковые таблицы динамически. Нельзя. Табу.
> Таблица "График платежей" должна быть в БД одна. Все.

Я тоже пришел к такому выводу. Но я не знаю как это правильно реализовать. Задумка у меня такая: одну таблицу график плетежей, в ней поле номер договора. При заключении нового договора, в окно Grid вводится график, а программа автоматически должна присваивать полю номер договора текущий номер, и выводить потом только записи с нужным номером. Но я не знаю, как при редактировании данных непосредственно через DBGrid  присваивать полю значения номера.

И сразу еще вопрос: прочитал в теме про базы экспорт данных в эксель. Применил для своего примера:

procedure TMainForm.N13Click(Sender: TObject);
var
exl: OleVariant;
WorkBook, Sheet: Variant;
i,j : cardinal;
begin
try
  exl := CreateOleObject("Excel.Application");
  WorkBook := exl.Application.WorkBooks.Add;
  Sheet := WorkBook.WorkSheets[1];
  exl.visible := True;
  DataModule1.ADOTable1.First;
  i := 1;
  While not DataModule1.ADOTable1.Eof do
  begin
    for j := 0 to DataModule1.ADOTable1.FieldCount - 1 do
    begin
     Sheet.Cells(i,j+1) := DataModule1.ADOTable1.Fields[j].DisplayText;
    end;
    DataModule1.ADOTable1.Next;
    inc(i);
  end;
except
  ShowMessage("Ïðîèçîøëà îøèáêà ïðè ýåìïîðòèðîâàí&# 232;è");
end;
WorkBook.close;
exl := Unassigned;
end;
end;

Не знаю что сделать с exl: OleVariant; и exl := CreateOleObject("Excel.Application"); - он меня ругает.


 
Desdechado ©   (2006-11-07 22:48) [3]

ага, таки чукча писатель...
http://delphimaster.net/view/3-1162927118/
ну-ну, грабли уже раскиданы и ждут тебя, чтоб поцеловать в лобик


 
Percent   (2006-11-07 23:02) [4]

Но я не знаю как это правильно реализовать.

Послушай моего совета. Внимательно так послушай. Рано тебе браться за разработки БД. Найди книгу хорошую в сети, или купи в магазине бумажную. По разработке структур БД. По реляционным БД. И почитай. Потрать хотя бы месяц, разберись хорошенько. Про таблицы. Про отношения между таблицами. Про первичные и внешние ключи. Разберись. И только после этого берись за дальнейшую работу над своим проектом. Потому что если ты этого не сделаешь - вряд ли у тебя что-то получится. Собирать программу из кусочков готового кем-то написанного кода - глупо и бессмысленно. Браться за разработку программного продукта, не зная и не понимая принципов работы и даже программирования - глупо и бессмысленно. И стыдно должно быть (это так, к слову).

Так что...

P.S. Только ты не обижайся. Вникни в то, что я написал. Хорошо?



Страницы: 1 вся ветка

Текущий архив: 2006.11.26;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.041 c
15-1162767068
Горгер
2006-11-06 01:51
2006.11.26
Примеры к книге Краснова "Графика в OpenGL"


15-1162669363
antonn
2006-11-04 22:42
2006.11.26
про апачи и прочее для создания сайта на пхп...


15-1162634832
DprYg
2006-11-04 13:07
2006.11.26
Профилировщики


3-1154341999
Reaktor
2006-07-31 14:33
2006.11.26
Помогите начать работать с книгами exel


15-1162644159
хххх
2006-11-04 15:42
2006.11.26
Microsoft Office





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский