numbermanger.~pas

彩票销售系统

unit NumberManger;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,  Menus, ComCtrls, DB, ADODB,registry;

type
  TNumberMangerMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    StatusBar1: TStatusBar;
    NumberManger_Adocon: TADOConnection;
    N12: TMenuItem;
    YearCarry_Sp: TADOStoredProc;
    userid: TADOQuery;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N21: TMenuItem;
    procedure N7Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N21Click(Sender: TObject);
  private
    { Private declarations }
    svrname:string;
    reg:tregistry;
    username:string;
    pwd:string;
  public
    { Public declarations }
     user_name:string;
     dbname:string;
     SupperUser:boolean;
  end;

var
  NumberMangerMain: TNumberMangerMain;
  saleperiod:string;
  dlUserMain:string;
  BillerId:integer;
  SupperUserBz:boolean;
  DangerMoney:string;
implementation
  uses usermanger,login_util,login_text,empinfset,baseinfmain,OutMoney,OneSixPrint,
       Periodset,HardNumber,EmpWorkCollect,NumberSaleNewTwo,EmpWorkList,emppay,NumberSaleNew,OpenPrixRecord;
{$R *.dfm}

procedure TNumberMangerMain.N7Click(Sender: TObject);
begin
  close;
end;

procedure TNumberMangerMain.N3Click(Sender: TObject);
var
  NumberSaleNew_form: TNumberSaleNew_form;
begin
  NumberSaleNew_form:=TNumberSaleNew_form.Create(application);
end;

procedure TNumberMangerMain.N12Click(Sender: TObject);

begin
  //dataset:=Tdataset.Create(application); 
end;

procedure TNumberMangerMain.FormCreate(Sender: TObject);
var
  desstr,hdnumber:string;
  EnNum:Integer;

begin
  SupperUserBz:=false;
  reg:=tregistry.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  REG.OpenKey('SOFTWARE',FALSE);
  REG.OpenKey('BestFriend',FALSE);
  svrname:=REG.ReadString('ServerName');
  dbname:=reg.ReadString('DataBaseName');
  username:=reg.ReadString('Username');
  pwd:=reg.ReadString('PassWord');
  {//取注册信息
  try
    reg.RootKey:=HKEY_ClASSES_ROOT;
    REG.OpenKey('Microsoft.NM.ActiveX',FALSE);
    REG.OpenKey('CLSID',FALSE);
    hdnumber:=reg.ReadString('Hdnumber');
    EnNum:=strtoint(decryptstr(reg.ReadString('EnableNum'),'GetIdeSerialNumber'));
    if encryptstr(trim(GetIdeSerialNumber),'GetIdeSerialNumber')<>trim(hdnumber) then
    begin
      if encryptstr(hdnumber,'GetIdeSerialNumber')='系统未注册' then
      begin
        showmessage('系统未注册，拒绝进入系统');
        exit;
      end
      else
      begin
        showmessage('您是非法用户,请进行正常注册。系统将退出！');
        application.Terminate ;
      end;
    end
    else
    begin
      StatusBar1.Panels[5].Text:='注册版';
    end ;
  except
    reg:=tregistry.Create;
    reg.RootKey:=HKEY_ClASSES_ROOT;
    REG.CreateKey('Microsoft.NM.ActiveX');
    REG.OpenKey('Microsoft.NM.ActiveX',FALSE);
    REG.CreateKey('CLSID');
    REG.OpenKey('CLSID',FALSE);
    REG.WriteString('Hdnumber',encryptstr('系统未注册','GetIdeSerialNumber'));
    reg.WriteString('EnableNum',encryptstr('29','GetIdeSerialNumber'));
  END;
  //************registry operation end******
  }
  if NumberManger_Adocon.Connected=true then    NumberManger_Adocon.Close;
  NumberManger_Adocon.ConnectionString:='Provider=SQLOLEDB.1;'+'Password='+pwd+';Persist Security Info=False;User ID='+username+';Initial Catalog='+dbname+';Data Source='+svrname;
  try
    NumberManger_Adocon.Connected:=true;
    StatusBar1.Panels[1].Text:=login_util.dluser;
    dlUserMain:=login_util.dluser;

    userid.Close;
    userid.SQL.Clear;
    userid.SQL.Add('select FUserId,FUserPower from T_User where FUserName='''+login_util.dluser+'''');
    userid.Open;
    BillerId:=userid.Fields[0].value;
    if userid.Fields[1].value='超级用户' then   SupperUserBz:=true;
    userid.Close;
    userid.SQL.Clear;
    userid.SQL.Add('select max(FSalePeriod) from T_SalePeriod  where FAssayBz=0');
    userid.Open;
    if userid.Fields[0].value=Null then
    begin
      showmessage('当前无可用期号，请进行期号设置后重新启动系统！');
    end
    else
    begin
      saleperiod:=userid.Fields[0].value;
      StatusBar1.Panels[3].Text:=userid.Fields[0].value;
      userid.Close;
    end;
  except
    application.MessageBox('数据连接失败,请设置连接！','系统提示',MB_ICONERROR);
    N12.Visible:=false;
    close;
  END;

end;

procedure TNumberMangerMain.N9Click(Sender: TObject);
begin
  if application.MessageBox('年度结转将改变生肖排列顺序，是否继续?','系统提示',mb_yesno+mb_iconquestion)=id_yes  then
  begin
    YearCarry_Sp.Close;
    YearCarry_Sp.Prepared;
    YearCarry_Sp.ExecProc;
    YearCarry_Sp.Close;
    userid.Close;
    userid.SQL.Clear;
    userid.SQL.Add('select FSalePeriod from T_SalePeriod ');
    userid.Open;
    saleperiod:=userid.Fields[0].value;
    StatusBar1.Panels[3].Text:=userid.Fields[0].value;
    userid.Close;
    StatusBar1.Refresh;
    Application.MessageBox('数据结转成功！', '系统提示', 0 or MB_ICONINFORMATION);
  end;
end;

procedure TNumberMangerMain.N4Click(Sender: TObject);
var
  emp_set_form: Temp_set_form;
begin
  emp_set_form:=Temp_set_form.Create(application);
end;

procedure TNumberMangerMain.N5Click(Sender: TObject);
var
  baseinf_form: Tbaseinf_form;
begin
   baseinf_form:=Tbaseinf_form.Create(application); 
end;

procedure TNumberMangerMain.N16Click(Sender: TObject);
var
  EmpWorkCollect_Form: TEmpWorkCollect_Form;
begin
  EmpWorkCollect_Form:=TEmpWorkCollect_Form.create(application);
end;

procedure TNumberMangerMain.N15Click(Sender: TObject);
var
  EmpWorkList_Form: TEmpWorkList_Form;
begin
  EmpWorkList_Form:=TEmpWorkList_Form.Create(application);
end;

procedure TNumberMangerMain.N10Click(Sender: TObject);
var
  OpenPrixRecord_form: TOpenPrixRecord_form;
begin
  OpenPrixRecord_form:=TOpenPrixRecord_form.Create(application); 
end;

procedure TNumberMangerMain.N6Click(Sender: TObject);
var
  UserMangerForm: TUserMangerForm;
begin
  UserMangerForm:=TUserMangerForm.create(application);
end;

procedure TNumberMangerMain.N17Click(Sender: TObject);
var
  emp_payForm:Temp_payForm;
begin
  emp_payForm:=Temp_payForm.Create(application);
end;

procedure TNumberMangerMain.N8Click(Sender: TObject);
var
  PreadSetForm: TPreadSetForm;
begin
  PreadSetForm:=TPreadSetForm.Create(application);
  
end;

procedure TNumberMangerMain.FormShow(Sender: TObject);
begin
  if SupperUserBz=False then
  Begin
    N10.Visible:=false;
    N17.Visible:=false;
    N1.Visible:=false;
    N21Click(Sender);
  end
  else
  begin
    N8Click(Sender);
  end;
end;

procedure TNumberMangerMain.N21Click(Sender: TObject);
var
  NumberSaleNewtwo_form: TNumberSaleNewtwo_form;
begin
  NumberSaleNewtwo_form:=TNumberSaleNewtwo_form.Create(application);
end;

end.