unitmain.dfm

SQL2000跟课件学习的源代码 分享共同学习

object Form1: TForm1
  Left = 251
  Top = 218
  Width = 458
  Height = 269
  Caption = #23398#29983#24773#20917#34920
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 450
    Height = 242
    Align = alClient
    TabOrder = 0
    object Label2: TLabel
      Left = 338
      Top = 17
      Width = 26
      Height = 13
      Caption = #24615#21035
    end
    object SpeedButton1: TSpeedButton
      Tag = 1
      Left = 12
      Top = 8
      Width = 31
      Height = 22
      GroupIndex = 1
      Caption = #23398#21495
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object SpeedButton4: TSpeedButton
      Tag = 5
      Left = 12
      Top = 38
      Width = 63
      Height = 22
      AllowAllUp = True
      GroupIndex = 5
      Caption = #20986#29983#24180#26376
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object SpeedButton5: TSpeedButton
      Tag = 4
      Left = 12
      Top = 66
      Width = 63
      Height = 22
      AllowAllUp = True
      GroupIndex = 4
      Caption = #32852#31995#30005#35805
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object SpeedButton6: TSpeedButton
      Tag = 1
      Left = 178
      Top = 8
      Width = 35
      Height = 22
      GroupIndex = 1
      Caption = #22995#21517
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Tag = 1
      Left = 226
      Top = 38
      Width = 71
      Height = 22
      GroupIndex = 1
      Caption = #25152#22312#29677#32423
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object Label1: TLabel
      Left = 234
      Top = 75
      Width = 52
      Height = 13
      Caption = #24050#20462#23398#20998
    end
    object TextCreditHour: TDBText
      Left = 303
      Top = 75
      Width = 106
      Height = 13
      Alignment = taRightJustify
    end
    object DateTimePicker1: TDateTimePicker
      Left = 86
      Top = 39
      Width = 115
      Height = 21
      Date = 37720.536086319400000000
      Time = 37720.536086319400000000
      DateFormat = dfLong
      TabOrder = 0
    end
    object CBoxSex: TDBComboBox
      Left = 376
      Top = 9
      Width = 63
      Height = 21
      ItemHeight = 13
      Items.Strings = (
        #30007
        #22899)
      TabOrder = 1
    end
    object EditName: TDBEdit
      Left = 54
      Top = 9
      Width = 115
      Height = 21
      TabOrder = 2
    end
    object EditBusiness: TDBEdit
      Left = 226
      Top = 9
      Width = 97
      Height = 21
      TabOrder = 3
    end
    object EditTelePhone: TDBEdit
      Left = 86
      Top = 67
      Width = 127
      Height = 21
      TabOrder = 4
    end
    object CBClass: TDBComboBox
      Left = 304
      Top = 39
      Width = 135
      Height = 21
      ItemHeight = 13
      TabOrder = 5
    end
    object DBGrid1: TDBGrid
      Left = 1
      Top = 94
      Width = 448
      Height = 122
      Align = alBottom
      TabOrder = 6
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
    end
    object DBNavigator1: TDBNavigator
      Left = 1
      Top = 216
      Width = 448
      Height = 25
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
      Align = alBottom
      Hints.Strings = (
        #39318#35760#24405
        #21069#19968#35760#24405
        #19979#19968#35760#24405
        #23614#35760#24405
        #25554#20837#35760#24405
        #21024#38500#35760#24405
        #32534#36753#35760#24405
        #25968#25454#23384#30424
        #21462#28040#32534#36753)
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
    end
  end
  object DataSource1: TDataSource
    DataSet = QueryAdressList
    Left = 294
    Top = 156
  end
  object QueryAdressList: TQuery
    CachedUpdates = True
    AfterScroll = QueryAdressListAfterScroll
    DatabaseName = 'UserList'
    RequestLive = True
    SQL.Strings = (
      'SELECT *'
      'FROM "AddressList"')
    Left = 228
    Top = 156
  end
end