change_tel_un.pas

布林电话收费管理系统

unit change_tel_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, stand_un, BusinessSkinForm, bsSkinCtrls, StdCtrls,
  bsSkinBoxCtrls, Mask, bsMessages;

type
  Tchange_tel = class(Tstand)
    bsSkinPanel1: TbsSkinPanel;
    bsSkinXFormButton2: TbsSkinXFormButton;
    bsSkinXFormButton3: TbsSkinXFormButton;
    bsSkinXFormButton4: TbsSkinXFormButton;
    bsSkinXFormButton5: TbsSkinXFormButton;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinLabel12: TbsSkinLabel;
    bsSkinEdit12: TbsSkinEdit;
    bsSkinLabel1: TbsSkinLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinLabel2: TbsSkinLabel;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinLabel3: TbsSkinLabel;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinLabel19: TbsSkinLabel;
    bsSkinDateEdit1: TbsSkinDateEdit;
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinMemo1: TbsSkinMemo;
    bsSkinMessage1: TbsSkinMessage;
    procedure bsSkinXFormButton2Click(Sender: TObject);
    procedure screen_xt;
    procedure bsSkinXFormButton5Click(Sender: TObject);
    procedure bsSkinEdit12KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  change_tel: Tchange_tel;

implementation
  uses globe,dm_un,main_un,delete_user_un,khsj_un;
{$R *.dfm}

procedure Tchange_tel.bsSkinXFormButton2Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure tchange_tel.screen_xt;
begin
 bsskinedit12.clear;
 bsskinedit1.clear;
 bsskinedit2.Clear;
 bsskinedit3.Clear;
 bsskindateedit1.Date:=now;
end;

procedure Tchange_tel.bsSkinXFormButton5Click(Sender: TObject);
begin
  inherited;
  screen_xt;
  bsskinedit12.SetFocus;
end;

procedure Tchange_tel.bsSkinEdit12KeyPress(Sender: TObject; var Key: Char);
var
 delete_user:tdelete_user;
 khsj:tkhsj;
begin
  inherited;
  if key=#13 then
  begin
   dm:=tdm.Create(nil);
   with dm do
    begin
     q_a.Close;
     q_a.SQL.Clear;
     q_a.SQL.Add('select * from tel_user where tel_num=:tel_num');
     q_a.Parameters.ParamByName('tel_num').Value:=trim(bsskinedit12.Text);
     q_a.Prepared;
     q_a.Open;
    end;
   if dm.q_a.Recordset.RecordCount >0 then
    begin
      bsskinedit1.Text:=dm.q_a.FieldValues ['tel_name'];
      pub_var:=trim(bsskinedit1.Text);
      bsskinedit2.Text:=dm.q_a.FieldValues ['tel_sfzh'];
      bsskinedit3.Text:=dm.q_a.FieldValues ['tel_dw'];
      bsskindateedit1.Date:=dm.q_a.FieldValues ['tel_time'];
      if bsskinmessage1.MessageDlg('是否对当前用户进行过户操作？',mtconfirmation,[mbyes,mbcancel],0)=mryes then
       begin
        //首先进行消户的操作
        delete_user:=tdelete_user.Create(change_tel);
        delete_user.Caption:='用户过户前的消户操作';
        delete_user.bsSkinEdit4.Text:=bsskinedit12.Text ;
        delete_user.bsSkinEdit4.ReadOnly :=false;
        delete_user.ShowModal;
        delete_user.Free;
         //查看用户是不是进行了消户的操作
          with dm do
          begin
           q_a.Close;
           q_a.SQL.Clear;
           q_a.SQL.Add('select * from tel_user where tel_num=:tel_num');
           q_a.Parameters.ParamByName('tel_num').Value:=trim(bsskinedit12.Text);
           q_a.Prepared;
           q_a.Open;
          end;
          if dm.q_a.Recordset.RecordCount >0 then
           begin
            bsskinmessage1.MessageDlg('当前用户没有进行过户前的正常消户操作，过户操作将中止！',mterror,[mbyes],0);
            exit;
           end
          else
           begin
            //可以进行正常用户的数据录入。
            khsj:=tkhsj.Create(change_tel);
            khsj.Caption:='用户过户服务';
            khsj.bsSkinEdit17.Text:=trim(bsskinedit12.Text);
            khsj.bsSkinedit17.ReadOnly :=false;
            khsj.ShowModal;
            khsj.Free;
              with dm do
                  begin
                   q_a.Close;
                   q_a.SQL.Clear;
                   q_a.SQL.Add('select * from tel_user where tel_num=:tel_num');
                   q_a.Parameters.ParamByName('tel_num').Value:=trim(bsskinedit12.Text);
                   q_a.Prepared;
                   q_a.Open;
                  end;
               if dm.q_a.Recordset.RecordCount >0 then
                begin
                 //说明进行了用户数据的录入
                  bsskinedit1.Text:=dm.q_a.FieldValues ['tel_name'];
                  pub_var:=trim(bsskinedit1.Text);
                  bsskinedit2.Text:=dm.q_a.FieldValues ['tel_sfzh'];
                  bsskinedit3.Text:=dm.q_a.FieldValues ['tel_dw'];
                  bsskindateedit1.Date:=dm.q_a.FieldValues ['tel_time'];
                  bsskinmessage1.MessageDlg('用户过户操作完毕！，过户操作成功！',mtinformation,[mbok],0);
                end
               else
                begin
                  //说明没有进行用户数据的录入
                  bsskinmessage1.MessageDlg('用户过户后保存数据不成功！！'+chr(13)+'你可以到系统的开户功能中再次为用户开户！',mterror,[mbyes],0);
                  screen_xt;
                end;

           end;
       end;
//      bsskinedit1.SetFocus;
    end
   else
    begin
      bsskinmessage1.MessageDlg('当前电话号码不存在,请确定后再输入!!',mterror,[mbyes],0);
      screen_xt;
    end;
  end;
end;

end.