unit1.dfm

数据库封装原代码 1. 该代码可以免费使用, 该代码的名字暂时定为"哲别" 2. 如果你需要使用该代码, 请注明该代码的原来作者: Jacky Zhou 3. 如果你发现该代码有bug,可以自己修改

object Form1: TForm1
  Left = 400
  Top = 182
  Width = 545
  Height = 512
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 56
    Height = 13
    Caption = 'User Name:'
  end
  object Label2: TLabel
    Left = 207
    Top = 8
    Width = 41
    Height = 13
    Caption = 'Address:'
  end
  object Label3: TLabel
    Left = 399
    Top = 8
    Width = 22
    Height = 13
    Caption = 'Age:'
  end
  object Label4: TLabel
    Left = 15
    Top = 408
    Width = 48
    Height = 13
    Caption = 'From Age:'
  end
  object Label5: TLabel
    Left = 215
    Top = 416
    Width = 38
    Height = 13
    Caption = 'To Age:'
  end
  object Label6: TLabel
    Left = 167
    Top = 448
    Width = 46
    Height = 13
    Caption = 'Sum Age:'
  end
  object txtUserName: TEdit
    Left = 71
    Top = 8
    Width = 98
    Height = 21
    TabOrder = 0
  end
  object txtAddress: TEdit
    Left = 255
    Top = 8
    Width = 98
    Height = 21
    TabOrder = 1
  end
  object txtAge: TEdit
    Left = 428
    Top = 8
    Width = 98
    Height = 21
    TabOrder = 3
  end
  object cmdAdd: TButton
    Left = 8
    Top = 48
    Width = 104
    Height = 25
    Caption = '&Add'
    TabOrder = 4
    OnClick = cmdAddClick
  end
  object cmdUpdateAddress1: TButton
    Left = 8
    Top = 112
    Width = 104
    Height = 25
    Caption = 'Update Address 1'
    TabOrder = 9
    OnClick = cmdUpdateAddress1Click
  end
  object cmdDelete1: TButton
    Left = 8
    Top = 80
    Width = 104
    Height = 25
    Caption = 'Delete1'
    TabOrder = 5
    OnClick = cmdDelete1Click
  end
  object cmdQueryName1: TButton
    Left = 8
    Top = 144
    Width = 104
    Height = 25
    Caption = '&Query (= Name) 1'
    TabOrder = 13
    OnClick = cmdQueryName1Click
  end
  object gdUser: TStringGrid
    Left = 8
    Top = 176
    Width = 521
    Height = 193
    TabOrder = 16
    OnSelectCell = gdUserSelectCell
  end
  object cmdQueryAll: TButton
    Left = 423
    Top = 144
    Width = 104
    Height = 25
    Caption = 'Query A&ll'
    TabOrder = 15
    OnClick = cmdQueryAllClick
  end
  object cmdClear: TButton
    Left = 423
    Top = 48
    Width = 104
    Height = 25
    Caption = '&Clear'
    TabOrder = 17
    OnClick = cmdClearClick
  end
  object cmdQueryLargeAge: TButton
    Left = 289
    Top = 144
    Width = 104
    Height = 25
    Caption = 'Query (>= A&ge)'
    TabOrder = 14
    OnClick = cmdQueryLargeAgeClick
  end
  object cmdUpdateAge: TButton
    Left = 289
    Top = 112
    Width = 104
    Height = 25
    Caption = 'Update Age'
    TabOrder = 11
    OnClick = cmdUpdateAgeClick
  end
  object cmdUpdateAllAge: TButton
    Left = 423
    Top = 112
    Width = 104
    Height = 25
    Caption = 'Update All Age'
    TabOrder = 12
    OnClick = cmdUpdateAllAgeClick
  end
  object cmdDeleteAll: TButton
    Left = 423
    Top = 80
    Width = 104
    Height = 25
    Caption = 'Delete All'
    TabOrder = 8
    OnClick = cmdDeleteAllClick
  end
  object cmdDeleteAgeLarge20: TButton
    Left = 289
    Top = 80
    Width = 104
    Height = 25
    Caption = 'Delete (>=Age)'
    TabOrder = 7
    OnClick = cmdDeleteAgeLarge20Click
  end
  object cmdDelete2: TButton
    Left = 152
    Top = 80
    Width = 104
    Height = 25
    Caption = 'Delete2'
    TabOrder = 6
    OnClick = cmdDelete2Click
  end
  object cmdUpdateAddress2: TButton
    Left = 152
    Top = 112
    Width = 104
    Height = 25
    Caption = 'Update Address 2'
    TabOrder = 10
    OnClick = cmdUpdateAddress2Click
  end
  object cmdQueryName2: TButton
    Left = 152
    Top = 144
    Width = 104
    Height = 25
    Caption = '&Query (= Name) 2'
    TabOrder = 18
    OnClick = cmdQueryName2Click
  end
  object Button1: TButton
    Left = 152
    Top = 48
    Width = 104
    Height = 25
    Caption = 'Restore Default Data'
    TabOrder = 2
    OnClick = Button1Click
  end
  object cmdStoreProcedure: TButton
    Left = 18
    Top = 442
    Width = 104
    Height = 25
    Caption = 'Store Procedure'
    TabOrder = 19
    OnClick = cmdStoreProcedureClick
  end
  object txtFromAge: TEdit
    Left = 72
    Top = 408
    Width = 97
    Height = 21
    TabOrder = 20
  end
  object txtToAge: TEdit
    Left = 264
    Top = 408
    Width = 97
    Height = 21
    TabOrder = 21
  end
  object txtSumAge: TEdit
    Left = 224
    Top = 448
    Width = 97
    Height = 21
    TabOrder = 22
  end
end