Delphi/CppBuilder

开发平台：

Delphi

mainfrm.dfm：源码内容

							object Form1: TForm1
  Left = 192
  Top = 107
  Width = 544
  Height = 375
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 256
    Top = 104
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object edtClassNo: TEdit
    Left = 120
    Top = 104
    Width = 121
    Height = 21
    TabOrder = 1
    Text = 'edtClassNo'
  end
  object edtClassName: TEdit
    Left = 120
    Top = 144
    Width = 121
    Height = 21
    TabOrder = 2
    Text = 'edtClassName'
  end
  object edtMemo: TEdit
    Left = 120
    Top = 192
    Width = 121
    Height = 21
    TabOrder = 3
    Text = 'edtMemo'
  end
  object Button2: TButton
    Left = 296
    Top = 184
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 4
    OnClick = Button2Click
  end
  object DBGrid1: TDBGrid
    Left = 96
    Top = 232
    Width = 320
    Height = 120
    DataSource = DataSource1
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object StoredProc1: TStoredProc
    DatabaseName = 'sdaf'
    StoredProcName = 'class_Query;1'
    Left = 112
    Top = 16
    ParamData = <
      item
        DataType = ftString
        Name = '@aClassNo'
        ParamType = ptInput
      end>
  end
  object Database1: TDatabase
    AliasName = 'Test'
    Connected = True
    DatabaseName = 'sdaf'
    LoginPrompt = False
    Params.Strings = (
      'user name=sa'
      'password=')
    SessionName = 'Default'
    Left = 176
    Top = 48
  end
  object DataSource1: TDataSource
    DataSet = StoredProc1
    Left = 160
    Top = 24
  end
end

						