main_un.pas

布林电话收费管理系统

end;

procedure Tmain.N112Click(Sender: TObject);
 var
  about:tabout;
begin
 about:=tabout.Create(main);
 about.ShowModal;
 about.Free; 
end;

procedure Tmain.bsSkinXFormButton1Click(Sender: TObject);
begin
  if pos('7',user_qx)=0 then
   begin
    bsskinmessage1.MessageDlg('你无权使用本功能，请与你的系统管理员咨询！',mtinformation,[mbok],0);
    exit;
   end;
  SYS_OPER:='数据备份';
//  showmessage('ads');
  winexec('databackup.exe',sw_shownormal);
  application.Terminate;
//  shellexecute(handle,'open','databackup.exe','','',sw_shownormal);
{ dm.Free;
 backup:=tbackup.Create(main);
 backup.ShowModal;
 backup.Free; }

end;

procedure Tmain.N36Click(Sender: TObject);
 var
  set_fw:tset_fw;
begin
  if pos('6',user_qx)=0 then
   begin
    bsskinmessage1.MessageDlg('你无权使用本功能，请与你的系统管理员咨询！',mtinformation,[mbok],0);
    exit;
   end;
  SYS_OPER:='设定服务';
 set_fw:=tset_fw.Create(main);
 set_fw.ShowModal;
 set_fw.Free;
end;

procedure Tmain.N45Click(Sender: TObject);
var
 set_system:tset_system;
begin
  if pos('S',user_qx)=0 then
   begin
    bsskinmessage1.MessageDlg('你无权使用本功能，请与你的系统管理员咨询！',mtinformation,[mbok],0);
    exit; 
   end;
  SYS_OPER:='初始设置';
 set_system:=tset_system.Create(main);
 set_system.ShowModal;
 set_system.free;
end;

procedure Tmain.N14Click(Sender: TObject);
 var
  del_money:tdel_money;
begin
  if pos('2',user_qx)=0 then
   begin
    bsskinmessage1.MessageDlg('你无权使用本功能，请与你的系统管理员咨询！',mtinformation,[mbok],0);
    exit;
   end;
     SYS_OPER:='收费';
     del_money:=tdel_money.Create(khsj);
     del_money.ShowModal;
     del_money.Free;
end;

procedure Tmain.N62Click(Sender: TObject);
var
 prin:tprin;
begin
  if pos('2',user_qx)=0 then
   begin
    bsskinmessage1.MessageDlg('你无权使用本功能，请与你的系统管理员咨询！',mtinformation,[mbok],0);
    exit;
   end;
 SYS_OPER:='重打收据';
 prin:=tprin.Create(main);
 prin.ShowModal;
 prin.Free;
end;

procedure Tmain.N12Click(Sender: TObject);
var
 changename:tchangename;
begin
  if pos('2',user_qx)=0 then
   begin
    bsskinmessage1.MessageDlg('你无权使用本功能，请与你的系统管理员咨询！',mtinformation,[mbok],0);
    exit;
   end;
 SYS_OPER:='更名';
 changename:=tchangename.Create(main);
 changename.ShowModal;
 changename.Free;
end;

procedure Tmain.N13Click(Sender: TObject);
var
 delete_user:tdelete_user;
begin
  if pos('3',user_qx)=0 then
   begin
    bsskinmessage1.MessageDlg('你无权使用本功能，请与你的系统管理员咨询！',mtinformation,[mbok],0);
    exit;
   end;
 delete_user:=tdelete_user.Create(main);
 SYS_OPER:='消户';
 delete_user.ShowModal;
 delete_user.Free;
end;

procedure Tmain.N24Click(Sender: TObject);
 var
  del_money:tdel_money;
begin
  if pos('2',user_qx)=0 then
   begin
    bsskinmessage1.MessageDlg('你无权使用本功能，请与你的系统管理员咨询！',mtinformation,[mbok],0);
    exit;
   end;
     SYS_OPER:='收费';
     del_money:=tdel_money.Create(khsj);
     del_money.Caption:='用户预付费录入';
     del_money.bsSkinGroupBox1.Caption:='用户预付费录入';
     del_money.ShowModal;
     del_money.Free;
end;     
procedure Tmain.N22Click(Sender: TObject);
var
 change_tel:tchange_tel;
begin
  if pos('2',user_qx)=0 then
   begin
    bsskinmessage1.MessageDlg('你无权使用本功能，请与你的系统管理员咨询！',mtinformation,[mbok],0);
    exit;
   end;
 SYS_OPER:='过户';
 change_tel:=tchange_tel.Create(nil);
 change_tel.ShowModal;
 change_tel.Free;

end;

procedure Tmain.N31Click(Sender: TObject);
 var
  basic_change:tbasic_change;
begin
  if pos('2',user_qx)=0 then
   begin
    bsskinmessage1.MessageDlg('你无权使用本功能，请与你的系统管理员咨询！',mtinformation,[mbok],0);
    exit;
   end;
  basic_change:=tbasic_change.Create(main);
  SYS_OPER:='基本信息变更';
  basic_change.ShowModal;
  basic_change.Free;

end;

procedure Tmain.FormPaint(Sender: TObject);
begin
//stu.Caption:='当前正进行的操作为：'+SYS_OPER;
end;

procedure Tmain.N41Click(Sender: TObject);
var
 stop_open:tstop_open;
begin
  if pos('2',user_qx)=0 then
   begin
    bsskinmessage1.MessageDlg('你无权使用本功能，请与你的系统管理员咨询！',mtinformation,[mbok],0);
    exit;
   end;
 SYS_OPER:='开停机服务';
 stop_open:=tstop_open.Create(main);
 stop_open.ShowModal;
 stop_open.Free; 
end;

procedure Tmain.N51Click(Sender: TObject);
var
 change_yw:tchange_yw;
begin
  if pos('4',user_qx)=0 then
   begin
    bsskinmessage1.MessageDlg('你无权使用本功能，请与你的系统管理员咨询！',mtinformation,[mbok],0);
    exit;
   end;
 SYS_OPER:='业务变更';
 change_yw:=tchange_yw.Create(main);
 change_yw.ShowModal;
 change_yw.Free; 
end;

procedure Tmain.N21Click(Sender: TObject);
begin
  bsskinmessage1.MessageDlg('谢谢你的使用！系统暂不支持本功能！！',mtinformation,[mbok],0);
end;

procedure Tmain.N16Click(Sender: TObject);
var
 tel_count:ttel_count;
begin
  if pos('5',user_qx)=0 then
   begin
    bsskinmessage1.MessageDlg('你无权使用本功能，请与你的系统管理员咨询！',mtinformation,[mbok],0);
    exit;
   end;
 SYS_OPER:='个人信息查询';
 tel_count:=ttel_count.Create(main);
 tel_count.ShowModal;
 tel_count.Free;
end;

procedure Tmain.N52Click(Sender: TObject);
var
 user_count:tuser_count;
begin
  if pos('2',user_qx)=0 then
   begin
    bsskinmessage1.MessageDlg('你无权使用本功能，请与你的系统管理员咨询！',mtinformation,[mbok],0);
    exit;
   end;
 SYS_OPER:='操作员结帐';
 user_count:=tuser_count.Create(main);
 user_count.ShowModal;
 user_count.Free; 
end;

procedure Tmain.N23Click(Sender: TObject);
var
 look_log:tlook_log;
begin
  if pos('5',user_qx)=0 then
   begin
    bsskinmessage1.MessageDlg('你无权使用本功能，请与你的系统管理员咨询！',mtinformation,[mbok],0);
    exit;
   end;
 look_log:=tlook_log.Create(main);
 look_log.ShowModal;
 look_log.Free;

end;

procedure Tmain.N34Click(Sender: TObject);
var
 tel_y:ttel_y;
begin
  if pos('5',user_qx)=0 then
   begin
    bsskinmessage1.MessageDlg('你无权使用本功能，请与你的系统管理员咨询！',mtinformation,[mbok],0);
    exit;
   end;
 tel_y:=ttel_y.create(main);
 tel_y.showmodal;
 tel_y.free;
end;

procedure Tmain.N26Click(Sender: TObject);
var
 jf_tj:tjf_tj;
begin
  if pos('5',user_qx)=0 then
   begin
    bsskinmessage1.MessageDlg('你无权使用本功能，请与你的系统管理员咨询！',mtinformation,[mbok],0);
    exit;
   end;
 jf_tj:=tjf_tj.Create(main);
 jf_tj.ShowModal;
 jf_tj.Free;
end;

procedure Tmain.N53Click(Sender: TObject);
var
 bad_tel:tbad_tel;
begin
   if pos('5',user_qx)=0 then
   begin
    bsskinmessage1.MessageDlg('你无权使用本功能，请与你的系统管理员咨询！',mtinformation,[mbok],0);
    exit;
   end;
   bad_tel:=tbad_tel.Create(main);
   bad_tel.ShowModal;
   bad_tel.Free; 
end;

end.