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

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

01.06.2012, 13:49. Просмотров 287. Ответов 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
Ответы с готовыми решениями:

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

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

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

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

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

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

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

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

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


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

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

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