stop_open_un.pas

布林电话收费管理系统

unit stop_open_un;

interface

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

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

var
  stop_open: Tstop_open;
  abc_tmp:integer;
implementation
 uses globe,dm_un,main_un,ywprn_un;
{$R *.dfm}

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

procedure tstop_open.screen_xt;
begin
 bsskinedit12.clear;
 bsskinedit1.clear;
 bsskinedit2.Clear;
 bsskinedit3.Clear;
 bsskindateedit1.Date:=now;
 bsskinradiogroup1.ItemIndex:=-1;
end;

procedure Tstop_open.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'];
      bsskinedit2.Text:=dm.q_a.FieldValues ['tel_sfzh'];
      bsskinedit3.Text:=dm.q_a.FieldValues ['tel_dw'];
      bsskindateedit1.Date:=dm.q_a.FieldValues ['tel_time'];
      bsskinradiogroup1.ItemIndex:=strtoint(dm.q_a.FieldValues ['YW_STUT'])-1;
      abc_tmp:=bsskinradiogroup1.ItemIndex;
    end
   else
    begin
      bsskinmessage1.MessageDlg('当前电话号码不存在,请确定后再输入!!',mterror,[mbyes],0);
      screen_xt;
    end;
  end;
end;

procedure Tstop_open.bsSkinXFormButton2Click(Sender: TObject);
var
 ywprn:tywprn;
begin
  inherited;
 if abc_tmp=bsskinradiogroup1.ItemIndex then
  begin
   bsskinmessage1.MessageDlg('用户电话的状态没有发生改变，不用保存！！',mtinformation,[mbok],0);
   bsskinedit12.SetFocus;
  end
 else
  if bsskinmessage1.MessageDlg('你是否确定对用户电话状态的修改？',mtconfirmation,[mbok,mbcancel],0)=mrok then
    begin
      with dm do
       begin
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('update tel_user set YW_STUT=:YW_STUT where tel_num=:tel_num');
        q_a.Parameters.ParamByName('tel_num').Value:=bsskinedit12.Text;
        q_a.Parameters.ParamByName('YW_STUT').Value:=inttostr( bsskinradiogroup1.ItemIndex+1);
        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 );
        if (bsskinradiogroup1.ItemIndex+1)=1 then
         begin
         q_a.Parameters.ParamByName('old_yw').Value:='停机';
         q_a.Parameters.ParamByName('new_yw').Value:='开机';
         end
        else
         begin
         q_a.Parameters.ParamByName('new_yw').Value:='停机';
         q_a.Parameters.ParamByName('old_yw').Value:='开机';
         end;
        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(stop_open);
        ywprn.loadyw(dm.q_a.FieldValues ['xh']);
        ywprn.QuickRep1.Prepare;
        ywprn.QuickRep1.Preview;
        ywprn.Free;
      writetolog('0.00');
     bsskinmessage1.MessageDlg('用户电话的状态保存完毕！！',mtinformation,[mbok],0);
     screen_xt;
    bsskinedit12.SetFocus;
    end
  else
   begin
    screen_xt;
    bsskinedit12.SetFocus;
   end;
end;

procedure Tstop_open.bsSkinXFormButton3Click(Sender: TObject);
begin
  inherited;
  screen_xt;
  bsskinedit12.SetFocus;
end;

end.