banksform.pas

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

unit BanksForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, Grids, DBGrids, DB, DBTables, Menus, ExtCtrls, StdCtrls, Buttons, BDE;

type
  TfrmBanks = class(TForm)
    Panel1: TPanel;
    MainMenu1: TMainMenu;
    tblBank: TTable;
    dsBank: TDataSource;
    DBGrid1: TDBGrid;
    mnuFile: TMenuItem;
    mnuView: TMenuItem;
    mnuHelp: TMenuItem;
    mnuRefresh: TMenuItem;
    mnuBanksHelp: TMenuItem;
    mnuPrint: TMenuItem;
    N2: TMenuItem;
    mnuExit: TMenuItem;
    Bevel1: TBevel;
    btnNew: TSpeedButton;
    btnEdit: TSpeedButton;
    btnDelete: TSpeedButton;
    mnuRecords: TMenuItem;
    mnuNew: TMenuItem;
    mnuEdit: TMenuItem;
    mnuDelete: TMenuItem;
    tblBankBankID: TAutoIncField;
    tblBankBankName: TStringField;
    tblBankCurrencyID: TIntegerField;
    tblBankCurrencyName: TStringField;
    tblAPCheq: TTable;
    PopupMenu1: TPopupMenu;
    popNew: TMenuItem;
    popEdit: TMenuItem;
    popDelete: TMenuItem;
    mnuBankBook: TMenuItem;
    N1: TMenuItem;
    N3: TMenuItem;
    popBankBook: TMenuItem;
    tblAPCheqBankID: TIntegerField;
    tblARPmt: TTable;
    tblARPmtBankID: TIntegerField;
    procedure mnuRefreshClick(Sender: TObject);
    procedure tblBankBeforeDelete(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    procedure Panel1DblClick(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure mnuNewClick(Sender: TObject);
    procedure mnuEditClick(Sender: TObject);
    procedure mnuDeleteClick(Sender: TObject);
    procedure mnuExitClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure mnuPrintClick(Sender: TObject);
    procedure mnuBanksHelpClick(Sender: TObject);
    procedure mnuBankBookClick(Sender: TObject);
    procedure tblBankAfterDelete(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBanks: TfrmBanks;

implementation

uses BS1Form, BankForm, BanksReport, BankBookForm;

var
  intClientHeight, intClientWidth: Integer;
  OldWindowState: TWindowState;

{$R *.DFM}

procedure TfrmBanks.mnuRefreshClick(Sender: TObject);
begin
  tblBank.refresh;
end;

procedure TfrmBanks.tblBankBeforeDelete(DataSet: TDataSet);
begin
  if MessageDlg('Delete ' + '''' + tblBankBankName.AsString + '''' + '?',mtConfirmation,mbOKCancel,0) <> mrOK then raise(EAbort.create(''));  //Silent Exception: "abort;" replaced by "raise etc" since abort conflicts with BDE (required by DbiSaveChanges).

  tblAPCheq.Active := true;
  if tblAPCheq.Locate('BankID', tblBankBankID.value, []) = true then raise(Exception.Create('Unable to delete ' + '''' + tblBankBankName.AsString + '''' + '...' + #13 + 'AP cheque(s) exist for this bank'));

  tblARPmt.Active := true;
  if tblARPmt.Locate('BankID', tblBankBankID.value, []) = true then raise(Exception.Create('Unable to delete ' + '''' + tblBankBankName.AsString + '''' + '...' + #13 + 'AR payment(s) exist for this bank'));
end;

procedure TfrmBanks.FormCreate(Sender: TObject);
var
  x: integer;
begin
  tblBank.DatabaseName := strDatabaseName;
  //tblCurrency.DatabaseName := strDatabaseName;   //Data module used instead.
  tblAPCheq.DatabaseName := strDatabaseName;
  tblARPmt.DatabaseName := strDatabaseName;
  tblBank.Active := true;
  //tblCurrency.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;
  end;
  intClientHeight := ClientHeight;   //Store form size.
  intClientWidth := ClientWidth;
end;

procedure TfrmBanks.Panel1DblClick(Sender: TObject);
begin
  ClientHeight := intClientHeight;   //Resize form.
  ClientWidth := intClientWidth;
end;

procedure TfrmBanks.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then begin
    mnuEditClick(Sender);
    Key := #0;   //Cancel Enter key.
  end;
end;

procedure TfrmBanks.FormShow(Sender: TObject);
begin
  DBGrid1.setfocus;
  tblBank.First;   //Reset grid to start at 1st record.
end;

procedure TfrmBanks.mnuNewClick(Sender: TObject);
begin
  screen.cursor := crHourglass;
  application.createform (TfrmBank,frmBank);
  //frmBank.qryBank.Active := false;   //Old code when using TQuery.
  //frmBank.qryBank.SQL.Clear;
  //frmBank.qryBank.SQL.Add('SELECT * FROM Bank');
  //frmBank.qryBank.Active := true;
  //frmBank.qryBank.Insert;
  frmBank.tblBank.Insert;
  frmBank.Show;
  screen.cursor := crDefault;
end;

procedure TfrmBanks.mnuEditClick(Sender: TObject);
begin
  screen.cursor := crHourglass;
  application.createform (TfrmBank,frmBank);
  //frmBank.qryBank.Active := false;   //Old code when using TQuery.
  //frmBank.qryBank.SQL.Clear;
  //frmBank.qryBank.SQL.Add('SELECT * FROM Bank WHERE BankID=:SelectedBankID');
  //frmBank.qryBank.Params[0].AsInteger := tblBankBankID.AsInteger;
  //frmBank.qryBank.Active := true;
  frmBank.tblBank.Locate('BankID', tblBankBankID.value, []);
  frmBank.Show;
  screen.cursor := crDefault;
end;

procedure TfrmBanks.mnuDeleteClick(Sender: TObject);
begin
  tblBank.delete;
  DbiSaveChanges(tblBank.handle);
end;

procedure TfrmBanks.mnuExitClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmBanks.FormResize(Sender: TObject);
var
  Bookmark: TBookmark;
begin
  if (WindowState <> OldWindowState)   //Prevent grid resize bugs.
  and (WindowState <> wsMinimized)
  and (OldWindowState <> wsMinimized)
  then begin
    screen.cursor := crHourglass;
    Bookmark := tblBank.GetBookmark;
    tblBank.First;
    tblBank.refresh;
    try tblBank.GotoBookmark(Bookmark); except; end;
    tblBank.FreeBookmark(BookMark);
    screen.cursor := crDefault;
  end;
  OldWindowState := WindowState;
end;

procedure TfrmBanks.mnuPrintClick(Sender: TObject);
begin
  screen.cursor := crHourglass;
  application.createform (TrptBanks,rptBanks);
  screen.cursor := crDefault;
  rptBanks.QuickReport.Preview;
end;

procedure TfrmBanks.mnuBanksHelpClick(Sender: TObject);
begin
  Application.HelpContext(420);
end;

procedure TfrmBanks.mnuBankBookClick(Sender: TObject);
var
  aComponent: TComponent;
begin
  screen.cursor := crHourglass;
  aComponent := Application.FindComponent('frmBankBook');
  if not Assigned(aComponent) then frmBankBook := TfrmBankBook.Create(Application);

  if tblBankBankID.AsVariant = null then frmBankBook.SetDefaultBankID
  else frmBankBook.BankID := tblBankBankID.value;
  
  if frmBankBook.WindowState = wsMinimized then frmBankBook.WindowState := wsNormal;
  if frmBankBook.visible = true then frmBankBook.FormShow(sender)
  else frmBankBook.Show;
  screen.cursor := crDefault;
end;

procedure TfrmBanks.tblBankAfterDelete(DataSet: TDataSet);
begin
  frmBankBook_cboFind_RequeryRequired := true;
end;

end.