Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi БД Создать бэкап и восстановление на delphi 2010 https://www.cyberforum.ru/ delphi-database/ thread375662.html
Здраствуйте. Есть БД на SQL SERVER 2008 R2 и приложение для него на delphi 2010. Расскажите как в приложении за пилить кнопки для резервного копирования и востановления базы. Вот на всякий случай...
Delphi БД Проблема с программой. БД - firebird, СУБД - через Delphi
Раньше с базами данных не связывался. суть проблемы - не могу корректно ввести строку в таблицу. вводит только числовые типа инт. после попытки ввода любого символа выбивает ошику. текст - with...
Отчёт по SQL запросам Delphi БД
Как сформировать отчёт по sql запросам? Бд access, подключенная с помощью ADO. Можно ли создать макет отчёта в access, а затем использовать его в делфи?) Нужно сформировывать отчёты типа "список...
Delphi БД Есть две таблицы остаки и потребность. Необходимо вычитать из остатков потребность и растовлять в поле itog Добрый день. Помогите пожалуйсто. Есть две таблицы остаки и потребность. Необходимо вычитать из остатков потребность и растовлять в поле itog. Смотри пример ниже. остатки diametr gost ves ... https://www.cyberforum.ru/ delphi-database/ thread375435.html
Delphi БД Oraquery Поиск https://www.cyberforum.ru/ delphi-database/ thread375317.html
Всем здорова! в общем изучая oracle я начал делать тестовую прогу на Delphi! хочу произвести поиск через Oraquery вот код: procedure TForm2.BitBtn2Click(Sender: TObject); VAR b,a : string;...
Delphi БД Запрос ADOQuery
Доброго времени суток! Имеется база данныз с одной табличкой,и 4-мя колонками(Код товара,отдел,название товара,цена)! Мне нужно осуществить поиск по базе!А имеено чтобы я вводил код товара,а мне...
Delphi БД Связи таблиц в Delphi
Приветствую господа программисты, у меня насущный вопрос, который, скорей всего, набил уже оскомину, но всё же. Есть база данных в Access необходимо создать приложение в Delphi, с этим проблем не...
Delphi БД Перенести видимые столбцы из DbGrid в Word Здравствуйте, столкнулся с такой проблемой нужно перегнать из dbgrid-а в word только видимые столбцы то есть если Dbgrid1.columns.visible=true, скажите пожалуйста как это осуществить, база в Paradox https://www.cyberforum.ru/ delphi-database/ thread374871.html
Delphi БД Delphi + Access + ADO https://www.cyberforum.ru/ delphi-database/ thread374810.html
На вин 7 х64 делаю клиентское приложение для работы с бд, но на втором компе с ХР оно не запускается, пишет "Не удаётся найти указанного поставщика. Возможно он установлен неправильно". В...
Delphi БД Компонент TQuickRep Здравствуйте ! Помогите, пожалуйста. Нужно сделать учебный отчёт по БД - при помощи QuickReport. В книжках написано, что он есть и в Д5 и в Д7. Но не могу найти никак :-(( . У меня Делфи7... https://www.cyberforum.ru/ delphi-database/ thread374689.html
0 / 0 / 0
Регистрация: 11.06.2011
Сообщений: 23
0

База данных в дельфи

31.10.2011, 19:45. Просмотров 625. Ответов 1
Метки (Все метки)

Создать таблицу в access и сделать запрос в дельфи из следующего кода
 Комментарий модератора 
В такой форме своим подчиненным задания раздавайте, если они (подчиненные) у вас есть!
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
unit Kurstik jumis;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB, Grids, DBGrids, Menus, StdCtrls, ExtCtrls, Mask,
  DBCtrls,xpman;
type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Table1: TTable;
    Query1: TQuery;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Memo1: TMemo;
    N7: TMenuItem;
    Label3: TLabel;
    Label4: TLabel;
 
 
    N8: TMenuItem;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Shape1: TShape;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Timer1: TTimer;
    N9: TMenuItem;
    Label11: TLabel;
    Label12: TLabel;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
 
var
  Form1: TForm1;
implementation
 uses unit2,unit3;
{$R *.dfm}
procedure TForm1.N2Click(Sender: TObject);
begin
form2.Show;
table1.Insert;
end;
procedure TForm1.N3Click(Sender: TObject);
var ButtonSelected: Word;
begin
ButtonSelected := MessageDlg('???? ?????? ????? ???', mtInformation,
    [mbOk, mbNo], 0);
if ButtonSelected = mrok then  table1.Delete;
end;
procedure TForm1.N4Click(Sender: TObject);
var st:string;
begin   label10.Caption:=n4.Caption;
datasource1.DataSet:=query1;
query1.Active:=false;
  query1.SQL.Clear;
Query1.SQL.Add('SELECT fio,tip,baga,kun');
Query1.SQL.Add('FROM "C:\Kurstikjumis\baza.db"'); st:=label1.Caption+datetostr(form2.MonthCalendar1.Date)+label2.Caption ;
Query1.SQL.Add(st);
Query1.SQL.Add('ORDER by fio,tip,baga,kun');
 
memo1.Lines.AddStrings(query1.SQL);
   query1.Active:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin   label10.Caption:='';
datasource1.DataSet:=table1;
end;
procedure TForm1.N7Click(Sender: TObject);
var sd,st:string;
begin label10.Caption:=n7.Caption;
datasource1.DataSet:=query1;
query1.Active:=false;
Query1.SQL.Add('SELECT fio,tip,baga,kun');
Query1.SQL.Add('FROM "C:\DiplomJumus\baza.db"');
sd:=copy(datetostr(form2.MonthCalendar1.Date),1,2);
st:=label3.Caption+datetostr(form2.MonthCalendar1.Date)+label2.Caption ;
Query1.SQL.Add(st);
Query1.SQL.Add('ORDER by fio,tip,baga,kun');
memo1.Lines.AddStrings(query1.SQL);
query1.Active:=true;
end;
procedure TForm1.N8Click(Sender: TObject);
var sd,st:string;
begin
label10.Caption:=n8.Caption;


Вернуться к обсуждению:
База данных в дельфи
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.10.2011, 19:45
Готовые ответы и решения:

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

База данных в дельфи
Здравствуйте уважаемые форумчане. У меня вопрос новичка: У меня есть база данных сделанная на SQL и...

База данных в дельфи кому просто интересно сделать
По автотрансопртному предприятию на примере маршруток города (хватит и одного маршрута и около...

База данных с нуля! Как подцепить Таблицы из ацесса к дельфи!?
Есть Таблицы в ацессе и запросы и выборки. Как прицепить все это к дельфи. Форма простая...

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