unit_validatecust.pas

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

unit unit_ValidateCust;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, TFlatPanelUnit, TFlatSpeedButtonUnit, TFlatRadioButtonUnit,
  TFlatGroupBoxUnit, StdCtrls, TFlatEditUnit, Db, DBTables;

type
  Tfrm_ValidateCust = class(TForm)
    PanelLeft: TPanel;
    FlatGroupBox1: TFlatGroupBox;
    FlatRadioButton1: TFlatRadioButton;
    FlatRadioButton2: TFlatRadioButton;
    Label1: TLabel;
    Label2: TLabel;
    FlatEditPW: TFlatEdit;
    PanelRight: TPanel;
    PanelRightButton: TPanel;
    PanelRightTop: TPanel;
    FlatEditWk_NoSid: TFlatEdit;
    FlatEdit8: TFlatEdit;
    FlatEditWk_No: TFlatEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    FlatEdit6: TFlatEdit;
    Label6: TLabel;
    Label5: TLabel;
    FlatEditActualUser: TFlatEdit;
    FlatEditUserName: TFlatEdit;
    Label4: TLabel;
    Label3: TLabel;
    FlatEditSidView: TFlatEdit;
    Q_s: TQuery;
    FlatEditSid: TFlatEdit;
    Query1: TQuery;
    Label10: TLabel;
    Panel5: TPanel;
    FlatSpeedButtonFind: TFlatSpeedButton;
    Panel6: TPanel;
    FlatSpeedButton2: TFlatSpeedButton;
    procedure FlatSpeedButton2Click(Sender: TObject);
    procedure FlatRadioButton1Click(Sender: TObject);
    procedure FlatRadioButton2Click(Sender: TObject);
    procedure FlatSpeedButtonFindClick(Sender: TObject);
    procedure FlatEditPWKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FlatEditSidKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FlatEditSidKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_ValidateCust: Tfrm_ValidateCust;

implementation

uses main, dmmain ,Unit_Public;

{$R *.DFM}

procedure Tfrm_ValidateCust.FlatSpeedButton2Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_ValidateCust.FlatRadioButton1Click(Sender: TObject);
begin
  FlatEditSid.text:='';
  FlatEditPW.text:='';
  label1.Caption:='手机号码';
  label2.Caption:='业务密码';
end;

procedure Tfrm_ValidateCust.FlatRadioButton2Click(Sender: TObject);
begin
  FlatEditSid.text:='';
  FlatEditPW.text:='';
  label1.Caption:='贵宾卡号';
  label2.Caption:='贵宾卡密码';

end;

procedure Tfrm_ValidateCust.FlatSpeedButtonFindClick(Sender: TObject);
begin

   If trim(FlatEditSid.Text)='' Then
      Begin
         Application.MessageBox('对不起，您没有输入需要查询的手机号码！'#13#13'请输入要查询的手机号码！','提示',MB_ICONEXCLAMATION);
         Exit;
      End
      else
      if flatradiobutton1.Checked and (length(FlatEditSid.text)<>11) Then
      begin
         Application.MessageBox('对不起，您输入的手机号码应为11位！'#13#13'请输入正确的要查询的手机号码！','提示',MB_ICONEXCLAMATION);
         self.ActiveControl :=FlatEditSid;
         exit;
      end;
   FlatEditSidView.Text:='';
   FlatEditUserName.Text:='';
   FlatEditActualUser.Text:='';
   flatedit6.Text:='';
   FlatEditWk_No.Text:='';
   flatedit8.Text:='';
   FlatEditWk_NoSid.Text:='';

   Q_S.Close;
   Q_S.SQL.Clear;
   Q_S.SQL.Add('Select Sid,Name,Act_User,PW,VIP_NO,VIP_PW,GH From T_F_CustInfo Where Fybz<>0');
   If FlatradioButton1.Checked then  //按手机号查询
      Q_S.SQL.Add('And SID='''+trim(FlatEditSid.text)+'''');
   If FlatradioButton2.Checked then  //按VIP卡号
      Q_S.SQL.Add('And VIP_NO='''+trim(FlatEditSid.text)+'''');
   Q_S.Open;

 

   //  显示数据
   FlatEditSidView.text:=q_s.fieldbyname('sid').asstring;
   FlatEditUserName.text:=q_s.fieldbyname('name').asstring;
   FlatEditActualUser.text:=q_s.fieldbyname('act_user').asstring;
   flatedit6.text:=q_s.fieldbyname('vip_no').asstring;
   FlatEditWk_No.text:=q_s.fieldbyname('gh').asstring;

   If Trim(Q_S.FieldByName('GH').AsString)<>'' Then
      Begin
         Query1.Close;
         Query1.SQL.Clear;
         Query1.SQL.Add('Select * From T_F_Manager Where Trim(WK_NO)='''+Q_S.FieldByName('GH').AsString+'''');
         Query1.Open;
         If Not(Query1.Eof And Query1.Bof) Then
            Begin
               FlatEdit8.Text:=Query1.FieldByName('Name').AsString;
               FlatEditWk_NoSid.Text:=Query1.FieldByName('SID').AsString;
            End;
      End;
  If (Q_S.Bof and Q_S.Eof) then  //判断是否为大客户
      Begin
         Application.MessageBox('对不起，在大客户档案中没有查找到该大客户!'#13#13'该客户现在不是大客户！','提示',MB_ICONEXCLAMATION);
         Label10.Caption:='该客户为非消费客户！';
         Exit;
      End;


   If FlatRadioButton1.Checked  Then
      If Trim(Q_S.FieldByName('PW').AsString)<>Trim(FlatEditPW.Text) Then
         Begin
            Application.MessageBox('对不起，您输入的业务密码有误！请重新输入！','提示',MB_ICONEXCLAMATION);
            FlatEditPW.SetFocus;
            Label10.Caption:='密码验证失败！';
            Exit;
         End;
   If FlatRadioButton2.Checked  Then
      If Trim(Q_S.FieldByName('VIP_PW').AsString)<>Trim(FlatEditPW.Text) Then
          Begin
            Application.MessageBox('对不起，您输入的贵宾卡密码有误！请重新输入！','提示',MB_ICONEXCLAMATION);
            Label10.Caption:='密码验证失败！';
            FlatEditPW.SetFocus;
            Exit;
         End;

   Label10.Caption:='密码验证成功！';
   FlatEditSid.SelectAll ;
   FlatEditSid.SetFocus ;
end;

procedure Tfrm_ValidateCust.FlatEditPWKeyPress(Sender: TObject;
  var Key: Char);
begin
  If Key=#13 Then
    FlatSpeedButtonFindClick(Sender);
end;

procedure Tfrm_ValidateCust.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := CaFree;
end;


procedure Tfrm_ValidateCust.FlatEditSidKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  case Key of
    VK_RETURN,VK_DOWN: SelectNext(ActiveControl,true,true);
    VK_UP: SelectNext(ActiveControl,false,true);
  End;
end;

procedure Tfrm_ValidateCust.FlatEditSidKeyPress(Sender: TObject;
  var Key: Char);
begin

   if FlatRadioButton1.Checked and
   not (key in ['0'..'9',chr(vk_back)]) then key:=#0;

end;

end.