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

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

2013-06-06 02:24 ocedure ComboBox1DropDown(Sender: TObject);
    procedure bbtnOKClick(Sender: TObject);
    procedure ComboBox2DropDown(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmLogIn: TfrmLogIn;
  LogTimes:Integer=0;
  DeptName:string;
  LogInTime:TDateTime;
  UserName:string;
implementation

uses Umain, MyData, UtodayWork;

{$R *.dfm}

procedure TfrmLogIn.bbtnCancelClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TfrmLogIn.ComboBox1DropDown(Sender: TObject);
begin
  ComboBox1.Items.Clear;
   with dm.AQDept do
    begin
      close;
      sql.Clear;
      sql.Add('select distinct department from Users');

     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'];
  try
    if Application.MessageBox('您确实要把此客户移到A区吗？','系统提示',MB_YESNO)=6 then
    begin
      with dm.AQCustInfo do
      begin
        close;
        sql.Clear;

（转载自http://zw.nseac.coM科教作文网）

        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+'''';
        ExecSql;
      end;
    showmessage('成功移动到B区！');
    self.FormShow(Sender);
    end;
  except
    showmessage('移动到B区失败！');
  end;
end;

procedure TfrmCustomer.C1Click(Sender: TObject);
var
  CustomerId :string;
be