delphi＋sql办公自动化系统（＋开题报告源程序＋文档正文＋外文翻译＋答辩ppt）(八)

delphi＋sql办公自动化系统（＋开题报告源程序＋文档正文＋外文翻译＋答辩ppt）(八) nbsp;    ExecSql;
      end;
    showmessage('成功移动到B区！');
    self.FormShow(Sender);
    end;
  except
    showmessage('移动到B区失败！');
  end;
end;

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;

procedure TfrmCustomer.bbtnShowAllClick(Sender: TObject);
begin
  dm.ATCustInfo.Close;
  dm.ATCustInfo.Open;
  dm.ATContact.Close;
  dm.ATContact.Open;
  dm.ATFimaly.Close;
  dm.ATFimaly.Open;
end;

end.

发送通知界面与代码设计实现
unit UsendMsg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons,Unotice;

type
  TfrmSendMsg = class(TForm)
    GroupBox1: TGroupBox;
    Panel1: TPanel;
    Label1: TLabel;
    AddrBox: TComboBox;

首页 上一页 5 6 7 8 9 10 11 下一页 尾页 8/15/15

delphi＋sql办公自动化系统（＋开题报告源程序＋文档正文＋外文翻译＋答辩ppt）(八)由毕业论文网（www.huoyuandh.com）会员上传。