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

delphi气象服务业务系统＋sql[开题报告＋论文＋源(4)

2013-06-06 02:24 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