arinvoicepaymentsform.pas

功能全面的商业财会系统源码,清晰,很有参考价值.扩展性强.

unit ARInvoicePaymentsForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBTables, DB, Grids, DBGrids;

type
  TfrmARInvoicePayments = class(TForm)
    tblARInvPmt: TTable;
    dsARInvPmt: TDataSource;
    DBGrid1: TDBGrid;
    tblARInvPmtPaymentAmount: TCurrencyField;
    tblARPmt: TTable;
    tblARPmtChequeAmount: TCurrencyField;
    tblARInvPmtPaymentDate: TDateField;
    tblARInvPmtChequeAmount: TCurrencyField;
    tblARPmtPaymentID: TIntegerField;
    tblARPmtPaymentDate: TDateField;
    tblARInvPmtARInvoiceID: TIntegerField;
    tblARInvPmtPaymentID: TIntegerField;
    tblARPmtChequeNo: TStringField;
    tblARInvPmtChequeNo: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure dsARInvPmtDataChange(Sender: TObject; Field: TField);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmARInvoicePayments: TfrmARInvoicePayments;

implementation

uses BS1Form, ARInvoicesForm;

{$R *.DFM}

procedure TfrmARInvoicePayments.FormCreate(Sender: TObject);
var
  x, intClientWidth: integer;
begin
  tblARInvPmt.DatabaseName := strDatabaseName;
  tblARPmt.DatabaseName := strDatabaseName;
  tblARInvPmt.Active := true;
  tblARPmt.Active := true;

  if FontFactor <> 1 then begin   //If using large fonts, resize grid columns.
    intClientWidth := Trunc(20*FontFactor) + DBGrid1.Columns.Count -1;   //Scrollbar + grid lines.
    for x := 0 to DBGrid1.Columns.Count - 1 do begin
      DBGrid1.Columns[x].width := Trunc(DBGrid1.Columns[x].width*FontFactor);
      intClientWidth := intClientWidth + DBGrid1.Columns[x].width;
    end;
    ClientWidth := intClientWidth;
    ClientHeight := Trunc(ClientHeight*FontFactor);
  end;  

  Left := screen.width - width;
  Top := 0;
end;

procedure TfrmARInvoicePayments.dsARInvPmtDataChange(Sender: TObject;
  Field: TField);
begin
  caption := 'Payment(s) for invoice ' + frmARInvoices.qryARInvInvoiceNo.value;
end;

procedure TfrmARInvoicePayments.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

end.