change_yw_un.pas

布林电话收费管理系统

unit change_yw_un;

interface

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

type
  Tchange_yw = class(Tstand)
    bsSkinPanel1: TbsSkinPanel;
    bsSkinXFormButton3: TbsSkinXFormButton;
    bsSkinXFormButton2: TbsSkinXFormButton;
    bsSkinXFormButton4: TbsSkinXFormButton;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinLabel12: TbsSkinLabel;
    bsSkinEdit12: TbsSkinEdit;
    bsSkinLabel1: TbsSkinLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinLabel2: TbsSkinLabel;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinLabel3: TbsSkinLabel;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinLabel19: TbsSkinLabel;
    bsSkinDateEdit1: TbsSkinDateEdit;
    bsSkinGroupBox4: TbsSkinGroupBox;
    bsSkinCheckListBox1: TbsSkinCheckListBox;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinLabel20: TbsSkinLabel;
    bsSkinLabel21: TbsSkinLabel;
    bsSkinLabel22: TbsSkinLabel;
    bsSkinMessage1: TbsSkinMessage;
    procedure bsSkinEdit12KeyPress(Sender: TObject; var Key: Char);
    procedure screen_xt;
    procedure FormCreate(Sender: TObject);
    procedure bsSkinXFormButton3Click(Sender: TObject);
    procedure bsSkinCheckListBox1Click(Sender: TObject);
    procedure bsSkinXFormButton2Click(Sender: TObject);
    procedure bsSkinXFormButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  change_yw: Tchange_yw;
  lhyw:string;
  lhyw1:string;
implementation
   uses globe,dm_un,main_un,ywprn_un;
{$R *.dfm}

procedure Tchange_yw.bsSkinEdit12KeyPress(Sender: TObject; var Key: Char);
var
 i:integer;
begin
  inherited;
  lhyw1:='';
 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'];
      lhyw:=trim(dm.q_a.FieldValues ['TEL_FW']);
         for i:=0 to  bsskinchecklistbox1.Items.Count-1 do
           begin
               if pos(copy(bsskinchecklistbox1.Items[i],1,1),lhyw)<>0 then
                bsskinchecklistbox1.Checked[i] :=true
               else
                bsskinchecklistbox1.Checked[i]:=false;
           end;
    end
   else
    begin
      bsskinmessage1.MessageDlg('当前电话号码不存在,请确定后再输入!!',mterror,[mbyes],0);
      screen_xt;
    end;
  end;
end;

procedure Tchange_yw.screen_xt;
var
 i:integer;
begin
 bsskinedit12.clear;
 bsskinedit1.clear;
 bsskinedit2.Clear;
 bsskinedit3.Clear;
 bsskindateedit1.Date:=now;
   for i:=0 to bsskinchecklistbox1.Items.count-1 do
   begin
    bsskinchecklistbox1.Checked[i]:=false;
   end;
end;

procedure Tchange_yw.FormCreate(Sender: TObject);
var
 i:integer;
begin
  inherited;
  dm:=tdm.Create(nil);
  with dm do
   begin
    q_a.Close;
    q_a.SQL.Clear;
    q_a.SQL.Add('select * from TEL_CGYW');
    q_a.Prepared;
    q_a.Open;
   end;
  if dm.q_a.Recordset.RecordCount >0 then
   begin
    bsskinchecklistbox1.Clear;
     dm.q_a.First;
     while not dm.q_a.Eof do
      begin
        bsskinchecklistbox1.Items.Add(dm.q_a.FieldValues['yw_id']+'             '+dm.q_a.FieldValues['YW_NAME']+'                 '+floattostr(dm.q_a.FieldValues['YW_money']));
        dm.q_a.Next;
      end;
   end;
end;

procedure Tchange_yw.bsSkinXFormButton3Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure Tchange_yw.bsSkinCheckListBox1Click(Sender: TObject);
var
 i:integer;
begin
  inherited;
  lhyw1:='';
    for i:=0 to  bsskinchecklistbox1.Items.Count-1 do
     begin
      if bsskinchecklistbox1.Checked[i]  then
       lhyw1:=lhyw1+copy(bsskinchecklistbox1.Items[i],1,1);
     end;
 //  showmessage(lhyw1);  
end;

procedure Tchange_yw.bsSkinXFormButton2Click(Sender: TObject);
var
 ywprn:tywprn;
begin
  inherited;
 if lhyw1<>'' then 
 if  lhyw=lhyw1 then
  begin
   bsskinmessage1.MessageDlg('用户电话服务项目的状态没有发生改变，不用保存！！',mtinformation,[mbok],0);
   bsskinedit12.SetFocus;
  end
 else
  begin
  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 tel_fw=:tel_fw where tel_num=:tel_num');
        q_a.Parameters.ParamByName('tel_num').Value:=bsskinedit12.Text;
        q_a.Parameters.ParamByName('tel_fw').Value:=lhyw1;
        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:=lhyw;
        q_a.Parameters.ParamByName('new_yw').Value:=lhyw1;
        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(change_yw);
      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;
end;

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

end.