apinvoicechequesform.pas

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

unit APInvoiceChequesForm;

interface

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

type
  TfrmAPInvoiceCheques = class(TForm)
    tblAPInvChq: TTable;
    dsAPInvChq: TDataSource;
    DBGrid1: TDBGrid;
    tblAPInvChqAPInvoiceID: TIntegerField;
    tblAPInvChqChequeID: TIntegerField;
    tblAPInvChqPaymentAmount: TCurrencyField;
    tblAPCheq: TTable;
    tblAPCheqChequeID: TIntegerField;
    tblAPCheqChequeNo: TIntegerField;
    tblAPCheqChequeDate: TDateField;
    tblAPCheqChequeAmount: TCurrencyField;
    tblAPInvChqChequeNo: TIntegerField;
    tblAPInvChqChequeDate: TDateField;
    tblAPInvChqChequeAmount: TCurrencyField;
    procedure FormCreate(Sender: TObject);
    procedure dsAPInvChqDataChange(Sender: TObject; Field: TField);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAPInvoiceCheques: TfrmAPInvoiceCheques;

implementation

uses BS1Form, APInvoicesForm;

{$R *.DFM}

procedure TfrmAPInvoiceCheques.FormCreate(Sender: TObject);
var
  x, intClientWidth: integer;
begin
  tblAPInvChq.DatabaseName := strDatabaseName;
  tblAPCheq.DatabaseName := strDatabaseName;
  tblAPInvChq.Active := true;
  tblAPCheq.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 TfrmAPInvoiceCheques.dsAPInvChqDataChange(Sender: TObject;
  Field: TField);
begin
  caption := 'Cheque(s) for invoice ' + frmAPInvoices.qryAPInvInvoiceNo.value;
end;

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

end.