main.pas

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

begin
  frmYwyRqd := TfrmYwyRqd.Create(Application);
  with frmYwyRqd do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      frmBbYwyCgMx := TfrmBbYwyCgMx.Create(Application);
      with frmBbYwyCgMx 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.mnuBbCgddQkClick(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('frmBbCgddQk') then
        frmBbCgddQk := TfrmBbCgddQk.Create(Application);
      frmBbCgddQk.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//采购未收单据
procedure TfrmMain.mnuBbCgMfdjClick(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('frmBbCgMfdj') then
        frmBbCgMfdj := TfrmBbCgMfdj.Create(Application);
      frmBbCgMfdj.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//仓库库存汇总表
procedure TfrmMain.mnuBbCkkcHzClick(Sender: TObject);
begin
  frmCkRqd := TfrmCkRqd.Create(Application);
  with frmCkRqd do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      if not IsOpenMdiForm('frmBbCkkcHz') then
        frmBbCkkcHz := TfrmBbCkkcHz.Create(Application);
      frmBbCkkcHz.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//仓库库存明细表
procedure TfrmMain.mnuBbCkkcMxClick(Sender: TObject);
begin
  frmCkHpRqd := TfrmCkHpRqd.Create(Application);
  with frmCkHpRqd do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      frmBbCkkcMx := TfrmBbCkkcMx.Create(Application);
      with frmBbCkkcMx do
      begin
        intCKID := frmCkHpRqd.intCKID;
        intHPID := frmCkHpRqd.intHPID;
        dteRQA := frmCkHpRqd.dtpRqa.Date;
        dteRQB := frmCkHpRqd.dtpRqb.Date;
        frmCkHpRqd.Free;
        ShowModal;
        Free;
      end;
      EndShow(Sender);
    end;
  end;
end;

//货品仓位表
procedure TfrmMain.mnuBbKcCwbClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmBbHpCwb') then
    frmBbHpCwb := TfrmBbHpCwb.Create(Application);
  frmBbHpCwb.Show;
  EndShow(Sender);
end;

//应收款帐薄
procedure TfrmMain.mnuBbYskZbClick(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('frmBbYskZb') then
        frmBbYskZb := TfrmBbYskZb.Create(Application);
      frmBbYskZb.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//应收款明细帐
procedure TfrmMain.mnuBbYskMxClick(Sender: TObject);
begin
  frmKhRqd := TfrmKhRqd.Create(Application);
  with frmKhRqd do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      frmBbYskMx := TfrmBbYskMx.Create(Application);
      with frmBbYskMx 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.mnuBbYskZlfxClick(Sender: TObject);
begin
  frmZlfxSz := TfrmZlfxSz.Create(Application);
  with frmZlfxSz do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    IniName := 'ZLFXSZ_YSK';
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      if not IsOpenMdiForm('frmBbYskZlfx') then
        frmBbYskZlfx := TfrmBbYskZlfx.Create(Application);
      frmBbYskZlfx.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//应收款帐龄明细
procedure TfrmMain.mnuBbYskZlMxClick(Sender: TObject);
begin
  frmZlfxKhSz := TfrmZlfxKhSz.Create(Application);
  with frmZlfxKhSz do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    IniName := 'ZLFXSZ_YSK';
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      frmBbYskZlMx := TfrmBbYskZlMx.Create(Application);
      with frmBbYskZlMx do
      begin
        intKHID := frmZlfxKhSz.intKHID;
        dteRQ := frmZlfxKhSz.dtpRq.Date;
        aTS[0] := 0;
        aTS[1] := StrToInt(frmZlfxKhSz.TS1.Text);
        aTS[2] := StrToInt(frmZlfxKhSz.TS2.Text);
        aTS[3] := StrToInt(frmZlfxKhSz.TS3.Text);
        aTS[4] := StrToInt(frmZlfxKhSz.TS4.Text);
        aTS[5] := StrToInt(frmZlfxKhSz.TS5.Text);
        aTS[6] := StrToInt(frmZlfxKhSz.TS6.Text);
        aTS[7] := StrToInt(frmZlfxKhSz.TS7.Text);
        frmZlfxKhSz.Free;
        ShowModal;
        Free;
      end;
      EndShow(Sender);
    end;
  end;
end;

//应付款帐薄
procedure TfrmMain.mnuBbYfkZbClick(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('frmBbYfkZb') then
        frmBbYfkZb := TfrmBbYfkZb.Create(Application);
      frmBbYfkZb.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//应付款明细帐
procedure TfrmMain.mnuBbYfkMxClick(Sender: TObject);
begin
  frmGysRqd := TfrmGysRqd.Create(Application);
  with frmGysRqd do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      frmBbYfkMx := TfrmBbYfkMx.Create(Application);
      with frmBbYfkMx 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.mnuBbYfkZlfxClick(Sender: TObject);
begin
  frmZlfxSz := TfrmZlfxSz.Create(Application);
  with frmZlfxSz do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    IniName := 'ZLFXSZ_YFK';
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      if not IsOpenMdiForm('frmBbYfkZlfx') then
        frmBbYfkZlfx := TfrmBbYfkZlfx.Create(Application);
      frmBbYfkZlfx.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//应付款帐龄明细
procedure TfrmMain.mnuBbYfkZlMxClick(Sender: TObject);
begin
  frmZlfxGysSz := TfrmZlfxGysSz.Create(Application);
  with frmZlfxGysSz do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    IniName := 'ZLFXSZ_YFK';
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      frmBbYfkZlMx := TfrmBbYfkZlMx.Create(Application);
      with frmBbYfkZlMx do
      begin
        intGYSID := frmZlfxGysSz.intGYSID;
        dteRQ := frmZlfxGysSz.dtpRq.Date;
        aTS[0] := 0;
        aTS[1] := StrToInt(frmZlfxGysSz.TS1.Text);
        aTS[2] := StrToInt(frmZlfxGysSz.TS2.Text);
        aTS[3] := StrToInt(frmZlfxGysSz.TS3.Text);
        aTS[4] := StrToInt(frmZlfxGysSz.TS4.Text);
        aTS[5] := StrToInt(frmZlfxGysSz.TS5.Text);
        aTS[6] := StrToInt(frmZlfxGysSz.TS6.Text);
        aTS[7] := StrToInt(frmZlfxGysSz.TS7.Text);
        frmZlfxGysSz.Free;
        ShowModal;
        Free;
      end;
      EndShow(Sender);
    end;
  end;
end;

//日期流水帐
procedure TfrmMain.mnuBbRqLszClick(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('frmBbRqLsz') then
        frmBbRqLsz := TfrmBbRqLsz.Create(Application);
      frmBbRqLsz.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//客户流水帐
procedure TfrmMain.mnuBbKhLszClick(Sender: TObject);
begin
  frmKhRqd := TfrmKhRqd.Create(Application);
  with frmKhRqd do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      if not IsOpenMdiForm('frmBbKhLsz') then
        frmBbKhLsz := TfrmBbKhLsz.Create(Application);
      frmBbKhLsz.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//供应商流水帐
procedure TfrmMain.mnuBbGysLszClick(Sender: TObject);
begin
  frmGysRqd := TfrmGysRqd.Create(Application);
  with frmGysRqd do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      if not IsOpenMdiForm('frmBbGysLsz') then
        frmBbGysLsz := TfrmBbGysLsz.Create(Application);
      frmBbGysLsz.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//仓库流水帐
procedure TfrmMain.mnuBbCkLszClick(Sender: TObject);
begin
  frmCkRqd := TfrmCkRqd.Create(Application);
  with frmCkRqd do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      if not IsOpenMdiForm('frmBbCkLsz') then
        frmBbCkLsz := TfrmBbCkLsz.Create(Application);
      frmBbCkLsz.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//收支流水帐
procedure TfrmMain.mnuBbSzLszClick(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('frmBbSzLsz') then
        frmBbSzLsz := TfrmBbSzLsz.Create(Application);
      frmBbSzLsz.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//收支汇总表
procedure TfrmMain.mnuBbSzHzClick(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('frmBbSzHz') then
        frmBbSzHz := TfrmBbSzHz.Create(Application);
      frmBbSzHz.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//收支明细表
procedure TfrmMain.mnuBbSzMxClick(Sender: TObject);
begin
  frmSzlbRqd := TfrmSzlbRqd.Create(Application);
  with frmSzlbRqd do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      frmBbSzMx := TfrmBbSzMx.Create(Application);
      with frmBbSzMx do
      begin
        intSRZCLBID := frmSzlbRqd.intSRZCLBID;
        dteRQA := frmSzlbRqd.dtpRqa.Date;
        dteRQB := frmSzlbRqd.dtpRqb.Date;
        frmSzlbRqd.Free;
        ShowModal;
        Free;
      end;
      EndShow(Sender);
    end;
  end;
end;

//日记帐汇总表
procedure TfrmMain.mnuBbXjyhHzClick(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('frmBbXjyhHz') then
        frmBbXjyhHz := TfrmBbXjyhHz.Create(Application);
      frmBbXjyhHz.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//超期应收款
procedure TfrmMain.mnuCqYskClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmBbCqYsk') then
    frmBbCqYsk := TfrmBbCqYsk.Create(Application);
  frmBbCqYsk.Show;
  EndShow(Sender);
end;

//将到期应收款
procedure TfrmMain.mnuJdqYskClick(Sender: TObject);
begin
  frmJdqSz := TfrmJdqSz.Create(Application);
  with frmJdqSz do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      if not IsOpenMdiForm('frmBbJdqYsk') then
        frmBbJdqYsk := TfrmBbJdqYsk.Create(Application);
      frmBbJdqYsk.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//超期应付款
procedure TfrmMain.mnuCqYfkClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmBbCqYfk') then
    frmBbCqYfk := TfrmBbCqYfk.Create(Application);
  frmBbCqYfk.Show;
  EndShow(Sender);
end;

//将到期应付款
procedure TfrmMain.mnuJdqYfkClick(Sender: TObject);
begin
  frmJdqSz := TfrmJdqSz.Create(Application);
  with frmJdqSz do
  begin
    Caption := ClearHotKey(TMenuItem(Sender).Caption);
    ShowModal;
    if ModalResult = MROK then
    begin
      BeginShow(Sender);
      if not IsOpenMdiForm('frmBbJdqYfk') then
        frmBbJdqYfk := TfrmBbJdqYfk.Create(Application);
      frmBbJdqYfk.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

//营业利润一览表
procedure TfrmMain.mnuYyLrbClick(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('frmBbYyLrb') then
        frmBbYyLrb := TfrmBbYyLrb.Create(Application);
      frmBbYyLrb.Show;
      EndShow(Sender);
    end;
    Free;
  end;
end;

end.