main.pas

delphi作得信息业进销存源码.功能全面,运行稳定.

//库存盘点
procedure TfrmMain.mnuKcpdClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmKcpdzb') then
    frmKcpdzb := TfrmKcpdzb.Create(Application);
  frmKcpdzb.Show;
  EndShow(Sender);
end;

//存货调价
procedure TfrmMain.mnuChtjClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmChtjzb') then
    frmChtjzb := TfrmChtjzb.Create(Application);
  frmChtjzb.Show;
  EndShow(Sender);
end;

//仓库调拨
procedure TfrmMain.mnuCkdbClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmCkdbzb') then
    frmCkdbzb := TfrmCkdbzb.Create(Application);
  frmCkdbzb.Show;
  EndShow(Sender);
end;

//其它库存变动
procedure TfrmMain.mnuQtkcbdClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmQtkcbdzb') then
    frmQtkcbdzb := TfrmQtkcbdzb.Create(Application);
  frmQtkcbdzb.Show;
  EndShow(Sender);
end;

//费用开支
procedure TfrmMain.mnuFykzClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmFykzzb') then
    frmFykzzb := TfrmFykzzb.Create(Application);
  frmFykzzb.Show;
  EndShow(Sender);
end;


//其它收入
procedure TfrmMain.mnuQtsrClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmQtsrzb') then
    frmQtsrzb := TfrmQtsrzb.Create(Application);
  frmQtsrzb.Show;
  EndShow(Sender);
end;

//银行存款/取款
procedure TfrmMain.mnuYhckqkClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmYhckqk') then
    frmYhckqk := TfrmYhckqk.Create(Application);
  frmYhckqk.Show;
  EndShow(Sender);
end;

{-BB 报表-}

//表报中心
procedure TfrmMain.mnuBbzxClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmBbzx') then
    frmBbzx := TfrmBbzx.Create(Application);
  frmBbzx.Show;
  EndShow(Sender);
end;

//客户销售汇总表
procedure TfrmMain.mnuBbKhXsHzClick(Sender: TObject);
begin
  frmRqdsz := TfrmRqdsz.Create(Application);
  with frmRqdsz do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      if not IsOpenMdiForm('frmBbKhXsHz') then
        frmBbKhXsHz := TfrmBbKhXsHz.Create(Application);
      frmBbKhXsHz.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//客户销售明细表
procedure TfrmMain.mnuBbKhXsMxClick(Sender: TObject);
begin
  frmKhRqd := TfrmKhRqd.Create(Application);
  with frmKhRqd do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      frmBbKhXsMx := TfrmBbKhXsMx.Create(Application);
      with frmBbKhXsMx do
      begin
        intKHID := frmKhRqd.intKHID;
        dteRQA := frmKhRqd.dtpRqa.Date;
        dteRQB := frmKhRqd.dtpRqb.Date;
        frmKhRqd.Free;
        ShowModal;
        Free;
      end;
      EndShow(Sender);
    end;
  end;
end;

//货品销售汇总表
procedure TfrmMain.mnuBbHpXsHzClick(Sender: TObject);
begin
  frmRqdsz := TfrmRqdsz.Create(Application);
  with frmRqdsz do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      if not IsOpenMdiForm('frmBbHpXsHz') then
        frmBbHpXsHz := TfrmBbHpXsHz.Create(Application);
      frmBbHpXsHz.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//货品销售明细表
procedure TfrmMain.mnuBbHpXsMxClick(Sender: TObject);
begin
  frmHpRqd := TfrmHpRqd.Create(Application);
  with frmHpRqd do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      frmBbHpXsMx := TfrmBbHpXsMx.Create(Application);
      with frmBbHpXsMx do
      begin
        intHPID := frmHpRqd.intHPID;
        dteRQA := frmHpRqd.dtpRqa.Date;
        dteRQB := frmHpRqd.dtpRqb.Date;
        frmHpRqd.Free;
        ShowModal;
        Free;
      end;
      EndShow(Sender);
    end;
  end;
end;

//业务员销售汇总表
procedure TfrmMain.mnuBbYwyXsHzClick(Sender: TObject);
begin
  frmRqdsz := TfrmRqdsz.Create(Application);
  with frmRqdsz do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      if not IsOpenMdiForm('frmBbYwyXsHz') then
        frmBbYwyXsHz := TfrmBbYwyXsHz.Create(Application);
      frmBbYwyXsHz.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//业务员销售明细表
procedure TfrmMain.mnuBbYwyXsMxClick(Sender: TObject);
begin
  frmYwyRqd := TfrmYwyRqd.Create(Application);
  with frmYwyRqd do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      frmBbYwyXsMx := TfrmBbYwyXsMx.Create(Application);
      with frmBbYwyXsMx do
      begin
        strYWY := frmYwyRqd.strYWY;
        dteRQA := frmYwyRqd.dtpRqa.Date;
        dteRQB := frmYwyRqd.dtpRqb.Date;
        frmYwyRqd.Free;
        ShowModal;
        Free;
      end;
      EndShow(Sender);
    end;
  end;
end;

//地区销售汇总表
procedure TfrmMain.mnuBbDqXsHzClick(Sender: TObject);
begin
  frmRqdsz := TfrmRqdsz.Create(Application);
  with frmRqdsz do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      if not IsOpenMdiForm('frmBbDqXsHz') then
        frmBbDqXsHz := TfrmBbDqXsHz.Create(Application);
      frmBbDqXsHz.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//地区销售明细表
procedure TfrmMain.mnuBbDqXsMxClick(Sender: TObject);
begin
  frmDqRqd := TfrmDqRqd.Create(Application);
  with frmDqRqd do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      frmBbDqXsMx := TfrmBbDqXsMx.Create(Application);
      with frmBbDqXsMx do
      begin
        strMC := frmDqRqd.strMC;
        dteRQA := frmDqRqd.dtpRqa.Date;
        dteRQB := frmDqRqd.dtpRqb.Date;
        frmDqRqd.Free;
        ShowModal;
        Free;
      end;
      EndShow(Sender);
    end;
  end;
end;

//货品类别销售汇总表
procedure TfrmMain.mnuBbHplbXsHzClick(Sender: TObject);
begin
  frmRqdsz := TfrmRqdsz.Create(Application);
  with frmRqdsz do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      if not IsOpenMdiForm('frmBbHplbXsHz') then
        frmBbHplbXsHz := TfrmBbHplbXsHz.Create(Application);
      frmBbHplbXsHz.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//货品类别销售明细表
procedure TfrmMain.mnuBbHplbXsMxClick(Sender: TObject);
begin
  frmHplbRqd := TfrmHplbRqd.Create(Application);
  with frmHplbRqd do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      frmBbHplbXsMx := TfrmBbHplbXsMx.Create(Application);
      with frmBbHplbXsMx do
      begin
        strMC := frmHplbRqd.strMC;
        dteRQA := frmHplbRqd.dtpRqa.Date;
        dteRQB := frmHplbRqd.dtpRqb.Date;
        frmHplbRqd.Free;
        ShowModal;
        Free;
      end;
      EndShow(Sender);
    end;
  end;
end;

//销售毛利汇总表
procedure TfrmMain.mnuBbHpXsMlHzClick(Sender: TObject);
begin
  frmRqdsz := TfrmRqdsz.Create(Application);
  with frmRqdsz do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      if not IsOpenMdiForm('frmBbHpXsMlHz') then
        frmBbHpXsMlHz := TfrmBbHpXsMlHz.Create(Application);
      frmBbHpXsMlHz.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//销售毛利明细表
procedure TfrmMain.mnuBbHpXsMlMxClick(Sender: TObject);
begin
  frmHpRqd := TfrmHpRqd.Create(Application);
  with frmHpRqd do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      frmBbHpXsMlMx := TfrmBbHpXsMlMx.Create(Application);
      with frmBbHpXsMlMx do
      begin
        intHPID := frmHpRqd.intHPID;
        dteRQA := frmHpRqd.dtpRqa.Date;
        dteRQB := frmHpRqd.dtpRqb.Date;
        frmHplbRqd.Free;
        ShowModal;
        Free;
      end;
      EndShow(Sender);
    end;
  end;
end;

//销售毛利按单计算
procedure TfrmMain.mnuBbXsMlAdjsClick(Sender: TObject);
begin
  frmRqdsz := TfrmRqdsz.Create(Application);
  with frmRqdsz do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      if not IsOpenMdiForm('frmBbXsMlAdjs') then
        frmBbXsMlAdjs := TfrmBbXsMlAdjs.Create(Application);
      frmBbXsMlAdjs.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//销售毛利年报
procedure TfrmMain.mnuBbXsNbClick(Sender: TObject);
begin
  frmNdsz := TfrmNdsz.Create(Application);
  with frmNdsz do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      if not IsOpenMdiForm('frmBbXsMlNb') then
        frmBbXsMlNb := TfrmBbXsMlNb.Create(Application);
      frmBbXsMlNb.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//业务员业绩统计
procedure TfrmMain.mnuBbYwyYjtjClick(Sender: TObject);
begin
  frmRqdsz := TfrmRqdsz.Create(Application);
  with frmRqdsz do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      if not IsOpenMdiForm('frmBbYwyYjtj') then
        frmBbYwyYjtj := TfrmBbYwyYjtj.Create(Application);
      frmBbYwyYjtj.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//销售订单执行情况
procedure TfrmMain.mnuBbXsddQkClick(Sender: TObject);
begin
  frmRqdsz := TfrmRqdsz.Create(Application);
  with frmRqdsz do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      if not IsOpenMdiForm('frmBbXsddQk') then
        frmBbXsddQk := TfrmBbXsddQk.Create(Application);
      frmBbXsddQk.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//销售未收单据
procedure TfrmMain.mnuBbXsMsdjClick(Sender: TObject);
begin
  frmRqdsz := TfrmRqdsz.Create(Application);
  with frmRqdsz do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      if not IsOpenMdiForm('frmBbXsMsdj') then
        frmBbXsMsdj := TfrmBbXsMsdj.Create(Application);
      frmBbXsMsdj.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//供应商供货汇总表
procedure TfrmMain.mnuBbGysGhHzClick(Sender: TObject);
begin
  frmRqdsz := TfrmRqdsz.Create(Application);
  with frmRqdsz do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      if not IsOpenMdiForm('frmBbGysGhHz') then
        frmBbGysGhHz := TfrmBbGysGhHz.Create(Application);
      frmBbGysGhHz.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//供应商供货明细表
procedure TfrmMain.mnuBbGysGhMxClick(Sender: TObject);
begin
  frmGysRqd := TfrmGysRqd.Create(Application);
  with frmGysRqd do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      frmBbGysGhMx := TfrmBbGysGhMx.Create(Application);
      with frmBbGysGhMx do
      begin
        intGysID := frmGysRqd.intGysID;
        dteRQA := frmGysRqd.dtpRqa.Date;
        dteRQB := frmGysRqd.dtpRqb.Date;
        frmGysRqd.Free;
        ShowModal;
        Free;
      end;
      EndShow(Sender);
    end;
  end;
end;

//货品采购汇总表
procedure TfrmMain.mnuBbHpCgHzClick(Sender: TObject);
begin
  frmRqdsz := TfrmRqdsz.Create(Application);
  with frmRqdsz do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      if not IsOpenMdiForm('frmBbHpCgHz') then
        frmBbHpCgHz := TfrmBbHpCgHz.Create(Application);
      frmBbHpCgHz.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//货品采购明细表
procedure TfrmMain.mnuBbHpCgMxClick(Sender: TObject);
begin
  frmHpRqd := TfrmHpRqd.Create(Application);
  with frmHpRqd do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      frmBbHpCgMx := TfrmBbHpCgMx.Create(Application);
      with frmBbHpCgMx do
      begin
        intHPID := frmHpRqd.intHPID;
        dteRQA := frmHpRqd.dtpRqa.Date;
        dteRQB := frmHpRqd.dtpRqb.Date;
        frmHpRqd.Free;
        ShowModal;
        Free;
      end;
      EndShow(Sender);
    end;
  end;
end;

//业务员采购汇总表
procedure TfrmMain.mnuBbYwyCgHzClick(Sender: TObject);
begin
  frmRqdsz := TfrmRqdsz.Create(Application);
  with frmRqdsz do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      if not IsOpenMdiForm('frmBbYwyCgHz') then
        frmBbYwyCgHz := TfrmBbYwyCgHz.Create(Application);
      frmBbYwyCgHz.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//业务员采购明细表
procedure TfrmMain.mnuBbYwyCgMxClick(Sender: TObject);