main.dfm

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

object frmMain: TfrmMain
  Left = 103
  Top = 252
  Width = 870
  Height = 497
  Caption = #31616#32321#36716#25442
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #26032#23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 862
    Height = 463
    ActivePage = TabSheet2
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #21333#20010#25991#20214
      object Splitter1: TSplitter
        Left = 0
        Top = 41
        Width = 854
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 854
        Height = 41
        Align = alTop
        TabOrder = 0
        object btnOpenSingFile: TButton
          Left = 32
          Top = 8
          Width = 75
          Height = 25
          Caption = #25171#24320#25991#20214
          TabOrder = 0
          OnClick = btnOpenSingFileClick
        end
        object btnTransitionSingle: TButton
          Left = 168
          Top = 8
          Width = 75
          Height = 25
          Caption = #31616'>>'#32321
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #26032#23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = btnTransitionSingleClick
        end
        object btnSaveSingle: TButton
          Left = 408
          Top = 8
          Width = 75
          Height = 25
          Caption = #20445#23384
          TabOrder = 2
          OnClick = btnSaveSingleClick
        end
        object btnSingleBig5ToGB: TButton
          Left = 296
          Top = 8
          Width = 75
          Height = 25
          Caption = #32321'>>'#31616
          TabOrder = 3
          OnClick = btnSingleBig5ToGBClick
        end
      end
      object memoSinleFile: TMemo
        Left = 0
        Top = 44
        Width = 854
        Height = 388
        Align = alClient
        ScrollBars = ssBoth
        TabOrder = 1
      end
    end
    object TabSheet2: TTabSheet
      Caption = #30446#24405
      ImageIndex = 1
      object Splitter2: TSplitter
        Left = 629
        Top = 0
        Height = 432
        Align = alRight
      end
      object DBGridEh1: TDBGridEh
        Left = 0
        Top = 0
        Width = 629
        Height = 432
        Align = alClient
        DataSource = DataSource1
        Flat = False
        FooterColor = clWindow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -16
        FooterFont.Name = #26032#23435#20307
        FooterFont.Style = []
        TabOrder = 0
        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 = 'FileName'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #25991#20214#21517
          end
          item
            EditButtons = <>
            FieldName = 'FullPath'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #20840#36335#24452
            Width = 223
          end
          item
            EditButtons = <>
            FieldName = 'SubDir'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #23376#36335#24452
            Width = 94
          end>
      end
      object Panel2: TPanel
        Left = 632
        Top = 0
        Width = 222
        Height = 432
        Align = alRight
        TabOrder = 1
        object Label1: TLabel
          Left = 24
          Top = 56
          Width = 48
          Height = 16
          Caption = #28304#36335#24452
        end
        object Label2: TLabel
          Left = 24
          Top = 177
          Width = 64
          Height = 16
          Caption = #30446#26631#36335#24452
        end
        object edtSourceDir: TEdit
          Left = 24
          Top = 88
          Width = 193
          Height = 24
          ReadOnly = True
          TabOrder = 0
        end
        object btnOpenDir: TButton
          Left = 38
          Top = 128
          Width = 75
          Height = 25
          Caption = #25171#24320
          TabOrder = 1
          OnClick = btnOpenDirClick
        end
        object btnSearch: TButton
          Left = 134
          Top = 128
          Width = 75
          Height = 25
          Caption = #25628#32034
          TabOrder = 2
          OnClick = btnSearchClick
        end
        object edtDeDir: TEdit
          Left = 24
          Top = 209
          Width = 193
          Height = 24
          ReadOnly = True
          TabOrder = 3
        end
        object btnOpenDeDir: TButton
          Left = 22
          Top = 240
          Width = 75
          Height = 25
          Caption = #25171#24320
          TabOrder = 4
          OnClick = btnOpenDeDirClick
        end
        object btnTraDir: TButton
          Left = 134
          Top = 296
          Width = 75
          Height = 25
          Caption = #31616'>>'#32321
          TabOrder = 5
          OnClick = btnTraDirClick
        end
        object btnAll: TButton
          Left = 24
          Top = 296
          Width = 75
          Height = 25
          Caption = #20840#36873
          TabOrder = 6
          OnClick = btnAllClick
        end
        object btnClear: TButton
          Left = 24
          Top = 352
          Width = 75
          Height = 25
          Caption = #20840#28165
          TabOrder = 7
          OnClick = btnClearClick
        end
        object btnDirBig5ToGB: TButton
          Left = 136
          Top = 352
          Width = 75
          Height = 25
          Caption = #32321'>>'#31616
          TabOrder = 8
          OnClick = btnDirBig5ToGBClick
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #25968#25454#24211
      ImageIndex = 2
      object Panel3: TPanel
        Left = 664
        Top = 0
        Width = 190
        Height = 432
        Align = alRight
        TabOrder = 0
        object btnOpenData: TButton
          Left = 40
          Top = 16
          Width = 129
          Height = 25
          Caption = #25171#24320#25968#25454#24211
          TabOrder = 0
          OnClick = btnOpenDataClick
        end
        object btnDataTran: TButton
          Left = 64
          Top = 112
          Width = 75
          Height = 25
          Caption = #31616'>>'#32321
          TabOrder = 1
          OnClick = btnDataTranClick
        end
        object btnDataBig5ToGB: TButton
          Left = 64
          Top = 176
          Width = 75