【delphi开源代码栏目提醒】：本文主要为网学会员提供UNRGETD.PAS，希望对需要UNRGETD.PAS网友有所帮助，学习一下!

    unit UNRGETD;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      Db, DBTables;
    
    type
      TFMRGETD = class(TDataModule)
        DSRGET: TDataSource;
        QRGET: TQuery;
        URGET: TUpdateSQL;
        QRGETRGENO: TStringField;
        QRGETBGENO: TStringField;
        QRGETRBPST: TStringField;
        QRGETRGREA: TStringField;
        QRGETRGDAT: TDateTimeField;
        QRGETRGTME: TStringField;
        QRGETBNENO: TStringField;
        QRGETRGMRK: TStringField;
        QRGETRGCNT: TFloatField;
        QRGETRGOUT: TBooleanField;
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FMRGETD: TFMRGETD;
    
    implementation
    
    uses UNBCST;
    
    {$R *.DFM}
    
    
    
    
    end.