tel_count_un.pas

布林电话收费管理系统

   else
    begin
      bsskinmessage1.MessageDlg('用户电话号码不存在！',mterror,[mbyes],0);
      bsskinedit12.Clear;
      bsskinedit12.SetFocus;
    end;
  end
 else
  begin
   bsskinmessage1.MessageDlg('用户电话号码为空不能进行查询！',mterror,[mbyes],0);
   bsskinedit12.SetFocus;
  end;
end;

procedure Ttel_count.bsSkinXFormButton8Click(Sender: TObject);
begin
  inherited;
  bsskinedit12.Clear;
  bsskinedit3.Clear;
  bsskinedit1.Clear;
  bsskinedit2.Clear;
  bsskindateedit2.Date:=now;
  bsskindateedit1.Date:=now;
  bsskinedit4.Clear;
  bsskinedit5.Clear;
  bsskinedit6.Clear;
end;

procedure Ttel_count.bsSkinEdit12KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
 if key=#13 then
   bsSkinXFormButton9Click(nil);
end;

procedure Ttel_count.bsSkinXFormButton13Click(Sender: TObject);
begin
  inherited;
  bsskindateedit3.Date:=now;
  bsskindateedit4.Date:=now;
  bsskinedit7.Clear;
end;

procedure Ttel_count.bsSkinXFormButton14Click(Sender: TObject);
var
 data1:tdatasource;
begin
  inherited;
  dm:=tdm.Create(nil);
  data1:=tdatasource.Create(nil);
  with dm do
   begin
     q_f.Close;
     q_f.SQL.Add('select TEL_NAME as 用户姓名,tel_dw as 用户单位,');
     q_f.SQL.Add('TEL_SFZH as 用户身份证,TEL_NUM as 用户电话,');
     q_f.SQL.Add('TEL_FW as 服务项目,TEL_RWDZ as 入网地址,TEL_TIME as 入网时间,');
     q_f.SQL.Add('TEL_SLR as 业务受理人,USER_ID as 操作员工号,USER_TIME as 处理时间');
     q_f.SQL.Add('from tel_user');
     q_f.SQL.Add('where TEL_TIME>=:TEL_TIME1 and TEL_TIME<=:TEL_TIME2');
     q_f.Parameters.ParamByName('tel_time1').Value:=strtodatetime(bsskindateedit3.Text +' 00:00:00');
     q_f.Parameters.ParamByName('tel_time2').Value:=strtodatetime(bsskindateedit4.Text +' 23:59:59');
     q_f.Prepared;
     q_f.Open;
   end;
   data1.DataSet:=dm.q_f;
   bsskindbgrid1.DataSource:=data1;
   bsskinedit7.Text:=inttostr(dm.q_f.Recordset.RecordCount );
end;

procedure Ttel_count.FormCreate(Sender: TObject);
begin
  inherited;
  bsskindateedit1.Date:=now;
  bsskindateedit4.Date:=now;
  bsskindateedit2.Date:=now;
  bsskindateedit3.Date:=now;
  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;
   bsskincombobox1.Items.Clear;
   bsskincombobox2.Items.Clear;
   while not dm.q_a.Eof do
    begin
      bsskincombobox1.Items.Add(dm.q_a.FieldValues ['yw_id']+'  '+dm.q_a.FieldValues ['yw_name']);
      bsskincombobox2.Items.Add(dm.q_a.FieldValues ['yw_id']+'  '+dm.q_a.FieldValues ['yw_name']);
      dm.q_a.Next;
    end;
   bsskincombobox1.ImageIndex :=-1;
   bsskincombobox2.ImageIndex :=-1;
end;

procedure Ttel_count.bsSkinXFormButton18Click(Sender: TObject);
begin
  inherited;
  bsskinradiogroup1.ItemIndex:=-1;
  bsskinedit8.Clear;
  bsskinedit9.Clear;
end;

procedure Ttel_count.bsSkinXFormButton19Click(Sender: TObject);
var
 data2:tdatasource;
 sum1,sum2:integer;
begin
  inherited;
  dm:=tdm.Create(nil);
  data2:=tdatasource.Create(nil);
 if bsskinradiogroup1.ItemIndex=-1 then
    begin
        with dm do
         begin
           q_g.Close;
           q_g.SQL.Add('select TEL_NAME as 用户姓名,tel_dw as 用户单位,');
           q_g.SQL.Add('TEL_SFZH as 用户身份证,TEL_NUM as 用户电话,yw_stut as 电话状态,');
           q_g.SQL.Add('TEL_FW as 服务项目,TEL_RWDZ as 入网地址,TEL_TIME as 入网时间,');
           q_g.SQL.Add('TEL_SLR as 业务受理人,USER_ID as 操作员工号,USER_TIME as 处理时间');
           q_g.SQL.Add('from tel_user');
           q_g.Prepared;
           q_g.Open;
         end;
         data2.DataSet:=dm.q_g;
         bsskindbgrid3.DataSource:=data2;
         sum1:=0;
         sum2:=0;
        while not dm.q_g.Eof do
         begin
          if dm.q_g.FieldValues ['电话状态']='1' then
            sum1:=sum1+1
          else
           sum2:=sum2+1;
           dm.q_g.next;
         end;
         bsskinedit8.Text:=inttostr(sum1);
         bsskinedit9.Text:=inttostr(sum2);
    end
  else
   if bsskinradiogroup1.ItemIndex=0 then
    begin
        with dm do
         begin
           q_g.Close;
           q_g.SQL.Add('select TEL_NAME as 用户姓名,tel_dw as 用户单位,');
           q_g.SQL.Add('TEL_SFZH as 用户身份证,TEL_NUM as 用户电话,yw_stut as 电话状态,');
           q_g.SQL.Add('TEL_FW as 服务项目,TEL_RWDZ as 入网地址,TEL_TIME as 入网时间,');
           q_g.SQL.Add('TEL_SLR as 业务受理人,USER_ID as 操作员工号,USER_TIME as 处理时间');
           q_g.SQL.Add('from tel_user');
           q_g.SQL.Add('where yw_stut=:yw_stut');
           q_g.Parameters.ParamByName('yw_stut').Value:='1';
           q_g.Prepared;
           q_g.Open;
         end;
         data2.DataSet:=dm.q_g;
         bsskindbgrid3.DataSource:=data2;
         sum1:=0;
         sum2:=0;
        while not dm.q_g.Eof do
         begin
          if dm.q_g.FieldValues ['电话状态']='1' then
            sum1:=sum1+1
          else
           sum2:=sum2+1;
           dm.q_g.next;
         end;
         bsskinedit8.Text:=inttostr(sum1);
         bsskinedit9.Text:=inttostr(sum2);
    end
   else
    begin
        with dm do
         begin
           q_g.Close;
           q_g.SQL.Add('select TEL_NAME as 用户姓名,tel_dw as 用户单位,');
           q_g.SQL.Add('TEL_SFZH as 用户身份证,TEL_NUM as 用户电话,yw_stut as 电话状态,');
           q_g.SQL.Add('TEL_FW as 服务项目,TEL_RWDZ as 入网地址,TEL_TIME as 入网时间,');
           q_g.SQL.Add('TEL_SLR as 业务受理人,USER_ID as 操作员工号,USER_TIME as 处理时间');
           q_g.SQL.Add('from tel_user');
           q_g.SQL.Add('where yw_stut=:yw_stut');
           q_g.Parameters.ParamByName('yw_stut').Value:='2';
           q_g.Prepared;
           q_g.Open;
         end;
         data2.DataSet:=dm.q_g;
         bsskindbgrid3.DataSource:=data2;
         sum1:=0;
         sum2:=0;
        while not dm.q_g.Eof do
         begin
          if dm.q_g.FieldValues ['电话状态']='1' then
            sum1:=sum1+1
          else
           sum2:=sum2+1;
           dm.q_g.next;
         end;
         bsskinedit8.Text:=inttostr(sum1);
         bsskinedit9.Text:=inttostr(sum2);
    end;
end;

procedure Ttel_count.bsSkinXFormButton23Click(Sender: TObject);
begin
  inherited;
  bsskincombobox1.ItemIndex:=-1;
  bsskincombobox2.ItemIndex:=-1;
  bsskincombobox2.Text:='';
  bsskincombobox1.Text:='';
  bsskinedit10.Clear;
end;

procedure Ttel_count.bsSkinXFormButton24Click(Sender: TObject);
var
 data3:tdatasource;
begin
  inherited;
  dm:=tdm.Create(nil);
  data3:=tdatasource.Create(nil);
  with dm do
   begin
     q_h.Close;
     q_h.SQL.Add('select TEL_NAME as 用户姓名,tel_dw as 用户单位,');
     q_h.SQL.Add('TEL_SFZH as 用户身份证,TEL_NUM as 用户电话,');
     q_h.SQL.Add('TEL_FW as 服务项目,TEL_RWDZ as 入网地址,TEL_TIME as 入网时间,');
     q_h.SQL.Add('TEL_SLR as 业务受理人,USER_ID as 操作员工号,USER_TIME as 处理时间');
     q_h.SQL.Add('from tel_user');
     q_h.SQL.Add('where TEL_FW like :TEL_FW');
     q_h.Parameters.ParamByName('TEL_FW').Value:='%'+copy(bsskincombobox1.Text,1,1)+'%'+copy(bsskincombobox2.Text,1,1)+'%' ;
     q_h.Prepared;
     q_h.Open;
   end;

   data3.DataSet:=dm.q_h;
   bsskindbgrid4.DataSource:=data3;
   bsskinedit10.Text:=inttostr(dm.q_h.Recordset.RecordCount );
end;

procedure Ttel_count.bsSkinXFormButton2Click(Sender: TObject);
var
 userprn:tuserprn;
begin
  inherited;
   userprn:=tuserprn.Create(tel_count);
   userprn.loadda(bsskindateedit3.Date,bsskindateedit4.Date);
   userprn.QuickRep1.Prepare;
   userprn.QuickRep1.Preview;
   userprn.Free;
end;

end.