inhouseedit.pas

来自「一个图书批发商的通用软件」· PAS 代码 · 共 103 行

unit InhouseEdit;

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
  TfrmInHouseEdit = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    dsHouse: TDataSource;
    qryHouse: TADOQuery;
    qryBookClass: TADOQuery;
    dsBookClass: TDataSource;
    dsqryInHouseSubs: TDataSource;
    cxlcbBookId: TcxLookupComboBox;
    DBEdit1: TDBEdit;
    Label5: TLabel;
    DBEdtCount: TDBEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmInHouseEdit: TfrmInHouseEdit;

implementation

uses unSystPublic, InHouseUnit;

{$R *.dfm}

procedure TfrmInHouseEdit.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('编号不能为空',Title,MB_ICONWARNING);
    Abort;
  end else
  if DBEdtCount.Text ='' then
  begin
    Application.MessageBox('数量不能为空',Title,MB_ICONWARNING);
    Abort;
  end;// else
  //if cxcbPosHouse.Text ='' then
 // begin
 //   Application.MessageBox('库位不能为空',Title,MB_ICONWARNING);
  //  Abort;
 // end;
  with frmInHouseUnit.qryInHouseSubs do
  begin
    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;
    Count :=FieldByName('BookCount').AsInteger;
    if FieldByName('BookPrice').AsString<>'' then
    begin
      FieldByName('TotalMoney').AsFloat :=Count * FieldByName('BookPrice').AsFloat ;
      FieldByName('Bundles').AsString := getBundles(Count);
    end;
    if State in [dsEdit,dsInsert] then
    Post;

  end;
  close;
end;

procedure TfrmInHouseEdit.BitBtn2Click(Sender: TObject);
begin
  frmInHouseUnit.qryInHouseSubs.Cancel;
end;

procedure TfrmInHouseEdit.FormCreate(Sender: TObject);
begin
  qryBookClass.Open;
  qryHouse.Open;

end;

end.