main.pas

仓库管理系统 仓库管理系统

  begin
    chHeadUnit.exittray(mainform,dmRainbowMIS.Atbltray);
    Action := caFree;
  end
  else
    Action := caNone;
end;

procedure TMainForm.msale_styleClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmxsfx')=Nil Then
    dfmxsfx:=Tdfmxsfx.Create(Application);
  dfmxsfx.Show;
end;

procedure TMainForm.msale_salenoClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmssaleno')=Nil Then
    dfmssaleno:=Tdfmssaleno.Create(Application);
  dfmssaleno.Show;
end;

procedure TMainForm.msale_salerClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmsaler')=Nil Then
    dfmsaler:=Tdfmsaler.Create(Application);
  dfmsaler.Show;
end;

procedure TMainForm.mgood_searchClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmstosearch')=Nil Then
    dfmstosearch:=Tdfmstosearch.Create(Application);
  dfmstosearch.Show;
end;

procedure TMainForm.sys_mannegerClick(Sender: TObject);
begin
  If  Application.FindComponent('dfmteam')=Nil Then
    dfmteam:=Tdfmteam.Create(Application);
  dfmteam.Show;
end;

procedure TMainForm.sys_cpwdClick(Sender: TObject);
begin
  If  Application.FindComponent('dfmsyspwd')=Nil Then
    dfmsyspwd:=Tdfmsyspwd.Create(Application);
  dfmsyspwd.Show;
end;

procedure TMainForm.sys_defaultClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmdefault')=Nil Then
    dfmdefault:=Tdfmdefault.Create(Application);
  dfmdefault.Show;
end;

procedure TMainForm.sys_repassClick(Sender: TObject);
var
  I:integer;
begin
  if Application.MessageBox('你想要关闭所有的窗口，重新登录吗？',
        '提示信息', MB_OKCANCEL + MB_DEFBUTTON1) = IDOK then
  begin
    with mainform do
    for I := MDIChildCount-1 downto 0 do
      MDIChildren[I].Close;
    mainform.visible:=false ;
    dfmrepass :=Tdfmrepass.Create(Application);
    dfmrepass.showmodal;
    dmRainbowMIS.tbltmenu.indexfieldnames:='cmenuname';
    FindMenuItems(mmMainMenu.Items);
    mainform.visible:=true;
  end;
end;


procedure TMainForm.sys_exitClick(Sender: TObject);
begin
  close;
end;

procedure TMainForm.mgood_labelClick(Sender: TObject);
begin
      If  Application.FindComponent('dfmlabel')=Nil Then
    dfmlabel:=Tdfmlabel.Create(Application);
  dfmlabel.Show;
end;

procedure TMainForm.mgood_specClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmspecenter')=Nil Then
    dfmspecenter:=Tdfmspecenter.Create(Application);
  dfmspecenter.Show;
end;

procedure TMainForm.mgoods_findClick(Sender: TObject);
begin
     If  Application.FindComponent('dfmsware')=Nil Then
    dfmsware:=Tdfmsware.Create(Application);
  dfmsware.Show;
end;

procedure TMainForm.mgood_priceClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmprice')=Nil Then
    dfmprice:=Tdfmprice.Create(Application);
  dfmprice.Show;
end;

procedure TMainForm.mgood_stoinClick(Sender: TObject);
begin
     If  Application.FindComponent('dfmstorein')=Nil Then
    dfmstorein:=Tdfmstorein.Create(Application);
  dfmstorein.Show;
end;

procedure TMainForm.mgood_stooutClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmmanoeuvre')=Nil Then
    dfmmanoeuvre:=Tdfmmanoeuvre.Create(Application);
  dfmmanoeuvre.Show;
end;

procedure TMainForm.mgood_checkClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmcheck')=Nil Then
    dfmcheck:=Tdfmcheck.Create(Application);
  dfmcheck.Show;
end;

procedure TMainForm.mgood_lossClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmloss')=Nil Then
    dfmloss:=Tdfmloss.Create(Application);
  dfmloss.Show;
end;

procedure TMainForm.mgood_fstoinClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmsstoin')=Nil Then
    dfmsstoin:=Tdfmsstoin.Create(Application);
  dfmsstoin.Show;
end;

procedure TMainForm.mgood_fstooutClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmsstoout')=Nil Then
    dfmsstoout:=Tdfmsstoout.Create(Application);
  dfmsstoout.Show;
end;

procedure TMainForm.mstore_pdreportClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmcreatdb')=Nil Then
    dfmcreatdb:=Tdfmcreatdb.Create(Application);
  dfmcreatdb.Show;
end;

procedure TMainForm.mgood_converClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmloop')=Nil Then
    dfmloop:=Tdfmloop.Create(Application);
  dfmloop.Show;
end;

procedure TMainForm.mstore_setClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmstoset')=Nil Then
    dfmstoset:=Tdfmstoset.Create(Application);
  dfmstoset.Show;
end;

procedure TMainForm.msale_extendClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmextend')=Nil Then
    dfmextend:=Tdfmextend.Create(Application);
  dfmextend.Show;
end;

procedure TMainForm.msale_frontClick(Sender: TObject);
begin
  winexec(pchar(fst+'sale.exe'),SW_SHOWNORMAL);
end;

procedure TMainForm.msale_detailClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmsaledetail')=Nil Then
    dfmsaledetail:=Tdfmsaledetail.Create(Application);
  dfmsaledetail.Show;
end;

procedure TMainForm.msale_inClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmmoney')=Nil Then
    dfmmoney:=Tdfmmoney.Create(Application);
  dfmmoney.Show;
end;

procedure TMainForm.msale_timeClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmtime')=Nil Then
    dfmtime:=Tdfmtime.Create(Application);
  dfmtime.Show;
end;

procedure TMainForm.msale_monthClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmsmonth')=Nil Then
    dfmsmonth:=Tdfmsmonth.Create(Application);
  dfmsmonth.Show;
end;

procedure TMainForm.msale_setClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmsaleset')=Nil Then
    dfmsaleset:=Tdfmsaleset.Create(Application);
  dfmsaleset.Show;
end;

procedure TMainForm.mman_changeClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmmanchange')=Nil Then
    dfmmanchange:=Tdfmmanchange.Create(Application);
  dfmmanchange.Show;
end;

procedure TMainForm.m_dressClick(Sender: TObject);
begin
     If  Application.FindComponent('dfmdress')=Nil Then
    dfmdress:=Tdfmdress.Create(Application);
  dfmdress.Show;
end;

procedure TMainForm.mass_sdressClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmsdress')=Nil Then
    dfmsdress:=Tdfmsdress.Create(Application);
  dfmsdress.Show;
end;

procedure TMainForm.mrepair_backClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmbavre')=Nil Then
    dfmbavre:=Tdfmbavre.Create(Application);
  dfmbavre.Show;
end;

procedure TMainForm.mrepair_delsaleClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmdel')=Nil Then
    dfmdel:=Tdfmdel.Create(Application);
  dfmdel.Show;
end;

procedure TMainForm.mrepair_delstClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmdelstohst')=Nil Then
    dfmdelstohst:=Tdfmdelstohst.Create(Application);
  dfmdelstohst.Show;
end;

procedure TMainForm.mreair_startClick(Sender: TObject);
begin
     If  Application.FindComponent('dfmstart')=Nil Then
    dfmstart:=Tdfmstart.Create(Application);
  dfmstart.Show;
end;

procedure TMainForm.mrepair_updateClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmupdate')=Nil Then
    dfmupdate:=Tdfmupdate.Create(Application);
  dfmupdate.Show;
end;

procedure TMainForm.mdata_recsendClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmdial')=Nil Then
    dfmdial:=Tdfmdial.Create(Application);
  dfmdial.Show;
end;

procedure TMainForm.mdata_dealClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmreceive')=Nil Then
    dfmreceive:=Tdfmreceive.Create(Application);
  dfmreceive.Show;
end;

procedure TMainForm.mdata_tranClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmtranspara')=Nil Then
    dfmtranspara:=Tdfmtranspara.Create(Application);
  dfmtranspara.Show;
end;

procedure TMainForm.hlp_internetClick(Sender: TObject);
begin
  ShellExecute(handle,nil,pchar('http://www.airtoair.com.cn/'),nil,nil,sw_shownormal);
end;

procedure TMainForm.hlp_aboutClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmabout')=Nil Then
    dfmabout:=Tdfmabout.Create(Application);
  dfmabout.Show;
end;

procedure TMainForm.mrepair_dayClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmdatesal')=Nil Then
    dfmdatesal:=Tdfmdatesal.Create(Application);
  dfmdatesal.Show;
end;

end.