?? data.pas
字號:
unit Data;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables;
type
TDM = class(TDataModule)
Ball01: TTable;
Ball01s: TDataSource;
Ball00: TTable;
Ball00s: TDataSource;
Rate: TTable;
Rates: TDataSource;
PassWord: TTable;
Passs: TDataSource;
Water: TTable;
Waters: TDataSource;
Ball02: TTable;
Ball02s: TDataSource;
State: TQuery;
States: TDataSource;
Ball03: TTable;
Ball03s: TDataSource;
procedure FlushBuffer(DataSet: TDataSet);
procedure CommCardBeforePost(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DM: TDM;
implementation
{$R *.DFM}
procedure TDM.FlushBuffer(DataSet: TDataSet);
begin
TTable(DataSet).FlushBuffers;
end;
procedure TDM.CommCardBeforePost(DataSet: TDataSet);
begin
DataSet['余額'] :=
DataSet.FieldByName('金額').AsCurrency -
DataSet.FieldByName('次數').AsInteger * 50;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -