main.pas

适合行业为眼镜业

      fmPosGoods.Free;
    end;
    3:
    begin
      ShowFmPosSendbill('','',503);//配送单；
    end;
    4:
    begin
      ShowYDPosSendbill('','',503)//预定配送
    end;
    5:
    begin
      //配送收货;
      fmbatchinput:=tfmbatchinput.Create(self);
      fmbatchinput.ShowModal;
      fmbatchinput.Free; 
    end;
    6:
    begin
      ShowUNPosSendbill('','',505);
    end;
    7:     //新店铺货
    begin
      //
      Public_Do:='';
      fmshopgoods:=tfmshopgoods.Create(self);
      fmshopgoods.ShowModal;
      fmshopgoods.Free;
    end;
     8:     //数据查询
    begin

      fmBacthQuery:=tfmBacthQuery.Create(self);
      fmBacthQuery.ShowModal;
      fmBacthQuery.Free;
    end;
     9:     //数据对比//
    begin

      fmBacthStaff:=tfmBacthStaff.Create(self);
      fmBacthStaff.ShowModal;
      fmBacthStaff.Free;
    end;
  end;
end;

procedure Tfrm_Main.Frame16Click(Sender: TObject);
begin
  Frame16.FrameClick(Sender);
end;

procedure Tfrm_Main.Frame17Click(Sender: TObject);
begin
  Frame17.FrameClick(Sender);
end;

procedure Tfrm_Main.Frame18Click(Sender: TObject);
begin
  Frame18.FrameClick(Sender);
end;

procedure Tfrm_Main.N40Click(Sender: TObject);
begin
  frm_Stock_Enter_Report:=Tfrm_Stock_Enter_Report.Create(self);
  frm_Stock_Enter_Report.Caption:='【采购入库统计查询】';
  frm_Stock_Enter_Report.flag:=0;
  frm_Stock_Enter_Report.ShowModal;
  frm_Stock_Enter_Report.Free;
end;

procedure Tfrm_Main.Frame11Click(Sender: TObject);
begin
  Frame11.FrameClick(Sender);
end;

procedure Tfrm_Main.Frame12Click(Sender: TObject);
begin
  Frame12.FrameClick(Sender);
end;

procedure Tfrm_Main.N41Click(Sender: TObject);
begin
  frmStock_Fad_Query:=TfrmStock_Fad_Query.Create(self);
  frmStock_Fad_Query.Caption:='【采购退货统计查询】';
  frmStock_Fad_Query.ShowModal;
  frmStock_Fad_Query.Free;
end;

procedure Tfrm_Main.N42Click(Sender: TObject);
begin
  frm_Stock_Report:=Tfrm_Stock_Report.Create(self);
  frm_Stock_Report.Caption:='采购报日报';
  frm_Stock_Report.Height:=155;
  frm_Stock_Report.Width:=294;
  frm_Stock_Report.TabSheet1.TabVisible:=True;
  frm_Stock_Report.TabSheet2.TabVisible:=False;
  frm_Stock_Report.TabSheet3.TabVisible:=False;
  frm_Stock_Report.ShowModal;
  frm_Stock_Report.Free;
end;

procedure Tfrm_Main.N43Click(Sender: TObject);
begin
  frm_Stock_Report:=Tfrm_Stock_Report.Create(self);
  frm_Stock_Report.Caption:='采购月报';
  frm_Stock_Report.Height:=155;
  frm_Stock_Report.Width:=294;
  frm_Stock_Report.TabSheet2.TabVisible:=True;
  frm_Stock_Report.TabSheet1.TabVisible:=False;
  frm_Stock_Report.TabSheet3.TabVisible:=False;
  frm_Stock_Report.ShowModal;
  frm_Stock_Report.Free;
end;

procedure Tfrm_Main.N44Click(Sender: TObject);
begin
   frm_Stock_Report:=Tfrm_Stock_Report.Create(self);
  frm_Stock_Report.Caption:='采购报表(任意时间段)';
  frm_Stock_Report.Height:=174;
  frm_Stock_Report.Width:=410;
  frm_Stock_Report.TabSheet3.TabVisible:=True;
  frm_Stock_Report.TabSheet2.TabVisible:=False;
  frm_Stock_Report.TabSheet1.TabVisible:=False;
  frm_Stock_Report.ShowModal;
  frm_Stock_Report.Free;
end;

procedure Tfrm_Main.N50Click(Sender: TObject);
begin
   frmcheck_query:=Tfrmcheck_query.Create(self);
  try
    frmcheck_query.ShowModal;
  finally
    frmcheck_query.Free;
  end;
end;

procedure Tfrm_Main.N46Click(Sender: TObject);
begin
  frm_Out_strip_Query:=Tfrm_Out_strip_Query.Create(self);
  frm_Out_strip_Query.Caption:='【出库单查询】';
  frm_Out_strip_Query.ShowModal;
  frm_Out_strip_Query.Free;
end;

procedure Tfrm_Main.N48Click(Sender: TObject);
begin
  fm_Scrap_Query:=Tfm_Scrap_Query.Create(self);
  fm_Scrap_Query.Caption:='【报损单查询】';
  fm_Scrap_Query.ShowModal;
  fm_Scrap_Query.Free;
end;

procedure Tfrm_Main.N49Click(Sender: TObject);
begin
  fm_OverFlow_Query:=Tfm_OverFlow_Query.Create(self);
  fm_OverFlow_Query.Caption:='【报溢单查询】';
  fm_OverFlow_Query.ShowModal;
  fm_OverFlow_Query.Free;
end;

procedure Tfrm_Main.Frame118Click(Sender: TObject);
begin
  Frame118.FrameClick(Sender);
end;

procedure Tfrm_Main.Frame15Click(Sender: TObject);
begin
  Frame15.FrameClick(Sender);
end;

procedure Tfrm_Main.Frame14Click(Sender: TObject);
begin
  Frame14.FrameClick(Sender);
end;

procedure Tfrm_Main.Frame13Click(Sender: TObject);
begin
  Frame13.FrameClick(Sender);
end;

procedure Tfrm_Main.Frame19Click(Sender: TObject);
begin
  Frame19.FrameClick(Sender);
end;

procedure Tfrm_Main.Frame110Click(Sender: TObject);
begin
  Frame110.FrameClick(Sender);

end;

procedure Tfrm_Main.Frame111Click(Sender: TObject);
begin
  Frame111.FrameClick(Sender);

end;

procedure Tfrm_Main.N61Click(Sender: TObject);
begin
  fmwldwgoodsquery:=tfmwldwgoodsquery.Create(self);
  fmwldwgoodsquery.ShowModal;
  fmwldwgoodsquery.Free; 
end;

procedure Tfrm_Main.ListView6Click(Sender: TObject);

begin
  if ListView6.Selected <>nil then
    if loginlock[ListView6.Selected.Index+listview5.Items.Count+listview4.Items.Count+listview3.Items.Count+lviewbatch.Items.Count+listview1.Items.Count ]=0 then exit;
  case ListView6.ItemIndex of  //供应商业务分析；

    0:begin
      fmWldwStaff:=tfmWldwStaff.Create(self);
      fmWldwStaff.ShowModal;
      fmWldwStaff.Free;
      end;
    1:begin   //往来业务
        fmWldwStaff:=tfmWldwStaff.Create(self);
        fmWldwStaff.PageC1.ActivePageIndex:=3;
        fmWldwStaff.TabGoods.TabVisible:=false;
        fmWldwStaff.TabBackGoods.TabVisible:=false;
        fmWldwStaff.TabFinace.TabVisible:=false;
        fmWldwStaff.ShowModal;
        fmWldwStaff.Free;
      end;

    3:begin   //商品销售排行榜
        fmGoodsSale:=tfmGoodsSale.Create(self);
        fmGoodsSale.ShowModal;
        fmGoodsSale.Free;
      end;
    4:begin   //单品销售排行榜
        fmonlygoods:=tfmonlygoods.Create(self);
        fmonlygoods.ShowModal;
        fmonlygoods.Free;

      end;
    5:begin   //零售旬月年查询;
        fmTotalStaff:=tfmTotalStaff.Create(self);
        fmTotalStaff.ShowModal;
        fmTotalStaff.Free; 
      end;
    6: begin   // 库存状况分析
        try
        frmstockstates:=Tfrmstockstates.create(self);
        frmstockstates.ShowModal;
        finally
        frmstockstates.Free;
        end;
       end;
     7: begin   // 库存总量分析
        try
        FmStockType:=TFmStockType.create(self);
        FmStockType.ShowModal;
        finally
        FmStockType.Free;
        end;
       end;
    8: begin   // 库存变化分析 （全能进销存）
        try
        fmstocking:=Tfmstocking.create(self);
        fmstocking.ShowModals:=0;
        fmstocking.ShowModal;
        finally
        fmstocking.Free;
        end;
       end;
    9: begin   // 库存变化分析 （全能进销存）
        try
        fmTotalBreed:=TfmTotalBreed.create(self);
        fmTotalBreed.ShowModal;
        finally
        fmTotalBreed.Free;
        end;
       end;
    10: begin   // 库存结构分析
        try
        fmStockAmountStaff:=TfmStockAmountStaff.create(self);
        fmStockAmountStaff.ShowModal;
        finally
        fmStockAmountStaff.Free;
        end;
       end;
    11: begin   // 信用报警
        try
        fmContactWarn:=TfmContactWarn.create(self);
        fmContactWarn.ShowModal;
        finally
        fmContactWarn.Free;
        end;
       end;
  end;
end;

procedure Tfrm_Main.Timer1Timer(Sender: TObject);
begin
  simpe(frm_data.Socket_Connection,frm_data.Simple);
  simpe(dmmain.socketpublic,frm_data.Simple);
end;

procedure Tfrm_Main.n45Click(Sender: TObject);
begin
  frm_Stock_Enter_Report:=Tfrm_Stock_Enter_Report.Create(self);
  frm_Stock_Enter_Report.Caption:='【入库单统计查询】';
  frm_Stock_Enter_Report.flag:=1;
  frm_Stock_Enter_Report.ShowModal;
  frm_Stock_Enter_Report.Free;
end;

procedure Tfrm_Main.ListView7Click(Sender: TObject);
var
  a1,a2,a3:string;
begin
  if listview7.Selected<>nil then
  begin
    if loginlock[ListView6.Items.Count+listview5.Items.Count+listview4.Items.Count+listview3.Items.Count+lviewbatch.Items.Count+listview1.Items.Count+listview7.Selected.Index]=0 then exit;
    case listview7.ItemIndex of
    0:  begin
          w_skBill('','',4,false); //待摊发生
        end;
    1:  begin
          w_skBill('','',5,false); //摊销
        end;
    2: begin
         w_skBill('','',1,false); //现金
       end;
    3:  begin
          w_skBill('','',2,false); //一般
        end;
    4:  begin
          w_skBill('','',3,false); //其他
        end;
    5:  begin
          DealinFmshow('gain',''); //经营
        end;
    6:  begin
          DealinFmshow('asset','');
        end;
    7:  begin
          DealinFmshow('bassert','');
        end;
    8: begin
          a1:='00000';a2:='00000';a3:='00000';
          AccountSelectShow(a1,a2,a3,'');
       end;
     9: begin
          financeFmshow('gain','')     //门店独立财务(经营状况表)；
        end;
    10: begin   // 库存变化分析 （全能进销存+金额）
        try
        fmstocking:=Tfmstocking.create(self);
        fmstocking.ShowModals:=1;
        fmstocking.ShowModal;
        finally
        fmstocking.Free;
        end;
        end;
     11:  begin
          w_skBill('','',6,false); //应付增加
        end;
     12:  begin
          w_skBill('','',7,false); //应收增加
        end;
     13:  begin
          w_skBill('','',8,false); //应付减少
        end;
     14:  begin
          w_skBill('','',9,false); //应收减少
        end;
    end;
  end;
end;

procedure Tfrm_Main.N62Click(Sender: TObject);
begin
  fmOrderQuery:=tfmOrderQuery.Create(self);
  fmOrderQuery.ShowModal;
  fmOrderQuery.Free; 
end;

procedure Tfrm_Main.Frame17Label1Click(Sender: TObject);
begin
  Frame17.FrameClick(Sender);

end;

procedure Tfrm_Main.Frame117Click(Sender: TObject);
begin
  Frame117.FrameClick(Sender);
end;

procedure Tfrm_Main.n47Click(Sender: TObject);
begin
  fmFlatQuery:=tfmFlatQuery.Create(self);
  fmFlatQuery.ShowModal;
  fmFlatQuery.Free; 
end;

procedure Tfrm_Main.Frame119Click(Sender: TObject);
begin
  Frame119.FrameClick(Sender);
end;

procedure Tfrm_Main.N63Click(Sender: TObject);
begin
  FmPresentQuery:=tFmPresentQuery.Create(self);
  FmPresentQuery.ShowModal;
  FmPresentQuery.Free;
end;

procedure Tfrm_Main.N64Click(Sender: TObject);
begin
  fmNewShopQuery:=TfmNewShopQuery.Create(Self);
  fmNewShopQuery.ShowModal;
  fmNewShopQuery.Free; 
end;

procedure Tfrm_Main.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  application.Terminate;
end;

end.