unrbowd.pas

来自「超市系统开发 超市系统开发 超市系统开发 超市系统开发」· PAS 代码 · 共 47 行

PAS
47
字号
unit UNRBOWD;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables;

type
  TFMRBOWD = class(TDataModule)
    DSRBOW: TDataSource;
    QRBOW: TQuery;
    URBOW: TUpdateSQL;
    QRBOWRBENO: TStringField;
    QRBOWBGENO: TStringField;
    QRBOWRBCN1: TFloatField;
    QRBOWRBCN2: TFloatField;
    QRBOWRBPST: TStringField;
    QRBOWRBBCK: TBooleanField;
    QRBOWRBOUT: TBooleanField;
    QRBOWRBREA: TStringField;
    QRBOWRBDT1: TDateTimeField;
    QRBOWRBTM1: TStringField;
    QRBOWRBDT2: TDateTimeField;
    QRBOWRBTM2: TStringField;
    QRBOWBNENO: TStringField;
    QRBOWRBMRK: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMRBOWD: TFMRBOWD;

implementation

uses UNBCST;

{$R *.DFM}




end.

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?