ufrmexportbusinessdata.dfm

抽象三层访问数据库示例

object frmExportBusinessData: TfrmExportBusinessData
  Left = 285
  Top = 172
  BorderStyle = bsDialog
  Caption = #23548#20837#27969#31243#36164#26009
  ClientHeight = 517
  ClientWidth = 434
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  DesignSize = (
    434
    517)
  PixelsPerInch = 96
  TextHeight = 12
  object lblInfo: TLabel
    Left = 16
    Top = 484
    Width = 42
    Height = 12
    Anchors = [akLeft, akBottom]
    Caption = 'lblInfo'
  end
  object PageControl1: TPageControl
    Left = 16
    Top = 15
    Width = 403
    Height = 454
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #23548#20986
      DesignSize = (
        395
        427)
      object lblDataBaseType: TLabel
        Left = 80
        Top = 92
        Width = 60
        Height = 12
        Caption = #25968#25454#24211#31867#22411
      end
      object lblServerName: TLabel
        Left = 80
        Top = 124
        Width = 60
        Height = 12
        Caption = #26381#21153#22120#21517#31216
      end
      object lblDataBaseName: TLabel
        Left = 80
        Top = 156
        Width = 60
        Height = 12
        Caption = #25968#25454#24211#21517#31216
      end
      object lblUserName: TLabel
        Left = 80
        Top = 188
        Width = 48
        Height = 12
        Caption = #29992#25143#21517#31216
      end
      object lblPassword: TLabel
        Left = 80
        Top = 220
        Width = 24
        Height = 12
        Caption = #23494#30721
      end
      object Label1: TLabel
        Left = 32
        Top = 276
        Width = 336
        Height = 12
        Caption = #21517#31216'/ID('#33521#25991#20998#21495#20998#38548','#22914#8220'755010280000000008;'#21457#25991';'#25910#25991#8221')'
      end
      object Label2: TLabel
        Left = 32
        Top = 397
        Width = 90
        Height = 12
        Anchors = [akLeft, akBottom]
        Caption = #23548#20986#21040'Excek'#25991#20214
      end
      object Bevel1: TBevel
        Left = 54
        Top = 22
        Width = 323
        Height = 9
        Anchors = [akLeft, akTop, akRight]
        Shape = bsTopLine
      end
      object Label3: TLabel
        Left = 16
        Top = 16
        Width = 36
        Height = 12
        Caption = #25968#25454#24211
      end
      object Bevel2: TBevel
        Left = 38
        Top = 255
        Width = 339
        Height = 9
        Anchors = [akLeft, akTop, akRight]
        Shape = bsTopLine
      end
      object Label4: TLabel
        Left = 16
        Top = 249
        Width = 24
        Height = 12
        Caption = #27969#31243
      end
      object Bevel3: TBevel
        Left = 38
        Top = 376
        Width = 339
        Height = 9
        Anchors = [akLeft, akRight, akBottom]
        Shape = bsTopLine
      end
      object Label5: TLabel
        Left = 16
        Top = 370
        Width = 24
        Height = 12
        Anchors = [akLeft, akBottom]
        Caption = #23548#20986
      end
      object sbtnSelEmp: TSpeedButton
        Left = 354
        Top = 392
        Width = 23
        Height = 22
        Caption = #8230
        Flat = True
        OnClick = sbtnSelEmpClick
      end
      object rbtnEpfGJPlatformDB: TRadioButton
        Left = 32
        Top = 41
        Width = 273
        Height = 17
        Caption = #26500#24314#24179#21488#25968#25454#24211'('#26412#26426#24517#39035#26377#26500#24314#24179#21488'Com+'#26381#21153')'
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = rbtnEpfGJPlatformDBClick
      end
      object rbtnOtherDB: TRadioButton
        Left = 32
        Top = 64
        Width = 89
        Height = 17
        Caption = #20854#23427#25968#25454#24211
        TabOrder = 1
        OnClick = rbtnEpfGJPlatformDBClick
      end
      object cboDataBaseType: TComboBox
        Left = 152
        Top = 88
        Width = 225
        Height = 20
        Anchors = [akLeft, akTop, akRight]
        ItemHeight = 12
        TabOrder = 2
        Text = 'cboDataBaseType'
        OnChange = cboDataBaseTypeChange
      end
      object cboDataBaseName: TComboBox
        Left = 152
        Top = 152
        Width = 225
        Height = 20
        Anchors = [akLeft, akTop, akRight]
        ItemHeight = 12
        TabOrder = 3
        Text = 'cboDataBaseName'
        OnChange = cboDataBaseNameChange
      end
      object edtServerName: TEdit
        Left = 152
        Top = 120
        Width = 225
        Height = 20
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 4
        Text = 'edtServerName'
        OnChange = cboDataBaseNameChange
      end
      object edtUserName: TEdit
        Left = 152
        Top = 184
        Width = 225
        Height = 20
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 5
        Text = 'edtUserName'
        OnChange = cboDataBaseNameChange
      end
      object edtPassword: TEdit
        Left = 152
        Top = 216
        Width = 225
        Height = 20
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 6
        Text = 'edtPassword'
        OnChange = cboDataBaseNameChange
      end
      object edtExportFile: TEdit
        Left = 128
        Top = 393
        Width = 225
        Height = 20
        Anchors = [akLeft, akRight, akBottom]
        TabOrder = 7
        Text = 'edtExportFile'
      end
      object mmBusinessNameOrID: TMemo
        Left = 32
        Top = 296
        Width = 345
        Height = 65
        Anchors = [akLeft, akTop, akRight, akBottom]
        Lines.Strings = (
          'mmBusinessNameOrID')
        ScrollBars = ssVertical
        TabOrder = 8
      end
    end
  end
  object btnExecute: TBitBtn
    Left = 258
    Top = 478
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = #25191#34892'(&R)'
    Default = True
    TabOrder = 1
    OnClick = btnExecuteClick
  end
  object Button1: TButton
    Left = 344
    Top = 478
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = #20851#38381'(&X)'
    TabOrder = 2
    OnClick = Button1Click
  end
  object cdsBusinessGrant: TClientDataSet
    Aggregates = <>
    Params = <>
    AfterOpen = cdsBusinessGrantAfterOpen
    OnNewRecord = cdsBusinessGrantNewRecord
    Left = 84
    Top = 96
  end
  object cdsBusinessConfig: TClientDataSet
    Aggregates = <>
    Params = <>
    AfterOpen = cdsBusinessGrantAfterOpen
    OnNewRecord = cdsBusinessGrantNewRecord
    Left = 84
    Top = 128
  end
  object cdsProcessConfig: TClientDataSet
    Aggregates = <>
    Params = <>
    AfterOpen = cdsBusinessGrantAfterOpen
    OnNewRecord = cdsBusinessGrantNewRecord
    Left = 84
    Top = 160
  end
  object cdsProcessOperates: TClientDataSet
    Aggregates = <>
    Params = <>
    AfterOpen = cdsBusinessGrantAfterOpen
    OnNewRecord = cdsBusinessGrantNewRecord
    Left = 84
    Top = 192
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '.xls'
    Filter = 'MS Excel'#25991#20214'(*.xls)|*.xls'
    Left = 300
    Top = 414
  end
end