updateaction.pas

来自「odac for oralce 8i,10g,11g easy to conn」· PAS 代码 · 共 46 行

unit UpdateAction;

interface

uses
{$IFDEF LINUX}
  SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs, QStdCtrls,
  QDBCtrls, QComCtrls, QExtCtrls, QGrids, QDBGrids,
{$ELSE}
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, ExtCtrls, Grids, DBGrids, StdCtrls, ToolWin, ComCtrls,
{$ENDIF}
  Db;
  
type
  TUpdateActionForm = class(TForm)
    rgAction: TRadioGroup;
    btOk: TButton;
    Label1: TLabel;
    lbMessage: TLabel;
    rgKind: TRadioGroup;
    Label2: TLabel;
    lbField: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UpdateActionForm: TUpdateActionForm;

implementation

{$IFDEF CLR}
{$R *.nfm}
{$ENDIF}
{$IFDEF WIN32}
{$R *.dfm}
{$ENDIF}
{$IFDEF LINUX}
{$R *.xfm}
{$ENDIF}

end.