【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“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;
DBGrid1: TDBGrid;
Bevel1: TBevel;
btnNew: TSpeedButton;
btnEdit: TSpeedButton;
btnDelete: TSpeedButton;
tblBank: TTable;
tblBankBankID: TAutoIncField;
tblBankBankName: TStringField;
tblBankCurrencyID: TIntegerField;
tblBankCurrencyName: TStringField;
dsBank: TDataSource;
tblAPCheq: TTable;
tblAPCheqBankID: TIntegerField;
tblARPmt: TTable;
tblARPmtBankID: TIntegerField;
MainMenu1: TMainMenu;
mnuFile: TMenuItem;
mnuPrint: TMenuItem;
N2: TMenuItem;
mnuExit: TMenuItem;
mnuRecords: TMenuItem;
mnuNew: TMenuItem;
mnuEdit: TMenuItem;
mnuDelete: TMenuItem;
mnuView: TMenuItem;
mnuBankBook: TMenuItem;
N1: TMenuItem;
mnuRefresh: TMenuItem;
mnuHelp: TMenuItem;
PopupMenu1: TPopupMenu;
popNew: TMenuItem;
popEdit: TMenuItem;
popDelete: TMenuItem;
N3: TMenuItem;
popBankBook: TMenuItem;
qryBank: TQuery;
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 mnuBanksHelpClick(Sender: TObject);
procedure mnuBankBookClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmBanks: TfrmBanks;
implementation
uses BankForm, 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(''));
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);
begin
tblBank.Active := true;
end;
procedure TfrmBanks.Panel1DblClick(Sender: TObject);
begin
ClientHeight := intClientHeight;
ClientWidth := intClientWidth;
end;
procedure TfrmBanks.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then begin
mnuEditClick(Sender);
Key := #0;
end;
end;
procedure TfrmBanks.FormShow(Sender: TObject);
begin
DBGrid1.setfocus;
tblBank.First;
end;
procedure TfrmBanks.mnuNewClick(Sender: TObject);
begin
screen.cursor := crHourglass;
application.createform (TfrmBank,frmBank);
frmBank.qryBank.Active := false;
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;
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;
end;
procedure TfrmBanks.mnuExitClick(Sender: TObject);
begin
Close;
end;
procedure TfrmBanks.FormResize(Sender: TObject);
var
Bookmark: TBookmark;
begin
if (WindowState <> OldWindowState)
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.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;
end.
上一篇:
BankForm.pas
下一篇:
如何当一个轻松的班主任