评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

delphi＋sql办公自动化系统（＋开题报告源程序＋(7)

2013-06-09 01:07 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']; （转载自http://zw.NSEAC.com科教作文网）
  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+'''';
   &