frmmain.~dfm

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

object Form1: TForm1
  Left = 218
  Top = 145
  Width = 716
  Height = 504
  Caption = #24037#36164#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 705
    Height = 468
    ActivePage = tsYGZ
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object tsGZBZSD: TTabSheet
      Caption = #24037#36164#26631#20934#35774#23450
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      DesignSize = (
        697
        438)
      object Bevel1: TBevel
        Left = 3
        Top = 74
        Width = 689
        Height = 313
      end
      object Bevel2: TBevel
        Left = 3
        Top = 390
        Width = 690
        Height = 43
        Shape = bsFrame
        Style = bsRaised
      end
      object RgChoose: TRadioGroup
        Left = 3
        Top = 8
        Width = 690
        Height = 58
        Anchors = [akLeft, akTop, akRight]
        BiDiMode = bdLeftToRight
        Caption = #36873#25321#26631#20934
        Columns = 4
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        Items.Strings = (
          #24037'  '#31181'       '
          #21152#29677#31867#21035
          #32570#21220#31867#21035
          #20225#19994#24180#24230#25928#30410)
        ParentBiDiMode = False
        ParentFont = False
        TabOrder = 0
        OnClick = RgChooseClick
      end
      object dbgGZ: TDBGrid
        Left = 5
        Top = 76
        Width = 683
        Height = 306
        DataSource = dm.dsgongzhong
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -15
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        OnDblClick = btUpdatGZClick
        Columns = <
          item
            Expanded = False
            FieldName = 'gz'
            Width = 179
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'jbgz'
            Width = 107
            Visible = True
          end>
      end
      object btAddGZ: TButton
        Left = 16
        Top = 400
        Width = 56
        Height = 25
        Caption = #28155' '#21152
        TabOrder = 2
        OnClick = btAddGZClick
      end
      object btUpdatGZ: TButton
        Left = 82
        Top = 400
        Width = 56
        Height = 25
        Caption = #20462' '#25913
        TabOrder = 3
        OnClick = btUpdatGZClick
      end
      object btDeleteGZ: TButton
        Left = 148
        Top = 400
        Width = 56
        Height = 25
        Caption = #21024' '#38500
        TabOrder = 4
        OnClick = btDeleteGZClick
      end
      object btAddJBLB: TButton
        Left = 209
        Top = 402
        Width = 56
        Height = 25
        Caption = #28155' '#21152
        TabOrder = 5
        OnClick = btAddJBLBClick
      end
      object btUpdateJBLB: TButton
        Left = 265
        Top = 402
        Width = 56
        Height = 25
        Caption = #20462' '#25913
        TabOrder = 6
        OnClick = btUpdateJBLBClick
      end
      object btDeleteJBLB: TButton
        Left = 321
        Top = 402
        Width = 56
        Height = 25
        Caption = #21024' '#38500
        TabOrder = 7
        OnClick = btDeleteJBLBClick
      end
      object btDeleteQQLB: TButton
        Left = 497
        Top = 402
        Width = 56
        Height = 25
        Caption = #21024' '#38500
        TabOrder = 8
        OnClick = btDeleteQQLBClick
      end
      object btAddQQLB: TButton
        Left = 385
        Top = 402
        Width = 56
        Height = 25
        Caption = #28155' '#21152
        TabOrder = 9
        OnClick = btAddQQLBClick
      end
      object btUpdateQQLB: TButton
        Left = 441
        Top = 402
        Width = 56
        Height = 25
        Caption = #20462' '#25913
        TabOrder = 10
        OnClick = btUpdateQQLBClick
      end
      object dbgJBLB: TDBGrid
        Left = 45
        Top = 96
        Width = 683
        Height = 306
        DataSource = dm.dsJBLB
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 11
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -15
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        OnDblClick = btUpdateJBLBClick
        Columns = <
          item
            Expanded = False
            FieldName = 'jblb'
            Title.Caption = #21152#29677#31867#21035
            Width = 185
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'jbgz'
            Title.Caption = #22686#21152#26376#24037#36164
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ndxs'
            Title.Caption = #24180#24230#20998#32418#31995#25968
            Width = 101
            Visible = True
          end>
      end
      object dbgQQLB: TDBGrid
        Left = 76
        Top = 96
        Width = 683
        Height = 306
        DataSource = dm.dsQQLB
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 12
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -15
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        OnDblClick = btUpdateQQLBClick
        Columns = <
          item
            Expanded = False
            FieldName = 'qqlb'
            Title.Caption = #32570#21220#31867#21035
            Width = 170
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'jbgz'
            Title.Caption = #25187#38500#26376#24037#36164
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ndxs'
            Title.Caption = #25187#38500#24180#24230#20998#32418#31995#25968
            Width = 128
            Visible = True
          end>
      end
      object dbgQYNDXY: TDBGrid
        Left = 105
        Top = 97
        Width = 683
        Height = 306
        DataSource = dm.dsQYNDXY
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 13
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -15
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ndxy'
            Title.Caption = #24180#24230#25928#30410
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'nian'
            Title.Caption = #24180#20221
            Width = 64
            Visible = True
          end>
      end
      object Button1: TButton
        Left = 120
        Top = 32
        Width = 75
        Height = 25
        Caption = 'Button1'
        TabOrder = 14
      end
    end
    object tsYGXX: TTabSheet
      Caption = #21592#24037#22522#26412#20449#24687
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ImageIndex = 1
      ParentFont = False
      object Bevel3: TBevel
        Left = 3
        Top = 389
        Width = 693
        Height = 41
        Shape = bsFrame
        Style = bsRaised
      end
      object Bevel4: TBevel
        Left = 3
        Top = 22
        Width = 690
        Height = 362
      end
      object dbgYGXX: TDBGrid
        Left = 5
        Top = 24
        Width = 685
        Height = 360
        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 = 114
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'xm'
            Title.Caption = #22995' '#21517
            Width = 107
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'aGz'
            Title.Caption = #24037' '#31181
            Width = 112
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'bm'
            Title.Caption = #37096' '#38376
            Width = 160
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'gzsj'
            Title.Caption = #24037#20316#26102#38388
            Visible = True
          end>
      end
      object btAddYGXX: TButton
        Left = 16
        Top = 400
        Width = 56
        Height = 25
        Caption = #28155' '#21152
        TabOrder = 1
        OnClick = btAddYGXXClick
      end
      object btUpdateYGXX: TButton
        Left = 82
        Top = 400
        Width = 56
        Height = 25
        Caption = #20462' '#25913
        TabOrder = 2
      end
      object btDeleteYGXX: TButton
        Left = 148
        Top = 400
        Width = 56
        Height = 25
        Caption = #21024' '#38500
        TabOrder = 3
        OnClick = btDeleteYGXXClick
      end
    end
    object tsKQXX: TTabSheet
      Caption = #32771'   '#21220
      ImageIndex = 2
      object Bevel5: TBevel
        Left = 2
        Top = 8
        Width = 691
        Height = 154
      end