set_fy_un.pas

布林电话收费管理系统

unit set_fy_un;

interface

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

type
  Tset_fw = class(Tstand)
    bsSkinPanel1: TbsSkinPanel;
    bsSkinXFormButton2: TbsSkinXFormButton;
    bsSkinXFormButton3: TbsSkinXFormButton;
    bsSkinXFormButton4: TbsSkinXFormButton;
    bsSkinXFormButton5: TbsSkinXFormButton;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinDBGrid1: TbsSkinDBGrid;
    bsSkinScrollBar1: TbsSkinScrollBar;
    bsSkinScrollBar2: TbsSkinScrollBar;
    bsSkinLabel1: TbsSkinLabel;
    bsSkinXFormButton6: TbsSkinXFormButton;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinLabel2: TbsSkinLabel;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinLabel3: TbsSkinLabel;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinEdit4: TbsSkinEdit;
    bsSkinLabel4: TbsSkinLabel;
    bsSkinMessage1: TbsSkinMessage;
    bsSkinStdLabel1: TbsSkinStdLabel;
    procedure bsSkinXFormButton4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bsSkinXFormButton2Click(Sender: TObject);
    procedure bsSkinDBGrid1CellClick(Column: TbsColumn);
    procedure bsSkinXFormButton6Click(Sender: TObject);
    procedure bsSkinXFormButton3Click(Sender: TObject);
    procedure bsSkinXFormButton5Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinEdit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  set_fw: Tset_fw;

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

procedure Tset_fw.bsSkinXFormButton4Click(Sender: TObject);
begin
  inherited;
close;
end;

procedure Tset_fw.FormCreate(Sender: TObject);
var
 dou1:tdatasource;
begin
  inherited;
 dm:=tdm.Create(nil);
 dou1:=tdatasource.Create(nil);
 dou1.DataSet:=dm.q_a;
 with dm do
  begin
   q_a.Close;
   q_a.SQL.Clear;
   q_a.SQL.Add('select yw_id as 服务代码,YW_NAME as 服务名称,');
   q_a.SQL.Add('YW_MONEY as 服务费用,YW_MEMO as 服务备注 from TEL_CGYW');
   q_a.Prepared;
   q_a.Open;
  end;
 bsskindbgrid1.DataSource:=dou1;
end;

procedure Tset_fw.bsSkinXFormButton2Click(Sender: TObject);
begin
  inherited;
if bsskinmessage1.MessageDlg('你是否确定新增服务类别?',mtconfirmation,[mbyes,mbno],0)=mryes then
 begin
  bsskinedit1.Text:='';
  bsskinedit2.Text:='';
  bsskinedit3.Text:='';
  bsskinedit4.Text:='';
  bsskinedit1.SetFocus;
 end;
end;

procedure Tset_fw.bsSkinDBGrid1CellClick(Column: TbsColumn);
begin
  inherited;
 dm:=tdm.Create(nil);
 with dm do
  begin
   q_d.Close;
   q_d.SQL.Clear;
   q_d.SQL.Add('select * from TEL_CGYW where yw_id=:yw_id');
   q_d.Parameters.ParamByName('yw_id').Value:=trim(bsskindbgrid1.Fields[0].AsString);
   q_d.Prepared;
   q_d.Open;
  end;
 if dm.q_d.Recordset.RecordCount >0 then
  begin
   bsskinedit1.Text:=dm.q_d.FieldValues['yw_id'];
   bsskinedit2.Text:=dm.q_d.FieldValues['yw_name'];
   bsskinedit3.Text:=floattostr(dm.q_d.FieldValues['yw_money']);
   bsskinedit4.Text:=dm.q_d.FieldValues['yw_memo'];
  end;
end;

procedure Tset_fw.bsSkinXFormButton6Click(Sender: TObject);
begin
  inherited;
 bsskinedit1.SetFocus;
end;

procedure Tset_fw.bsSkinXFormButton3Click(Sender: TObject);
var
 dou1:tdatasource;
begin
  inherited;
if pos(copy(trim(bsskinedit1.Text),1,1),'ABCDEFGHIJKLMNOPQRSTUVWXYZ')<>0 then
 begin
  if bsskinmessage1.MessageDlg('你是否确定保存当前数据?',mtconfirmation,[mbok,mbcancel],0)=mrok then
     begin
     dm:=tdm.Create(nil);
      dou1:=tdatasource.Create(nil);
      dou1.DataSet:=dm.q_a;
       bsskindbgrid1.DataSource:=dou1; 
     with dm do
      begin;
       q_b.close;
       q_b.SQL.Add('select * from TEL_CGYW where yw_id=:yw_id');
       q_b.Parameters.ParamByName('yw_id').Value:=copy(trim(bsskinedit1.Text),1,1);
       q_b.Prepared;
       q_b.Open;
      end;
     if dm.q_b.Recordset.RecordCount >0 then
      begin
      //说明是已经存在的数据
       with dm do
        begin
         q_b.Close;
         q_b.SQL.Clear;
         q_b.SQL.Add('update tel_cgyw set yw_name=:yw_name,');
         q_b.SQL.Add('yw_money=:yw_money,yw_memo=:yw_memo where yw_id=:yw_id');
         q_b.Parameters.ParamByName('yw_name').Value:=trim(bsskinedit2.Text);
         q_b.Parameters.ParamByName('yw_money').Value:=strtofloat(trim(bsskinedit3.Text));
         q_b.Parameters.ParamByName('yw_memo').Value:=trim(bsskinedit4.Text);
         q_b.Parameters.ParamByName('yw_id').Value:=copy(trim(bsskinedit1.Text),1,1);
         q_b.Prepared;
         q_b.ExecSQL;
         q_a.Close;
         q_a.SQL.Clear;
         q_a.SQL.Add('select yw_id as 服务代码,YW_NAME as 服务名称,');
         q_a.SQL.Add('YW_MONEY as 服务费用,YW_MEMO as 服务备注 from TEL_CGYW');
         q_a.Prepared;
         q_a.Open;
         writetolog('0.00');
          end;
      end
     else
      //说明是新加入的数据
      begin
          with dm do
           begin
            q_b.Close;
            q_b.SQL.Clear;
            q_b.SQL.Add('insert into tel_cgyw (yw_id,yw_name,yw_money,yw_memo) ');
            q_b.SQL.Add('values(:yw_id,:yw_name,:yw_money,:yw_memo)');
            q_b.Parameters.ParamByName('yw_name').Value:=trim(bsskinedit2.Text);
            q_b.Parameters.ParamByName('yw_money').Value:=strtofloat(trim(bsskinedit3.Text));
            q_b.Parameters.ParamByName('yw_memo').Value:=trim(bsskinedit4.Text);
            q_b.Parameters.ParamByName('yw_id').Value:=copy(trim(bsskinedit1.Text),1,1);
            q_b.Prepared;
            q_b.ExecSQL;
           q_a.Close;
           q_a.SQL.Clear;
           q_a.SQL.Add('select yw_id as 服务代码,YW_NAME as 服务名称,');
           q_a.SQL.Add('YW_MONEY as 服务费用,YW_MEMO as 服务备注 from TEL_CGYW');
           q_a.Prepared;
           q_a.Open;
           writetolog('0.00');
           end;
      end;
     end;
   end  
else
 begin
  bsskinmessage1.MessageDlg('业务编号输入有问题,不能保存,请修改...',mterror,[mbyes],0);
  bsskinedit1.SetFocus;
 end;
end;

procedure Tset_fw.bsSkinXFormButton5Click(Sender: TObject);
var
 dou1:tdatasource;
begin
  inherited;
  if trim(bsskinedit1.Text)<>'' then
   begin
    dm:=tdm.Create(nil);
    with dm do
    begin
     q_a.Close;
     q_a.SQL.Clear;
     q_a.SQL.Add('select * from TEL_CGYW where yw_id=:yw_id');
     q_a.Parameters.ParamByName('yw_id').Value:=copy(trim(bsskinedit1.Text),1,1);
     q_a.Prepared;
     q_a.Open;
    end;
    if dm.q_a.Recordset.RecordCount >0 then
      begin
        if bsskinmessage1.MessageDlg('你是否确定删除'+bsskinedit2.Text +'这项服务?',mtconfirmation,[mbyes,mbcancel],0)=mryes then
          begin
            with dm do
             begin
              q_b.Close;
              q_b.SQL.Clear;
              q_b.SQL.Add('delete from tel_cgyw where yw_id=:yw_id');
              q_b.Parameters.ParamByName('yw_id').Value:=copy(trim(bsskinedit1.Text),1,1);
              q_b.Prepared;
              q_b.ExecSQL;
              q_a.Close;
              q_a.SQL.Clear;
              q_a.SQL.Add('select yw_id as 服务代码,YW_NAME as 服务名称,');
              q_a.SQL.Add('YW_MONEY as 服务费用,YW_MEMO as 服务备注 from TEL_CGYW');
              q_a.Prepared;
              q_a.Open;
              writetolog('0.00');
              dou1:=tdatasource.Create(nil);
              dou1.DataSet:=q_a;
              bsskindbgrid1.DataSource:=dou1;
              bsskinedit1.Text:='';
              bsskinedit4.Text:='';
              bsskinedit3.Text:='';
              bsskinedit2.Text:='';
              bsskinedit1.SetFocus;
             end;
          end
         else
          bsskinedit1.SetFocus;
      end
    else
     begin
        bsskinmessage1.MessageDlg('请选择正确的业务选项,删除不能进行...',mterror,[mbyes],0);
        bsskinedit1.SetFocus;
     end;
   end
  else
   begin
    bsskinmessage1.MessageDlg('请选择正确的业务选项,删除不能进行...',mterror,[mbyes],0);
    bsskinedit1.SetFocus;
   end;
end;

procedure Tset_fw.FormKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
 if key=#13 then
  begin
   key:=#0;
   postmessage(handle,WM_KEYDOWN,VK_TAB,0);
  end;
end;

procedure Tset_fw.bsSkinEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
 if key=#13 then
  begin
   key:=#0;
   postmessage(handle,WM_KEYDOWN,VK_TAB,0);
  end;
end;

end.