Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.12.2008, 11:37   #211
opel.omega
Форумчанин
 
Регистрация: 18.11.2008
Сообщений: 188
По умолчанию

есть начальник выкидываю проект
[ATTACH]7285[/ATTACH]
Вложения
Тип файла: rar скт.rar (437.1 Кб, 10 просмотров)
Хакер - не преступник
Взлом - для искусства
Смысл - в свободе
opel.omega вне форума Ответить с цитированием
Старый 17.12.2008, 12:35   #212
Mitriy08
Пользователь
 
Регистрация: 11.07.2008
Сообщений: 91
По умолчанию

В SQL есть так называемые зарезервированые переменные такие как Name,parameters и тд
И если у тебя будут так называться поля то в запросах эти имена надо брать в квадратные скобки []

Код:
'Insert into Sales ( header,detail_name,[parameters],amount,price_1detail,KlientName,dataOfSales ) select header,detail_name,[parameters],amount,price_1detail,KlientName,dataOfSales from zaiavki .....'
Mitriy08 вне форума Ответить с цитированием
Старый 17.12.2008, 13:14   #213
opel.omega
Форумчанин
 
Регистрация: 18.11.2008
Сообщений: 188
По умолчанию

Цитата:
В SQL есть так называемые зарезервированые переменные такие как Name,parameters и тд
И если у тебя будут так называться поля то в запросах эти имена надо брать в квадратные скобки []
Ух ты я и незнал! Большое спасибо за такую ценную информацию
Блин опять выкидывает новую ошибку при нажатии
[ATTACH]7287[/ATTACH]
Изображения
Тип файла: jpg errroorrrrrrr.jpg (32.6 Кб, 146 просмотров)
Хакер - не преступник
Взлом - для искусства
Смысл - в свободе
opel.omega вне форума Ответить с цитированием
Старый 17.12.2008, 13:28   #214
Mitriy08
Пользователь
 
Регистрация: 11.07.2008
Сообщений: 91
По умолчанию

Ух... что же так все хреново.....

И так переделываем таблицу zaiavki
Структура таблицы zaiavki:
IDSklad - тип поля целочисленный - оно соответсвует полю IDSKlad из таблички Sklad
amount - количество товара
Можеш еще добавить поле покупатель если он тебе так нада....

Когдна нажимаем на кнопку добавить в корзину идет запись IDSKlad и количество продоваемой детали

Запрос в кверике для корзины:
Код:
Select {перичисляеш поля} from zaiavki 
join Sklad on sklad.IDSklad = zaiavki.IDSklad
Настраиваеш кверик...

Код кнопки продать....
Код:
procedure TForm5.SpeedButton2Click(Sender: TObject);
var
  j : Integer;
  UpdateDelQuery: TADOQuery;
begin
    DataModule1.zaiavkiQuery.First;
    UpdateDelQuery := TADOQuery.Create(Self);
    With UpdateDelQuery do
    begin
         Name := 'UpdateDelQuery';
         Connection:=DataModule1.ADOConnection1;
         Close;
    end;

    for j:=0 to DataModule1.zaiavkiQuery.RecordCount - 1 do
    begin
        UpdateDelQuery.SQL.Clear;
        UpdateDelQuery.SQL.Add('Update Sklad set amount=amount-'
          +DataModule1.zaiavkiQuery.FieldByName('amount').AsString +' Where IDSklad = '+
           DataModule1.zaiavkiQuery.FieldByName('IDSklad').AsString );
        UpdateDelQuery.ExecSQL;

        DataModule1.zaiavkiQuery.Next;
    end;

{При вставке не учитывается имя покупателя, если нада добавь сам....}
    UpdateDelQuery.SQL.Clear;
    UpdateDelQuery.SQL.Add('Insert into Sales (header,detail_name,[parameters],amount,price_1detail,DataOfsales )');
    UpdateDelQuery.SQL.Add('select header,detail_name,[parameters] ,amount,price_1detail, convert(dateTime,'+Char(39)+DateTimeToStr(Now)+Char(39) +',104) from zaiavki ');
    UpdateDelQuery.SQL.Add('join Sklad on sklad.IDSklad = zaiavki.IDSklad');;
    UpdateDelQuery.ExecSQL;

    UpdateDelQuery.SQL.Clear;
    UpdateDelQuery.SQL.Add('delete from zaiavki');
    UpdateDelQuery.ExecSQL;
    DataModule1.zaiavkiQuery.Close;
    DataModule1.zaiavkiQuery.Open;
    UpdateDelQuery.Free;
    ShowMessage('Товар продан');
end;
Если и сейчас не получится я тя обзаву плохим словом...

Последний раз редактировалось Mitriy08; 17.12.2008 в 14:59. Причина: абшыбся функцией....
Mitriy08 вне форума Ответить с цитированием
Старый 17.12.2008, 13:57   #215
opel.omega
Форумчанин
 
Регистрация: 18.11.2008
Сообщений: 188
По умолчанию

Цитата:
И так Структура таблицы zaiavki:
IDSklad - тип поля целочисленный - оно соответсвует полю IDSKlad из таблички Sklad
amount - количество товара
значит нужно переделать таблицу заявки?
Хакер - не преступник
Взлом - для искусства
Смысл - в свободе
opel.omega вне форума Ответить с цитированием
Старый 17.12.2008, 13:59   #216
opel.omega
Форумчанин
 
Регистрация: 18.11.2008
Сообщений: 188
По умолчанию

я просто скопировал код и он выкинул ошибку что не нашел поле IDSklad
если же я переделаю таблицу заявки то тогда как сохронять наименование детали и.т.д
Хакер - не преступник
Взлом - для искусства
Смысл - в свободе
opel.omega вне форума Ответить с цитированием
Старый 17.12.2008, 14:07   #217
opel.omega
Форумчанин
 
Регистрация: 18.11.2008
Сообщений: 188
По умолчанию

Цитата:
Запрос в кверике для корзины:
а зачем запрос
Хакер - не преступник
Взлом - для искусства
Смысл - в свободе
opel.omega вне форума Ответить с цитированием
Старый 17.12.2008, 14:10   #218
opel.omega
Форумчанин
 
Регистрация: 18.11.2008
Сообщений: 188
По умолчанию

и зачем переделыват заявку ведь можно оставить и переделать только запрос или тут какойто другой смысл
Хакер - не преступник
Взлом - для искусства
Смысл - в свободе
opel.omega вне форума Ответить с цитированием
Старый 17.12.2008, 14:14   #219
opel.omega
Форумчанин
 
Регистрация: 18.11.2008
Сообщений: 188
По умолчанию

я переделал и вместо IDSklad написал IDSales только вот при нажатии он говорит что у поля нет значения по умолчанию
Хакер - не преступник
Взлом - для искусства
Смысл - в свободе
opel.omega вне форума Ответить с цитированием
Старый 17.12.2008, 14:30   #220
Mitriy08
Пользователь
 
Регистрация: 11.07.2008
Сообщений: 91
По умолчанию

Тебе нужно твой проект удалить и сделать его по нормальному...
Один кусочек, как нужно сделать я те привел
Вот почему я писал что нужно сначала сделать нормальную структуру бд,
а не заниматься херней...
Ты наверное так и не прочитал, про то что тебе советовали. Для тебя сдесь распинаются все, а ты мимо ушей все пропускаеш ты ни когда не научишся программировать, если у тебя будет такое отношение ко всему.

Цитата:
я просто скопировал код и он выкинул ошибку что не нашел поле IDSklad
Цитата:
И так переделываем таблицу zaiavki
еще раз доказывает, то что ты читаеш через строку...

Еще раз скажу, что тупой бесмысленный копипаст ни к чему не приведет хорошему...

Цитата:
если же я переделаю таблицу заявки то тогда как сохронять наименование детали и.т.д
Все данные о товаре находятся в табличке Склад!
Дублировать в каждой табличке их не стоит (кроме таблички куда попадают продажи ибо ценик магет поменяться либо товар вообще может удалится) , а не плодить бесмысленные поля в каждой таблице.

Читай умные книжки и иногда слушай других.......
Mitriy08 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi + Acces Artazzz БД в Delphi 5 19.06.2008 14:32
Поиск нескольких записей VenMaster БД в Delphi 1 14.06.2008 22:48
delphi & acces fluer БД в Delphi 4 17.02.2008 12:53
Сохранение нескольких записей из DbGrid в базу Canadec БД в Delphi 5 06.09.2007 14:26
добавления в готовую таблицу Strelka Microsoft Office Excel 1 09.03.2007 17:27