Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi и базы данных
Войти
Регистрация
Восстановить пароль
 
VladimiRo
0 / 0 / 0
Регистрация: 30.05.2012
Сообщений: 12
#1

Добавление информации в базу - Delphi БД

01.06.2012, 13:49. Просмотров 280. Ответов 0
Метки нет (Все метки)

Есть база надо через редактор добавить в нее информацию...у меня удаляет всю базу и создает новую и то создает только 1 запись а другую не создает
Подскажите
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
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Jpeg, ExtDlgs;
 
type
  TForm1 = class(TForm)
    risunok: TImage;
    Dobavpicture: TButton;
    FontDialog1: TFontDialog;
    otkrkart: TOpenPictureDialog;
    Savefile: TButton;
    Dobavstr: TButton;
    Dobavhint: TButton;
    Delete: TButton;
    Otpravit: TButton;
    Button1: TButton;
    Button2: TButton;
    zap: TMemo;
    info: TMemo;
    procedure infoClick(Sender: TObject);
    procedure risunokClick(Sender: TObject);
    procedure DobavpictureClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SavefileClick(Sender: TObject);
    procedure DobavstrClick(Sender: TObject);
    procedure DobavhintClick(Sender: TObject);
    procedure OtpravitClick(Sender: TObject);
    procedure DeleteClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  f:textfile;
  s:string;
  tek_zap:integer;
  tekElement:integer;
  clickobject:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
 s:='{god}' + zap.Text;
 info.Lines.Add(s);
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 s:='{istorija}' + zap.Text;
 info.Lines.Add(s);
end;
 
procedure TForm1.DeleteClick(Sender: TObject);
begin
zap.Clear;
end;
 
procedure TForm1.DobavhintClick(Sender: TObject);
var s: string;
begin
 s:= '{avtor}' + zap.Text;
 info.Lines.Add(s);
end;
 
procedure TForm1.DobavpictureClick(Sender: TObject);
var s:string;
begin
if otkrkart.execute  then
begin
risunok.picture.loadfromfile(otkrkart.FileName);
s:= '{picture}' + otkrkart.FileName;
info.Lines.Add(s);
end;
end;
 
procedure TForm1.DobavstrClick(Sender: TObject);
var s: string;
begin
 s:= '{nazvanie}' + zap.Text;
 info.Lines.Add(s);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var s: string;
begin
zap.Clear;
info.Clear;
info.clear;
tek_zap:= 1;
  Form1.Caption:= 'Текущая запись: ' + IntToStr(tek_zap);
  s:= '**' + IntToStr(tek_zap) + '**';
  info.Lines.Add(s);
end;
 
procedure TForm1.infoClick(Sender: TObject);
begin
clickobject:=2;
end;
 
procedure TForm1.OtpravitClick(Sender: TObject);
var s: string;
    i: integer;
begin
 tek_zap:= tek_zap + 1;
  Form1.Caption:= 'Текущая запись: ' + IntToStr(tek_zap);
  for i:= 0 to info.Lines.Count - 1 do
    info.Lines.Add(info.Lines[i]);
  info.Lines.Add('****');
  info.Clear;
  s:= '**' + IntToStr(tek_zap) + '**';
  info.Lines.Add(s);
end;
 
procedure TForm1.risunokClick(Sender: TObject);
begin
clickobject:=1;
end;
 
procedure TForm1.SavefileClick(Sender: TObject);
var i: integer;
begin
 AssignFile(f, 'base.txt');
  Rewrite(f);
  Writeln(f, IntToStr(tek_zap - 1));
  for i:= 0 to info.Lines.Count - 1 do
    Writeln(f, info.Lines[i]);
  CloseFile(f);
end;
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.06.2012, 13:49
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Добавление информации в базу (Delphi БД):

Сохранение информации в базу данных
Дело вот в чём, БД сделана через database dekstop. Когда делал через Acces всё...

Ошибка добавления информации в базу данных
Ошибка: "в качестве входных данных запрос должен иметь хотя бы одну таблицу или...

Добавление в базу
Друзья, помогите пожалуйста! У меня есть база подключенная через Adoconnect. ...

Перенос информации с сайта в базу данных Delphi
Доброго времени суток. Прошу помощи, подскажите, пожалуйста, нужно перенести...

Добавление информации в БД
Доброго времени суток! Делаю БД по грузоперевозкам. Хотел узнать у вас как...

Добавление переменной в базу
Добрый вечер. Я делаю тестирующую программу. В общем после прохождения теста...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.06.2012, 13:49
Привет! Вот еще темы с решениями:

Как создать базу данных для хранения информации?
У меня вопрос как создать базу данный для хранения информации например...

Добавление информации в БД из делфи
Собственно начал писать курсовой проект и возникла проблема с добавлением...

Добавление данных из StringGrid в базу
Подскажите пожалуйста как можно добавить данные из StringGrid в базу. У меня...

Добавление записей в базу Access
Не виходит решить такую проблему Єсть БД в Access. К Delphi привязана с...


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

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

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