📄 main_un.pas

📁 布林电话收费管理系统
💻 PAS
📖 第 1 页 / 共 2 页
字号:
12 下一页
unit main_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, bsSkinHint, BusinessSkinForm, bsMessages, bsSkinCtrls,
  bsSkinData, ExtCtrls, jpeg,registry, ImgList,shellapi;

type
  Tmain = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinData1: TbsSkinData;
    bsCompressedStoredSkin1: TbsCompressedStoredSkin;
    stu: TbsSkinStatusPanel;
    bsSkinMessage1: TbsSkinMessage;
    bsSkinMainMenu1: TbsSkinMainMenu;
    bsSkinMainMenuBar1: TbsSkinMainMenuBar;
    bsSkinHint1: TbsSkinHint;
    A1: TMenuItem;
    B1: TMenuItem;
    C1: TMenuItem;
    D1: TMenuItem;
    E1: TMenuItem;
    F1: TMenuItem;
    G1: TMenuItem;
    I1: TMenuItem;
    J1: TMenuItem;
    N11: TMenuItem;
    N1: TMenuItem;
    N21: TMenuItem;
    N12: TMenuItem;
    N2: TMenuItem;
    N22: TMenuItem;
    N3: TMenuItem;
    N31: TMenuItem;
    N4: TMenuItem;
    N41: TMenuItem;
    N5: TMenuItem;
    N51: TMenuItem;
    N6: TMenuItem;
    N13: TMenuItem;
    N9: TMenuItem;
    N14: TMenuItem;
    N24: TMenuItem;
    N62: TMenuItem;
    N15: TMenuItem;
    N25: TMenuItem;
    N33: TMenuItem;
    N43: TMenuItem;
    N16: TMenuItem;
    N10: TMenuItem;
    N26: TMenuItem;
    N17: TMenuItem;
    N34: TMenuItem;
    N18: TMenuItem;
    N110: TMenuItem;
    N19: TMenuItem;
    N27: TMenuItem;
    L1: TMenuItem;
    N111: TMenuItem;
    N29: TMenuItem;
    N35: TMenuItem;
    bsSkinControlBar1: TbsSkinControlBar;
    bsSkinXFormButton2: TbsSkinXFormButton;
    bsSkinXFormButton3: TbsSkinXFormButton;
    bsSkinXFormButton5: TbsSkinXFormButton;
    bsSkinXFormButton6: TbsSkinXFormButton;
    bsSkinXFormButton7: TbsSkinXFormButton;
    Image1: TImage;
    N112: TMenuItem;
    bsSkinXFormButton9: TbsSkinXFormButton;
    bsSkinXFormButton10: TbsSkinXFormButton;
    bsSkinXFormButton4: TbsSkinXFormButton;
    N30: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N45: TMenuItem;
    bsSkinButtonsBar1: TbsSkinButtonsBar;
    ImageList1: TImageList;
    ImageList2: TImageList;
    N52: TMenuItem;
    N23: TMenuItem;
    N7: TMenuItem;
    N53: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure N111Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure J1Click(Sender: TObject);
    procedure bsSkinXFormButton7Click(Sender: TObject);
    procedure N110Click(Sender: TObject);
    procedure bsSkinXFormButton3Click(Sender: TObject);
    procedure bsSkinXFormButton4Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N112Click(Sender: TObject);
    procedure bsSkinXFormButton1Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N62Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N52Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N53Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main: Tmain;

implementation
 uses dm_un,logon_un,globe,SJDR_UN,sjcx_un,user_un,pass_un,skin_un,
     stand_un,khsj_un,about_un,backup_un,set_fy_un,set_system_un,
     del_money_un,prin_un,chnagename_un,delete_user_un,change_tel_un,
     basic_change_un,stop_open_un,change_yw_un,print_fp_un,tel_count_un,
     user_count_un,look_log_un,tel_y_un,jf_tj_un,bad_tel_un;
{$R *.dfm}

procedure Tmain.FormCreate(Sender: TObject);
 VAR
 LOGON:TLOGON;
 reg:tregistry;
 skin_s:string;
begin
 reg:=tregistry.Create;
 reg.RootKey:=hkey_local_machine;
 reg.OpenKey('\software\microsoft\windows\bl_soft',true);
 if  reg.ValueExists('skin') then
  begin
   skin_s:=reg.ReadString('skin');
  end
 else
  begin
   reg.WriteString('skin',ExtractFilePath(Application.ExeName)+'sky\lime\skin.ini');
   skin_s:=ExtractFilePath(Application.ExeName)+'sky\lime\skin.ini';
  end;
 bsCompressedStoredSkin1.LoadFromIniFile(skin_s);
 bsSkinData1.LoadCompressedStoredSkin(bsCompressedStoredSkin1);
 logon:=tlogon.Create(main);
  if logon.ShowModal<>mryes then
    Application.Terminate
  else
   begin
    main.Caption:='计费综合统计查询系统'+'          当前用户为:<'+trim(user_name)+'>'+'  系统使用单位为:<'+system_dw+'>';
    logon.Free;
    dm.Free; 
//    stu.Caption:='当前用户的权限为：'+user_qx;
    //设定操作权限
   { if pos('1',user_qx)=0 then
     a1.Visible :=false;
     b1.Visible:=(pos('w',user_qx)<>0);
     bsskinmainmenubar1.MainMenu.Items.Items[1].Visible:=false;  }
   end;
end;


procedure Tmain.N111Click(Sender: TObject);
VAR
 DRSJ:TDRSJ;
begin
  if pos('8',user_qx)=0 then
   begin
    bsskinmessage1.MessageDlg('你无权使用本功能，请与你的系统管理员咨询！',mtinformation,[mbok],0);
    exit;
   end;
 SYS_OPER:='导入数据';
 DRSJ:=TDRSJ.Create(MAIN);
 DRSJ.ShowModal;
 drsj.Free;
end;

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

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

procedure Tmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if bsskinmessage1.MessageDlg('你是否确定退出本程序?',mtconfirmation,[mbok,mbcancel],0)=mrok then
  begin

   action:=cafree;
  end
 else
  action:=canone;  
end;

procedure Tmain.J1Click(Sender: TObject);
begin
   SYS_OPER:='退出';
   writetolog('0.00');
close;
end;

procedure Tmain.bsSkinXFormButton7Click(Sender: TObject);
begin
   SYS_OPER:='退出';
   writetolog('0.00');
close;
end;

procedure Tmain.N110Click(Sender: TObject);
var
 pass:tpass;
begin
  SYS_OPER:='设定口令';
 pass:=tpass.Create(main);
 pass.ShowModal;
 pass.Free;
end;

procedure Tmain.bsSkinXFormButton3Click(Sender: TObject);
 VAR
 LOGON:TLOGON;
begin
 logon:=tlogon.Create(main);
  if logon.ShowModal<>mryes then
    begin
       SYS_OPER:='退出';
       writetolog('0.00');
      Application.Terminate
    end
  else
   begin
    main.Caption:='计费综合统计查询系统'+'          当前用户为:<'+trim(user_name)+'>';
    logon.Free;
    //设定操作权限
   { if pos('1',user_qx)=0 then
     a1.Visible :=false;
     b1.Visible:=(pos('w',user_qx)<>0);
     bsskinmainmenubar1.MainMenu.Items.Items[1].Visible:=false;  }
   end;
end;

procedure Tmain.bsSkinXFormButton4Click(Sender: TObject);
var
 skin:tskin;
begin
 skin:=tskin.Create(main);
 skin.ShowModal;
 skin.Free;
end;

procedure Tmain.N11Click(Sender: TObject);
 var
  khsj:tkhsj;
begin
  if pos('1',user_qx)=0 then
   begin
    bsskinmessage1.MessageDlg('你无权使用本功能，请与你的系统管理员咨询！',mtinformation,[mbok],0);
    exit;
   end;
  SYS_OPER:='开户';
  khsj:=tkhsj.Create(main);
  khsj.ShowModal;
  khsj.Free;
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -