delphi气象服务业务系统＋sql[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](四)

delphi气象服务业务系统＋sql[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](四) gin
  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;
    bbtnSend: TBitBtn;
    GroupBox2: TGroupBox;
    mesText: TMemo;
    StatusPanel: TPanel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbtnSendClick(Sender: TObject);
    procedure FormCreate(Sender: T

首页 上一页 1 2 3 4 5 6 7 下一页 尾页 4/10/10

delphi气象服务业务系统＋sql[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](四)由毕业论文网（www.huoyuandh.com）会员上传。