unit BackPBEdit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, cxControls, cxContainer, cxEdit, cxTextEdit,
  cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, DB, ADODB,
  Mask, DBCtrls;

type
  TfrmBackPBEdit = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    dsHouse: TDataSource;
    qryHouse: TADOQuery;
    qryBookClass: TADOQuery;
    dsBookClass: TDataSource;
    dsqryBackSubs: TDataSource;
    cxlcbBookId: TcxLookupComboBox;
    DBEdit1: TDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    edtdiscount: TEdit;
    DBEdtCount: TDBEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure edtdiscountKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBackPBEdit: TfrmBackPBEdit;

implementation

uses unSystPublic, BackPbUnit;

{$R *.dfm}

procedure TfrmBackPBEdit.BitBtn1Click(Sender: TObject);
  function getBundles(Acount:integer):string;
  var tint:integer;
  begin
    tint :=qryBookClass.fieldbyname('Volumes').AsInteger;
    Result :=inttostr(Trunc(Acount/tint))+'+'+inttostr(Acount mod tint)+'('+inttostr(tint)+')';
  end;
var Count,Bao,Ce:integer;
begin
  if cxlcbBookId.Text ='' then
  begin
    Application.MessageBox('編號(hào)不能為空',Title,MB_ICONWARNING);
    Abort;
  end else
  if DBEdtCount.Text ='' then
  begin
    Application.MessageBox('數(shù)量不能為空',Title,MB_ICONWARNING);
    Abort;
  end else
  if edtdiscount.Text ='' then
  begin
    Application.MessageBox('折扣不能為空',Title,MB_ICONWARNING);
    Abort;
  end ;//else
  {if cxcbPosHouse.Text ='' then
  begin
    Application.MessageBox('庫(kù)位不能為空',Title,MB_ICONWARNING);
    Abort;
  end;}
  with frmBackPBUnit.qryBackSubs do
  begin
    FieldByName('discount').AsFloat :=strtofloat(edtdiscount.Text)/100;
    FieldByName('BookId').AsString :=cxlcbBookId.Text;
    qryBookClass.Locate('BookId',cxlcbBookId.Text,[loCaseInsensitive]);
    FieldByName('BookName').AsString :=qryBookClass.fieldbyname('BookName').AsString;
    FieldByName('BookEdition').AsString :=qryBookClass.fieldbyname('BookEdition').AsString;
    FieldByName('BookPrice').AsString :=qryBookClass.fieldbyname('BookPrice').AsString;
    FieldByName('HousePos').AsString :='0';//qryHouse.fieldbyname('HouseName').AsString;
    FieldByName('BackType').AsString :='2';
    Count :=FieldByName('BookCount').AsInteger;
    if FieldByName('BookPrice').AsString<>'' then
    begin
      FieldByName('TotalMoney').AsFloat :=Count * FieldByName('BookPrice').AsFloat ;
      FieldByName('Bundles').AsString := getBundles(Count);
    end;
    if (FieldByName('BookPrice').AsString<>'') and (FieldByName('BookCount').AsString<>'') then
    FieldByName('RealMoney').AsFloat :=FieldByName('BookCount').AsInteger * FieldByName('BookPrice').AsFloat * FieldByName('Discount').AsFloat;
    if State in [dsEdit,dsInsert] then
    Post;

  end;
  close;
end;

procedure TfrmBackPBEdit.BitBtn2Click(Sender: TObject);
begin
  frmBackPBUnit.qryBackSubs.Cancel;
end;

procedure TfrmBackPBEdit.FormCreate(Sender: TObject);
begin
  qryBookClass.Open;
  qryHouse.Open;
  if tag=0 then
  edtdiscount.Text := floattostr(frmBackPBUnit.qryBackSubs.FieldByName('discount').AsFloat*100)
end;

procedure TfrmBackPBEdit.edtdiscountKeyPress(Sender: TObject;
  var Key: Char);
begin
  if not (key in ['0'..'9',#8]) then
  key :=#0;
end;

end.