porder.pas

飞恒进销存(超市批发)管理系统V5.1（含源程序） 语言：Delphi 6/7 相关控件：FastReport 2.4以上, Ehlib 3.4以上 1.数据库为fhe2db_V51.da

unit Porder;

interface

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

type
  TPOrderForm = class(TmbForm)
    DateTimePicker2: TDateTimePicker;
    procedure FormResize(Sender: TObject);
    procedure cmdSaveClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cmdOperateClick(Sender: TObject);
    procedure cmdNextClick(Sender: TObject);
    procedure cmdPriorClick(Sender: TObject);
    procedure previewClick(Sender: TObject);
    procedure printClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  POrderForm: TPOrderForm;

implementation
uses datamodule1, searchstore, report2;
{$R *.DFM}


procedure TPOrderForm.FormResize(Sender: TObject);
begin
  inherited;
DateTimePicker2.Left:=mbLabel8.Left+1;
end;


procedure TPOrderForm.cmdSaveClick(Sender: TObject);
var
  sStatus:TRecordStatusset;
begin
  inherited;
  with  datamodule2  do
  begin

   setdetail.First;
    while not setdetail.eof do
    begin
      sStatus:=setDetail.RecordStatus;
      setDetail.Next;
    end;
    setDetail.updatebatch;
    InsertPOrder(nBillid,edtBillDate.date,edtInvoNo.text,cbId.Text,'sUsrName','mktUsr','wUsr','sWhid');
{    GetNum.Edit;
    GetNum.FieldByName('num').AsInteger:=GetNum.FieldByName('num').AsInteger+1;
    GetNum.Post;}
  end;

end;

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


end;

procedure TPOrderForm.cmdOperateClick(Sender: TObject);
begin
  inherited;
  with datamodule2 do
  begin
    nBillId:=GetBillId('NEW');
    if setDetail.active then setdetail.close;
    setDetail.commandtext:='select o.*,s.name,s.units from p_orderd o inner join store s  on o.barcode=s.barcode where  billid= :billid  ';
    setdetail.parameters[0].value:=nBillId;
    setDetail.open;

    nId:=1;
  end;
//  edtInvoNo.text:='JD'+formatdatetime('yyyymmdd', date) + inttostr(GetItem);
  DBGrid1.ReadOnly:=false;
end;


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

end;

procedure TPOrderForm.cmdPriorClick(Sender: TObject);
begin
  inherited;
  with datamodule2 do
   if GetPrior('P_Order',nBillId) then
   begin
    nBillId:=adoquery1.fieldbyname('billId').asinteger;
    if setDetail.active then setdetail.close;
{    setDetail2.sql.clear;
    setDetail2.sql.add('select o.*,s.name,s.units from p_orderd o,store s where o.billid= :billid and o.barcode=s.barcode');
 }
    setdetail.parameters[0].value:=nBillId;
    setDetail.open;
   end;
end;

procedure TPOrderForm.previewClick(Sender: TObject);
begin
  inherited;
    tablename:='p_orderD';
    sName:='采购定单';
    FormRpt1.Printporder(false);
end;

procedure TPOrderForm.printClick(Sender: TObject);
begin
  inherited;
 formrpt1.frReport1.PrintPreparedReportDlg;
end;

end.