Delphi对access或SQL数据库增删查改的操作
急!!!!考试。。。。。三楼的没有查找和修改操作我想要一套完整的。。。可以连接SQL数据库后进行增、删、改、查操作...
急!!!!考试。。。。。
三楼的 没有查找和 修改操作
我想要一套完整的。。。可以连接SQL 数据库 后 进行 增、删、改、查操作 展开
三楼的 没有查找和 修改操作
我想要一套完整的。。。可以连接SQL 数据库 后 进行 增、删、改、查操作 展开
3个回答
展开全部
procedure TEmpManageForm_frm.Button1Click(Sender: TObject);
var
EMPID:string;
begin
if edit1.Text='' then
begin
showmessage('请输入员工编号!');
exit;
end;
EMPID:=edit1.Text;
DataMod.ado2.Close;
DataMod.ado2.SQL.Clear;
DataMod.ado2.SQL.add('select 员工编号 from 员工信息 where 员工编号='''+EMPID+'''');
DataMod.ado2.Open;
if DataMod.ado2.RecordCount >=1 then
begin
showmessage('该员工编号已存在!');
exit;
end;
try
DataMod.ado2.Close;
DataMod.ado2.SQL.Clear;
DataMod.ado2.SQL.add('insert into 员工信息 ');
DataMod.ado2.SQL.add('(员工编号,姓名,生日,性别,手机,籍贯,电话,邮编,地址,身份证号,备注,密码) Values (');
DataMod.ado2.SQL.add(''''+edit1.Text+''',');
DataMod.ado2.SQL.add(''''+edit2.Text+''',');
DataMod.ado2.SQL.add(''''+datetostr(DateTimePicker1.DateTime)+''',');
DataMod.ado2.SQL.add(''''+edit4.Text+''',');
DataMod.ado2.SQL.add(''''+edit5.Text+''',');
DataMod.ado2.SQL.add(''''+edit6.Text+''',');
DataMod.ado2.SQL.add(''''+edit7.Text+''',');
DataMod.ado2.SQL.add(''''+edit8.Text+''','梁耐);
DataMod.ado2.SQL.add(''''+edit12.Text+''',');
DataMod.ado2.SQL.add(''''+edit11.Text+''',');
DataMod.ado2.SQL.add(''''+memo1.Text+''',');
DataMod.ado2.SQL.add(''''+edit9.Text+''')');
DataMod.ado2.ExecSQL;
Application.ProcessMessages;
showmessage('员或渣兄工添加成功!');
DBGrid1.Refresh;
except
showmessage('添加员工时出现错误,请核对数据是否正确!');
end;
DBGrid1.Refresh;
Application.ProcessMessages;
DataMod.ado1.Close;
Application.ProcessMessages;
DataMod.ado1.SQL.Clear;
DataMod.ado1.SQL.add('select 员工编号,姓名,生日,性别,籍贯,地址,电话,手机,身份证号,邮编,备衫袭注 from 员工信息');
DataMod.ado1.Open;
Application.ProcessMessages;
DBGrid1.DataSource :=DataMod.DS1;
Application.ProcessMessages;
end;
//--------------------以上是添加操作----------------------//
//--------------------以下是删除操作----------------------//
procedure TEmpManageForm_frm.Button3Click(Sender: TObject);
var
EMPID:string;
begin
if edit1.Text ='' then
begin
showmessage('请选择要删除的员工!');
exit;
end;
EMPID:=edit1.Text;
DataMod.ado2.Close;
DataMod.ado2.SQL.Clear;
DataMod.ado2.SQL.add('select 员工编号 from 员工信息 where 员工编号='''+EMPID+'''');
DataMod.ado2.Open;
if DataMod.ado2.RecordCount <=0 then
begin
showmessage('该员工编号不存在!');
exit;
end;
try
DataMod.ado2.Close;
DataMod.ado2.SQL.Clear;
DataMod.ado2.SQL.add('delete from 员工信息 where 员工编号='''+edit1.Text+'''');
DataMod.ado2.ExecSQL;
Application.ProcessMessages;
showmessage('员工删除成功!');
DBGrid1.Refresh;
DataMod.ado2.Close;
DataMod.ado2.SQL.Clear;
DataMod.ado2.SQL.add('delete from 员工权限 where 员工编号='''+edit1.Text+'''');
DataMod.ado2.ExecSQL;
except
showmessage('删除员工时出现错误,请核对数据是否正确!');
end;
DBGrid1.Refresh;
Application.ProcessMessages;
DataMod.ado1.Close;
Application.ProcessMessages;
DataMod.ado1.SQL.Clear;
DataMod.ado1.SQL.add('select 员工编号,姓名,生日,性别,籍贯,地址,电话,手机,身份证号,邮编,备注,解禁时间 from 员工信息');
DataMod.ado1.Open;
Application.ProcessMessages;
DBGrid1.DataSource :=DataMod.Ds1;
Application.ProcessMessages;
end;
var
EMPID:string;
begin
if edit1.Text='' then
begin
showmessage('请输入员工编号!');
exit;
end;
EMPID:=edit1.Text;
DataMod.ado2.Close;
DataMod.ado2.SQL.Clear;
DataMod.ado2.SQL.add('select 员工编号 from 员工信息 where 员工编号='''+EMPID+'''');
DataMod.ado2.Open;
if DataMod.ado2.RecordCount >=1 then
begin
showmessage('该员工编号已存在!');
exit;
end;
try
DataMod.ado2.Close;
DataMod.ado2.SQL.Clear;
DataMod.ado2.SQL.add('insert into 员工信息 ');
DataMod.ado2.SQL.add('(员工编号,姓名,生日,性别,手机,籍贯,电话,邮编,地址,身份证号,备注,密码) Values (');
DataMod.ado2.SQL.add(''''+edit1.Text+''',');
DataMod.ado2.SQL.add(''''+edit2.Text+''',');
DataMod.ado2.SQL.add(''''+datetostr(DateTimePicker1.DateTime)+''',');
DataMod.ado2.SQL.add(''''+edit4.Text+''',');
DataMod.ado2.SQL.add(''''+edit5.Text+''',');
DataMod.ado2.SQL.add(''''+edit6.Text+''',');
DataMod.ado2.SQL.add(''''+edit7.Text+''',');
DataMod.ado2.SQL.add(''''+edit8.Text+''','梁耐);
DataMod.ado2.SQL.add(''''+edit12.Text+''',');
DataMod.ado2.SQL.add(''''+edit11.Text+''',');
DataMod.ado2.SQL.add(''''+memo1.Text+''',');
DataMod.ado2.SQL.add(''''+edit9.Text+''')');
DataMod.ado2.ExecSQL;
Application.ProcessMessages;
showmessage('员或渣兄工添加成功!');
DBGrid1.Refresh;
except
showmessage('添加员工时出现错误,请核对数据是否正确!');
end;
DBGrid1.Refresh;
Application.ProcessMessages;
DataMod.ado1.Close;
Application.ProcessMessages;
DataMod.ado1.SQL.Clear;
DataMod.ado1.SQL.add('select 员工编号,姓名,生日,性别,籍贯,地址,电话,手机,身份证号,邮编,备衫袭注 from 员工信息');
DataMod.ado1.Open;
Application.ProcessMessages;
DBGrid1.DataSource :=DataMod.DS1;
Application.ProcessMessages;
end;
//--------------------以上是添加操作----------------------//
//--------------------以下是删除操作----------------------//
procedure TEmpManageForm_frm.Button3Click(Sender: TObject);
var
EMPID:string;
begin
if edit1.Text ='' then
begin
showmessage('请选择要删除的员工!');
exit;
end;
EMPID:=edit1.Text;
DataMod.ado2.Close;
DataMod.ado2.SQL.Clear;
DataMod.ado2.SQL.add('select 员工编号 from 员工信息 where 员工编号='''+EMPID+'''');
DataMod.ado2.Open;
if DataMod.ado2.RecordCount <=0 then
begin
showmessage('该员工编号不存在!');
exit;
end;
try
DataMod.ado2.Close;
DataMod.ado2.SQL.Clear;
DataMod.ado2.SQL.add('delete from 员工信息 where 员工编号='''+edit1.Text+'''');
DataMod.ado2.ExecSQL;
Application.ProcessMessages;
showmessage('员工删除成功!');
DBGrid1.Refresh;
DataMod.ado2.Close;
DataMod.ado2.SQL.Clear;
DataMod.ado2.SQL.add('delete from 员工权限 where 员工编号='''+edit1.Text+'''');
DataMod.ado2.ExecSQL;
except
showmessage('删除员工时出现错误,请核对数据是否正确!');
end;
DBGrid1.Refresh;
Application.ProcessMessages;
DataMod.ado1.Close;
Application.ProcessMessages;
DataMod.ado1.SQL.Clear;
DataMod.ado1.SQL.add('select 员工编号,姓名,生日,性别,籍贯,地址,电话,手机,身份证号,邮编,备注,解禁时间 from 员工信息');
DataMod.ado1.Open;
Application.ProcessMessages;
DBGrid1.DataSource :=DataMod.Ds1;
Application.ProcessMessages;
end;
展开全部
增:ADOTable1.Append;
删漏乎:ADOTable1.Delete;
改:
ADOTable1.Edit;
ADOTable1.FieldbyName('字段名').value:=<握搜碰新段谈值>;
ADOTable1.Post;
删漏乎:ADOTable1.Delete;
改:
ADOTable1.Edit;
ADOTable1.FieldbyName('字段名').value:=<握搜碰新段谈值>;
ADOTable1.Post;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
SQL?
是要具体的程序?
联系我试下。
是要具体的程序?
联系我试下。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询