?? uelbanca.pas
字號(hào):
unit Uelbanca;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TElBnc_Form = class(TForm)
SpeedButton1: TSpeedButton;
TTBancheRiba: TTable;
TTBancheRibaBanca: TStringField;
TTBancheRibaProgressivo: TAutoIncField;
TTBancheRibaCodiceazienda: TStringField;
TTBancheRibaImportomassimo: TCurrencyField;
DSBancheRiba: TDataSource;
TTBanche: TTable;
TTBancheRibaLkBanche: TStringField;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
procedure SpeedButton1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
ElBnc_Form: TElBnc_Form;
implementation
{$R *.DFM}
procedure TElBnc_Form.SpeedButton1Click(Sender: TObject);
begin
close;
end;
procedure TElBnc_Form.FormDestroy(Sender: TObject);
begin
if (TTBancheRiba.State = DsEdit) or (TTBancheRiba.State = DsInsert) then
TTBancheRiba.post;
end;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -