main.dfm

1.简繁相互转换 2.文件批量处理 3.可直接转换数据库字段

          Height = 25
          Caption = #32321'>>'#31616
          TabOrder = 2
          OnClick = btnDataBig5ToGBClick
        end
        object btnDataAll: TButton
          Left = 64
          Top = 248
          Width = 75
          Height = 25
          Caption = #20840#36873
          TabOrder = 3
          OnClick = btnDataAllClick
        end
        object btnDataClear: TButton
          Left = 64
          Top = 312
          Width = 75
          Height = 25
          Caption = #20840#28165
          TabOrder = 4
          OnClick = btnDataClearClick
        end
        object cbInt: TCheckBox
          Left = 56
          Top = 64
          Width = 97
          Height = 17
          Caption = #21482#36716#20869#30721
          TabOrder = 5
        end
      end
      object DBGridEh2: TDBGridEh
        Left = 0
        Top = 0
        Width = 664
        Height = 432
        Align = alClient
        DataSource = dsTableName
        Flat = False
        FooterColor = clWindow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -16
        FooterFont.Name = #26032#23435#20307
        FooterFont.Style = []
        TabOrder = 1
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -16
        TitleFont.Name = #26032#23435#20307
        TitleFont.Style = []
        Columns = <
          item
            EditButtons = <>
            FieldName = 'IsSelected'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #36873#25321
          end
          item
            EditButtons = <>
            FieldName = 'Name'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #34920#21517
          end>
      end
    end
    object TabSheet4: TTabSheet
      Caption = #31616#20171
      ImageIndex = 3
      object Label3: TLabel
        Left = 16
        Top = 24
        Width = 473
        Height = 200
        AutoSize = False
        Caption = 
          '    '#31616#32321#20307#36716#25442#30340#26368#20339#24037#20855#12290#25903#25345#23545' Delphi'#12289#32593#39029#12289#25968#25454#24211#31561#25991#20214#24555#36895#25209#37327#30340#36716#25442#12290#22914#26524#20320#24819#25317#26377#19968#20010#31616#20307#29256#25110#32321#20307#29256#65292#20877#29992#26412#24037#20855 +
          #65292#36731#36731#26494#26494#30340#20960#20998#38047#65292#20320#23601#21487#20197#25317#26377#19968#22871#28418#20142#30340#32321#20307#29256#25110#31616#20307#29256#12290#20840#38754#25903#25345#33258#21160' GBK'#12289'BIG5'#12289'GB2312 '#31561#20869#30721#30340#36716#25442#12290#20840#38754#25903#25345#23545 +
          #32593#31449#30340#33258#21160#36716#25442#65292#23545' Delphi '#31383#20307#25991#20214#30340#20869#30721#36716#25442#31561#21151#33021#12290#13#10'    '#22312'GB'#20013#25991#19979#24320#21457#65292#29992#30446#24405#25209#37327#36716#25442#24037#20855#36716#25442#30456#24212#25991#20214#12290#20877#32534#35793 +
          #19968#27425#65292#21363#21487#21040#32431'BIG5'#30340#29615#22659#19979#27491#24120#36816#34892#65292#19988#20840#20026#32321#20307#12290#13#10'    '#33021#36716#25442#20219#20309'ADO'#25903#25345#30340#25968#25454#24211#12290
        WordWrap = True
      end
      object Label4: TLabel
        Left = 24
        Top = 224
        Width = 64
        Height = 16
        Caption = #26426#22120#30721#65306
      end
      object Label5: TLabel
        Left = 24
        Top = 264
        Width = 64
        Height = 16
        Caption = #27880#20876#30721#65306
      end
      object edtMac: TEdit
        Left = 88
        Top = 224
        Width = 465
        Height = 24
        ReadOnly = True
        TabOrder = 0
      end
      object edtReg: TEdit
        Left = 88
        Top = 264
        Width = 465
        Height = 24
        TabOrder = 1
      end
      object btnReg: TButton
        Left = 136
        Top = 304
        Width = 75
        Height = 25
        Caption = #27880#20876
        TabOrder = 2
        OnClick = btnRegClick
      end
    end
  end
  object Mem: TMemTableEh
    Active = True
    FieldDefs = <
      item
        Name = 'IsSelected'
        DataType = ftBoolean
      end
      item
        Name = 'FileName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FullPath'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'SubDir'
        DataType = ftString
        Size = 50
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 520
    Top = 184
    object MemIsSelected: TBooleanField
      DisplayWidth = 11
      FieldName = 'IsSelected'
    end
    object MemFileName: TStringField
      DisplayWidth = 19
      FieldName = 'FileName'
      Size = 50
    end
    object MemFullPath: TStringField
      DisplayWidth = 33
      FieldName = 'FullPath'
      Size = 50
    end
    object MemSubDir: TStringField
      DisplayWidth = 14
      FieldName = 'SubDir'
      Size = 50
    end
    object MemTableData: TMemTableDataEh
      object DataStruct: TMTDataStructEh
        object IsSelected: TMTBooleanDataFieldEh
          FieldName = 'IsSelected'
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
        end
        object FileName: TMTStringDataFieldEh
          FieldName = 'FileName'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          Size = 50
          Transliterate = False
        end
        object FullPath: TMTStringDataFieldEh
          FieldName = 'FullPath'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          Size = 50
          Transliterate = False
        end
        object SubDir: TMTStringDataFieldEh
          FieldName = 'SubDir'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          Size = 50
          Transliterate = False
        end
      end
      object RecordsList: TRecordsListEh
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Mem
    Left = 576
    Top = 280
  end
  object SearchFolders1: TSearchFolders
    FileMask = '*'
    UpdateList = True
    ScanOptions = soSpecifiedDir
    ScanDir = 'C:\'
    Messages = True
    DoRecursive = True
    OnChanged = SearchFolders1Changed
    Left = 392
    Top = 144
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 456
    Top = 192
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    ParamCheck = False
    Parameters = <>
    Left = 488
    Top = 184
  end
  object MemTableName: TMemTableEh
    Active = True
    Params = <>
    Left = 724
    Top = 171
    object MemTableNameIsSelected: TBooleanField
      DisplayWidth = 12
      FieldName = 'IsSelected'
    end
    object MemTableNameName: TStringField
      DisplayWidth = 30
      FieldName = 'Name'
      Size = 50
    end
    object MemTableData: TMemTableDataEh
      object DataStruct: TMTDataStructEh
        object IsSelected: TMTBooleanDataFieldEh
          FieldName = 'IsSelected'
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
        end
        object Name: TMTStringDataFieldEh
          FieldName = 'Name'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          Size = 50
          Transliterate = False
        end
      end
      object RecordsList: TRecordsListEh
      end
    end
  end
  object dsTableName: TDataSource
    DataSet = MemTableName
    Left = 692
    Top = 171
  end
end