makepy01.dfm

在查询汉字拼音首字母时需要取得汉字的拼音

object Form1: TForm1
  Left = 151
  Top = 138
  Width = 544
  Height = 375
  Caption = #25340#38899#23383#27597#29983#25104#31243#24207
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  DesignSize = (
    536
    348)
  PixelsPerInch = 96
  TextHeight = 14
  object DBGrid1: TDBGrid
    Left = 16
    Top = 16
    Width = 369
    Height = 273
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = DataSource1
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnEnter = DBGrid1Enter
  end
  object Button4: TButton
    Left = 16
    Top = 308
    Width = 81
    Height = 25
    Hint = #36807#28388#37325#22797#35760#24405
    Anchors = [akLeft, akBottom]
    Caption = #37325#22797
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = Button4Click
  end
  object ListBox1: TListBox
    Left = 392
    Top = 16
    Width = 129
    Height = 273
    Anchors = [akTop, akRight, akBottom]
    ItemHeight = 14
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = ListBox1Click
  end
  object Button1: TButton
    Left = 359
    Top = 308
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = #21024#38500
    Enabled = False
    TabOrder = 4
    OnClick = Button1Click
  end
  object Button3: TButton
    Left = 104
    Top = 308
    Width = 81
    Height = 25
    Hint = #26816#26597#32570#23569#30340#27721#23383
    Anchors = [akLeft, akBottom]
    Caption = #26816#26597
    TabOrder = 5
    OnClick = Button3Click
  end
  object Button2: TButton
    Left = 440
    Top = 308
    Width = 81
    Height = 25
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = #36864#20986
    TabOrder = 1
    OnClick = Button2Click
  end
  object Query1: TQuery
    BeforeDelete = Query1BeforeDelete
    RequestLive = True
    SQL.Strings = (
      'Select * From PYCode'
      'where ('#20316#24223' is null) or ('#20316#24223' <> false)'
      'order by '#27721#23383)
    Left = 256
    Top = 152
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 296
    Top = 152
  end
end