frmmain.~dfm

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

      object Bevel6: TBevel
        Left = 3
        Top = 186
        Width = 691
        Height = 190
      end
      object Bevel7: TBevel
        Left = 2
        Top = 384
        Width = 692
        Height = 50
        Shape = bsFrame
        Style = bsRaised
      end
      object sp1: TSplitter
        Left = 4
        Top = 165
        Width = 691
        Height = 6
        Align = alNone
        AutoSnap = False
      end
      object Splitter1: TSplitter
        Left = 2
        Top = 380
        Width = 693
        Height = 3
        Align = alNone
        AutoSnap = False
      end
      object dbgYGXXKQ: TDBGrid
        Left = 4
        Top = 8
        Width = 687
        Height = 151
        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 = 103
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'xm'
            Title.Caption = #22995' '#21517
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'aGz'
            Title.Caption = #24037' '#31181
            Width = 125
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'bm'
            Title.Caption = #37096' '#38376
            Width = 153
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'gzsj'
            Title.Caption = #24037#20316#26102#38388
            Width = 64
            Visible = True
          end>
      end
      object dbgKQXX: TDBGrid
        Left = 5
        Top = 168
        Width = 686
        Height = 205
        DataSource = dm.dsKQXX
        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 = 'kqsj'
            Title.Caption = #32771#21220#26102#38388
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'qqts'
            Title.Caption = #32570#21220#22825#25968
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'aqqlb'
            Title.Caption = #32570#21220#31867#21035
            Width = 64
            Visible = True
          end>
      end
      object btAddKQ: TButton
        Left = 16
        Top = 400
        Width = 56
        Height = 25
        Caption = #28155' '#21152
        TabOrder = 2
      end
      object btUpdateKQ: TButton
        Left = 82
        Top = 400
        Width = 56
        Height = 25
        Caption = #20462' '#25913
        TabOrder = 3
      end
      object btDeleteKQ: TButton
        Left = 148
        Top = 400
        Width = 56
        Height = 25
        Caption = #21024' '#38500
        TabOrder = 4
        OnClick = btDeleteKQClick
      end
    end
    object tsJTXX: TTabSheet
      Caption = #27941'   '#36148
      ImageIndex = 3
      object Bevel8: TBevel
        Left = 2
        Top = 12
        Width = 691
        Height = 160
      end
      object Bevel9: TBevel
        Left = 2
        Top = 178
        Width = 692
        Height = 208
      end
      object Bevel10: TBevel
        Left = 1
        Top = 391
        Width = 693
        Height = 43
        Shape = bsFrame
        Style = bsRaised
      end
      object dbgjtygxx: TDBGrid
        Left = 4
        Top = 16
        Width = 687
        Height = 154
        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 = 118
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'xm'
            Title.Caption = #22995' '#21517
            Width = 123
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'aGz'
            Title.Caption = #24037' '#31181
            Width = 134
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'bm'
            Title.Caption = #37096' '#38376
            Width = 138
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'gzsj'
            Title.Caption = #24037#20316#26102#38388
            Visible = True
          end>
      end
      object dbgJTXX: TDBGrid
        Left = 4
        Top = 180
        Width = 688
        Height = 203
        DataSource = dm.dsJTXX
        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 = 'jbsj'
            Title.Caption = #21152#29677#26102#38388
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'jbts'
            Title.Caption = #21152#29677#22825#25968
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ajblb'
            Title.Caption = #21152#29677#31867#21035
            Width = 64
            Visible = True
          end>
      end
      object btAddJTXX: TButton
        Left = 16
        Top = 400
        Width = 56
        Height = 25
        Caption = #28155' '#21152
        TabOrder = 2
      end
      object btUpdateJT: TButton
        Left = 82
        Top = 400
        Width = 56
        Height = 25
        Caption = #20462' '#25913
        TabOrder = 3
      end
      object btDeleteJT: TButton
        Left = 148
        Top = 400
        Width = 56
        Height = 25
        Caption = #21024' '#38500
        TabOrder = 4
      end
    end
    object tsYLXX: TTabSheet
      Caption = #21307'   '#30103
      ImageIndex = 4
      object Bevel11: TBevel
        Left = 1
        Top = 8
        Width = 694
        Height = 180
      end
      object Bevel12: TBevel
        Left = 2
        Top = 192
        Width = 693
        Height = 195
      end
      object Bevel13: TBevel
        Left = 2
        Top = 391
        Width = 694
        Height = 40
        Shape = bsFrame
        Style = bsRaised
      end
      object dbgYLYGXX: TDBGrid
        Left = 3
        Top = 10
        Width = 689
        Height = 175
        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 = 118
            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 = 125
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'bm'
            Title.Caption = #37096' '#38376
            Width = 138
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'gzsj'
            Title.Caption = #24037#20316#26102#38388
            Width = 155
            Visible = True
          end>
      end
      object dbgYLXX: TDBGrid
        Left = 4
        Top = 194
        Width = 689
        Height = 191
        DataSource = dm.dsYLBX
        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 = 'ylfy'
            Title.Caption = #21307#30103#25253#38144#36153
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'bxfy'
            Title.Caption = #20445#38505#36153
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'sj'
            Title.Caption = #26102' '#38388
            Width = 64
            Visible = True
          end>
      end
      object btAddYL: TButton
        Left = 16
        Top = 400
        Width = 56
        Height = 25
        Caption = #28155' '#21152
        TabOrder = 2
      end
      object btUpdateYL: TButton
        Left = 82
        Top = 400
        Width = 56
        Height = 25
        Caption = #20462' '#25913
        TabOrder = 3
      end
      object btDeleteYL: TButton
        Left = 148
        Top = 400
        Width = 56
        Height = 25
        Caption = #21024' '#38500
        TabOrder = 4
      end
    end
    object tsYGZ: TTabSheet
      Caption = #26376#24037#36164
      ImageIndex = 5