procedure TfrmCustomer.C1Click(Sender: TObject);
var
CustomerId :string;
begin
CustomerId :=dm.ATCustInfo.FieldValues['CustomerID'];
try
if Application.MessageBox('您确实要把此客户移到C区吗？','系统提示',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('成功移动到C区！');
self.FormShow(Sender);
end;
except
showmessage('移动到C区失败！');
end;
end;
procedure TfrmCustomer.N6Click(Sender: TObject);
var
CustomerId :string;
begin
CustomerId :=dm.ATCustInfo.FieldValues['CustomerID'];
try
if Application.MessageBox('您确实要把此客户移到公共区域吗？','系统提示',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('成功移动到公共区域！');
self.FormShow(Sender);
end;
except
showmessage('移动到公共区域失败！');
end;
end;
procedure TfrmCustomer.N7Click(Sender: TObject);
begin
frmContact.Show;
end;
procedure TfrmCustomer.DBGrid2DblClick(Sender: TObject);
begin
if DBGrid2.DataSource.DataSet.IsEmpty then
Exit
else
frmContact.Show;
end;
procedure TfrmCustomer.DBGrid1DblClick(Sender: TObject);
begin
if DBGrid1.DataSource.DataSet.IsEmpty then
Exit
else
frmCustomerUpdate.Show;
end;
