backpbunit.~pas

一个图书批发商的通用软件

unit BackPBUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, dxBar, dxBarExtItems, ComCtrls, ExtCtrls, dxExEdtr,
  dxCntner, dxTL, dxDBCtrl, dxDBGrid, Buttons, DB, ADODB, dxDBTLCl,
  dxGrClms, Mask, DBCtrls, dxEditor, dxEdLib, dxDBELib, cxControls,
  cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit,
  cxLookupEdit, cxDBLookupEdit, dxGrClEx, dxLayout, cxGridCustomPopupMenu,
  cxGridPopupMenu, FR_Class, FR_E_TXT, FR_DSet, FR_DBSet;

type
  TfrmBackPBUnit = class(TForm)
    dxBarManager1: TdxBarManager;
    dxBarLargeButton1: TdxBarLargeButton;
    dxBarLargeButton2: TdxBarLargeButton;
    dxBarLargeButton3: TdxBarLargeButton;
    dxBarLargeButton4: TdxBarLargeButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    edtNumber: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    dtpDateNow: TDateTimePicker;
    GroupBox1: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    edtAVgDiscount: TEdit;
    Label8: TLabel;
    edtSumBookCount: TEdit;
    Label9: TLabel;
    edtSumTotalMoney: TEdit;
    Label10: TLabel;
    edtAvgBookPrice: TEdit;
    Label11: TLabel;
    edtzkMoney: TEdit;
    Label12: TLabel;
    edtSumRealMoney: TEdit;
    Label13: TLabel;
    edtTaxMoney: TEdit;
    Label14: TLabel;
    edtNotax: TEdit;
    Label15: TLabel;
    edtOtherMoney: TEdit;
    Label16: TLabel;
    edtGetMoney: TEdit;
    Label23: TLabel;
    Panel2: TPanel;
    dssubs: TDataSource;
    qryBackSubs: TADOQuery;
    dxDBGrid1: TdxDBGrid;
    Panel3: TPanel;
    bbtnAdd: TBitBtn;
    bbtnDelete: TBitBtn;
    dxDBGrid1BookName: TdxDBGridColumn;
    dxDBGrid1BookEdition: TdxDBGridColumn;
    dxDBGrid1BookCount: TdxDBGridMaskColumn;
    dxDBGrid1Discount: TdxDBGridMaskColumn;
    dxDBGrid1Bundles: TdxDBGridColumn;
    dsPublish: TDataSource;
    qryPublish: TADOQuery;
    qryBackUnit: TADOQuery;
    cxlcbSaleBookingId: TcxLookupComboBox;
    dsdbEdit: TDataSource;
    edtUnitName: TDBEdit;
    dxDBGrid1BookId: TdxDBGridExtLookupColumn;
    dxDBGrid1HousePos: TdxDBGridExtLookupColumn;
    dxBarLargeButton5: TdxBarLargeButton;
    edtMemo: TEdit;
    bbtnEdit: TBitBtn;
    dxBarLargeButton6: TdxBarLargeButton;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    dxDBGrid1addBook: TdxDBGridMaskColumn;
    cbWholeBooking: TComboBox;
    qryBackSubsId: TAutoIncField;
    qryBackSubsUnitId: TWideStringField;
    qryBackSubsSaleId: TWideStringField;
    qryBackSubsBookId: TWideStringField;
    qryBackSubsBookName: TWideStringField;
    qryBackSubsBookEdition: TWideStringField;
    qryBackSubsBookCount: TIntegerField;
    qryBackSubsAddBook: TIntegerField;
    qryBackSubsBookPrice: TBCDField;
    qryBackSubsDiscount: TBCDField;
    qryBackSubsTotalMoney: TBCDField;
    qryBackSubsRealMoney: TBCDField;
    qryBackSubsHousePos: TWideStringField;
    qryBackSubsBundles: TWideStringField;
    qryBackSubsBackType: TWideStringField;
    dxDBGrid1BookPrice: TdxDBGridCurrencyColumn;
    dxDBGrid1TotalMoney: TdxDBGridCurrencyColumn;
    dxDBGrid1RealMoney: TdxDBGridCurrencyColumn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure bbtnAddClick(Sender: TObject);
    procedure bbtnDeleteClick(Sender: TObject);
    procedure dxBarLargeButton1Click(Sender: TObject);
    procedure dxBarLargeButton2Click(Sender: TObject);
    procedure dxBarLargeButton3Click(Sender: TObject);
    procedure cxlcbSaleBookingIdPropertiesChange(Sender: TObject);
    procedure dxBarLargeButton4Click(Sender: TObject);
    procedure qryBackSubsBeforePost(DataSet: TDataSet);
    procedure FormDestroy(Sender: TObject);
    procedure edtOtherMoneyKeyPress(Sender: TObject; var Key: Char);
    procedure qryBackSubsAfterOpen(DataSet: TDataSet);
    procedure dxDBGrid1BookIdChange(Sender: TObject);
    procedure qryBackSubsAfterPost(DataSet: TDataSet);
    procedure bbtnEditClick(Sender: TObject);
    procedure dxBarLargeButton6Click(Sender: TObject);
    procedure qryBackUnitAfterPost(DataSet: TDataSet);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBackPBUnit: TfrmBackPBUnit;
implementation

uses Data, unSystPublic, BackPBEdit;

{$R *.dfm}
procedure frmSaleBookingShow;
begin

end;
procedure TfrmBackPBUnit.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if (qryBackUnit.State in[dsEdit,dsInsert]) and(cxlcbSaleBookingId.Text<>'') and(edtNumber.Text<>'') then
  if Application.MessageBox('保存新加的订单吗？',Title,MB_ICONQUESTION+MB_YESNO)=idyes then
  dxBarLargeButton2Click(Sender)//保存
  else
  begin
    with dmData.qryTemp do
    begin
      SQL.Text :='Delete From tbBackSubs where SaleId='''+edtNumber.Text+''' and BackType=''2''';
      ExecSQL;
    end;
  end;
  qryBackUnit.Close;
  qryBackSubs.Close;
  Action :=caFree;
  frmBackPBUnit :=nil;
end;
procedure TfrmBackPBUnit.FormShow(Sender: TObject);
begin
  dtpDateNow.DateTime :=now;
  with qryPublish do
  begin
    Close;
    SQL.Text :='Select * From tbPublish';
    Open;
  end;
  {with qryBookingSubs do
  begin
    Close;
    SQL.Text :='Select * From tbBookingSubs';
    Open;
  end;}
  {with qryBookClass do
  begin
    Close;
    SQL.Text :='Select * From tbBookClass';
    Open;
  end;
  with qryHouse do
  begin
    Close;
    SQL.Text :='Select * From tbHouse';
    Open;
  end; }
  GetPH(cbWholeBooking);
end;

procedure TfrmBackPBUnit.bbtnAddClick(Sender: TObject);
begin
  qryBackSubs.Append;
  frmBackPBEdit :=TfrmBackPBEdit.Create(self);
  with frmBackPBEdit do
  begin
    try
      Tag :=1; //增加标志
      ShowModal;
    finally
      Free;
    end;
  end;
end;

procedure TfrmBackPBUnit.bbtnDeleteClick(Sender: TObject);
begin
  if Application.MessageBox('真的要删除吗?',Title,MB_ICONQUESTION+MB_YESNO)=Idyes then
  qryBackSubs.Delete;
end;

procedure TfrmBackPBUnit.dxBarLargeButton1Click(Sender: TObject);
begin
  dxBarLargeButton2Click(Sender);//保存
  dsdbEdit.DataSet :=nil;
  edtNumber.Text :='';
  GetPH(cbWholeBooking);
  cxlcbSaleBookingId.Text :='';
  edtAVgDiscount.Text :='0';
  edtAvgBookPrice.Text :='0';
  edtSumBookCount.Text :='0';
  edtSumTotalMoney.Text :='0';
  edtSumRealMoney.Text :='0';
  edtzkMoney.Text := '0';
  with qryBackUnit do
  begin
    Close;
    SQL.Text :='Select Max(SaleId) From tbBackUnit where BackType=''2''';
    Open;
    if Fields[0].Value=Null then
    edtNumber.Text :=StartSaleId
    else
    edtNumber.Text :=Inttostr(Fields[0].asInteger+1);
    close;
    SQL.Text :='Select * From tbBackUnit where BackType=''2''';
    Open;
    Append;
  end;
  with qryBackSubs do
  begin
    Close;
    SQL.Text :='Select * From tbBackSubs where SaleId='''+edtNumber.Text+''' and BackType=''2''';
    Open;
  end;