saleunit.pas

来自「一个图书批发商的通用软件」· PAS 代码 · 共 468 行 · 第 1/2 页

unit SaleUnit;

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,
  cxDBLookupComboBox;

type
  TfrmSaleUnit = 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;
    qrySaleSubs: TADOQuery;
    dxDBGrid1: TdxDBGrid;
    Panel3: TPanel;
    bbtnAdd: TBitBtn;
    bbtnDelete: TBitBtn;
    dxDBGrid1BookName: TdxDBGridColumn;
    dxDBGrid1BookEdition: TdxDBGridColumn;
    dxDBGrid1BookCount: TdxDBGridMaskColumn;
    dxDBGrid1Discount: TdxDBGridMaskColumn;
    dxDBGrid1Bundles: TdxDBGridColumn;
    dsCient: TDataSource;
    qryClient: TADOQuery;
    qrySaleUnit: 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;
    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 BitBtn3Click(Sender: TObject);
    procedure dxBarLargeButton1Click(Sender: TObject);
    procedure dxBarLargeButton2Click(Sender: TObject);
    procedure dxBarLargeButton3Click(Sender: TObject);
    procedure cxlcbSaleBookingIdPropertiesChange(Sender: TObject);
    procedure dxBarLargeButton4Click(Sender: TObject);
    procedure qrySaleSubsBeforePost(DataSet: TDataSet);
    procedure FormDestroy(Sender: TObject);
    procedure edtOtherMoneyKeyPress(Sender: TObject; var Key: Char);
    procedure qrySaleSubsAfterOpen(DataSet: TDataSet);
    procedure dxDBGrid1BookIdChange(Sender: TObject);
    procedure qrySaleSubsAfterPost(DataSet: TDataSet);
    procedure bbtnEditClick(Sender: TObject);
    procedure dxBarLargeButton6Click(Sender: TObject);
    procedure qrySaleUnitAfterPost(DataSet: TDataSet);

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

var
  frmSaleUnit: TfrmSaleUnit;
 // procedure frmSaleShow;
implementation

uses Data, unSystPublic, Client,SaleEdit;

{$R *.dfm}
procedure frmSaleBookingShow;
begin

end;
procedure TfrmSaleUnit.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if (qrySaleUnit.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 tbSaleSubs where SaleId='''+edtNumber.Text+'''';
      ExecSQL;
    end;
  end;
  qrySaleUnit.Close;
  qrySaleSubs.Close;
  Action :=caFree;
  frmSaleUnit :=nil;
end;
procedure TfrmSaleUnit.FormShow(Sender: TObject);
begin
  dtpDateNow.DateTime :=now;
  with qryClient do
  begin
    Close;
    SQL.Text :='Select * From tbClient';
    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 TfrmSaleUnit.bbtnAddClick(Sender: TObject);
begin
  qrySaleSubs.Append;
  frmSaleEdit :=TfrmSaleEdit.Create(self);
  with frmSaleEdit do
  begin
    try
      Tag :=1; //增加标志
      ShowModal;
    finally
      Free;
    end;
  end;
end;

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

procedure TfrmSaleUnit.BitBtn3Click(Sender: TObject);
begin
  if qryClient.State in[dsEdit,dsInsert] then
  qrySaleSubs.Post;
end;

procedure TfrmSaleUnit.dxBarLargeButton1Click(Sender: TObject);
begin
  dxBarLargeButton2Click(Sender);//保存
  dsdbEdit.DataSet :=nil;
  edtNumber.Text :='';
  GetPH(cbWholeBooking);
  cxlcbSaleBookingId.Text :='';
  edtAVgDiscount.Text :='0';
  edtAvgBookPrice.Text :='0.0';
  edtSumBookCount.Text :='0';
  edtSumTotalMoney.Text :='0.0';
  edtSumRealMoney.Text :='0.0';
  edtzkMoney.Text := '0.0';
  edtGetMoney.Text :='0.0';
  with qrySaleUnit do
  begin
    Close;
    SQL.Text :='Select Max(SaleId) From tbSaleUnit';
    Open;
    if Fields[0].Value=Null then
    edtNumber.Text :=StartSaleId
    else
    edtNumber.Text :=Inttostr(Fields[0].asInteger+1);
    close;
    SQL.Text :='Select * From tbSaleUnit';
    Open;
    Append;
  with qrySaleSubs do
  begin
    Close;
    SQL.Text :='Select * From tbSaleSubs where SaleId='''+edtNumber.Text+'''';
    Open;
  end;
  end;
end;

procedure TfrmSaleUnit.dxBarLargeButton2Click(Sender: TObject);