basic_change_un.pas

布林电话收费管理系统

unit basic_change_un;

interface

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

type
  Tbasic_change = class(Tstand)
    bsSkinPanel1: TbsSkinPanel;
    bsSkinXFormButton5: TbsSkinXFormButton;
    bsSkinXFormButton2: TbsSkinXFormButton;
    bsSkinXFormButton3: TbsSkinXFormButton;
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinLabel4: TbsSkinLabel;
    bsSkinEdit4: TbsSkinEdit;
    bsSkinLabel5: TbsSkinLabel;
    bsSkinEdit5: TbsSkinEdit;
    bsSkinLabel6: TbsSkinLabel;
    bsSkinEdit6: TbsSkinEdit;
    bsSkinLabel7: TbsSkinLabel;
    bsSkinEdit7: TbsSkinEdit;
    bsSkinLabel8: TbsSkinLabel;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinLabel12: TbsSkinLabel;
    bsSkinEdit12: TbsSkinEdit;
    bsSkinLabel1: TbsSkinLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinLabel2: TbsSkinLabel;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinLabel3: TbsSkinLabel;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinLabel19: TbsSkinLabel;
    bsSkinEdit8: TbsSkinEdit;
    bsSkinMessage1: TbsSkinMessage;
    bsSkinEdit9: TbsSkinEdit;
    bsSkinLabel9: TbsSkinLabel;
    bsSkinEdit10: TbsSkinEdit;
    bsSkinLabel10: TbsSkinLabel;
    bsSkinEdit11: TbsSkinEdit;
    procedure bsSkinXFormButton5Click(Sender: TObject);
    procedure screen_xt;
    procedure bsSkinXFormButton3Click(Sender: TObject);
    procedure bsSkinEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure bsSkinEdit6Change(Sender: TObject);
    procedure bsSkinXFormButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  basic_change: Tbasic_change;
  change_1:string;
implementation
  uses globe,dm_un,main_un;
{$R *.dfm}

procedure Tbasic_change.bsSkinXFormButton5Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure tbasic_change.screen_xt;
begin
  bsskinedit1.Clear;
  bsskinedit2.Clear;
  bsskinedit3.Clear;
  bsskinedit4.Clear;
  bsskinedit5.Clear;
  bsskinedit6.Clear;
  bsskinedit7.Clear;
  bsskinedit8.Clear;
  bsskinedit9.Clear;
  bsskinedit10.Clear;
  bsskinedit11.Clear;
  bsskinedit12.Clear;
end;

procedure Tbasic_change.bsSkinXFormButton3Click(Sender: TObject);
begin
  inherited;
  screen_xt;
  bsskinedit4.SetFocus;
end;

procedure Tbasic_change.bsSkinEdit4KeyPress(Sender: TObject;
  var Key: Char);
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(bsskinedit4.Text);
     q_a.Prepared;
     q_a.Open;
    end;
   if dm.q_a.Recordset.RecordCount >0 then
    begin
      bsskinedit5.Text:=dm.q_a.FieldValues ['tel_name'];
      bsskinedit6.Text:=dm.q_a.FieldValues ['TEL_ZZ'];
      bsskinedit7.Text:=dm.q_a.FieldValues ['tel_dw'];
      bsskinedit9.Text:=dm.q_a.FieldValues ['tel_pass'];
      bsskinedit10.Text:=dm.q_a.FieldValues ['TEL_QTFS'];
      bsskinedit12.Text:=dm.q_a.FieldValues ['DBR_TEL1'];
      bsskinedit1.Text:=dm.q_a.FieldValues ['DBR_NAME'];
      bsskinedit2.Text:=dm.q_a.FieldValues ['DBR_SFZH'];
      bsskinedit3.Text:=dm.q_a.FieldValues ['DBR_TEL2'];
      bsskinedit8.Text:=dm.q_a.FieldValues ['DBR_LXDZ'];
      bsskinedit11.Text:=dm.q_a.FieldValues ['DBR_GZDW'];
      change_1:='0';
      bsskinedit6.SetFocus;
    end
   else
    begin
      bsskinmessage1.MessageDlg('当前电话号码不存在,请确定后再输入!!',mterror,[mbyes],0);
      screen_xt;
    end;  
  end;
end;

procedure Tbasic_change.FormCreate(Sender: TObject);
begin
  inherited;
 change_1:='0';
end;

procedure Tbasic_change.bsSkinEdit6Change(Sender: TObject);
begin
  inherited;
 change_1:='1';
end;

procedure Tbasic_change.bsSkinXFormButton2Click(Sender: TObject);
begin
  inherited;
 if change_1='1' then
  begin
   if bsskinmessage1.MessageDlg('你是否确定对当前用户基本信息所做的修改？',mtconfirmation,[mbyes,mbcancel],0)= mryes then
    begin
     dm:=tdm.Create(nil);
     with dm do
      begin
       q_a.Close;
       q_a.SQL.Clear;
       q_a.SQL.Add('update tel_user set TEL_ZZ=:tel_zz ,');
       q_a.SQL.Add('tel_dw=:tel_dw,');
       q_a.SQL.Add('tel_pass=:tel_pass,');
       q_a.SQL.Add('TEL_QTFS=:TEL_QTFS,');
       q_a.SQL.Add('DBR_TEL1=:DBR_TEL1,');
       q_a.SQL.Add('DBR_NAME=:DBR_NAME,');
       q_a.SQL.Add('DBR_SFZH=:DBR_SFZH,');
       q_a.SQL.Add('DBR_TEL2=:DBR_TEL2,');
       q_a.SQL.Add('DBR_LXDZ=:DBR_LXDZ,');
       q_a.SQL.Add('DBR_GZDW=:DBR_GZDW');
       q_a.SQL.Add('where tel_num=:tel_num');
       q_a.Parameters.ParamByName('tel_dw').Value:=bsskinedit7.Text;
       q_a.Parameters.ParamByName('TEL_ZZ').Value:=bsskinedit6.Text;
       q_a.Parameters.ParamByName('tel_pass').Value:=bsskinedit9.Text;
       q_a.Parameters.ParamByName('TEL_QTFS').Value:=bsskinedit10.Text;
       q_a.Parameters.ParamByName('DBR_TEL1').Value:=bsskinedit12.Text;
       q_a.Parameters.ParamByName('DBR_NAME').Value:=bsskinedit1.Text;
       q_a.Parameters.ParamByName('DBR_SFZH').Value:=bsskinedit2.Text;
       q_a.Parameters.ParamByName('DBR_TEL2').Value:=bsskinedit3.Text;
       q_a.Parameters.ParamByName('DBR_LXDZ').Value:=bsskinedit8.Text;
       q_a.Parameters.ParamByName('DBR_GZDW').Value:=bsskinedit11.Text;
       q_a.Parameters.ParamByName('tel_num').Value:=bsskinedit4.Text;
       q_a.Prepared;
       q_a.ExecSQL;
       writetolog('0.00');
       bsskinmessage1.MessageDlg('对用户基本信息的修改保存完毕！',mtinformation,[mbok],0);
       screen_xt;
       bsskinedit4.SetFocus; 
      end;
    end
   else
    bsskinedit4.SetFocus;
  end
 else
  begin
   bsskinmessage1.MessageDlg('用户的基本信息没有发生改变，不需要保存.....',mtinformation,[mbyes],0);
   bsskinedit4.SetFocus;
  end;
end;

end.