pfm_main.~pas

POS收银系统

    Application.CreateForm(Tfm_rptsellsh, fm_rptsellsh);
    if fm_rptsellsh.showmodal=IDOK then
    begin
        rptwherestr:=fm_rptsellsh.wherestr;
        fm_rptjhdmx:=Tfm_rptjhdmx.Create(application);
        fm_rptjhdmx.QuickRep1.Preview;
        fm_rptjhdmx.free;
    end;
    fm_rptsellsh.free;
end;

procedure Tmain.N61Click(Sender: TObject);
begin
    if not ChildIsOpen('Tfm_fdthdok') then
        Tfm_fdthdok.create(application);
end;

procedure Tmain.N62Click(Sender: TObject);
begin
    if not ChildIsOpen('Tfm_updatefdspxx') then
        Tfm_updatefdspxx.create(application);

end;

procedure Tmain.N64Click(Sender: TObject);
begin
    if not ChildIsOpen('Tfm_sptuihuodmx') then
        Tfm_sptuihuodmx.create(application);

end;

procedure Tmain.N60Click(Sender: TObject);
begin
   if not ChildIsOpen('Tfm_fdthdhand') then
        Tfm_fdthdhand.create(application);
end;

procedure Tmain.N29Click(Sender: TObject);
begin
   if not ChildIsOpen('Tfm_queryalltab') then
        Tfm_queryalltab.create(application);
end;

procedure Tmain.N28Click(Sender: TObject);
begin
   if not ChildIsOpen('Tfm_viewxsrz') then
        Tfm_viewxsrz.create(application);
end;

procedure Tmain.N43Click(Sender: TObject);
begin
   if not ChildIsOpen('Tfm_queryspxs') then
        Tfm_queryspxs.create(application);
end;

procedure Tmain.N33Click(Sender: TObject);
begin
   if not ChildIsOpen('Tfm_inputspxx') then
        Tfm_inputspxx.create(application);
end;

procedure Tmain.N59Click(Sender: TObject);
begin
   if not ChildIsOpen('Tfm_fdtcdok') then
        Tfm_fdtcdok.create(application);
end;

procedure Tmain.N2Click(Sender: TObject);
var
i,j:integer;
begin
{   Application.CreateForm(Tfm_fdlogin, fm_fdlogin);
   if fm_fdlogin.showmodal=idok then
   begin
       menu:=mainmenu1;
       for i:=0 to mainmenu1.items.count-1 do
        begin
            for j:=0 to mainmenu1.items.items[i].count-1 do
            begin
                mainmenu1.items.items[i].items[j].enabled:=false;
                if muserright.values[mainmenu1.items.items[i].items[j].caption]='1' then
                begin
                    mainmenu1.items.items[i].items[j].Enabled:=true;
                end;
            end;
        end;
   end;
   fm_fdlogin.free;
}
end;

procedure Tmain.N35Click(Sender: TObject);
var
i,j:integer;
begin
   Application.CreateForm(Tfm_fdlogin, fm_fdlogin);
   if fm_fdlogin.showmodal=idok then
   begin
       menu:=mainmenu1;
       if mUsername='admin' then   //超级用户
       begin
       for i:=0 to mainmenu1.items.count-1 do
       begin
            for j:=0 to mainmenu1.items.items[i].count-1 do
            begin
                mainmenu1.items.items[i].items[j].enabled:=true;
            end;
        end;
       end
       else
       begin
       for i:=0 to mainmenu1.items.count-1 do
        begin
            if mainmenu1.Items[i].Caption='帮助' then
            begin
                continue;
            end;
            for j:=0 to mainmenu1.items.items[i].count-1 do
            begin
                mainmenu1.items.items[i].items[j].enabled:=false;
                if muserright.values[mainmenu1.items.items[i].items[j].caption]='1' then
                begin
                    mainmenu1.items.items[i].items[j].Enabled:=true;
                end;
                if (mainmenu1.items.items[i].items[j].caption='退出') or
                (mainmenu1.items.items[i].items[j].caption='重新登录') or
                (mainmenu1.items.items[i].items[j].caption='修改密码') then
                begin
                    mainmenu1.items.items[i].items[j].Enabled:=true;
                end;
            end;
        end;
       end;

   end
   else
   begin
        menu:=mainmenu2;
   end;
   fm_fdlogin.free;
end;

procedure Tmain.N66Click(Sender: TObject);
begin
    halt;
end;

procedure Tmain.FormCreate(Sender: TObject);
var
backpic:string;
begin
    menu:=mainmenu2;
    backpic:=initread2('背景图片','文件','ini\back.jpg');
    if fileexists(backpic) then
    begin
       //image1.Picture.LoadFromFile(backpic);
    end;
end;

procedure Tmain.N3Click(Sender: TObject);
begin
      Application.CreateForm(Tfm_changepass, fm_changepass);
      fm_changepass.edit3.text:=musername;
      fm_changepass.showmodal;
      fm_changepass.free;
end;

procedure Tmain.N67Click(Sender: TObject);
begin
  Application.CreateForm(Tfm_datadel, fm_datadel);
  fm_datadel.showmodal;
  fm_datadel.free;
end;

procedure Tmain.N4Click(Sender: TObject);
begin
     Application.CreateForm(Tfm_sysinit, fm_sysinit);
     fm_sysinit.showmodal;
     fm_sysinit.free;
end;

procedure Tmain.N68Click(Sender: TObject);
begin
  Application.CreateForm(Tfm_databack, fm_databack);
  fm_databack.showmodal;
  fm_databack.free;
end;

procedure Tmain.N71Click(Sender: TObject);
begin
    close;
end;

procedure Tmain.N74Click(Sender: TObject);
begin
  Application.CreateForm(Tfm_help, fm_help);
  fm_help.showmodal;
  fm_help.free;
end;

procedure Tmain.N32Click(Sender: TObject);
begin
    Application.CreateForm(Tfm_rptsellsh, fm_rptsellsh);
    if fm_rptsellsh.showmodal=IDOK then
    begin
        rptwherestr:=fm_rptsellsh.wherestr;
        fm_rptthdmx:=Tfm_rptthdmx.Create(application);
        fm_rptthdmx.QuickRep1.Preview;
        fm_rptthdmx.free;
    end;
    fm_rptsellsh.free;

end;

procedure Tmain.N46Click(Sender: TObject);
begin
    Application.CreateForm(Tfm_rptsellsh, fm_rptsellsh);
    if fm_rptsellsh.showmodal=IDOK then
    begin
        rptwherestr:=fm_rptsellsh.wherestr;
        fm_rptpfdmx:=Tfm_rptpfdmx.Create(application);
        fm_rptpfdmx.QuickRep1.Preview;
        fm_rptpfdmx.free;
    end;
    fm_rptsellsh.free;
end;

procedure Tmain.N47Click(Sender: TObject);
begin
    Application.CreateForm(Tfm_rptsellsh, fm_rptsellsh);
    if fm_rptsellsh.showmodal=IDOK then
    begin
        rptwherestr:=fm_rptsellsh.wherestr;
        fm_rptzengpindmx:=tfm_rptzengpindmx.Create(application);
        fm_rptzengpindmx.QuickRep1.Preview;
        fm_rptzengpindmx.free;
    end;
    fm_rptsellsh.free;
end;

procedure Tmain.N48Click(Sender: TObject);
begin
    Application.CreateForm(Tfm_rptsellsh, fm_rptsellsh);
    if fm_rptsellsh.showmodal=IDOK then
    begin
        rptwherestr:=fm_rptsellsh.wherestr;
        fm_rptsptuihuodmx:=tfm_rptsptuihuodmx.Create(application);
        fm_rptsptuihuodmx.QuickRep1.Preview;
        fm_rptsptuihuodmx.free;
    end;
    fm_rptsellsh.free;
end;

procedure Tmain.N49Click(Sender: TObject);
begin
    Application.CreateForm(Tfm_rptsellsh, fm_rptsellsh);
    if fm_rptsellsh.showmodal=IDOK then
    begin
        rptwherestr:=fm_rptsellsh.wherestr;
        fm_rptmdtcdmx:=tfm_rptmdtcdmx.Create(application);
        fm_rptmdtcdmx.QuickRep1.Preview;
        fm_rptmdtcdmx.free;
    end;
    fm_rptsellsh.free;
end;

procedure Tmain.N50Click(Sender: TObject);
begin
    Application.CreateForm(Tfm_rptsellsh, fm_rptsellsh);
    if fm_rptsellsh.showmodal=IDOK then
    begin
        rptwherestr:=fm_rptsellsh.wherestr;
        fm_rptsydmx:=tfm_rptsydmx.Create(application);
        fm_rptsydmx.QuickRep1.Preview;
        fm_rptsydmx.free;
    end;
    fm_rptsellsh.free;
end;

procedure Tmain.N52Click(Sender: TObject);
begin
    Application.CreateForm(Tfm_rptsellsh, fm_rptsellsh);
    if fm_rptsellsh.showmodal=IDOK then
    begin
        rptwherestr:=fm_rptsellsh.wherestr;
        fm_rpttjdmx:=tfm_rpttjdmx.Create(application);
        fm_rpttjdmx.QuickRep1.Preview;
        fm_rpttjdmx.free;
    end;
    fm_rptsellsh.free;
end;

procedure Tmain.N55Click(Sender: TObject);
begin
    Application.CreateForm(Tfm_rptsellsh, fm_rptsellsh);
    if fm_rptsellsh.showmodal=IDOK then
    begin
        rptwherestr:=fm_rptsellsh.wherestr;
        fm_rptyfkcl:=tfm_rptyfkcl.Create(application);
        fm_rptyfkcl.QuickRep1.Preview;
        fm_rptyfkcl.free;
    end;
    fm_rptsellsh.free;
end;

procedure Tmain.N56Click(Sender: TObject);
begin
    Application.CreateForm(Tfm_rptsellsh, fm_rptsellsh);
    if fm_rptsellsh.showmodal=IDOK then
    begin
        rptwherestr:=fm_rptsellsh.wherestr;
        fm_rptpfyskcl:=tfm_rptpfyskcl.Create(application);
        fm_rptpfyskcl.QuickRep1.Preview;
        fm_rptpfyskcl.free;
    end;
    fm_rptsellsh.free;
end;

procedure Tmain.N53Click(Sender: TObject);
begin
    Application.CreateForm(Tfm_rptsellsh, fm_rptsellsh);
    if fm_rptsellsh.showmodal=IDOK then
    begin
        rptwherestr:=fm_rptsellsh.wherestr;
        fm_rptthyskcl:=tfm_rptthyskcl.Create(application);
        fm_rptthyskcl.QuickRep1.Preview;
        fm_rptthyskcl.free;
    end;
    fm_rptsellsh.free;
end;

procedure Tmain.N7Click(Sender: TObject);
begin
    fm_optrecord.show;
    fm_optrecord.update;
end;

procedure Tmain.N5Click(Sender: TObject);
begin
   if not ChildIsOpen('Tfm_cksetup') then
        Tfm_cksetup.create(application);
end;

end.