[Staziah2]

Добрый день! Который день ломаю голову,но так и ничего понять не могу. Все время ругается при введении данных,но не обновляется почему.
Вот код:

Код:

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 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168

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 naryadi (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 [naryadi]'; 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.

Вот ошибка: Violation of Primary Key constraint 'PK_N_zakaza'. Cannot insert dublicate key in object 'N_zakaza'.

Что не так я сделала? БД: MSSQL; Delphi 7