main.~pas

在打沙场用的最简单

procedure Tfrmmain.h1002Execute(Sender: TObject);
var
  Child:Tform;
  i:integer;
begin
  inherited;
  if frmMain.MDIChildCount > 0 then
    Child:=frmMain.ActiveMDIChild
    Else
    Exit;

  for i:=0 to Child.ComponentCount - 1 do
    begin
      if (Child.Components[i] is TDBGridEH) then
        begin
          LockCount:=LockCount-1;
          if LockCount<=0 then
            LockCount:=0;
          (Child.Components[i] as TDBGridEH).frozenCols:=LockCount;
        end;
    end;
end;

procedure Tfrmmain.h1003Execute(Sender: TObject);
begin
  inherited;
  if frmmain.MDIChildCount > 0 then
      if (frmmain.ActiveMDIChild.ClassName<>'Tfrmmain') then
         frmmain.ActiveMDIChild.Close
         else
       else
   if application.MessageBox('您真的要退出系统吗 ? ','退出信息',
                   MB_OKCANCEL+MB_iconquestion+MB_applModal)=idok then
      application.Terminate;
end;

procedure Tfrmmain.h06Execute(Sender: TObject);
var
  ofile:String;
  hwndcalculation:hwnd;
begin
  inherited;
  hwndcalculation:=FindWindow(nil,'CALC');
  if (hwndcalculation=0) then
    begin
      ofile:='Calc.exe';
      ShellExecute(self.Handle,'open',pchar(ofile),
                nil,pchar(Extractfilepath(ofile)),sw_showNormal);
    end;
end;

procedure Tfrmmain.h08Execute(Sender: TObject);
begin
  inherited;
 showboot;
end;

procedure Tfrmmain.h03Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmform,frmform,self);
end;

procedure Tfrmmain.h09Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmbilltype,frmbilltype,self);
end;

procedure Tfrmmain.d07Execute(Sender: TObject);
begin
  inherited;
 openform(Tfrmitemtype,frmitemtype,self);
  // openform(Tfzpayment,fzpayment,self);
end;

procedure Tfrmmain.d09Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmcurrency,frmcurrency,self);
end;

procedure Tfrmmain.d01Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmdept,frmdept,self);
end;

procedure Tfrmmain.d11Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmunit,frmunit,self);
end;

procedure Tfrmmain.d10Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmemployeetype,frmemployeetype,self);
end;

procedure Tfrmmain.c01Execute(Sender: TObject);
begin
  inherited;
   openform(Tffz,ffz,self);
end;

procedure Tfrmmain.c06Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmpurchase,frmpurchase,self);
end;

procedure Tfrmmain.d08Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmsale,frmsale,self);
end;

procedure Tfrmmain.d03Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmitem,frmitem,self);
end;

procedure Tfrmmain.d06Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmworkmode,frmworkmode,self);
end;

procedure Tfrmmain.d02Execute(Sender: TObject);
begin
  inherited;
  openform(TfrmServerproj,Frmserverproj,self);
end;

procedure Tfrmmain.d04Execute(Sender: TObject);
begin
  inherited;
  //openform(Tfrmfuli,frmfuli,self);
end;

procedure Tfrmmain.d05Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmliaochen,frmliaochen,self);
end;

procedure Tfrmmain.a01Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmpurchase,frmpurchase,self);
end;

procedure Tfrmmain.h10Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmpermiss,frmpermiss,self);
end;

procedure Tfrmmain.g01Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmtest,frmtest,self); 
end;

procedure Tfrmmain.h01Execute(Sender: TObject);
begin
  inherited;
  if not assigned(frmabout) then
     frmabout:=Tfrmabout.Create(application); 
end;

procedure Tfrmmain.SystemDateChange(Sender: TObject);
begin
  inherited;
  WorkDate:=SystemDate.Date;
end;

procedure Tfrmmain.h04Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmsyslog,frmsyslog,self);
end;

procedure Tfrmmain.h05Execute(Sender: TObject);
begin
  inherited;
  if not assigned(frmchangepwd) then
    frmChangepwd:=TfrmChangepwd.Create(application);
    frmchangepwd.ShowModal;  
end;

procedure Tfrmmain.h07Execute(Sender: TObject);
begin
  inherited;
 { if not assigned(frmregist) then
    frmregist:=Tfrmregist.Create(application);
    frmregist.ShowModal;      }
if not assigned(frmlogin) then
    frmlogin:=Tfrmlogin.Create(application);
    frmlogin.ShowModal;

end;

procedure Tfrmmain.a02Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmstore,frmstore,self);
end;

procedure Tfrmmain.a03Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmpurreturn,frmpurreturn,self);
  //openform(Trmpurreturn,rmpurreturn,self);

end;

procedure Tfrmmain.a04Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmpurpayment,frmpurpayment,self);
end;

procedure Tfrmmain.a05Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmsale,frmsale,self);
end;

procedure Tfrmmain.f07Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmhmrep,frmhmrep,self);
end;

procedure Tfrmmain.f08Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmsprep,frmsprep,self);
end;

procedure Tfrmmain.N90Click(Sender: TObject);
begin
  inherited;
  openform(Tfrmsaledetail,frmsaledetail,self);
end;

procedure Tfrmmain.c02Execute(Sender: TObject);
begin
  inherited;
  //openform(Tfrmvipfull,frmvipfull,self);
end;

procedure Tfrmmain.N73Click(Sender: TObject);
begin
  inherited;
  openform(Tfrmstore,frmstore,self);
end;

procedure Tfrmmain.i01Execute(Sender: TObject);
begin
  inherited;
 openform(Tffz,ffz,self);
end;

procedure Tfrmmain.i02Execute(Sender: TObject);
begin
  inherited;
   openform(Tfrmhm,frmhm,self);
end;

procedure Tfrmmain.i03Execute(Sender: TObject);
begin
  inherited;
   openform(Tfrmsp,frmsp,self);
end;

procedure Tfrmmain.c04Execute(Sender: TObject);
begin
  inherited;
     openform(Tfzpayment,fzpayment,self);
end;

procedure Tfrmmain.c05Execute(Sender: TObject);
begin
  inherited;
     openform(Tfzpayment,fzpayment,self);
    // openform(Tfzpayment1,fzpayment1,self);

end;

procedure Tfrmmain.N42Click(Sender: TObject);
begin
  inherited;
  openform(Tfrmsaledetail,frmsaledetail,self);
end;

procedure Tfrmmain.N45Click(Sender: TObject);
begin
  inherited;
  openform(Tfrmpaymentdetail,frmpaymentdetail,self);
end;

procedure Tfrmmain.f01Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmreport,frmreport,self);
end;

procedure Tfrmmain.f02Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmstorerep,frmstorerep,self);
end;

procedure Tfrmmain.f03Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmsalerep,frmsalerep,self);
end;

procedure Tfrmmain.f04Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmscrep,frmscrep,self);
end;

procedure Tfrmmain.f05Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmfzsprep,frmfzsprep,self);
end;

procedure Tfrmmain.f06Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmfzrep,frmfzrep,self);
end;

procedure Tfrmmain.N10Click(Sender: TObject);
begin
  inherited;
   openform(Tfrmzd,frmzd,self);
end;

procedure Tfrmmain.i06Execute(Sender: TObject);
begin
  inherited;
    openform(Tfrmzd,frmzd,self);
end;

procedure Tfrmmain.N13Click(Sender: TObject);
begin
  inherited;
     openform(Tfrmfuli,frmfuli,self);
end;

end.