user_count_un.pas

布林电话收费管理系统

unit user_count_un;

interface

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

type
  Tuser_count = class(Tstand)
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinTabSheet3: TbsSkinTabSheet;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinXFormButton2: TbsSkinXFormButton;
    bsSkinXFormButton3: TbsSkinXFormButton;
    bsSkinXFormButton4: TbsSkinXFormButton;
    bsSkinMessage1: TbsSkinMessage;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinDBGrid2: TbsSkinDBGrid;
    bsSkinScrollBar4: TbsSkinScrollBar;
    bsSkinScrollBar6: TbsSkinScrollBar;
    bsSkinLabel12: TbsSkinLabel;
    bsSkinEdit12: TbsSkinEdit;
    bsSkinDateEdit2: TbsSkinDateEdit;
    bsSkinLabel1: TbsSkinLabel;
    bsSkinLabel2: TbsSkinLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinLabel3: TbsSkinLabel;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinXFormButton6: TbsSkinXFormButton;
    bsSkinXFormButton8: TbsSkinXFormButton;
    bsSkinXFormButton9: TbsSkinXFormButton;
    bsSkinGroupBox4: TbsSkinGroupBox;
    bsSkinLabel4: TbsSkinLabel;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinDateEdit1: TbsSkinDateEdit;
    bsSkinLabel5: TbsSkinLabel;
    bsSkinLabel6: TbsSkinLabel;
    bsSkinEdit4: TbsSkinEdit;
    bsSkinLabel7: TbsSkinLabel;
    bsSkinEdit5: TbsSkinEdit;
    bsSkinGroupBox5: TbsSkinGroupBox;
    bsSkinDBGrid1: TbsSkinDBGrid;
    bsSkinScrollBar1: TbsSkinScrollBar;
    bsSkinScrollBar2: TbsSkinScrollBar;
    bsSkinLabel8: TbsSkinLabel;
    bsSkinEdit6: TbsSkinEdit;
    bsSkinXFormButton10: TbsSkinXFormButton;
    bsSkinEdit7: TbsSkinEdit;
    bsSkinLabel9: TbsSkinLabel;
    bsSkinTabSheet4: TbsSkinTabSheet;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinXFormButton7: TbsSkinXFormButton;
    bsSkinXFormButton11: TbsSkinXFormButton;
    bsSkinXFormButton12: TbsSkinXFormButton;
    bsSkinGroupBox6: TbsSkinGroupBox;
    bsSkinLabel10: TbsSkinLabel;
    bsSkinDateEdit3: TbsSkinDateEdit;
    bsSkinLabel14: TbsSkinLabel;
    bsSkinEdit10: TbsSkinEdit;
    bsSkinGroupBox7: TbsSkinGroupBox;
    bsSkinDBGrid3: TbsSkinDBGrid;
    bsSkinScrollBar3: TbsSkinScrollBar;
    bsSkinScrollBar5: TbsSkinScrollBar;
    bsSkinDateEdit4: TbsSkinDateEdit;
    bsSkinXFormButton5: TbsSkinXFormButton;
    bsSkinPanel4: TbsSkinPanel;
    bsSkinXFormButton13: TbsSkinXFormButton;
    bsSkinXFormButton14: TbsSkinXFormButton;
    bsSkinXFormButton15: TbsSkinXFormButton;
    bsSkinXFormButton16: TbsSkinXFormButton;
    bsSkinGroupBox8: TbsSkinGroupBox;
    bsSkinLabel11: TbsSkinLabel;
    bsSkinDateEdit5: TbsSkinDateEdit;
    bsSkinLabel13: TbsSkinLabel;
    bsSkinEdit8: TbsSkinEdit;
    bsSkinDateEdit6: TbsSkinDateEdit;
    bsSkinGroupBox9: TbsSkinGroupBox;
    bsSkinDBGrid4: TbsSkinDBGrid;
    bsSkinScrollBar7: TbsSkinScrollBar;
    bsSkinScrollBar8: TbsSkinScrollBar;
    procedure FormCreate(Sender: TObject);
    procedure bsSkinXFormButton4Click(Sender: TObject);
    procedure bsSkinXFormButton3Click(Sender: TObject);
    procedure bsSkinXFormButton8Click(Sender: TObject);
    procedure bsSkinXFormButton2Click(Sender: TObject);
    procedure bsSkinXFormButton10Click(Sender: TObject);
    procedure bsSkinXFormButton6Click(Sender: TObject);
    procedure bsSkinXFormButton5Click(Sender: TObject);
    procedure bsSkinXFormButton7Click(Sender: TObject);
    procedure bsSkinXFormButton16Click(Sender: TObject);
    procedure bsSkinXFormButton13Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  user_count: Tuser_count;
  da1,da2,da3,da4:tdatasource;
implementation
  uses globe,dm_un,main_un,userendprn_un;
{$R *.dfm}

procedure Tuser_count.FormCreate(Sender: TObject);
 var
  sum1,sum2:real;
  cou1:integer;
begin
  inherited;
   dm:=tdm.Create(nil);
   bsskinedit12.Text:=user_id;
   bsskinedit3.Text:=user_id;
   bsskinedit1.Text:=user_name;
   bsskinedit4.Text:=user_name;
   bsskindateedit1.Date:=now;
   bsskindateedit3.Date:=now;
   bsskindateedit4.Date:=now;
   bsskindateedit5.Date:=now;
   bsskindateedit6.Date:=now;
   bsskindateedit2.Date:=now;
   bsskinedit2.Clear;
   bsskinedit6.Clear;
   bsskinedit5.Clear;
   bsskinedit8.Clear;
   bsskinedit10.Clear;
   da1:=tdatasource.Create(nil);
   da1.DataSet:=dm.q_a;
   bsskindbgrid2.DataSource:=da1;
    with dm do
     begin
      q_a.Close;
      q_a.SQL.Clear;
      q_a.SQL.Add('select up_bh as 用户收据号,up_tel as 用户电话号,');
      q_a.SQL.Add(' up_sfzh as 身份证号,up_name as 用户姓名,');
      q_a.SQL.Add('up_je as 用户交款额,up_DATE as 交款结帐期,');
      q_a.SQL.Add(' up_hf as 用户电话费,up_fwje as 用户服务费,');
      q_a.SQL.Add(' user_time as 操作员时间 from tel_up_mx ');
      q_a.SQL.Add('where up_user=:up_user and up_skjz=:up_skjz');
      q_a.Parameters.ParamByName('up_user').Value:=user_id;
      q_a.Parameters.ParamByName('up_skjz').Value:='1';
      q_a.Prepared;
      q_a.Open;
     end;
  if dm.q_a.Recordset.RecordCount >0 then
   begin
    while not dm.q_a.Eof do
     begin
       sum1:=sum1+dm.q_a.FieldValues ['用户交款额'];
       dm.q_a.Next;
     end;
    dm.q_a.First;
    cou1:=dm.q_a.Recordset.RecordCount;
     bsskinedit6.Text:=inttostr(cou1);
     bsskinedit2.Text:=floattostr(sum1);
  end;
     with dm do
      begin
       q_b.Close;
       q_b.SQL.Clear;
       q_b.SQL.Add('select count_xh as 序号,count_bh AS 结帐编号,');
       q_b.SQL.Add('user_id as 操作员工号,user_name as 操作员姓名,');
       q_b.SQL.Add('count_je as 结帐金额,count_memo as 结帐内容,');
       q_b.SQL.Add('COUNT_TIME as 结帐时间,Count_djzs as 单据张数 from count_end');
       q_b.SQL.Add('where user_id=:user_id');
       q_b.Parameters.ParamByName('user_id').Value:=user_id;
       q_b.Prepared;
       q_b.Open;
      end;
     da2:=tdatasource.Create(nil);
     da2.DataSet:=dm.q_b;
     bsskindbgrid1.DataSource:=da2;
     sum1:=0.00;
     cou1:=0;

     with dm do
     begin
      q_2.Close;
      q_2.SQL.Clear;
      q_2.SQL.Add('select up_bh as 用户收据号,up_user as 操作员工号,up_tel as 用户电话号,');
      q_2.SQL.Add(' up_sfzh as 身份证号,up_name as 用户姓名,');
      q_2.SQL.Add('up_je as 用户交款额,up_DATE as 交款结帐期,');
      q_2.SQL.Add(' up_hf as 用户电话费,up_fwje as 用户服务费,');
      q_2.SQL.Add(' user_time as 操作员时间 from tel_up_mx ');
      q_2.SQL.Add('where user_time>=:up_user1 and user_time<=:up_user2 and up_skjz=:up_skjz');
      q_2.Parameters.ParamByName('up_user1').Value:=strtodatetime(bsskindateedit5.text+' 00:00:00');
      q_2.Parameters.ParamByName('up_user2').Value:=strtodatetime(bsskindateedit6.text+' 23:59:59');
      q_2.Parameters.ParamByName('up_skjz').Value:='1';
      q_2.Prepared;
      q_2.Open;
     end;
     da4:=tdatasource.Create(nil);
     da4.DataSet:=dm.q_2;
     bsskindbgrid4.DataSource:=da4;
     sum1:=0;
       while not dm.q_2.Eof do
     begin
       sum1:=sum1+dm.q_2.FieldValues ['用户交款额'];
       dm.q_2.Next;
     end;
      bsskinedit8.Text:=floattostr(sum1);
      dm.q_2.First;
            with dm do
      begin
       q_f.Close;
       q_f.SQL.Clear;
       q_f.SQL.Add('select count_xh as 序号,count_bh AS 结帐编号,');
       q_f.SQL.Add('user_id as 操作员工号,user_name as 操作员姓名,');
       q_f.SQL.Add('count_je as 结帐金额,count_memo as 结帐内容,');
       q_f.SQL.Add('COUNT_TIME as 结帐时间,Count_djzs as 单据张数 from count_end');
       q_f.SQL.Add('where count_time>=:cout1 and count_time<=:cout2');
//       q_f.SQL.Add('group by user_id');
       q_f.Parameters.ParamByName('cout1').Value:=strtodatetime(bsskindateedit3.Text+' 00:00:00');
       q_f.Parameters.ParamByName('cout2').Value:=strtodatetime(bsskindateedit4.text+' 23:59:59');
       q_f.Prepared;
       q_f.Open;
      end;
       sum2:=0;
      while not dm.q_f.Eof do
       begin
        sum2:=sum2+dm.q_f.FieldValues ['结帐金额'];
        dm.q_f.Next;
       end;
       dm.q_f.First;
       bsskinedit10.Text:=floattostr(sum2);
    da3:=tdatasource.Create(nil);
    da3.DataSet:=dm.q_f;
    bsskindbgrid3.DataSource:=da3;
    with dm do
      begin
       q_3.Close;
       q_3.SQL.Clear;
       q_3.SQL.Add('select count_xh as 序号,count_bh AS 结帐编号,');
       q_3.SQL.Add('user_id as 操作员工号,user_name as 操作员姓名,');
       q_3.SQL.Add('count_je as 结帐金额,count_memo as 结帐内容,');
       q_3.SQL.Add('COUNT_TIME as 结帐时间,Count_djzs as 单据张数 from count_end');
       q_3.Prepared;
       q_3.Open;
      end;
      sum1:=0;
     if dm.q_b.Recordset.RecordCount >0 then
         begin
         while not dm.q_b.Eof do
         begin
           sum1:=sum1+dm.q_b.FieldValues ['结帐金额'];