Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Выборка из ComboBox`a, Попытка выбора и сумирование 
:(
    Опции темы
Anakin
Дата 5.11.2008, 16:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Добрый день
Есть тыкая проблема.
Работаю с АДО
МS Access.
Есть два комбобокса
и 3 таблицы и одно поле Tedit

В первой таблице название товара, стоимость товара и его количество.
Во второй таблице Экономический агент, имя клиента который решил  у нас что-то купить.
В третью таблицу у нас вносятса поля таким образом: Он купил: Name1 * 3 штуки = 31.68
Так вот у меня 2 проблемы первая MS Access не считает копейки и вторая когда я записываю данный в третью таблицу она считает сумму по первому полю первой таблици тоесть я незнаю как сделать так что бы оно считало по выбранному имени полю его суммы.

1) Table1
===================
ID | Tovar     | Suma    |Col
==|====== |======|===
1  | Name1   | 10,56   | 23
2  | Name2   | 15,34   | 56
3  | Name3   | 13,23   | 34
4  | Name4   | 15,46   | 23
5  | Name5   | 56,05   | 3

2) Table2
=========
ID| Agent   |
==|======
1  | Name1 |
2  | Name2 |
3  | Name3 |

3) Table3

================
ID | NikName| Suma    |
==|====== |======|
1  |               |             | 
2  |               |             | 
3  |               |             | 
4  |               |             | 


Вот код:

Код

type
  TfrmGive = class(TForm)
    sGroupBox1: TsGroupBox;
    edt_Kol: TsEdit;
    btn_give: TsButton;
    btn_close: TsButton;
    FormSize1: TFormSize;
    cb_give: TsComboBox;
    rb_vibor: TsRadioGroup;
    sLabel1: TsLabel;
    sLabel2: TsLabel;
    cb_skup: TsComboBox;
    sLabel3: TsLabel;
    sGroupBox2: TsGroupBox;
    lbl_sum: TsLabel;
    sBevel1: TsBevel;
    lst_status: TsListBox;
    procedure FormCreate(Sender: TObject);
    procedure btn_giveClick(Sender: TObject);
    procedure rb_viborClick(Sender: TObject);
    procedure btn_closeClick(Sender: TObject);
    procedure cb_giveChange(Sender: TObject);
  private
  Procedure Moldcell;
  Procedure Voxtel;
  Procedure Other;
    { Private declarations }
  public
  param1:integer;
  Result:integer;
    { Public declarations }
  end;

var
  frmGive: TfrmGive;

implementation

uses Package, Goods, Debit, About, ViewDebit, Sell, DataModule,
  Options,Registry, Otchet,AdminTeritor, Store, Password, Copy,
  Pack, Edit, Prixod, Registr, Ucalc, Main;
{$R *.dfm}

procedure TfrmGive.FormCreate(Sender: TObject);
begin
  cb_skup.Clear;
  Module.qGive.Close;
  Module.qGive.SQL.Clear;
  Module.qGive.SQL.Add('SELECT agent.id, agent.name');
  Module.qGive.SQL.Add('FROM agent;');
  Module.qGive.Open;
  cb_skup.Clear;
  while not Module.qGive.Eof do
  begin
    cb_skup.Items.AddObject(Module.qGive.Fields.Fields[1].AsString, Pointer(Module.qGive.Fields.Fields[0].AsInteger));
    Module.qGive.Next;
  end;
end;
Procedure TfrmGive.Moldcell;
Begin
  cb_give.Clear;
  Module.Access.Close;
  Module.Access.SQL.Clear;
  Module.Access.SQL.Add('SELECT Moldcell.Number, Moldcell.Vid_Pack,Moldcell.Summa_rel');
  Module.Access.SQL.Add('FROM Moldcell;');
  Module.Access.Open;
  param1:=Module.Access.Fields.Fields[2].AsInteger;
  cb_give.Clear;
  while not Module.Access.Eof do
  begin
    cb_give.Items.AddObject(Module.Access.Fields.Fields[1].AsString, Pointer(Module.Access.Fields.Fields[0].AsInteger));
    Module.Access.Next;
  end;
End;
procedure TfrmGive.btn_giveClick(Sender: TObject);
begin
Module.Agent.Active:=True;
Module.Agent.edit;
Module.Agent.insert;
Module.Agent.fieldbyname('NameS').AsString:=(cb_skup.Items.Strings[cb_skup.ItemIndex]);
Module.Agent.fieldbyname('Tovar').AsString:=(cb_give.Items.Strings[cb_give.ItemIndex]);
Module.Agent.fieldbyname('Col').AsString:=edt_kol.Text;
Module.Agent.FieldByName('Data').AsDateTime := Now;
Result:=StrToInt(edt_kol.Text)*param1;
Module.Agent.fieldbyname('Summa').AsInteger:=Result;
Module.Agent.Post;
Module.Agent.active:=False;
Module.Agent.active:=True;
lbl_sum.Caption:=IntToStr(Result)+ ' Lei';
end;



Procedure TfrmGive.Voxtel;
Begin
  cb_give.Clear;
  Module.Access.Close;
  Module.Access.SQL.Clear;
  Module.Access.SQL.Add('SELECT Voxtel.Number, Voxtel.Vid_Pack');
  Module.Access.SQL.Add('FROM Voxtel;');
  Module.Access.Open;
  cb_give.Clear;
  while not Module.Access.Eof do
  begin
    cb_give.Items.AddObject(Module.Access.Fields.Fields[1].AsString, Pointer(Module.Access.Fields.Fields[0].AsInteger));
    Module.Access.Next;
  end;
End;

Procedure TfrmGive.Other;
Begin
  cb_give.Clear;
  Module.Access.Close;
  Module.Access.SQL.Clear;
  Module.Access.SQL.Add('SELECT Other.Number, Other.Name');
  Module.Access.SQL.Add('FROM Other;');
  Module.Access.Open;
  cb_give.Clear;
  while not Module.Access.Eof do
  begin
    cb_give.Items.AddObject(Module.Access.Fields.Fields[1].AsString, Pointer(Module.Access.Fields.Fields[0].AsInteger));
    Module.Access.Next;
  end;
End;
procedure TfrmGive.rb_viborClick(Sender: TObject);
begin
Case rb_vibor.ItemIndex of
0: Begin
Moldcell;
End;

1: Begin
Voxtel;
End;

2: Begin
Other;

end;
end;

end;
procedure TfrmGive.btn_closeClick(Sender: TObject);
begin
Close;
end;



Вот так выглядит форма.


 

Присоединённый файл ( Кол-во скачиваний: 15 )
Присоединённый файл  form.JPG 22,58 Kb
PM MAIL   Вверх
Rodman
Дата 5.11.2008, 20:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
Цитата(Anakin @  5.11.2008,  16:40 Найти цитируемый пост)
вторая когда я записываю данный в третью таблицу
не совсем понял

а по первому вопросу - программно надо пересчитывать наверна...

итк - проект можешь выложить? с БД и исходником



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

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Anakin
Дата 5.11.2008, 21:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
да вот проект. Я убрал всё лишнее.
Подскажите если у кого есть какие идей.
Заранее благодарен.

Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  Test.rar 37,56 Kb
PM MAIL   Вверх
Данкинг
Дата 5.11.2008, 23:26 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

Репутация: 35
Всего: 130
Цитата(Anakin @  5.11.2008,  16:40 Найти цитируемый пост)
MS Access не считает копейки 

Ну дык, считай самостоятельно, только с разделителем дробной части в "региональных настройках" не забудь посчитаться. smile 

Цитата(Anakin @  5.11.2008,  16:40 Найти цитируемый пост)
когда я записываю данный в третью таблицу она считает сумму по первому полю первой таблици тоесть я незнаю как сделать так что бы оно считало по выбранному имени полю его суммы.

Ничё не понял. smile 



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Anakin
Дата 6.11.2008, 12:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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

Допустим в первой таблице 5 полей и я для подсчёта выбираю 2 поле и умножаю и когда данные записываютса в 3 таблицу оказываетса что оно считает сумму по цене не 2 поля а по цене 1 поля. Я там положил пример программы.
PM MAIL   Вверх
Vas
Дата 6.11.2008, 13:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 830
Регистрация: 29.6.2005
Где: Stavropol region

Репутация: 23
Всего: 28
Цитата(Anakin @  6.11.2008,  12:58 Найти цитируемый пост)
сумму по цене не 2 поля а по цене 1 поля

Дык после выбора еще не мешало бы курсор спозиционировать на нужной записи, или как вариант использовать DBLookupComboBox

P.S. Точно поля, а  не записи? 

Это сообщение отредактировал(а) Vas - 6.11.2008, 13:36


--------------------
И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)
PM MAIL   Вверх
Anakin
Дата 6.11.2008, 16:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Vas, Записи, прости попутал smile

Кто-то может помочь.
Перепробовал всё но не получаетса ((
PM MAIL   Вверх
Vas
Дата 7.11.2008, 07:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 830
Регистрация: 29.6.2005
Где: Stavropol region

Репутация: 23
Всего: 28
Цитата(Anakin @  6.11.2008,  16:08 Найти цитируемый пост)
Кто-то может помочь.
Перепробовал всё но не получаетса (( 

Что именно не получается? Уже же толкнули в нужное русло. DBLookupComboBox пробовали заюзать или после выбора в ComboBox наименования сделать выбор из БД всех полей принадлежащих этой записи, затем взять поле Sum умножить на выбранное количество и вывести в строку  smile 


--------------------
И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0964 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.