oorder.pas

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

unit OOrder;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unitmb, StdCtrls, Grids, DBGridEh, Buttons, ComCtrls, ExtCtrls,
  ToolWin, ImgList, Menus,adoDb, FR_Ctrls;

type
  TOOrderForm = class(TmbForm)
    CheckBox1: TCheckBox;
    DatePicker: TDateTimePicker;
    procedure cmdSaveClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OOrderForm: TOOrderForm;

implementation

uses datamodule1, report2;

{$R *.dfm}

procedure TOOrderForm.cmdSaveClick(Sender: TObject);
begin
  with dataE2 do
  InsertIOrder(nBillid,nCusId,nEmployid,edtBillDate.date,edtInvoNo.text,edtMemo.text,myTable);
end;

procedure TOOrderForm.FormShow(Sender: TObject);
begin
  inherited;
  mySql:='select o.*,s.code,s.name,s.units from O_OrderD o inner join goods s  on s.GoodsId=s.GoodsId where  billid= :billid ';
  myTable:='O_Order';
  nTableId := 10;
  with DataE2 do
  begin
    nBillId:=8888888;
    if queryDetail.active then queryDetail.close;
    querydetail.sql.clear;
    queryDetail.sql.add(mySql);
  end;
  //  DatePicker.Date:=now;
end;

procedure TOOrderForm.cmdPrintClick(Sender: TObject);
begin
  inherited;
    tablename:='O_OrderD';
    sName:='销售订单';
    //FormRpt1.Printporder(false);
end;

end.