ODAC+SDAC源代码

				object FetchForm: TFetchForm
				  Left = 215
				  Top = 179
				  BorderIcons = [biSystemMenu]
				  BorderStyle = bsDialog
				  Caption = 'Fetching'
				  ClientHeight = 87
				  ClientWidth = 290
				  Color = clBtnFace
				  Font.Charset = DEFAULT_CHARSET
				  Font.Color = clWindowText
				  Font.Height = -11
				  Font.Name = 'MS Sans Serif'
				  Font.Style = []
				  FormStyle = fsStayOnTop
				  KeyPreview = True
				  OldCreateOrder = False
				  Position = poMainFormCenter
				  OnKeyDown = FormKeyDown
				  PixelsPerInch = 96
				  TextHeight = 13
				  object Label1: TLabel
				    Left = 8
				    Top = 16
				    Width = 275
				    Height = 13
				    Caption = 'Press Cancel button to interrupt fetch operation.'
				    Font.Charset = DEFAULT_CHARSET
				    Font.Color = clWindowText
				    Font.Height = -11
				    Font.Name = 'MS Sans Serif'
				    Font.Style = [fsBold]
				    ParentFont = False
				  end
				  object btCancel: TButton
				    Left = 108
				    Top = 56
				    Width = 75
				    Height = 25
				    Caption = 'Cancel'
				    TabOrder = 0
				    OnClick = btCancelClick
				  end
				end