main.pas

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

        '提示信息', 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.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Application.MessageBox('你确信要退出系统吗?','系统提示',MB_ICONERROR + MB_OKCANCEL)
    = IDOK then
  begin
    chHeadUnit.exittray(mainform,dmRainbowMIS.Atbltray);
    Action := caFree;
  end
  else
    Action := caNone;
end;

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

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

procedure TMainForm.mman_manClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmmanrec')=Nil Then
    dfmmanrec:=Tdfmmanrec.Create(Application);
  dfmmanrec.Show;
end;

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

procedure TMainForm.mman_searchClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmfindman')=Nil Then
    dfmfindman:=Tdfmfindman.Create(Application);
  dfmfindman.Show;
end;

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

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

procedure TMainForm.mgood_specClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmspecenter')=Nil Then
    dfmspecenter:=Tdfmspecenter.Create(Application);
  dfmspecenter.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_searchClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmstosearch')=Nil Then
    dfmstosearch:=Tdfmstosearch.Create(Application);
  dfmstosearch.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.hlp_internetClick(Sender: TObject);
begin
  ShellExecute(handle,nil,pchar('http://www.airtoair.com.cn/'),nil,nil,sw_shownormal);
end;

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

procedure TMainForm.sys_branchClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmbranch')=Nil Then
    dfmbranch:=Tdfmbranch.Create(Application);
  dfmbranch.Show;
end;

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

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

procedure TMainForm.ClientWndProc(var Message: TMessage);
var
  Dc : hDC;
  Row : Integer;
  Col : Integer;
begin
  with Message do
    case Msg of
      WM_ERASEBKGND:
      begin
        Dc := TWMEraseBkGnd(Message).Dc;
        for Row := 0 to ClientHeight div Image1.Picture.Height do
          for Col := 0 to ClientWidth div Image1.Picture.Width do
            BitBlt(Dc,
               Col * Image1.Picture.Width,
               Row * Image1.Picture.Height,
               Image1.Picture.Width,
               Image1.Picture.Height,
               Image1.Picture.Bitmap.Canvas.Handle,
               0,
               0,
               SRCCOPY);
          Result := 1;
      end;
      else
        Result := CallWindowProc(FPrevClientProc,
                                 ClientHandle,
                                 Msg,
                                 wParam,
                                 lParam);
  end;
end;

procedure TMainForm.msale_salerClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmsaler')=Nil Then
    dfmsaler:=Tdfmsaler.Create(Application);
  dfmsaler.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_monthClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmsmonth')=Nil Then
    dfmsmonth:=Tdfmsmonth.Create(Application);
  dfmsmonth.Show;
end;

procedure TMainForm.sys_runClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmtray')=Nil Then
    dfmtray:=Tdfmtray.Create(Application);
  dfmtray.Show;
end;

procedure TMainForm.mgoods_findClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmsware')=Nil Then
    dfmsware:=Tdfmsware.Create(Application);
  dfmsware.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.mgood_converClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmloop')=Nil Then
    dfmloop:=Tdfmloop.Create(Application);
  dfmloop.Show;
end;

procedure TMainForm.mrepair_delstClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmdelstohst')=Nil Then
    dfmdelstohst:=Tdfmdelstohst.Create(Application);
  dfmdelstohst.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.mdata_dealClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmreceive')=Nil Then
    dfmreceive:=Tdfmreceive.Create(Application);
  dfmreceive.Show;
end;

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

procedure TMainForm.mdata_recsendClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmdial')=Nil Then
    dfmdial:=Tdfmdial.Create(Application);
  dfmdial.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_detailClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmsaledetail')=Nil Then
    dfmsaledetail:=Tdfmsaledetail.Create(Application);
  dfmsaledetail.Show;
end;

procedure TMainForm.mdata_receiveClick(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.mass_sdressClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmsdress')=Nil Then
    dfmsdress:=Tdfmsdress.Create(Application);
  dfmsdress.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_priceClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmprice')=Nil Then
    dfmprice:=Tdfmprice.Create(Application);
  dfmprice.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_setClick(Sender: TObject);
begin
    If  Application.FindComponent('dfmsaleset')=Nil Then
    dfmsaleset:=Tdfmsaleset.Create(Application);
  dfmsaleset.Show;
end;

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

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

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

end.