selectviplx.pas

delphi开发的中国移动大客户管理系统,后台数据库为oracle

unit selectviplx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Buttons, Db, DBTables, TFlatGroupBoxUnit,
  TFlatRadioButtonUnit, TFlatButtonUnit, TFlatComboBoxUnit;

type
  TFormSELECTJT = class(TForm)
    Label1: TLabel;
    SP_JTYH: TStoredProc;
    QueryAnalyze: TQuery;
    FlatGroupBox1: TFlatGroupBox;
    rad_fy: TFlatRadioButton;
    rad_jt: TFlatRadioButton;
    cbjt_jtyhmc: TFlatComboBox;
    Btn_Exit: TFlatButton;
    FlatButton1: TFlatButton;
    SP_TO_VIP: TStoredProc;
    procedure FormCreate(Sender: TObject);
    procedure Btn_ExitClick(Sender: TObject);
    procedure Addjt;
    procedure FlatButton1Click(Sender: TObject);
    procedure rad_jtClick(Sender: TObject);
    procedure rad_fyClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    pSid:String;
  end;

var
  FormSELECTJT: TFormSELECTJT;

implementation

uses dmmain, main,procedurep,Unit_Public;
{$R *.DFM}


procedure TFormSELECTJT.FormCreate(Sender: TObject);
begin
  cbjt_jtyhmc.Enabled:=False;
end;

procedure TFormselectJT.Addjt;
var
  SQL:String;
begin
   if rad_jt.checked then
      begin
         cbjt_jtyhmc.Enabled:=true;
         SQL:=' select * from T_F_GroupInfo Where JTBZ=0';
         QueryAnalyze.close;
         QueryAnalyze.SQL.Clear;
         QueryAnalyze.SQL.Add(SQL);
         QueryAnalyze.Open;
         cbjt_jtyhmc.Items.Clear;
         while not QueryAnalyze.eof do
            begin
               cbjt_jtyhmc.Items.Add(QueryAnalyze.FieldByName('JTYHMC').AsString);
               QueryAnalyze.next;
            end;
         cbjt_jtyhmc.ItemIndex:=0;
      end
   else
     begin
        cbjt_jtyhmc.Items.Clear;
        cbjt_jtyhmc.Enabled:=false;
     end;
end;


procedure TFormSELECTJT.FlatButton1Click(Sender: TObject);
var
  jtdm,viph:integer;
  SQL:String;
begin

   SQL:=' SELECT * FROM T_F_CustInfo WHERE FYBZ<>''0'' AND sid='+''''+psid+'''';

   QueryAnalyze.Close;
   QueryAnalyze.SQL.Clear;
   QueryAnalyze.SQL.Add(SQL);
   QueryAnalyze.Open;
   If Not QueryAnalyze.IsEmpty Then
      Begin
         Application.MessageBox(PChar(pSid+'客户归属于 '+QueryAnalyze.FieldByName('gh').AsString+' 客户经理管辖！'),'提示',MB_ICONINFORMATION);
         Exit;
      End;

   If Application.MessageBox(pChar('是否将'+pSid+'客户列为大客户?'),'提示',MB_YESNO)=ID_NO then
      Exit;

   if Rad_fy.checked then
      begin
         SP_TO_VIP.Close;
         SP_TO_VIP.ParamByName('VSID').AsString:=pSID;
         SP_TO_VIP.ParamByName('ingh').AsString:=GH;
         SP_TO_VIP.ParamByName('incityno').AsString:=PS_CityNo;
         Try
            SP_TO_VIP.ExecProc;
         Except
            Application.MessageBox('系统在执行过程中发生错误！','提示',MB_ICONINFORMATION)
         End;
         If SP_TO_VIP.ParamByName('reset').AsInteger=2 then
            Application.MessageBox('系统在执行过程中发生错误！','提示',MB_ICONINFORMATION)
         Else
            Application.MessageBox(pChar(pSID+'客户已成功列为大客户！管辖经理工号'+GH+'！'),'提示',MB_ICONINFORMATION);

      End;

   If rad_jt.Checked Then
      Begin
         QueryAnalyze.Close;
         QueryAnalyze.SQL.Clear;
         QueryAnalyze.SQL.Add(' select * from T_F_GroupInfo where ltrim(rtrim(jtyhmc))='+''''+trim(cbjt_jtyhmc.Text)+'''');
         QueryAnalyze.Open;
         JTDM:=QueryAnalyze.FieldByName('JTYHDM').AsInteger;

         SP_JTYH.Close;
         SP_JTYH.ParamByName('P_SID').AsString:=pSID;
         SP_JTYH.ParamByName('P_JTYHDM').AsInteger:=jtdm;
         SP_JTYH.ParamByName('P_GH').AsString:=gh;
         SP_JTYH.ParamByName('P_cityno').AsString:=PS_CityNo;
         Try
            SP_JTYH.ExecProc;
         Except
            Application.MessageBox('系统在执行过程中发生错误！','提示',MB_ICONINFORMATION)
         End;

         If SP_JTYH.ParamByName('RESULT').AsInteger<>1 then
            Application.MessageBox('系统在执行过程中发生错误！','提示',MB_ICONINFORMATION)
         Else
            Application.MessageBox(pChar(pSID+'客户已成功列为大客户！管辖经理工号'+GH+'！'),'提示',MB_ICONINFORMATION);
      End;
end;

procedure TFormSELECTJT.Btn_ExitClick(Sender: TObject);
begin
  Close;
end;

procedure TFormSELECTJT.rad_jtClick(Sender: TObject);
begin
   Addjt;
end;

procedure TFormSELECTJT.rad_fyClick(Sender: TObject);
begin

  cbjt_jtyhmc.ItemIndex:=-1;
  cbjt_jtyhmc.Enabled:=False;
end;

end.