chnagename_un.pas

布林电话收费管理系统

unit chnagename_un;

interface

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

type
  Tchangename = class(Tstand)
    bsSkinPanel1: TbsSkinPanel;
    bsSkinXFormButton6: TbsSkinXFormButton;
    bsSkinXFormButton2: TbsSkinXFormButton;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinLabel12: TbsSkinLabel;
    bsSkinEdit12: TbsSkinEdit;
    bsSkinLabel1: TbsSkinLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinLabel2: TbsSkinLabel;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinLabel3: TbsSkinLabel;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinLabel19: TbsSkinLabel;
    bsSkinDateEdit1: TbsSkinDateEdit;
    bsSkinMessage1: TbsSkinMessage;
    bsSkinXFormButton4: TbsSkinXFormButton;
    procedure bsSkinXFormButton6Click(Sender: TObject);
    procedure screen_xt;
    procedure bsSkinEdit12KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinXFormButton2Click(Sender: TObject);
    procedure bsSkinXFormButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  changename: Tchangename;

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

procedure Tchangename.bsSkinXFormButton6Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure tchangename.screen_xt;
begin
 bsskinedit12.clear;
 bsskinedit1.clear;
 bsskinedit2.Clear;
 bsskinedit3.Clear;
 bsskindateedit1.Date:=now;
end;
procedure Tchangename.bsSkinEdit12KeyPress(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(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'];
      bsskinedit1.SetFocus;
    end
   else
    begin
      bsskinmessage1.MessageDlg('当前电话号码不存在,请确定后再输入!!',mterror,[mbyes],0);
      screen_xt;
    end;  
  end;
end;

procedure Tchangename.bsSkinEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key=#13 then
   begin
    bsskinxformbutton2click(nil);
    screen_xt;
    bsskinedit12.SetFocus;
   end;

end;

procedure Tchangename.bsSkinXFormButton2Click(Sender: TObject);
var
 ywprn:tywprn;
begin
  inherited;
if trim(bsskinedit12.Text)<>'' then
   if trim(bsskinedit1.Text)<>pub_var then
    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_name=:tel_name where tel_num=:tel_num');
        q_a.Parameters.ParamByName('tel_name').Value:=trim(bsskinedit1.Text );
        q_a.Parameters.ParamByName('tel_num').Value:=trim(bsskinedit12.Text );
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('insert into tel_change (USER_ID,USER_TIME,YW_DATE,TEL_SFZH,TEL_LXDH, ');
        q_a.SQL.Add('OLD_YW,NEW_YW,YW_MEMO)');
        q_a.SQL.Add('values(:USER_ID,:USER_TIME,:YW_DATE,:TEL_SFZH,:TEL_LXDH,');
        q_a.SQL.Add(':OLD_YW,:NEW_YW,:YW_MEMO)');
        q_a.Parameters.ParamByName('USER_ID').Value:=USER_ID;
        q_a.Parameters.ParamByName('USER_time').Value:=now;
        q_a.Parameters.ParamByName('YW_DATE').Value:=now;
        q_a.Parameters.ParamByName('TEL_SFZH').Value:=trim(bsskinedit2.Text );
        q_a.Parameters.ParamByName('TEL_lxdh').Value:=trim(bsskinedit12.Text );
        q_a.Parameters.ParamByName('old_yw').Value:=pub_var;
        q_a.Parameters.ParamByName('new_yw').Value:=trim(bsskinedit1.Text );
        q_a.Parameters.ParamByName('yw_memo').Value:='用户更名';
        q_a.Prepared;
        q_a.ExecSQL;
       end;
         with dm do
          begin
           q_a.Close;
           q_a.SQL.Clear;
           q_a.SQL.Add('select max(yw_xh) as xh from tel_change');
           q_a.Prepared;
           q_a.Open;
          end;
        ywprn:=tywprn.Create(nil);
        ywprn.loadyw(dm.q_a.FieldValues ['xh']);
        ywprn.QuickRep1.Prepare;
        ywprn.QuickRep1.Preview;
        ywprn.Free;
          writetolog('0.00');
          bsskinmessage1.MessageDlg('用户姓名更改完毕!',mtinformation,[mbok],0);
     end;
end;

procedure Tchangename.bsSkinXFormButton4Click(Sender: TObject);
begin
  inherited;
  screen_xt;
  bsskinedit12.SetFocus;
end;

end.