frmmain.~dfm

这是一个间歇的小唾弃,希望大家希望,以后大家多学习,多多交流共同进步

      OnShow = tsYGZShow
      object Bevel14: TBevel
        Left = 2
        Top = 15
        Width = 692
        Height = 172
      end
      object Bevel15: TBevel
        Left = 2
        Top = 191
        Width = 692
        Height = 198
      end
      object Bevel16: TBevel
        Left = 2
        Top = 393
        Width = 692
        Height = 41
        Shape = bsFrame
        Style = bsRaised
      end
      object Label1: TLabel
        Left = 400
        Top = 409
        Width = 15
        Height = 15
        Caption = #24180
      end
      object Label2: TLabel
        Left = 484
        Top = 408
        Width = 15
        Height = 15
        Caption = #26376
      end
      object dbgYGZYGXX: TDBGrid
        Left = 4
        Top = 17
        Width = 689
        Height = 169
        DataSource = dm.dsYGXX
        ImeName = 'itABC v5.30'
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -15
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ygh'
            Title.Caption = #21592#24037#21495
            Width = 106
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'xm'
            Title.Caption = #22995' '#21517
            Width = 128
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'aGz'
            Title.Caption = #24037' '#31181
            Width = 130
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'bm'
            Title.Caption = #37096' '#38376
            Width = 158
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'gzsj'
            Title.Caption = #24037#20316#26102#38388
            Width = 139
            Visible = True
          end>
      end
      object dbgYGZ: TDBGrid
        Left = 4
        Top = 193
        Width = 688
        Height = 196
        DataSource = dm.dsYGZ
        ImeName = 'itABC v5.30'
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -15
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'nian'
            Title.Caption = #24180' '#20221
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'yue'
            Title.Caption = #26376' '#20221
            Width = 71
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'jbgz'
            Title.Caption = #22522#26412#24037#36164
            Width = 98
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'jt'
            Title.Caption = #27941' '#36148
            Width = 88
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'kc'
            Title.Caption = #25187' '#38500
            Width = 108
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'bx'
            Title.Caption = #25253#38144'/'#20445#38505
            Width = 82
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'zj'
            Title.Caption = #24635' '#35745
            Width = 130
            Visible = True
          end>
      end
      object btCountYGZ: TButton
        Left = 16
        Top = 401
        Width = 56
        Height = 25
        Caption = #35745' '#31639
        TabOrder = 2
        OnClick = btCountYGZClick
      end
      object btConutAllYGZ: TButton
        Left = 78
        Top = 401
        Width = 92
        Height = 25
        Caption = #35745#31639#25152#26377#20154
        TabOrder = 3
        OnClick = btConutAllYGZClick
      end
      object btDeleteYGZ: TButton
        Left = 177
        Top = 401
        Width = 56
        Height = 25
        Caption = #21024' '#38500
        TabOrder = 4
        OnClick = btDeleteYGZClick
      end
      object btBaobiaoYGZ: TButton
        Left = 241
        Top = 401
        Width = 56
        Height = 25
        Caption = #25253' '#34920
        TabOrder = 5
      end
      object edtYGZ: TEdit
        Left = 334
        Top = 403
        Width = 57
        Height = 23
        ImeName = 'itABC v5.30'
        MaxLength = 4
        TabOrder = 6
        OnKeyPress = edtYGZKeyPress
      end
      object cbYGZ: TComboBox
        Left = 420
        Top = 404
        Width = 57
        Height = 23
        ImeName = 'itABC v5.30'
        ItemHeight = 15
        TabOrder = 7
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '10'
          '11'
          '12')
      end
      object pbYGZ: TProgressBar
        Left = 520
        Top = 408
        Width = 150
        Height = 16
        TabOrder = 8
      end
    end
    object tsNDJJ: TTabSheet
      Caption = #24180#32456#22870#37329
      ImageIndex = 6
      OnShow = tsNDJJShow
      object Bevel17: TBevel
        Left = 2
        Top = 15
        Width = 691
        Height = 173
      end
      object Bevel18: TBevel
        Left = 2
        Top = 192
        Width = 692
        Height = 192
      end
      object Bevel19: TBevel
        Left = 3
        Top = 389
        Width = 692
        Height = 44
        Shape = bsFrame
        Style = bsRaised
      end
      object Label3: TLabel
        Left = 373
        Top = 405
        Width = 15
        Height = 15
        Caption = #24180
      end
      object Label4: TLabel
        Left = 394
        Top = 405
        Width = 60
        Height = 15
        Caption = #24180#24230#25928#30410
      end
      object dbgNZJJYGXX: TDBGrid
        Left = 4
        Top = 17
        Width = 687
        Height = 169
        DataSource = dm.dsYGXX
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -15
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ygh'
            Title.Caption = #21592#24037#21495
            Width = 119
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'xm'
            Title.Caption = #22995' '#21517
            Width = 131
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'aGz'
            Title.Caption = #24037' '#31181
            Width = 136
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'bm'
            Title.Caption = #37096' '#38376
            Width = 143
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'gzsj'
            Title.Caption = #24037#20316#26102#38388
            Width = 132
            Visible = True
          end>
      end
      object dbgNZJJ: TDBGrid
        Left = 4
        Top = 194
        Width = 689
        Height = 188
        DataSource = dm.dsNZJJ
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -15
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'nian'
            Title.Caption = #24180' '#20221
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'zj'
            Title.Caption = #22870' '#37329
            Visible = True
          end>
      end
      object btCountNZJJ: TButton
        Left = 16
        Top = 400
        Width = 56
        Height = 25
        Caption = #35745' '#31639
        TabOrder = 2
      end
      object btCountAllNZJJ: TButton
        Left = 82
        Top = 400
        Width = 87
        Height = 25
        Caption = #35745#31639#25152#26377#20154
        TabOrder = 3
      end
      object btDeleteNZJJ: TButton
        Left = 184
        Top = 400
        Width = 56
        Height = 25
        Caption = #21024' '#38500
        TabOrder = 4
      end
      object btBaoBiaoNZJJ: TButton
        Left = 247
        Top = 400
        Width = 56
        Height = 25
        Caption = #25253' '#34920
        TabOrder = 5
      end
      object edtNZJJ: TEdit
        Left = 313
        Top = 401
        Width = 56
        Height = 23
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 6
      end
      object edtNDXY: TEdit
        Left = 460
        Top = 401
        Width = 69
        Height = 23
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 7
      end
      object ProgressBar1: TProgressBar
        Left = 544
        Top = 403
        Width = 128
        Height = 17
        TabOrder = 8
      end
    end
    object tsXT: TTabSheet
      Caption = #31995'   '#32479
      ImageIndex = 7
    end
    object tsBZ: TTabSheet
      Caption = #24110'   '#21161
      ImageIndex = 8
    end
  end
  object ApplicationEvents1: TApplicationEvents
    Left = 676
    Top = 65530
  end
end