preceipt.pas

来自「飞恒进销存(超市批发)管理系统（含源程序） 语言：Delphi 6/7 相」· PAS 代码 · 共 119 行

unit PReceipt;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Unitmb, Grids, DBGridEh, StdCtrls, Buttons, ComCtrls, ExtCtrls, ToolWin,
  Mask, DBCtrlsEh, DBLookupEh, Menus, ImgList;

type
  TPReceiptForm = class(TmbForm)
    DBLCreceipt: TDBLookupComboboxEh;
    procedure cmdPriorClick(Sender: TObject);
    procedure cmdSaveClick(Sender: TObject);
    procedure cbIdExit(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure cmdNextClick(Sender: TObject);
    procedure previewClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PReceiptForm: TPReceiptForm;

implementation

uses datamodule1, report2;

{$R *.DFM}


procedure TPReceiptForm.cmdPriorClick(Sender: TObject);
begin
  inherited;
  with datamodule2 do
   if GetPrior('P_receipt',nBillId) then
   begin
    nBillId:=adoquery1.fieldbyname('billId').asinteger;
    if setDetail.active then setdetail.close;
    setDetail.commandtext:='select * from P_receiptD where billid= :billid';
    setdetail.parameters[0].value:=nBillId;
    setDetail.open;
   end;

end;

procedure TPReceiptForm.cmdSaveClick(Sender: TObject);
begin
  inherited;
  with  datamodule2  do
  begin
    setDetail.updatebatch;
    InsertPReceipt(nBillid,edtBillDate.date,'Comp','sUsrName','mktUsr','wUsr','sWhid');
  end;

end;

procedure TPReceiptForm.cbIdExit(Sender: TObject);
begin
  inherited;
  with datamodule2 do
  begin
    nBillId:=GetBillId('NEW');
    if setDetail.active then setdetail.close;
    setDetail.commandtext:='select * from P_receiptD where billid= :billid';
    setdetail.parameters[0].value:=nBillId;
    setDetail.open;

    nId:=1;
  end;

end;

procedure TPReceiptForm.FormShow(Sender: TObject);
begin
  inherited;
  with datamodule2 do
  begin
    nBillId:=8888888;
    if setDetail.active then setdetail.close;
  end;

end;

procedure TPReceiptForm.FormResize(Sender: TObject);
begin
  inherited;
DBLCreceipt.Left:=edtMktUsr.Left+2;
end;

procedure TPReceiptForm.cmdNextClick(Sender: TObject);
begin
  inherited;
   with datamodule2 do
   if GetNext('P_receipt',nBillId) then
   begin
    nBillId:=adoquery1.fieldbyname('billId').asinteger;
    if setDetail.active then setdetail.close;
    setDetail.commandtext:='select * from P_receiptD where billid= :billid';
    setdetail.parameters[0].value:=nBillId;
    setDetail.open;
   end;

end;

procedure TPReceiptForm.previewClick(Sender: TObject);
begin
  inherited;
    tablename:='p_receiptD';
    sName:='采购发货单';
    FormRpt1.Printporder(false);
end;

end.