Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 15.02.2012
Сообщений: 12
1

После перезагрузки ПК, пропадают записи в БД (BDEA)

04.02.2014, 10:06. Показов 666. Ответов 0
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Записываю данные в таблицу, всё отлично, закрываю программу, открываю, всё есть, в Database Desktope тоже всё видно, но вот или когда кэш чиститься то все записи новые пропадают...
В чем дело?
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
145
146
147
148
149

procedure TForm2.Button3Click(Sender: TObject);
begin
case flag of
1:
begin
    begin
    datamodule3.Table1.append;
    datamodule3.Table1.FieldByName('datas').AsDateTime:=form2.DateTimePicker1.DateTime;
    datamodule3.Table1.FieldByName('nomer_biznes').AsString:=form2.Edit1.Text;
    datamodule3.Table1.FieldByName('nomer_ishod').AsString:=form2.Edit2.Text;
    datamodule3.Table1.FieldByName('nomer_zayavki').AsString:=form2.Edit3.Text;
    datamodule3.Table1.FieldByName('zakazchik').AsString:=form2.Edit4.Text;
    datamodule3.Table1.FieldByName('adres_obekta').AsString:=form2.Edit5.Text;
    datamodule3.Table1.FieldByName('naimenov_obekta').AsString:=form2.Edit6.Text;
    datamodule3.Table1.FieldByName('naimenov_rabot').AsString:=form2.Edit7.Text;
    datamodule3.Table1.FieldByName('tarif').AsString:=form2.ComboBox2.Text;
    datamodule3.Table1.FieldByName('avans').AsString:=form2.Edit8.Text;
    datamodule3.Table1.FieldByName('ispolnitel').AsString:=form2.Edit9.Text;
    datamodule3.Table1.FieldByName('raschet').AsString:=form2.Edit10.Text;
    datamodule3.Table1.FieldByName('dogovor').AsString:=form2.Edit11.Text;
    datamodule3.Table1.FieldByName('teltfon').AsString:=form2.Edit12.Text;
      begin
        if form2.DateTimePicker2.Enabled=false then datamodule3.Table1.FieldByName('oplata').AsString:='' else
        datamodule3.Table1.FieldByName('oplata').AsDateTime:=form2.DateTimePicker2.DateTime;
        if form2.DateTimePicker3.Enabled=false then datamodule3.Table1.FieldByName('rabot_d').AsString:='' else
        datamodule3.Table1.FieldByName('rabot_d').AsDateTime:=form2.DateTimePicker3.DateTime;
        if form2.DateTimePicker4.Enabled=false then datamodule3.Table1.FieldByName('vipol_r').AsString:='' else
        datamodule3.Table1.FieldByName('vipol_r').AsDateTime:=form2.DateTimePicker4.DateTime;
        if form2.DateTimePicker5.Enabled=false then datamodule3.Table1.FieldByName('vidano_date').AsString:='' else
        datamodule3.Table1.FieldByName('vidano_date').AsDateTime:=form2.DateTimePicker5.DateTime;
      end;
    datamodule3.Table1.FieldByName('vidano_fio').AsString:=form2.Edit13.Text;
    datamodule3.Table1.FieldByName('osnovanie').AsString:=form2.Edit14.Text;
    datamodule3.Table1.FieldByName('primech').AsString:=form2.Edit15.Text;
    datamodule3.Table1.Post;
    datamodule3.Table1.Refresh;
    datamodule3.Query1.Active:=false;
    datamodule3.Query1.Active:=true;
    end;
  for q:=494 to 668 do
    begin
      sleep(1);
      form2.Height:=form2.Height - 1;
    end;
  form2.BitBtn1.Show;
  form2.BitBtn2.Hide;
 
  form2.Button3.Hide;
  form2.Button4.Enabled:=true;
  form2.Button5.Enabled:=true;
  //î÷èñòêà ïîëåé
  form2.DateTimePicker1.Date:=date;
  form2.DateTimePicker2.Date:=date;
  form2.DateTimePicker3.Date:=date;
  form2.DateTimePicker4.Date:=date;
  form2.DateTimePicker5.Date:=date;
  form2.Edit1.Clear;
  form2.Edit2.Clear;
  form2.Edit3.Clear;
  form2.Edit4.Clear;
  form2.Edit5.Clear;
  form2.Edit6.Clear;
  form2.Edit7.Clear;
  form2.Edit8.Clear;
  form2.Edit9.Clear;
  form2.Edit10.Clear;
  form2.Edit11.Clear;
  form2.Edit12.Clear;
  form2.Edit13.Clear;
  form2.Edit14.Clear;
  form2.Edit15.Clear;
  form2.ComboBox2.ItemIndex:=-1;
  datamodule3.Query1.Last;
end;
  end;
case flag of
2:
  begin
  edit3.Enabled:=true;
    begin
    datamodule3.Table1.edit;
    datamodule3.Table1.FieldByName('datas').AsDateTime:=form2.DateTimePicker1.DateTime;
    datamodule3.Table1.FieldByName('nomer_biznes').AsString:=form2.Edit1.Text;
    datamodule3.Table1.FieldByName('nomer_ishod').AsString:=form2.Edit2.Text;
    datamodule3.Table1.FieldByName('zakazchik').AsString:=form2.Edit4.Text;
    datamodule3.Table1.FieldByName('adres_obekta').AsString:=form2.Edit5.Text;
    datamodule3.Table1.FieldByName('naimenov_obekta').AsString:=form2.Edit6.Text;
    datamodule3.Table1.FieldByName('naimenov_rabot').AsString:=form2.Edit7.Text;
    datamodule3.Table1.FieldByName('tarif').AsString:=form2.ComboBox2.Text;
    datamodule3.Table1.FieldByName('avans').AsString:=form2.Edit8.Text;
    datamodule3.Table1.FieldByName('ispolnitel').AsString:=form2.Edit9.Text;
    datamodule3.Table1.FieldByName('raschet').AsString:=form2.Edit10.Text;
    datamodule3.Table1.FieldByName('dogovor').AsString:=form2.Edit11.Text;
    datamodule3.Table1.FieldByName('teltfon').AsString:=form2.Edit12.Text;
      begin
        if form2.DateTimePicker2.Enabled=false then datamodule3.Table1.FieldByName('oplata').AsString:='' else
        datamodule3.Table1.FieldByName('oplata').AsDateTime:=form2.DateTimePicker2.DateTime;
        if form2.DateTimePicker3.Enabled=false then datamodule3.Table1.FieldByName('rabot_d').AsString:='' else
        datamodule3.Table1.FieldByName('rabot_d').AsDateTime:=form2.DateTimePicker3.DateTime;
        if form2.DateTimePicker4.Enabled=false then datamodule3.Table1.FieldByName('vipol_r').AsString:='' else
        datamodule3.Table1.FieldByName('vipol_r').AsDateTime:=form2.DateTimePicker4.DateTime;
        if form2.DateTimePicker5.Enabled=false then datamodule3.Table1.FieldByName('vidano_date').AsString:='' else
        datamodule3.Table1.FieldByName('vidano_date').AsDateTime:=form2.DateTimePicker5.DateTime;
      end;
    datamodule3.Table1.FieldByName('vidano_fio').AsString:=form2.Edit13.Text;
    datamodule3.Table1.FieldByName('osnovanie').AsString:=form2.Edit14.Text;
    datamodule3.Table1.FieldByName('primech').AsString:=form2.Edit15.Text;
    datamodule3.Table1.FieldByName('nomer_zayavki').AsString:=form2.Edit3.Text;
    datamodule3.Table1.Post;
    datamodule3.Table1.Refresh;
    datamodule3.Query1.Active:=false;
    datamodule3.Query1.Active:=true;
    end;
  for q:=494 to 668 do
    begin
      //sleep(1);
      form2.Height:=form2.Height - 1;
    end;
  form2.BitBtn1.Show;
  form2.BitBtn2.Hide;
 
  form2.Button3.Hide;
  form2.Button4.Enabled:=true;
  form2.Button5.Enabled:=true;
  //î÷èñòêà ïîëåé
  form2.DateTimePicker1.Date:=date;
  form2.DateTimePicker2.Date:=date;
  form2.DateTimePicker3.Date:=date;
  form2.DateTimePicker4.Date:=date;
  form2.DateTimePicker5.Date:=date;
  form2.Edit1.Clear;
  form2.Edit2.Clear;
  form2.Edit3.Clear;
  form2.Edit4.Clear;
  form2.Edit5.Clear;
  form2.Edit6.Clear;
  form2.Edit7.Clear;
  form2.Edit8.Clear;
  form2.Edit9.Clear;
  form2.Edit10.Clear;
  form2.Edit11.Clear;
  form2.Edit12.Clear;
  form2.Edit13.Clear;
  form2.Edit14.Clear;
  form2.Edit15.Clear;
  form2.ComboBox2.ItemIndex:=-1;
end;
end;
end;
Добавлено через 23 минуты
Оптимизировал чуть чуть...
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

procedure TForm2.Button3Click(Sender: TObject);
begin
  begin
    if flag=1 then datamodule3.Table1.append else datamodule3.Table1.Edit;
    datamodule3.Table1.FieldByName('datas').AsDateTime:=form2.DateTimePicker1.DateTime;
    datamodule3.Table1.FieldByName('nomer_biznes').AsString:=form2.Edit1.Text;
    datamodule3.Table1.FieldByName('nomer_ishod').AsString:=form2.Edit2.Text;
    datamodule3.Table1.FieldByName('nomer_zayavki').AsString:=form2.Edit3.Text;
    datamodule3.Table1.FieldByName('zakazchik').AsString:=form2.Edit4.Text;
    datamodule3.Table1.FieldByName('adres_obekta').AsString:=form2.Edit5.Text;
    datamodule3.Table1.FieldByName('naimenov_obekta').AsString:=form2.Edit6.Text;
    datamodule3.Table1.FieldByName('naimenov_rabot').AsString:=form2.Edit7.Text;
    datamodule3.Table1.FieldByName('tarif').AsString:=form2.ComboBox2.Text;
    datamodule3.Table1.FieldByName('avans').AsString:=form2.Edit8.Text;
    datamodule3.Table1.FieldByName('ispolnitel').AsString:=form2.Edit9.Text;
    datamodule3.Table1.FieldByName('raschet').AsString:=form2.Edit10.Text;
    datamodule3.Table1.FieldByName('dogovor').AsString:=form2.Edit11.Text;
    datamodule3.Table1.FieldByName('teltfon').AsString:=form2.Edit12.Text;
      begin
        if form2.DateTimePicker2.Enabled=false then datamodule3.Table1.FieldByName('oplata').AsString:='' else
        datamodule3.Table1.FieldByName('oplata').AsDateTime:=form2.DateTimePicker2.DateTime;
        if form2.DateTimePicker3.Enabled=false then datamodule3.Table1.FieldByName('rabot_d').AsString:='' else
        datamodule3.Table1.FieldByName('rabot_d').AsDateTime:=form2.DateTimePicker3.DateTime;
        if form2.DateTimePicker4.Enabled=false then datamodule3.Table1.FieldByName('vipol_r').AsString:='' else
        datamodule3.Table1.FieldByName('vipol_r').AsDateTime:=form2.DateTimePicker4.DateTime;
        if form2.DateTimePicker5.Enabled=false then datamodule3.Table1.FieldByName('vidano_date').AsString:='' else
        datamodule3.Table1.FieldByName('vidano_date').AsDateTime:=form2.DateTimePicker5.DateTime;
      end;
    datamodule3.Table1.FieldByName('vidano_fio').AsString:=form2.Edit13.Text;
    datamodule3.Table1.FieldByName('osnovanie').AsString:=form2.Edit14.Text;
    datamodule3.Table1.FieldByName('primech').AsString:=form2.Edit15.Text;
    datamodule3.Table1.Post;
    datamodule3.Query1.Active:=false;
    datamodule3.Query1.Active:=true;
    end;
 
for q:=494 to 668 do
form2.Height:=form2.Height - 1;
form2.BitBtn1.Show;
form2.BitBtn2.Hide;
form2.Button3.Hide;
form2.Button4.Enabled:=true;
form2.Button5.Enabled:=true;
//î÷èñòêà ïîëåé
form2.DateTimePicker1.Date:=date;
form2.DateTimePicker2.Date:=date;
form2.DateTimePicker3.Date:=date;
form2.DateTimePicker4.Date:=date;
form2.DateTimePicker5.Date:=date;
form2.Edit1.Clear;
form2.Edit2.Clear;
form2.Edit3.Clear;
form2.Edit4.Clear;
form2.Edit5.Clear;
form2.Edit6.Clear;
form2.Edit7.Clear;
form2.Edit8.Clear;
form2.Edit9.Clear;
form2.Edit10.Clear;
form2.Edit11.Clear;
form2.Edit12.Clear;
form2.Edit13.Clear;
form2.Edit14.Clear;
form2.Edit15.Clear;
form2.ComboBox2.ItemIndex:=-1;
datamodule3.Query1.Last;
end;
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 04.02.2014, 10:06
Ответы с готовыми решениями:

Данные пропадают из бд после перезагрузки
Есть функция делающая insert в бд MS SQL, данные показываются в DataGridView. Проблема в том, что...

Драйвера на видеокарту пропадают после перезагрузки.
Помоготе пожалуйста!!! На днях переустановили Винду.......Начали устанавливать дрйвера на...

Пропадают данные из БД после перезагрузки компьютера
Здравствуйте! Разрабатываю приложение на C#. C помощью BindingSource присоединяю базу данных с...

После перезагрузки компьютера пропадают установленные программы
Здравствуйте Ув. форумчане!!! Я только начинаю знакомится с Windows 7 Ситуация следующая:...

0
04.02.2014, 10:06
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 04.02.2014, 10:06
Помогаю со студенческими работами здесь

После восстановления работает до перезагрузки. После перезагрузки все сначала. Переустановка ОС не помогла.
Такая проблема: после включения ноутбука потребовалось восстановление запуска и системы. После...

Продолжение работы батника после перезагрузки системы или запуск после перезагрузки
Добрый день! Нужно реализовать в .bat файле следующие: @echo off start /wait *.exe/s...

Пропадают записи
С недавних пор в бд mysql стали пропадать записи. Сама база лежит на хостинге. Пользователи просто...

Записи пропадают в бд
Как исправить? после запроса пропадают данные с последнего столбца unit school3_; interface ...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru