Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
студент1235
2 / 2 / 1
Регистрация: 25.03.2014
Сообщений: 126
Записей в блоге: 1
1

Работа с базой данных access

10.03.2015, 13:34. Просмотров 466. Ответов 2
Метки нет (Все метки)

Доброго времени суток. Я пишу диплом и тут я в тупике снова. Кто знает подскажите вот в чем
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
//взятие клиентов из базы
procedure TForm12.FormShow(Sender: TObject);
begin
ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT DISTINCT famklienta FROM klient');
  ADOQuery1.Open;
   // ---------Г‡Г*ïîëГ*ГїГҐГ¬ ComboBox1 ---------- //
  ComboBox1.Items.Clear;
  While not ADOQuery1.Eof do
  begin
     ComboBox1.Items.Add(ADOQuery1.Fields[0].AsString);
     ADOQuery1.Next;
 
end;
end;
 
procedure TForm12.Button1Click(Sender: TObject);
begin
form6.adoQuery1.Filtered:=false;
  form6.adoQuery1.Filter:='(data>='''+d1+''''+') and (data<='''+d2+''''+')'  ;
 form6.adoQuery1.Filtered:=true;
 form6.adoQuery1.Active:=true;
  if form6.adoQuery1.RecordCount <> 0 then
  begin
    form6.StatusBar1.Panels[0].Text:='×èñëî âûáðГ*Г*Г*ûõ Г§Г*ГЇГЁГ±ГҐГ© Г® ïðîäГ*Г¦Г*Гµ Гў ГЎГ*çå Г¤Г*Г*Г*ûõ '+IntToStr(form6.adoQuery1.RecordCount);
  end
  else
  begin
    form6.adoQuery1.Filtered:=false;
    Application.MessageBox(PChar('ГЌГҐГІ ñâåäåГ*ГЁГ© Г® ïîêóïêå òîâГ*ðîâ Г§Г* ýòîò ïåðèîä '),'ÏðåäóïðåæäåГ*ГЁГҐ',mb_OK);
  end;
end;
 
procedure TForm12.DateTimePicker1Change(Sender: TObject);
begin
 d1:=datetostr(DateTimePicker1.date);
 
end;
 
procedure TForm12.DateTimePicker2Change(Sender: TObject);
begin
  d2:=datetostr(DateTimePicker2.date);
end;
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
procedure TCustForm.Button1Click(Sender: TObject);
var
  s,s1,s2,s3 : string;
  n : word;
begin
s:=ComboBox1.Text;
  if Length(s) > 0 then
  begin
    n:=pos(' ',s);
    s1:=copy(s,1,n-1);
    delete(s,1,n);
    n:=pos(' ',s);
    s2:=copy(s,1,n-1);
    delete(s,1,n);
    s3:=s;
  end;
  MainForm.Query1.Filtered:=false;
  s:='(Family='''+s1+''''+') and (Name='''+s2+''''+') and (Parent='''+s3+''''+')';
  MainForm.Query1.Filter:=s;
  MainForm.Query1.Filtered:=true;
  MainForm.Query1.Active:=true;
  if MainForm.Query1.RecordCount <> 0 then
  begin
    if MainForm.PageControl1.ActivePage.Caption <> 'Продажи' then
      MainForm.PageControl1.ActivePage:=MainForm.PageControl1.Pages[2];
    MainForm.StatusBar1.Panels[0].Text:='Число выбранных записей о продажах в базе данных '+IntToStr(MainForm.Query1.RecordCount);
    CustForm.Button1.Enabled:=false;
    CustForm.Close;
  end
  else
  begin
    MainForm.Query1.Filtered:=false;
    Application.MessageBox(PChar('Нет сведений о покупке товаров покупателем '+s1+' '+s2+' '+s3),'Предупреждение',mb_OK);
  end;
 
end;
помогите из этих кодов создать код который бы отбирал пользователя по имени и периоду дат и выводил бы в bdgrid(ps. коды работали с обычным sql) если надо могу диплом скинуть и файл откуда брал коды
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.03.2015, 13:34
Ответы с готовыми решениями:

Работа в delphi с базой данных access
Здравствуйте. Работаю в Delphi 10.2 с базой данных access. Возникла проблема. В делфи не корректно...

Работа с CheckBox и базой данных Access
Помогите доработать код!!! у меня на форме 3 CheckBox-а принажатии на CheckBox1 в базу данных...

Работа с базой данных Access в Delphi 7
Всем привет! Нужно связать базу данных Access с Deplhi 7. Как связать одну таблицу с Delphi я...

Работа в Delphi 7 с базой данных из Access (.mdb)
Подскажите как выполнить задание, пишу курсовую работу, заданием было спроектировать ис оптового...

Работа с базой Access
Здравствуйте нужна ваша помощь. Есть проблема при добавлении записи, пишет &quot;Невозможно добавление...

2
студент1235
2 / 2 / 1
Регистрация: 25.03.2014
Сообщений: 126
Записей в блоге: 1
10.03.2015, 13:57  [ТС] 2
неправильно вопрос задал. вообщем мне нужно чтобы программа формировала таблицу по определенному пользователю за нужную дату на принятие товара на ремонт
и на оборот на выдачу товара клиенту
как то так вроде
диплом.rar вот сам диплом так проще думаю будет понять
и файл откуда брал некоторые коды делфи1.rar
0
студент1235
2 / 2 / 1
Регистрация: 25.03.2014
Сообщений: 126
Записей в блоге: 1
10.03.2015, 14:20  [ТС] 3
неправильно вопрос задал. вообщем мне нужно чтобы программа формировала таблицу в dbgrid по определенному пользователю за нужную дату на принятие товара на ремонт
и на оборот на выдачу товара клиенту
как то так вроде
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.03.2015, 14:20

Приложение Delphi с базой данных Access
Вопрос следующий. Есть две таблицы: Предмет и преподаватель (таблицы связаны между собой полем &quot;код...

Модуль взаимодействия с базой данных Access
В дипломе «Проект автоматизированной линии взвешивания и складирования растительного масла на...

Inno setup и приложения с базой данных Access
Есть прога с базой данных Access. Кладу в установщик файлы из папки релиз. После установки...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru