makepy02.dfm

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

object PYForm: TPYForm
  Left = 48
  Top = 110
  Width = 676
  Height = 457
  Caption = #24494#36719#36755#20837#27861#23545#24212#39318#23383#27597#31649#29702#31243#24207
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  DesignSize = (
    668
    430)
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 16
    Top = 15
    Width = 84
    Height = 12
    Caption = #35201#36716#25442#23383#31526#20018#65306
  end
  object Label2: TLabel
    Left = 16
    Top = 47
    Width = 84
    Height = 12
    Caption = #20018#25340#38899#39318#23383#27597#65306
  end
  object Memo1: TRichEdit
    Left = 12
    Top = 81
    Width = 472
    Height = 241
    Anchors = [akLeft, akTop, akRight, akBottom]
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    Lines.Strings = (
      'Memo1')
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object Button1: TButton
    Left = 496
    Top = 11
    Width = 75
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #29983#25104'MS'#25340#38899
    TabOrder = 1
    OnClick = ProdMSPYCode
  end
  object Edit1: TEdit
    Left = 104
    Top = 11
    Width = 380
    Height = 20
    Anchors = [akLeft, akTop, akRight]
    TabOrder = 2
    Text = #19968#19969#25105#26159' Delphi '#35831#32473#20986#25105#30340#25340#38899#39318#23383#27597#65306'('#33750#28981#34892#32078#20090')'
  end
  object Button2: TButton
    Left = 496
    Top = 43
    Width = 75
    Height = 25
    Anchors = [akTop, akRight]
    Caption = 'MS'#39318#23383#27597
    TabOrder = 3
    OnClick = TurnOnMSPYCode
  end
  object SB: TStatusBar
    Left = 0
    Top = 408
    Width = 668
    Height = 22
    Panels = <
      item
        Width = 200
      end
      item
        Width = 200
      end
      item
        Width = 200
      end>
    SimplePanel = False
  end
  object Edit2: TEdit
    Left = 104
    Top = 43
    Width = 380
    Height = 20
    Anchors = [akLeft, akTop, akRight]
    TabOrder = 5
    Text = #19968#19969#25105#26159' Delphi '#35831#32473#20986#25105#30340#25340#38899#39318#23383#27597#65306'('#33750#28981#34892#32078#20090')'
  end
  object Button3: TButton
    Left = 576
    Top = 11
    Width = 81
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #20851#38381#31383#21475
    TabOrder = 6
    OnClick = CloseForm
  end
  object Button4: TButton
    Left = 576
    Top = 43
    Width = 81
    Height = 25
    Anchors = [akTop, akRight]
    Caption = 'GB'#39318#23383#27597
    TabOrder = 7
    OnClick = TurnOnGBPYCode
  end
  object Button5: TButton
    Left = 496
    Top = 99
    Width = 75
    Height = 25
    Hint = #25968#25454#24211#27169#24335'1'
    Anchors = [akTop, akRight]
    Caption = #23384'OLE-'#25340#38899
    TabOrder = 8
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 496
    Top = 131
    Width = 75
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #35835'OLE-'#25340#38899
    TabOrder = 9
    OnClick = Button6Click
  end
  object DBGridEh1: TDBGridEh
    Left = 12
    Top = 329
    Width = 472
    Height = 67
    Anchors = [akLeft, akRight, akBottom]
    DataSource = Data00S
    FooterColor = clWindow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    TabOrder = 10
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object Button7: TButton
    Left = 576
    Top = 99
    Width = 81
    Height = 25
    Hint = #25968#25454#24211#27169#24335'2'
    Anchors = [akTop, akRight]
    Caption = #23384#25991#26412#25340#38899
    TabOrder = 11
    OnClick = Button7Click
  end
  object Button8: TButton
    Left = 576
    Top = 131
    Width = 81
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #21462#25991#26412#25340#38899
    TabOrder = 12
    OnClick = Button8Click
  end
  object Button9: TButton
    Left = 496
    Top = 163
    Width = 75
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #35835#25991#20214#25340#38899
    TabOrder = 13
    OnClick = ReadMSPYFromFile
  end
  object Memo2: TMemo
    Left = 496
    Top = 272
    Width = 161
    Height = 124
    Anchors = [akTop, akRight, akBottom]
    Lines.Strings = (
      #20197#19978#21015#20986#21508#31181#26041#27861#20445#23384#21644#35835
      #20986#25340#38899#23383#27597#20018#65292
      #25512#33616#65306#20445#23384#21040#25991#20214#65292#28982#21518#20174
      #25991#20214#35835#20986#12290)
    TabOrder = 14
  end
  object Button10: TButton
    Left = 576
    Top = 163
    Width = 81
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #21462#22269#26631#25340#38899
    TabOrder = 15
    OnClick = ProdGBPYCode
  end
  object Button11: TButton
    Left = 576
    Top = 195
    Width = 81
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #35835#25991#20214#25340#38899
    TabOrder = 16
    OnClick = ReadGBPYFromFile
  end
  object PYBase: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=PYCODE.mdb;Persist ' +
      'Security Info=False'
    KeepConnection = False
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 128
    Top = 97
  end
  object Data00: TADOQuery
    Connection = PYBase
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From PYData')
    Left = 192
    Top = 97
  end
  object Data00S: TDataSource
    DataSet = Data00
    Left = 264
    Top = 97
  end
end