Здравствуйте! Помогите пожалуйста разобраться с ошибкой в программе. При запуске выдает [Error] Unit2.pas(61): Undeclared identifier: 'sLabel1'. Уже все перебрал но причину найти не могу.
Вот Пасс 2
procedure TForm2.FormShow(Sender: TObject);
begin
sEdit1.SetFocus;
RadioButton1.Checked:=true;;
end;
procedure TForm2.sButton2Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm2.sButton1Click(Sender: TObject);
var
stud:string;
begin
if RadioButton1.Checked then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from Student where Name="'+sEdit1.Text+'" and Passwd="'+sEdit2.Text+'"');
ADOQuery1.Open;
if ADOQuery1.RecordCount>0 then
begin
Close;
Form1.sStatusBar1.Panels[0].Text:='Студент: '+ADOQuery1.FieldValues['Name'];
Form1.sLabel1.Caption:=IntToStr(ADOQuery1.FieldValues['Id']);
end
else
begin
ShowMessage('Данное сочетание имени и пароля не найдено.');
sEdit1.Clear; sEdit2.Clear; sEdit1.SetFocus;
end
end
else
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from Student');
ADOQuery1.Open;
if ADOQuery1.Locate('Name',sEdit1.Text,[]) then
begin
ShowMessage('Обучающийся с таким именем уже зарегистрирован.');
sEdit1.Clear; sEdit1.SetFocus;
end
else
begin
ADOQuery1.Insert;
ADOQuery1.FieldValues['Name']:=sEdit1.Text;
ADOQuery1.FieldValues['Passwd']:=sEdit2.Text;
ADOQuery1.Post;
ShowMessage('Регистрация прошла успешно.');
Close;
Form1.sStatusBar1.Panels[0].Text:='Студент: '+ADOQuery1.FieldValues['Name'];
end
end;
end;
end.
Вроде все правильно, но не запускается. В чем ошибка?
За ранее Спасибо!
procedure TForm1.FormShow(Sender: TObject);
var
ini:Tinifile;
result,text:string;
capt,r1,r2,r3,r4,r5:string;
i,j,r11,r22,r33,r44,r55:integer;
begin
Form9.ShowModal;
Form2.ShowModal;
result:= ExtractFilePath(ParamStr(0));
ini:=TiniFile.Create(result+'config.ini');
capt:=ini.ReadString('Conf','Caption','');
Form1.Caption:=capt;
Application.Title:=capt;
r1:=ini.ReadString('Conf','r1','');
r2:=ini.ReadString('Conf','r2','');
r3:=ini.ReadString('Conf','r3','');
r4:=ini.ReadString('Conf','r4','');
r5:=ini.ReadString('Conf','r5','');
if r1<>'' then r11:=StrToInt(r1) else r11:=0;
if r2<>'' then r22:=StrToInt(r2) else r22:=0;
if r3<>'' then r33:=StrToInt(r3) else r33:=0;
if r4<>'' then r44:=StrToInt(r4) else r44:=0;
if r5<>'' then r55:=StrToInt(r5) else r55:=0;
if r11>0 then sTreeView1.Items.Add(nil,'Лекционный материал');
j:=0;
for i:=1 to r11 do
begin
text:=ini.ReadString('Лекционный материал',IntToStr(i),'');
sTreeView1.Items.AddChild(sTreeView1.Items[j],text);
end;
j:=sTreeView1.Items.Count;
if r22>0 then sTreeView1.Items.Add(nil,'Программирование LPT порта');
for i:=1 to r22 do
begin
text:=ini.ReadString('Программирование LPT порта',IntToStr(i),'');
sTreeView1.Items.AddChild(sTreeView1.Items[j],text);
end;
j:=sTreeView1.Items.Count;
if r33>0 then sTreeView1.Items.Add(nil,'Программирование');
for i:=1 to r33 do
begin
text:=ini.ReadString('Программирование COM порта',IntToStr(i),'');
sTreeView1.Items.AddChild(sTreeView1.Items[j],text);
end;
j:=sTreeView1.Items.Count;
if r44>0 then sTreeView1.Items.Add(nil,'Дополнительные материалы. Книги');
for i:=1 to r44 do
begin
text:=ini.ReadString('Дополнительные материалы. Книги',IntToStr(i),'');
sTreeView1.Items.AddChild(sTreeView1.Items[j],text);
end;
j:=sTreeView1.Items.Count;
if r55>0 then sTreeView1.Items.Add(nil,'Дополнительная литература');
for i:=1 to r55 do
begin
text:=ini.ReadString('Дополнительная литература',IntToStr(i),'');
sTreeView1.Items.AddChild(sTreeView1.Items[j],text);
end;
ini.Free;
end;
procedure TForm1.ToolButton5Click(Sender: TObject);
begin
sTreeView1.Width:=0;
end;
procedure TForm1.ToolButton6Click(Sender: TObject);
begin
sTreeView1.Width:=215;
end;
procedure TForm1.ToolButton13Click(Sender: TObject);
begin
AboutBox.ShowModal;
end;
procedure TForm1.ToolButton10Click(Sender: TObject);
begin
Form4.ShowModal;
end;
procedure TForm1.ToolButton11Click(Sender: TObject);
begin
if (Form5.ShowModal=6) then Form6.ShowModal;
end;
procedure TForm1.ToolButton14Click(Sender: TObject);
begin
try
WB.ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_PROMPTUSER);
except
end;
end;
procedure TForm1.ToolButton23Click(Sender: TObject);
var
i:string;
begin
i:=sLabel1.Caption;
Form8.QRLabel3.Caption:=sStatusBar1.Panels[0].Text;
ADOQuery1.Close;
ADOQuery1.Sql.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Result WHERE Stu_Id = "'+i+'" ORDER BY Data,Posicion');
ADOQuery1.Open;
Form8.QRMemo1.Lines.Clear;
while not ADOQuery1.Eof do
begin
Form8.QRMemo1.Lines.Add(DateToStr(ADOQuery1.FieldValues['Data'])+' - '+ADOQuery1.FieldValues['Posicion']);
ADOQuery1.Next;
end;
Form8.QuickRep1.Preview;
end;
procedure TForm1.sTreeView1Change(Sender: TObject; Node: TTreeNode);
var
ini:Tinifile;
result,path:string;
begin
if sTreeView1.Selected.Level = 1 then
begin
result:= ExtractFilePath(ParamStr(0));
ini:=TiniFile.Create(result+'config.ini');
path:=ini.ReadString(sTreeView1.Selected.Parent.Text,'p'+IntToStr(sTreeView1.Selected.Index+1),'');
if path<>'' then
begin
ADOQuery1.Close;
ADOQuery1.Sql.Clear;
ADOQuery1.SQL.Add('INSERT INTO Result (Stu_Id, Posicion, Data) VALUES ("'+sLabel1.Caption+'", "'+sTreeView1.Selected.Text+'", "'+DateToStr(Date)+'")');
ADOQuery1.ExecSQL;
path:=result+'Doc\'+path;
WB.Navigate(path);
ini.Free;
end
else
ShowMessage('Запрошенный документ по указанному пути не найден.');
end
end;
