📄 tel_count_un.pas
字号:
unit tel_count_un;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, stand_un, BusinessSkinForm, bsSkinCtrls, bsSkinGrids, bsDBGrids,
bsMessages, ComCtrls, bsSkinTabs, ImgList, bsSkinBoxCtrls,db, StdCtrls, Mask;
type
Ttel_count = class(Tstand)
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinTabSheet2: TbsSkinTabSheet;
bsSkinTabSheet3: TbsSkinTabSheet;
bsSkinTabSheet4: TbsSkinTabSheet;
bsSkinMessage1: TbsSkinMessage;
bsSkinPanel2: TbsSkinPanel;
bsSkinXFormButton7: TbsSkinXFormButton;
bsSkinXFormButton8: TbsSkinXFormButton;
bsSkinXFormButton9: TbsSkinXFormButton;
bsSkinPanel3: TbsSkinPanel;
bsSkinXFormButton12: TbsSkinXFormButton;
bsSkinXFormButton13: TbsSkinXFormButton;
bsSkinXFormButton14: TbsSkinXFormButton;
bsSkinPanel4: TbsSkinPanel;
bsSkinXFormButton17: TbsSkinXFormButton;
bsSkinXFormButton18: TbsSkinXFormButton;
bsSkinXFormButton19: TbsSkinXFormButton;
bsSkinPanel5: TbsSkinPanel;
bsSkinXFormButton22: TbsSkinXFormButton;
bsSkinXFormButton23: TbsSkinXFormButton;
bsSkinXFormButton24: TbsSkinXFormButton;
bsSkinGroupBox2: TbsSkinGroupBox;
bsSkinGroupBox3: TbsSkinGroupBox;
bsSkinGroupBox4: TbsSkinGroupBox;
bsSkinGroupBox5: TbsSkinGroupBox;
bsSkinGroupBox6: TbsSkinGroupBox;
bsSkinDBGrid1: TbsSkinDBGrid;
bsSkinScrollBar1: TbsSkinScrollBar;
bsSkinScrollBar2: TbsSkinScrollBar;
bsSkinGroupBox7: TbsSkinGroupBox;
bsSkinGroupBox8: TbsSkinGroupBox;
bsSkinGroupBox9: TbsSkinGroupBox;
bsSkinDBGrid3: TbsSkinDBGrid;
bsSkinScrollBar3: TbsSkinScrollBar;
bsSkinScrollBar5: TbsSkinScrollBar;
bsSkinGroupBox10: TbsSkinGroupBox;
bsSkinGroupBox11: TbsSkinGroupBox;
bsSkinGroupBox12: TbsSkinGroupBox;
bsSkinDBGrid4: TbsSkinDBGrid;
bsSkinScrollBar7: TbsSkinScrollBar;
bsSkinScrollBar8: TbsSkinScrollBar;
bsSkinGroupBox13: TbsSkinGroupBox;
ImageList1: TImageList;
bsSkinLabel12: TbsSkinLabel;
bsSkinEdit12: TbsSkinEdit;
bsSkinLabel1: TbsSkinLabel;
bsSkinEdit1: TbsSkinEdit;
bsSkinLabel4: TbsSkinLabel;
bsSkinLabel5: TbsSkinLabel;
bsSkinPageControl2: TbsSkinPageControl;
qw1: TbsSkinTabSheet;
qw2: TbsSkinTabSheet;
qw3: TbsSkinTabSheet;
qw4: TbsSkinTabSheet;
bsSkinDBGrid2: TbsSkinDBGrid;
bsSkinScrollBar4: TbsSkinScrollBar;
bsSkinScrollBar6: TbsSkinScrollBar;
bsSkinDBGrid6: TbsSkinDBGrid;
bsSkinScrollBar11: TbsSkinScrollBar;
bsSkinScrollBar12: TbsSkinScrollBar;
bsSkinDBGrid7: TbsSkinDBGrid;
bsSkinScrollBar13: TbsSkinScrollBar;
bsSkinScrollBar14: TbsSkinScrollBar;
bsSkinDBGrid8: TbsSkinDBGrid;
bsSkinScrollBar15: TbsSkinScrollBar;
bsSkinScrollBar16: TbsSkinScrollBar;
bsSkinDateEdit1: TbsSkinDateEdit;
bsSkinDateEdit2: TbsSkinDateEdit;
bsSkinEdit3: TbsSkinEdit;
bsSkinLabel3: TbsSkinLabel;
bsSkinEdit4: TbsSkinEdit;
bsSkinLabel7: TbsSkinLabel;
bsSkinEdit5: TbsSkinEdit;
bsSkinLabel8: TbsSkinLabel;
bsSkinEdit6: TbsSkinEdit;
bsSkinLabel6: TbsSkinLabel;
bsSkinEdit2: TbsSkinEdit;
bsSkinLabel2: TbsSkinLabel;
bsSkinLabel9: TbsSkinLabel;
bsSkinDateEdit3: TbsSkinDateEdit;
bsSkinDateEdit4: TbsSkinDateEdit;
bsSkinLabel10: TbsSkinLabel;
bsSkinLabel11: TbsSkinLabel;
bsSkinEdit7: TbsSkinEdit;
bsSkinRadioGroup1: TbsSkinRadioGroup;
bsSkinLabel13: TbsSkinLabel;
bsSkinEdit8: TbsSkinEdit;
bsSkinEdit9: TbsSkinEdit;
bsSkinLabel14: TbsSkinLabel;
bsSkinLabel15: TbsSkinLabel;
bsSkinComboBox1: TbsSkinComboBox;
bsSkinLabel16: TbsSkinLabel;
bsSkinComboBox2: TbsSkinComboBox;
bsSkinLabel17: TbsSkinLabel;
bsSkinEdit10: TbsSkinEdit;
bsSkinXFormButton2: TbsSkinXFormButton;
procedure bsSkinXFormButton3Click(Sender: TObject);
procedure bsSkinXFormButton9Click(Sender: TObject);
procedure bsSkinXFormButton8Click(Sender: TObject);
procedure bsSkinEdit12KeyPress(Sender: TObject; var Key: Char);
procedure bsSkinXFormButton13Click(Sender: TObject);
procedure bsSkinXFormButton14Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure bsSkinXFormButton18Click(Sender: TObject);
procedure bsSkinXFormButton19Click(Sender: TObject);
procedure bsSkinXFormButton23Click(Sender: TObject);
procedure bsSkinXFormButton24Click(Sender: TObject);
procedure bsSkinXFormButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
tel_count: Ttel_count;
implementation
uses globe,dm_un,main_un,userprn_un;
{$R *.dfm}
procedure Ttel_count.bsSkinXFormButton3Click(Sender: TObject);
begin
inherited;
close;
end;
procedure Ttel_count.bsSkinXFormButton9Click(Sender: TObject);
var
da1,da2,da3,da4:tdatasource;
zw1,zw2,zw3,zw4:real;
begin
inherited;
if bsskinedit12.Text <>'' then
begin
if telisno(bsskinedit12.Text) then
begin
dm:=tdm.Create(nil);
da1:=tdatasource.Create(nil);
da2:=tdatasource.Create(nil);
da3:=tdatasource.Create(nil);
da4:=tdatasource.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:=bsskinedit12.Text;
q_a.Prepared;
q_a.Open;
end;
bsskinedit1.Text:=dm.q_a.FieldValues ['tel_name'];
bsskinedit2.Text:=dm.q_a.FieldValues ['tel_sfzh'];
if dm.q_a.FieldValues ['yw_stut']='1' then
bsskinedit3.Text:='开机'
else
bsskinedit3.Text:='停机';
//收集用户的各项费用信息
with dm do
begin
q_b.close;
q_b.SQL.Clear;
q_b.SQL.Add('select TEL_SFZH as 身份证号,TEL_NAME as 用户姓名,ZJ_TEL as 主叫号码,BJ_TEL as 被叫号码,');
q_b.SQL.add('B_DATE as 开始日期,B_TIME as 开始时间,E_TIME as 结束时间,');
q_b.SQL.Add('TEL_UNIT as 单元,FL_NAME as 费类名称,TOTAL_MONEY as 总费用,');
q_b.SQL.Add('JBFL as 基本费率,USER_ID as 操作员工号 from tel_no');
q_b.SQL.Add('where zj_tel=:zj_tel');
q_b.Parameters.ParamByName('zj_tel').Value:=bsskinedit12.Text;
q_b.Prepared;
q_b.Open;
end;
while not dm.q_b.Eof do
begin
zw1:=zw1+dm.q_b.FieldValues ['总费用'];
dm.q_b.Next;
end;
dm.q_b.First;
da1.DataSet:=dm.q_b;
bsskindbgrid2.DataSource:=da1;
bsskinedit4.Text:=floattostr(zw1);
//收集用户的已交费用信息
with dm do
begin
q_c.close;
q_c.SQL.Clear;
q_c.SQL.Add('select TEL_SFZH as 身份证号,TEL_NAME as 用户姓名,ZJ_TEL as 主叫号码,BJ_TEL as 被叫号码,');
q_c.SQL.add('B_DATE as 开始日期,B_TIME as 开始时间,E_TIME as 结束时间,');
q_c.SQL.Add('TEL_UNIT as 单元,FL_NAME as 费类名称,TOTAL_MONEY as 总费用,');
q_c.SQL.Add('JBFL as 基本费率,USER_ID as 操作员工号 from tel_yes');
q_c.SQL.Add('where zj_tel=:zj_tel');
q_c.SQL.Add('and tel_sfzh=:tel_sfzh');
q_c.Parameters.ParamByName('zj_tel').Value:=bsskinedit12.Text;
q_c.Parameters.ParamByName('tel_sfzh').Value:=bsskinedit2.Text;
q_c.Prepared;
q_c.Open;
end;
while not dm.q_c.Eof do
begin
zw2:=zw2+dm.q_c.FieldValues ['总费用'];
dm.q_c.Next;
end;
dm.q_c.First;
da2.DataSet:=dm.q_c;
bsskindbgrid6.DataSource:=da2;
bsskinedit5.Text:=floattostr(zw2);
//查找用户已交费用的单据
with dm do
begin
q_d.Close;
q_d.SQL.Clear;
q_d.SQL.Add('select up_bh as 交费收据号, up_tel as 交费电话,');
q_d.SQL.Add('up_je as 交费金额,up_date as 交费结帐日,up_user as 操作员编号,');
q_d.SQL.Add('up_lb as 交费方向,up_je as 交费后余额,');
q_d.SQL.Add('user_time as 收费时间,up_hf as 话费金额,up_fwje as 服务金额');
q_d.SQL.Add('from tel_up_mx');
q_d.SQL.Add('where up_tel=:up_tel and up_sfzh=:up_sfzh');
q_d.Parameters.ParamByName('up_tel').Value:=bsskinedit12.Text;
q_d.Parameters.ParamByName('up_sfzh').Value:=bsskinedit2.Text;
q_d.Prepared;
q_d.Open;
end;
da3.DataSet:=dm.q_d;
bsskindbgrid7.DataSource:=da3;
bsskinedit6.Text:=floattostr(dm.q_a.FieldValues['tel_ycfs']);
//用户的业务变更查询
with dm do
begin
q_e.Close;
q_e.SQL.Clear;
q_e.SQL.Add('select yw_xh as 业务序号,user_id as 操作员工号,');
q_e.SQL.Add('yw_date as 业务时间,old_yw as 原业务内容,new_yw as 新业务内容,');
q_e.SQL.Add('yw_memo as 业务名称');
q_e.SQL.Add('from tel_change');
q_e.SQL.Add('where tel_lxdh=:up_tel and tel_sfzh=:up_sfzh');
q_e.Parameters.ParamByName('up_tel').Value:=bsskinedit12.Text;
q_e.Parameters.ParamByName('up_sfzh').Value:=bsskinedit2.Text;
q_e.Prepared;
q_e.Open;
end;
da4.DataSet:=dm.q_e;
bsskindbgrid8.DataSource:=da4;
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -