编译时,总是报如下错误:(1)Missing operator or semicolon
(2)';'expected but'.'found
(3)Declaration expected but end of file found
procedure TForm8.suiButton1Click(Sender: TObject);
var db:string;
begin
db:=extractfilepath(application.ExeName);
query1.DatabaseName:=db;
if suiRadioButton1.Checked then
begin
if (suiedit1.text='')or(suiedit2.text='')or(suiedit3.text='') then
begin
suimessagedialog1.Text:='请您完整的输入员工信息!';
suimessagedialog1.ShowModal;
end
else
if suicombobox1.Text='操作员' then
begin
query1.Close;
query1.Params.Clear;
query1.SQL.Clear;
query1.SQL.Add('select * from worker')
query1.SQL.Add('where 工号=:gh');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.Open;
if query1.RecordCount=0 then
begin
query1.Close;
query1.Params.Clear;
query1.SQL.Clear;
query1.SQL.Add('insert into worker');
query1.SQL.Add('values(:gh,:name,:password)');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.ParamByName('name').AsString:=suiedit2.Text;
query1.ParamByName('password').AsString:=suiedit3.Text;
query1.ExecSQL;
query1.Close;
query1.params.clear;
query1.SQL.Clear;
query1.SQL.Add('select * from worker');
query1.SQL.Add('where 工号=:gh');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.Open;
query1.Active:=true;
end
else
begin
suimessagedialog1.Text:='此记录已存在,请重新输入员工信息!';
suimessagedialog1.ShowModal;
end;
end
else
if suicombobox1.Text='管理员' then
begin
query1.Close;
query1.Params.Clear;
query1.SQL.Clear;
query1.SQL.Add('select * from manager')
query1.SQL.Add('where 工号=:gh');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.Open;
if query1.RecordCount=0 then
begin
query1.Close;
query1.Params.Clear;
query1.SQL.Clear;
query1.SQL.Add('insert into manager');
query1.SQL.Add('values(:gh,:name,:password)');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.ParamByName('name').AsString:=suiedit2.Text;
query1.ParamByName('password').AsString:=suiedit3.Text;
query1.ExecSQL;
query1.Close;
query1.params.clear;
query1.SQL.Clear;
query1.SQL.Add('select * from manager');
query1.SQL.Add('where 工号=:gh ');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.Open;
query1.Active:=true;
end
else
begin
suimessagedialog1.Text:='此记录已存在,请重新输入员工信息!';
suimessagedialog1.ShowModal;
end;
end;
end
else
if suiRadioButton2.Checked then
begin
if suiedit1.Text='' then
begin
suimessagedialog1.Text:='请输入员工工号进行指定删除!';
suimessagedialog1.ShowModal;
end
else
if suicombobox1.Text='操作员' then
begin
query1.Close;
query1.Params.Clear;
query1.SQL.Clear;
query1.SQL.Add('delete from worker');
query1.SQL.Add('where 工号=:gh');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.ExecSQL;
suimessagedialog1.Text:='员工信息已经成功删除!';
suimessagedialog1.ShowModal; {query1.close;
query1.Params.Clear;
query1.SQL.Clear;
query1.sql.add('select * from worker');
query1.open;
query1.Active:=true;}
end
else
if suicombobox1.Text='管理员' then
begin
query1.Close;
query1.Params.Clear;
query1.SQL.Clear;
query1.SQL.Add('delete from manager');
query1.SQL.Add('where 工号=:gh');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.ExecSQL;
suimessagedialog1.Text:='员工信息已经成功删除!';
suimessagedialog1.ShowModal; {query1.close;
query1.Params.Clear;
query1.SQL.Clear;
query1.sql.add('select * from manager');
query1.open;
query1.Active:=true;}
end;
suiedit1.Clear;
suiedit2.Clear;
suiedit3.Clear;
suiedit1.SetFocus;
end
else
if suiRadioButton3.Checked then
begin
if (suiedit1.text='')or(suiedit2.text='')or(suiedit3.text='') then
begin
suimessagedialog1.Text:='请您完整的输入员工信息!';
suimessagedialog1.ShowModal;
end
else
if suicombobox1.Text='操作员' then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from worker');
query1.SQL.Add('where 工号=:gh');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.Open;
if query1.RecordCount=0 then
begin
suimessagedialog1.Text:='此记录在库中不存在!';
suimessagedialog1.ShowModal;
end
else
begin
query1.Close;
query1.Params.Clear;
query1.SQL.Clear;
query1.SQL.Add('delete from worker');
query1.SQL.Add('where 工号=:gh ');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.ExecSQL;
query1.close;
query1.Params.Clear;
query1.SQL.Clear;
query1.SQL.Add('insert into worker');
query1.SQL.Add('values(:gh,:name,:password)');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.ParamByName('name').AsString:=suiedit2.Text;
query1.ParamByName('password').AsString:=suiedit3.Text;
query1.ExecSQL;
query1.close;
query1.Params.Clear;
query1.SQL.Clear;
query1.sql.add('select * from worker');
query1.open;
query1.Active:=true;
end;
end
else
if suicombobox1.Text='管理员' then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from manager');
query1.SQL.Add('where 工号=:gh');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.Open;
if query1.RecordCount=0 then
begin
suimessagedialog1.Text:='此记录在库中不存在!';
suimessagedialog1.ShowModal;
end
else
begin
query1.Close;
query1.Params.Clear;
query1.SQL.Clear;
query1.SQL.Add('delete from manager');
query1.SQL.Add('where 工号=:gh ');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.ExecSQL;
query1.close;
query1.Params.Clear;
query1.SQL.Clear;
query1.SQL.Add('insert into manager');
query1.SQL.Add('values(:gh,:name,:password)');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.ParamByName('name').AsString:=suiedit2.Text;
query1.ParamByName('password').AsString:=suiedit3.Text;
query1.ExecSQL;
query1.close;
query1.Params.Clear;
query1.SQL.Clear;
query1.sql.add('select * from manager');
query1.open;
query1.Active:=true;
end;
end;
end;
end.
(2)';'expected but'.'found
(3)Declaration expected but end of file found
procedure TForm8.suiButton1Click(Sender: TObject);
var db:string;
begin
db:=extractfilepath(application.ExeName);
query1.DatabaseName:=db;
if suiRadioButton1.Checked then
begin
if (suiedit1.text='')or(suiedit2.text='')or(suiedit3.text='') then
begin
suimessagedialog1.Text:='请您完整的输入员工信息!';
suimessagedialog1.ShowModal;
end
else
if suicombobox1.Text='操作员' then
begin
query1.Close;
query1.Params.Clear;
query1.SQL.Clear;
query1.SQL.Add('select * from worker')
query1.SQL.Add('where 工号=:gh');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.Open;
if query1.RecordCount=0 then
begin
query1.Close;
query1.Params.Clear;
query1.SQL.Clear;
query1.SQL.Add('insert into worker');
query1.SQL.Add('values(:gh,:name,:password)');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.ParamByName('name').AsString:=suiedit2.Text;
query1.ParamByName('password').AsString:=suiedit3.Text;
query1.ExecSQL;
query1.Close;
query1.params.clear;
query1.SQL.Clear;
query1.SQL.Add('select * from worker');
query1.SQL.Add('where 工号=:gh');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.Open;
query1.Active:=true;
end
else
begin
suimessagedialog1.Text:='此记录已存在,请重新输入员工信息!';
suimessagedialog1.ShowModal;
end;
end
else
if suicombobox1.Text='管理员' then
begin
query1.Close;
query1.Params.Clear;
query1.SQL.Clear;
query1.SQL.Add('select * from manager')
query1.SQL.Add('where 工号=:gh');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.Open;
if query1.RecordCount=0 then
begin
query1.Close;
query1.Params.Clear;
query1.SQL.Clear;
query1.SQL.Add('insert into manager');
query1.SQL.Add('values(:gh,:name,:password)');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.ParamByName('name').AsString:=suiedit2.Text;
query1.ParamByName('password').AsString:=suiedit3.Text;
query1.ExecSQL;
query1.Close;
query1.params.clear;
query1.SQL.Clear;
query1.SQL.Add('select * from manager');
query1.SQL.Add('where 工号=:gh ');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.Open;
query1.Active:=true;
end
else
begin
suimessagedialog1.Text:='此记录已存在,请重新输入员工信息!';
suimessagedialog1.ShowModal;
end;
end;
end
else
if suiRadioButton2.Checked then
begin
if suiedit1.Text='' then
begin
suimessagedialog1.Text:='请输入员工工号进行指定删除!';
suimessagedialog1.ShowModal;
end
else
if suicombobox1.Text='操作员' then
begin
query1.Close;
query1.Params.Clear;
query1.SQL.Clear;
query1.SQL.Add('delete from worker');
query1.SQL.Add('where 工号=:gh');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.ExecSQL;
suimessagedialog1.Text:='员工信息已经成功删除!';
suimessagedialog1.ShowModal; {query1.close;
query1.Params.Clear;
query1.SQL.Clear;
query1.sql.add('select * from worker');
query1.open;
query1.Active:=true;}
end
else
if suicombobox1.Text='管理员' then
begin
query1.Close;
query1.Params.Clear;
query1.SQL.Clear;
query1.SQL.Add('delete from manager');
query1.SQL.Add('where 工号=:gh');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.ExecSQL;
suimessagedialog1.Text:='员工信息已经成功删除!';
suimessagedialog1.ShowModal; {query1.close;
query1.Params.Clear;
query1.SQL.Clear;
query1.sql.add('select * from manager');
query1.open;
query1.Active:=true;}
end;
suiedit1.Clear;
suiedit2.Clear;
suiedit3.Clear;
suiedit1.SetFocus;
end
else
if suiRadioButton3.Checked then
begin
if (suiedit1.text='')or(suiedit2.text='')or(suiedit3.text='') then
begin
suimessagedialog1.Text:='请您完整的输入员工信息!';
suimessagedialog1.ShowModal;
end
else
if suicombobox1.Text='操作员' then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from worker');
query1.SQL.Add('where 工号=:gh');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.Open;
if query1.RecordCount=0 then
begin
suimessagedialog1.Text:='此记录在库中不存在!';
suimessagedialog1.ShowModal;
end
else
begin
query1.Close;
query1.Params.Clear;
query1.SQL.Clear;
query1.SQL.Add('delete from worker');
query1.SQL.Add('where 工号=:gh ');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.ExecSQL;
query1.close;
query1.Params.Clear;
query1.SQL.Clear;
query1.SQL.Add('insert into worker');
query1.SQL.Add('values(:gh,:name,:password)');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.ParamByName('name').AsString:=suiedit2.Text;
query1.ParamByName('password').AsString:=suiedit3.Text;
query1.ExecSQL;
query1.close;
query1.Params.Clear;
query1.SQL.Clear;
query1.sql.add('select * from worker');
query1.open;
query1.Active:=true;
end;
end
else
if suicombobox1.Text='管理员' then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from manager');
query1.SQL.Add('where 工号=:gh');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.Open;
if query1.RecordCount=0 then
begin
suimessagedialog1.Text:='此记录在库中不存在!';
suimessagedialog1.ShowModal;
end
else
begin
query1.Close;
query1.Params.Clear;
query1.SQL.Clear;
query1.SQL.Add('delete from manager');
query1.SQL.Add('where 工号=:gh ');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.ExecSQL;
query1.close;
query1.Params.Clear;
query1.SQL.Clear;
query1.SQL.Add('insert into manager');
query1.SQL.Add('values(:gh,:name,:password)');
query1.ParamByName('gh').AsString:=suiedit1.Text;
query1.ParamByName('name').AsString:=suiedit2.Text;
query1.ParamByName('password').AsString:=suiedit3.Text;
query1.ExecSQL;
query1.close;
query1.Params.Clear;
query1.SQL.Clear;
query1.sql.add('select * from manager');
query1.open;
query1.Active:=true;
end;
end;
end;
end.
end后冒号多打或漏打~
自己再好好查查吧~
看的眼睛都花了哦~~~
和 open 在看下..