omerid,CustomerName:string;
begin
Customerid :=dm.ATCustInfo.FieldByName('CustomerID').AsString;
CustomerName:=dm.ATCustInfo.fieldbyname('Cusname').AsString;
if self.DBGrid1.DataSource.DataSet.IsEmpty then
begin
ShowMessage('没有要删除的记录，请选择记录后再试！');
Exit;
end
else if MessageBox(self.Handle,'将删除与该客户的项目和家庭成员信息,确定吗？','警告',MB_OKCANCEL+MB_ICONWARNING+MB_DefButton2)=IDOk then
begin
dm.ATCustInfo.Delete;
with dm.AQItems do
begin
close;
sql.Clear;
sql.Add('delete from ProjectItem where Customname='''+CustomerName+'''');
ExecSQL;
end;
with dm.AQCustInfo do
begin
close;
sql.Clear;
sql.Add('delete from Family where CustomerID='''+Customerid+'''');
ExecSQL;
end;
with dm.AQService do
begin
close;
sql.Clear;
sql.Add('delete from Service where SerName='''+CustomerName+'''');
ExecSQL;
end;
end;
end;
procedure TfrmCustomer.A1Click(Sender: TObject);
var
CustomerId :string;
begin
CustomerId :=dm.ATCustInfo.FieldValues['CustomerID'];
try
if Application.MessageBox('您确实要把此客户移到A区吗？','系统提示',MB_YESNO)=6 then
begin
with dm.AQCustInfo do
begin
close;
sql.Clear;
sql.Text :='update Customers set Intension=''一定'' where CustomerID='''+CustomerId+'''';
ExecSql;
end;
showmessage('成功移动到A区！');
self.FormShow(Sender);
end;
except
showmessage('移动到A区失败！');
end;
end;
procedure TfrmCustomer.B1Click(Sender: TObject);
var
CustomerId :string;
begin
CustomerId :=dm.ATCustInfo.FieldValues['CustomerID'];
try
if Application.MessageBox('您确实要把此客户移到B区吗？','系统提示',MB_YESNO)=6 then
begin
with dm.AQCustInfo do
begin
close;
sql.Clear;
sql.Text :='update Customers set Intension=''初定'' where CustomerID='''+CustomerId+'''';
&
