При закрытии opendialog ошибка

cyborgg4655 · #1 26.03.2013, 11:23

Если я не выбираю файл и закрываю opendialog выскакиевает ошибка, мол не удается найти указанный файл, проверьте правильность... Как от этого избавится.
пробывал

Код:

if not opendialog1.Execute then exit;

Но с ним ещё хуже, после того как выбиаю файл - окно с выбором заного окрывается, приходится нажимать на отмену чтобы файл загрузился...

poli-smen · #2 26.03.2013, 11:28

Цитата:

Сообщение от cyborgg4655

Если я не выбираю файл и закрываю opendialog выскакиевает ошибка, мол не удается найти указанный файл, проверьте правильность... Как от этого избавится.
пробывал

Код:

if not opendialog1.Execute then exit;

Но с ним ещё хуже, после того как выбиаю файл - окно с выбором заного окрывается, приходится нажимать на отмену чтобы файл загрузился...

Именно так и нужно делать (т.е. проверять что вернулось из Execute) - второй раз появляться окно не должно - ошибка у тебя где-то в другом месте.

cyborgg4655 · #3 26.03.2013, 11:46

Цитата:

Сообщение от poli-smen

Именно так и нужно делать (т.е. проверять что вернулось из Execute) - второй раз появляться окно не должно - ошибка у тебя где-то в другом месте.

обыскался, не пойму где ошибка может быть((
вот код:

Код:

procedure TForm1.Button10Click(Sender: TObject);
var
  ea:variant;
  row:integer;
  i: word;
  i3 : integer;
  i2:integer;
  i4:integer;
  asd : string;
  asd10:string;
  asd1 : string;
  asd2 : string;
  asd3 : string;
  asd4 : integer;
  asd9:integer;
begin
  if not opendialog1.Execute then exit;
  if opendialog1.Execute then
  asd:=Label5.Caption;
begin
  ea:=CreateOleObject('Excel.Application'); 
  ea.Workbooks.Open(opendialog1.FileName);
  ea.Visible:=false;
  Label5.Caption:=ea.Sheets[1].Cells[2,1];
asd:=Label5.Caption;
asd1:=ea.Sheets[1].Cells[1,1];
asd2:=ea.Sheets[1].Cells[3,1];
asd3:=ea.Sheets[1].Cells[4,1];
if asd3<>'IN' then
begin
ea.quit;
showmessage('Приходная накладная должна быть со значением IN');
exit;
end;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:= Format('CREATE TABLE %s (Код number, Наименование varchar(255), По_документу number, По_факту number, Расхождения number, Учед varchar(255), Дата_IN date, Клиент varchar(255), З_Х varchar(25), Тип varchar(255), номер_заявки varchar(255))', [asd]);
ADOQuery1.ExecSQL;
ADOQuery1.SQL.Text:= Format('SELECT * from %s', [asd]);
Label6.Caption:='1';
ADOQuery1.Open;
DBGridEh1.TitleParams.MultiTitle := true;
DBGridEh1.Columns[2].Title.Caption := 'Количество|По док-ту';
DBGridEh1.Columns[3].Title.Caption := 'Количество|По факту';
DBGridEh1.Columns[5].Title.Caption := 'Уч.ед';
ADOConnection1.GetTableNames(ComboBox1.Items, False);
Edit2.Clear;
ADOQuery2.Active:=true;
ADOQuery2.Append;
ADOQuery2.FieldByName('Номер заявки').Value:=asd;
ADOQuery2.FieldByName('Клиент').AsString:=asd1;
ADOQuery2.FieldByName('Дата').Value:=asd2;
ADOQuery2.Post;
RadioButton1.Checked:=true;
RadioButton2.Checked:=false;
DBGrideh2.DataSource:=DataSource2;
for i2:=0 to DBGridEh1.Columns.Count-1 do
DBGridEh1.Columns[i2].OptimizeWidth;

  row:=ea.ActiveSheet.UsedRange.Rows.Count+ ea.ActiveSheet.UsedRange.Row - 1;
  for i:=5 to row do begin 
  //adoquery1.Edit;
  adoQuery1.Append; 
  try
ADOQuery1.FieldByName('Код').Value:=StrToIntDef(string(ea.Sheets[1].Cells[i,2]),0);
  except
ADOQuery1.FieldByName('Код').Value:=0;
  end;
ADOQuery1.FieldByName('Наименование').Value:=ea.Sheets[1].Cells[i,3];
ADOQuery1.FieldByName('По_документу').Value:=ea.Sheets[1].Cells[i,4];
ADOQuery1.FieldByName('Учед').Value:=ea.Sheets[1].Cells[i,5];
ADOQuery1.FieldByName('Дата_IN').Value:=ea.Sheets[1].Cells[3,1];
ADOQuery1.FieldByName('Клиент').AsString:=ea.Sheets[1].Cells[1,1];
ADOQuery1.FieldByName('Тип').Value:=ea.Sheets[1].Cells[4,1];
ADOQuery1.FieldByName('Номер_заявки').AsString:=ea.Sheets[1].Cells[2,1];
DBGridEh1.TitleParams.MultiTitle := true;
DBGridEh1.Columns[2].Title.Caption := 'Количество|По док-ту';
DBGridEh1.Columns[3].Title.Caption := 'Количество|По факту';
DBGridEh1.Columns[5].Title.Caption := 'Уч.ед';
//ADOQuery1.FieldByName('Дата').ReadOnly:=true;
//ADOQuery1.FieldByName('Расхождения').ReadOnly:=true;
//ADOQuery1.FieldByName('Клиент').ReadOnly:=true;
application.ProcessMessages; 
end;
adoQuery1.Post; 
ea.quit; 
adoQuery1.First;
end;
begin
ADOQuery1.FieldByName('Дата_IN').ReadOnly:=true;
ADOQuery1.FieldByName('Расхождения').ReadOnly:=true;
ADOQuery1.FieldByName('Клиент').ReadOnly:=true;
end;
begin
asd10:=ADOQuery2.FieldByName('Клиент').AsString;
ADOConnection4.GetTableNames(ListBox1.Items, False);
for i4  :=0 to ListBox1.Items.Count-1 do
if ListBox1.Items.Strings[i4]=asd10 then
begin
exit;
end;
begin
ADOQuery4.Close;
//ADOQuery4.SQL.Clear;
ADOQuery4.SQL.Text:= Format('CREATE TABLE %s (Заявка varchar(255), Код number, Наименование varchar(255), Количество number, Учед varchar(255), Дата_IN date, Дата_OUT date, З_Х varchar(255))', [asd1]);
ADOQuery4.ExecSQL;
ADOQuery4.SQL.Text:= Format('SELECT * from %s', [asd10]);
ADOQuery4.Open;
ADOConnection4.GetTableNames(ComboBox3.Items, False);
end;
end;
if ADOQuery3.fields[0].asstring='' then
begin
  exit;
end;
end;

NumLock · #4 26.03.2013, 11:53

ну так 2 раза вызов идет:

Код:

  if not opendialog1.Execute then exit;
  if opendialog1.Execute then

и

Код:

asd:=Label5.Caption;

видимо не в том месте стоит.

Alegun · #5 26.03.2013, 11:55

Цитата:

Сообщение от cyborgg4655

Если я не выбираю файл и закрываю opendialog выскакиевает ошибка...

Нужно всю процедурню загрузки файла засунуть в блок бегенд

Код:

...
if OpenDialog1.Execute then 
begin
...
ExtractFileName(OpenDialog1.FileName);
...
end;

...

и не мучиться.

З.Ы. А то вижу что происходит только это

Код:

if opendialog1.Execute then asd:=Label5.Caption;

и всё.

cyborgg4655 · #6 26.03.2013, 12:01

Засунул в бегин, но это ничего не изменило. Может в какое-то другое место поставить if not opendialog1.Execute then exit; ?

Alegun · #7 26.03.2013, 12:22

Цитата:

Сообщение от cyborgg4655

...Может в какое-то другое место поставить if not opendialog1.Execute then exit; ?

А такая будет работать? Полный копипаст

Код:

procedure TForm1.Button10Click(Sender: TObject);
var
  i: word;
  ea: variant;
  row, asd4, asd9, i3, i2, i4: integer;
  asd, asd10, asd1, asd2, asd3: string;
begin

  if opendialog1.Execute then
begin {opendialog1.Execute}
    asd:=Label5.Caption;
  ea:=CreateOleObject('Excel.Application');
  ea.Workbooks.Open(opendialog1.FileName);
  ea.Visible:=false;
  Label5.Caption:=ea.Sheets[1].Cells[2,1];
asd:=Label5.Caption;
asd1:=ea.Sheets[1].Cells[1,1];
asd2:=ea.Sheets[1].Cells[3,1];
asd3:=ea.Sheets[1].Cells[4,1];
if asd3<>'IN' then
begin {if}
ea.quit;
showmessage('Приходная накладная должна быть со значением IN');
exit;
end;{if}
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:= Format('CREATE TABLE %s (Код number,'+
' Наименование varchar(255), По_документу number,'+
' По_факту number, Расхождения number, Учед varchar(255),'+
' Дата_IN date, Клиент varchar(255), З_Х varchar(25), Тип varchar(255),'+
' номер_заявки varchar(255))', [asd]);
ADOQuery1.ExecSQL;
ADOQuery1.SQL.Text:= Format('SELECT * from %s', [asd]);
Label6.Caption:='1';
ADOQuery1.Open;
DBGridEh1.TitleParams.MultiTitle := true;
DBGridEh1.Columns[2].Title.Caption := 'Количество|По док-ту';
DBGridEh1.Columns[3].Title.Caption := 'Количество|По факту';
DBGridEh1.Columns[5].Title.Caption := 'Уч.ед';
ADOConnection1.GetTableNames(ComboBox1.Items, False);
Edit2.Clear;
ADOQuery2.Active:=true;
ADOQuery2.Append;
ADOQuery2.FieldByName('Номер заявки').Value:=asd;
ADOQuery2.FieldByName('Клиент').AsString:=asd1;
ADOQuery2.FieldByName('Дата').Value:=asd2;
ADOQuery2.Post;
RadioButton1.Checked:=true;
RadioButton2.Checked:=false;
DBGrideh2.DataSource:=DataSource2;
for i2:=0 to DBGridEh1.Columns.Count-1 do
DBGridEh1.Columns[i2].OptimizeWidth;

  row:=ea.ActiveSheet.UsedRange.Rows.Count+ ea.ActiveSheet.UsedRange.Row - 1;

  for i:=5 to row do
  begin {for}
  //adoquery1.Edit;
  adoQuery1.Append;
  try
ADOQuery1.FieldByName('Код').Value:=
StrToIntDef(string(ea.Sheets[1].Cells[i,2]),0);
  except
ADOQuery1.FieldByName('Код').Value:=0;
  end; {except}
ADOQuery1.FieldByName('Наименование').Value:=ea.Sheets[1].Cells[i,3];
ADOQuery1.FieldByName('По_документу').Value:=ea.Sheets[1].Cells[i,4];
ADOQuery1.FieldByName('Учед').Value:=ea.Sheets[1].Cells[i,5];
ADOQuery1.FieldByName('Дата_IN').Value:=ea.Sheets[1].Cells[3,1];
ADOQuery1.FieldByName('Клиент').AsString:=ea.Sheets[1].Cells[1,1];
ADOQuery1.FieldByName('Тип').Value:=ea.Sheets[1].Cells[4,1];
ADOQuery1.FieldByName('Номер_заявки').AsString:=ea.Sheets[1].Cells[2,1];
DBGridEh1.TitleParams.MultiTitle := true;
DBGridEh1.Columns[2].Title.Caption := 'Количество|По док-ту';
DBGridEh1.Columns[3].Title.Caption := 'Количество|По факту';
DBGridEh1.Columns[5].Title.Caption := 'Уч.ед';
//ADOQuery1.FieldByName('Дата').ReadOnly:=true;
//ADOQuery1.FieldByName('Расхождения').ReadOnly:=true;
//ADOQuery1.FieldByName('Клиент').ReadOnly:=true;
application.ProcessMessages;
adoQuery1.Post;
ea.quit;
adoQuery1.First;
end;{for}

ADOQuery1.FieldByName('Дата_IN').ReadOnly:=true;
ADOQuery1.FieldByName('Расхождения').ReadOnly:=true;
ADOQuery1.FieldByName('Клиент').ReadOnly:=true;

asd10:=ADOQuery2.FieldByName('Клиент').AsString;
ADOConnection4.GetTableNames(ListBox1.Items, False);
for i4  :=0 to ListBox1.Items.Count-1 do
if ListBox1.Items.Strings[i4]=asd10 then exit;

ADOQuery4.Close;
//ADOQuery4.SQL.Clear;
ADOQuery4.SQL.Text:=
Format('CREATE TABLE %s (Заявка varchar(255), Код number,'+
' Наименование varchar(255), Количество number, Учед varchar(255),'+
' Дата_IN date, Дата_OUT date, З_Х varchar(255))', [asd1]);
ADOQuery4.ExecSQL;
ADOQuery4.SQL.Text:= Format('SELECT * from %s', [asd10]);
ADOQuery4.Open;
ADOConnection4.GetTableNames(ComboBox3.Items, False);
if ADOQuery3.fields[0].asstring='' then  exit;

end;{ opendialog1.Execute}

end;

Слишком много лишних блоков, но мог чёйнить и хорошего убрать, проверьте.

cyborgg4655 · #8 26.03.2013, 12:34

Цитата:

Сообщение от Alegun

А такая будет работать? Полный копипаст

Код:

procedure TForm1.Button10Click(Sender: TObject);
var
  i: word;
  ea: variant;
  row, asd4, asd9, i3, i2, i4: integer;
  asd, asd10, asd1, asd2, asd3: string;
begin

  if opendialog1.Execute then
begin {opendialog1.Execute}
    asd:=Label5.Caption;
  ea:=CreateOleObject('Excel.Application');
  ea.Workbooks.Open(opendialog1.FileName);
  ea.Visible:=false;
  Label5.Caption:=ea.Sheets[1].Cells[2,1];
asd:=Label5.Caption;
asd1:=ea.Sheets[1].Cells[1,1];
asd2:=ea.Sheets[1].Cells[3,1];
asd3:=ea.Sheets[1].Cells[4,1];
if asd3<>'IN' then
begin {if}
ea.quit;
showmessage('Приходная накладная должна быть со значением IN');
exit;
end;{if}
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:= Format('CREATE TABLE %s (Код number,'+
' Наименование varchar(255), По_документу number,'+
' По_факту number, Расхождения number, Учед varchar(255),'+
' Дата_IN date, Клиент varchar(255), З_Х varchar(25), Тип varchar(255),'+
' номер_заявки varchar(255))', [asd]);
ADOQuery1.ExecSQL;
ADOQuery1.SQL.Text:= Format('SELECT * from %s', [asd]);
Label6.Caption:='1';
ADOQuery1.Open;
DBGridEh1.TitleParams.MultiTitle := true;
DBGridEh1.Columns[2].Title.Caption := 'Количество|По док-ту';
DBGridEh1.Columns[3].Title.Caption := 'Количество|По факту';
DBGridEh1.Columns[5].Title.Caption := 'Уч.ед';
ADOConnection1.GetTableNames(ComboBox1.Items, False);
Edit2.Clear;
ADOQuery2.Active:=true;
ADOQuery2.Append;
ADOQuery2.FieldByName('Номер заявки').Value:=asd;
ADOQuery2.FieldByName('Клиент').AsString:=asd1;
ADOQuery2.FieldByName('Дата').Value:=asd2;
ADOQuery2.Post;
RadioButton1.Checked:=true;
RadioButton2.Checked:=false;
DBGrideh2.DataSource:=DataSource2;
for i2:=0 to DBGridEh1.Columns.Count-1 do
DBGridEh1.Columns[i2].OptimizeWidth;

  row:=ea.ActiveSheet.UsedRange.Rows.Count+ ea.ActiveSheet.UsedRange.Row - 1;

  for i:=5 to row do
  begin {for}
  //adoquery1.Edit;
  adoQuery1.Append;
  try
ADOQuery1.FieldByName('Код').Value:=
StrToIntDef(string(ea.Sheets[1].Cells[i,2]),0);
  except
ADOQuery1.FieldByName('Код').Value:=0;
  end; {except}
ADOQuery1.FieldByName('Наименование').Value:=ea.Sheets[1].Cells[i,3];
ADOQuery1.FieldByName('По_документу').Value:=ea.Sheets[1].Cells[i,4];
ADOQuery1.FieldByName('Учед').Value:=ea.Sheets[1].Cells[i,5];
ADOQuery1.FieldByName('Дата_IN').Value:=ea.Sheets[1].Cells[3,1];
ADOQuery1.FieldByName('Клиент').AsString:=ea.Sheets[1].Cells[1,1];
ADOQuery1.FieldByName('Тип').Value:=ea.Sheets[1].Cells[4,1];
ADOQuery1.FieldByName('Номер_заявки').AsString:=ea.Sheets[1].Cells[2,1];
DBGridEh1.TitleParams.MultiTitle := true;
DBGridEh1.Columns[2].Title.Caption := 'Количество|По док-ту';
DBGridEh1.Columns[3].Title.Caption := 'Количество|По факту';
DBGridEh1.Columns[5].Title.Caption := 'Уч.ед';
//ADOQuery1.FieldByName('Дата').ReadOnly:=true;
//ADOQuery1.FieldByName('Расхождения').ReadOnly:=true;
//ADOQuery1.FieldByName('Клиент').ReadOnly:=true;
application.ProcessMessages;
adoQuery1.Post;
ea.quit;
adoQuery1.First;
end;{for}

ADOQuery1.FieldByName('Дата_IN').ReadOnly:=true;
ADOQuery1.FieldByName('Расхождения').ReadOnly:=true;
ADOQuery1.FieldByName('Клиент').ReadOnly:=true;

asd10:=ADOQuery2.FieldByName('Клиент').AsString;
ADOConnection4.GetTableNames(ListBox1.Items, False);
for i4  :=0 to ListBox1.Items.Count-1 do
if ListBox1.Items.Strings[i4]=asd10 then exit;

ADOQuery4.Close;
//ADOQuery4.SQL.Clear;
ADOQuery4.SQL.Text:=
Format('CREATE TABLE %s (Заявка varchar(255), Код number,'+
' Наименование varchar(255), Количество number, Учед varchar(255),'+
' Дата_IN date, Дата_OUT date, З_Х varchar(255))', [asd1]);
ADOQuery4.ExecSQL;
ADOQuery4.SQL.Text:= Format('SELECT * from %s', [asd10]);
ADOQuery4.Open;
ADOConnection4.GetTableNames(ComboBox3.Items, False);
if ADOQuery3.fields[0].asstring='' then  exit;

end;{ opendialog1.Execute}

end;

Слишком много лишних блоков, но мог чёйнить и хорошего убрать, проверьте.

Теперь стал ругатьтся - project raised excpection class EOleExpection with message 'OLE Error 800A03EC'

cyborgg4655 · #9 26.03.2013, 12:35

Код:

ADOQuery1.FieldByName('Код').Value:=StrToIntDef(string(ea.Sheets[1].Cells[i,2]),0);

на эту строчку ругается

cyborgg4655 · #10 26.03.2013, 12:47

Все, заработало, я вручную добавил {if,for и т.п}... Спсибо, я даже и не догадывался что решение окажется именно таким)

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты

Этот пользователь сказал Спасибо Alegun за это полезное сообщение:
cyborgg4655 (26.03.2013)