Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Delphi
Перезагрузить страницу Не удается обновить БД
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
staziah2 staziah2 вне форума
Member
 
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 24.03.2015
По умолчанию Не удается обновить БД - 05.05.2015, 08:18

Добрый день! Который день ломаю голову,но так и ничего понять не могу. Все время ругается при введении данных,но не обновляется почему.
Вот код:
delphi Код:
unit Vvod;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Grids, DBGrids, wwdblook, ExtCtrls, ComCtrls,
  Wwdbigrd, Wwdbgrid, wwdbdatetimepicker, Mask, wwdbedit, Wwdotdot,
  Wwdbcomb, Wwkeycb, DBCtrls, ComObj, ShellApi;
 
type
  TForm2 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Label7: TLabel;
    tipi: TwwDBLookupCombo;
    Label1: TLabel;
    cex: TwwDBLookupCombo;
    Label9: TLabel;
    data: TwwDBDateTimePicker;
    Label10: TLabel;
    Label11: TLabel;
    Edit2: TEdit;
    Label12: TLabel;
    wwDBComboDlg1: TwwDBComboDlg;
    Button4: TButton;
    Button5: TButton;
    wwDBGrid2: TwwDBGrid;
    wwDBLookupCombo1: TwwDBLookupCombo;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure wwDBComboDlg1Enter(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);  
    procedure tipiChange(Sender: TObject);
    procedure dataChange(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
 
 
  private
    { Private declarations }
 
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
         uses fr,xr,Unit5,Unit6,FmxUtils;
{$R *.dfm}
 
 
procedure TForm2.Button1Click(Sender: TObject);
var Path1, Path2 , Path3: String;
begin
Path1 := Form2.wwDBComboDlg1.Text;
Path2 := '\\Fs\наряды;\'+cex.Text+'\'+data.Text+'\'+cex.Text+'_'+wwDBLookupCombo1.Text+'_'+Edit2.Text+'.tif';
Path3 := '\\Fs\наряды;\'+cex.Text+'\'+data.Text;
if FileExists(Path3)=false then
begin
  if ForceDirectories(Path3) then
  CopyFile(Path1,Path2);
end;
 
 
if varisnull(dm.ceh.Lookup('ceh',cex.Text,'ceh'))=true then  
begin
      dm.Query.SQL.Clear;        
      dm.Query.SQL.Text:= 'Insert into ceh (ceh) Values ('''+cex.Text+''')';    
      dm.Query.ExecSQL;
      dm.ceh.Requery();
 
end   ;
 
 
if varisnull(dm.zakaz.Lookup('N_zakaz',wwDBLookupCombo1.Text,'N_zakaz'))=true then
begin
      dm.Query.SQL.Clear;        
      dm.Query.SQL.Text:= 'Insert into N_zakaza (N_zakaz) Values ('''+wwDBLookupCombo1.Text+''')';    
      dm.Query.ExecSQL;
     dm.zakaz.Requery();
 
end   ;
 
 
dm.Query.SQL.Clear;        
dm.Query.SQL.Text:= 'Insert into nar**** (ceh,data,N_zakaz,N_naryad,Tip_dok,path ) Values ('''+cex.Text+''','''+data.Text+''','''+wwDBLookupCombo1.Text+''','''+Edit2.Text+''','''+tipi.Text+''','''+Path2+''')';    
dm.Query.ExecSQL;        
 
dm.Main.SQL.Clear;
dm.Main.SQL.Text:= 'select * from [nar****]';
dm.Main.Open;    
refresh;
 
dm.Main.Last;    
end;
 
 
procedure TForm2.Button2Click(Sender: TObject);
begin
if MessageDlg('Вы точно хотите удалить запись?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    dm.Main.Delete;
end;
 
procedure TForm2.wwDBComboDlg1Enter(Sender: TObject);
begin
    if OpenDialog1.Execute then
  begin
   if not (dm.Main.State in [dsInsert,dsEdit]) then
   //dm.Main.Edit;
  Form2.wwDBComboDlg1.Text:= OpenDialog1.FileName;
 // dm.Main.Post;
 
end;
end;
 
procedure TForm2.Button3Click(Sender: TObject);
begin
      Application.CreateForm(TForm5, Form5);
      Form5.ShowModal;
end;
 
procedure TForm2.Button6Click(Sender: TObject);
begin
      Application.CreateForm(TForm6, Form6);
      Form6.ShowModal;
end;
 
procedure TForm2.Button7Click(Sender: TObject);
var Path1, Path2 , Path3: String;
begin
Path1 := Form2.wwDBComboDlg1.Text;
Path2 := '\\Fs\наряды\'+cex.Text+'\'+data.Text+'\'+cex.Text+'_'+wwDBLookupCombo1.Text+'_'+Edit2.Text+'.tif';
Path3 := '\\Fs\наряды\'+cex.Text+'\'+data.Text;
if FileExists(Path3)=false then
begin
  if ForceDirectories(Path3) then
  CopyFile(Path1,Path2);
end;
end;
procedure TForm2.Button8Click(Sender: TObject);
begin
ShellExecute(Handle,nil,PChar(dm.Mainpath.AsString) ,nil,nil,SW_RESTORE);
end;
 
 
procedure TForm2.tipiChange(Sender: TObject);
begin
  cex.Text:= '';
end;
 
procedure TForm2.dataChange(Sender: TObject);
begin
 Edit2.Text := '';
end;
 
procedure TForm2.Edit2Change(Sender: TObject);
begin
  wwDBComboDlg1.Text := '';
end;
end.

Вот ошибка:
dhenoiie_7.jpg
dhenoiie_8.jpg
dhenoiie_9.jpg
dhenoiie_10.jpg


Что не так я сделала? БД: MSSQL; Delphi 7
Ответить с цитированием
  (#2 (permalink)) Старый
wanja wanja вне форума
Member
 
Сообщений: 585
Сказал(а) спасибо: 1
Поблагодарили 25 раз(а) в 25 сообщениях
Регистрация: 08.05.2005
По умолчанию 05.05.2015, 09:40

Если N_zakaz - первичный ключ, он должен быть уникальным (не повторяться)
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не удается подключить TV по HDMI Reputet Видеокарты 10 29.11.2013 18:14
Не удается установить драйвер kolymchanin Драйвера 7 02.08.2013 12:38
не удается загрузить виндовс. Denisbi4 Windows XP 26 29.03.2013 20:44
Не удается установить игру kolymchanin Компьютерные игры 5 24.01.2013 21:13
Не удается выполнить калибровку Gross Мониторы 0 01.12.2012 20:54
Не удается скопировать HDD graberrr Накопители 4 08.04.2012 10:53
Не удается подключить iTunes. сега Любые вопросы от новичков 1 23.03.2011 20:21
Не удается найти services.msc Slanativ Любые вопросы от новичков 1 11.03.2011 22:01
Не удается удалить MS Office AsdaD89 Любые вопросы от новичков 6 06.03.2011 09:47
Не удается запустить DrWeb. Semionova MS Любые вопросы от новичков 30 03.03.2011 22:22
Не удается подключить USB порты asd13 Любые вопросы от новичков 2 01.03.2011 19:49
Не удается установить драйвер:-( Ivan_55 Драйвера 9 06.05.2008 18:13



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов