❶ Delphi對access或SQL資料庫增刪查改的操作
procere 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;
//--------------------以上是添加操作----------------------//
//--------------------以下是刪除操作----------------------//
procere 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;