unit1.dfm

此程序是应朋友的 老婆单位的要求写的

          Height = 17
          Caption = #21512#21516#24320#24037#26085#26399
          TabOrder = 27
        end
        object StaticText25: TStaticText
          Left = 233
          Top = 170
          Width = 76
          Height = 17
          Caption = #21512#21516#31459#24037#26085#26399
          TabOrder = 28
        end
        object StaticText26: TStaticText
          Left = 33
          Top = 227
          Width = 148
          Height = 17
          Caption = #20116#22823#21592#65288#21517#23383#12289#35777#20070#32534#21495#65289
          TabOrder = 29
        end
        object DBComboBox2: TDBComboBox
          Left = 393
          Top = 137
          Width = 57
          Height = 21
          Style = csDropDownList
          DataField = 'hbdw'
          DataSource = DataModule2.DS_ZTSGDW
          ItemHeight = 13
          Items.Strings = (
            #20803
            #19975#20803
            #21315#19975
            #20159)
          TabOrder = 30
        end
      end
      object Panel9: TPanel
        Left = 176
        Top = 29
        Width = 513
        Height = 277
        Alignment = taLeftJustify
        BevelInner = bvSpace
        BevelOuter = bvNone
        BorderStyle = bsSingle
        Caption = #35774#35745#21333#20301
        TabOrder = 12
        object LabeledEdit47: TLabeledEdit
          Left = 320
          Top = 239
          Width = 286
          Height = 21
          EditLabel.Width = 48
          EditLabel.Height = 13
          EditLabel.Caption = #21333#20301#21517#31216
          TabOrder = 0
          Visible = False
        end
        object LabeledEdit48: TLabeledEdit
          Left = 320
          Top = 305
          Width = 187
          Height = 21
          EditLabel.Width = 48
          EditLabel.Height = 13
          EditLabel.Caption = #36164#36136#31561#32423
          TabOrder = 1
          Visible = False
        end
        object LabeledEdit49: TLabeledEdit
          Left = 540
          Top = 305
          Width = 65
          Height = 21
          EditLabel.Width = 48
          EditLabel.Height = 13
          EditLabel.Caption = #35777#20070#32534#21495
          TabOrder = 2
          Visible = False
        end
        object LabeledEdit50: TLabeledEdit
          Left = 320
          Top = 369
          Width = 187
          Height = 21
          EditLabel.Width = 48
          EditLabel.Height = 13
          EditLabel.Caption = #27861#20154#20195#34920
          TabOrder = 3
          Visible = False
        end
        object LabeledEdit51: TLabeledEdit
          Left = 540
          Top = 368
          Width = 65
          Height = 21
          EditLabel.Width = 36
          EditLabel.Height = 13
          EditLabel.Caption = #22996#25176#20154
          TabOrder = 4
          Visible = False
        end
        object LabeledEdit52: TLabeledEdit
          Left = 320
          Top = 426
          Width = 138
          Height = 21
          EditLabel.Width = 48
          EditLabel.Height = 13
          EditLabel.Caption = #21512#21516#20215#27454
          TabOrder = 5
          Visible = False
        end
        object ComboBox12: TComboBox
          Left = 458
          Top = 426
          Width = 49
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          ItemIndex = 0
          TabOrder = 6
          Text = #20803
          Visible = False
          OnChange = ComboBox1Change
          Items.Strings = (
            #20803
            #19975#20803
            #21315#19975
            #20159)
        end
        object DBEdit2: TDBEdit
          Left = 56
          Top = 48
          Width = 313
          Height = 21
          DataField = 'sjdwmc'
          DataSource = DataModule2.DS_SJDW
          TabOrder = 7
        end
        object DBEdit3: TDBEdit
          Left = 56
          Top = 104
          Width = 145
          Height = 21
          DataField = 'zzdj'
          DataSource = DataModule2.DS_SJDW
          TabOrder = 8
        end
        object DBEdit4: TDBEdit
          Left = 224
          Top = 104
          Width = 145
          Height = 21
          DataField = 'zsbh'
          DataSource = DataModule2.DS_SJDW
          TabOrder = 9
        end
        object DBEdit5: TDBEdit
          Left = 56
          Top = 176
          Width = 145
          Height = 21
          DataField = 'frdb'
          DataSource = DataModule2.DS_SJDW
          TabOrder = 10
        end
        object DBEdit6: TDBEdit
          Left = 224
          Top = 176
          Width = 145
          Height = 21
          DataField = 'wtr'
          DataSource = DataModule2.DS_SJDW
          TabOrder = 11
        end
        object DBEdit7: TDBEdit
          Left = 56
          Top = 232
          Width = 145
          Height = 21
          DataField = 'htjk'
          DataSource = DataModule2.DS_SJDW
          TabOrder = 12
        end
        object DBComboBox1: TDBComboBox
          Left = 200
          Top = 232
          Width = 57
          Height = 21
          Style = csDropDownList
          DataField = 'hbdw'
          DataSource = DataModule2.DS_SJDW
          ItemHeight = 13
          Items.Strings = (
            #20803
            #19975#20803
            #21315#19975
            #20159)
          TabOrder = 13
        end
        object StaticText12: TStaticText
          Left = 56
          Top = 24
          Width = 52
          Height = 17
          Caption = #21333#20301#21517#31216
          TabOrder = 14
        end
        object StaticText13: TStaticText
          Left = 56
          Top = 80
          Width = 52
          Height = 17
          Caption = #36164#36136#31561#32423
          TabOrder = 15
        end
        object StaticText14: TStaticText
          Left = 56
          Top = 152
          Width = 52
          Height = 17
          Caption = #27861#20154#20195#34920
          TabOrder = 16
        end
        object StaticText15: TStaticText
          Left = 224
          Top = 80
          Width = 52
          Height = 17
          Caption = #35777#20070#32534#21495
          TabOrder = 17
        end
        object StaticText16: TStaticText
          Left = 232
          Top = 152
          Width = 40
          Height = 17
          Caption = #22996#25176#20154
          TabOrder = 18
        end
        object StaticText17: TStaticText
          Left = 56
          Top = 208
          Width = 52
          Height = 17
          Caption = #21512#21516#20215#27454
          TabOrder = 19
        end
      end
      object Panel11: TPanel
        Left = 176
        Top = 29
        Width = 513
        Height = 277
        Alignment = taLeftJustify
        BevelInner = bvSpace
        BevelOuter = bvNone
        BorderStyle = bsSingle
        Caption = #30002#26041#20195#34920
        TabOrder = 14
        object LabeledEdit36: TLabeledEdit
          Left = 56
          Top = 56
          Width = 121
          Height = 21
          EditLabel.Width = 48
          EditLabel.Height = 13
          EditLabel.Caption = #22303#24314#20195#34920
          TabOrder = 0
        end
        object LabeledEdit37: TLabeledEdit
          Left = 56
          Top = 120
          Width = 121
          Height = 21
          EditLabel.Width = 48
          EditLabel.Height = 13
          EditLabel.Caption = #30005#27668#20195#34920
          TabOrder = 1
        end
        object LabeledEdit38: TLabeledEdit
          Left = 56
          Top = 192
          Width = 121
          Height = 21
          EditLabel.Width = 48
          EditLabel.Height = 13
          EditLabel.Caption = #27700#26262#20195#34920
          TabOrder = 2
        end
        object DBEdit74: TDBEdit
          Left = 56
          Top = 56
          Width = 121
          Height = 21
          DataField = 'jfdb'
          DataSource = DataModule2.DS_JFDW
          TabOrder = 3
        end
        object DBEdit75: TDBEdit
          Left = 56
          Top = 120
          Width = 121
          Height = 21
          DataField = 'dqdb'
          DataSource = DataModule2.DS_JFDW
          TabOrder = 4
        end
        object DBEdit76: TDBEdit
          Left = 56
          Top = 192
          Width = 121
          Height = 21
          DataField = 'sndb'
          DataSource = DataModule2.DS_JFDW
          TabOrder = 5
        end
      end
      object Panel1: TPanel
        Left = 176
        Top = 29
        Width = 513
        Height = 277
        Alignment = taLeftJustify
        BevelInner = bvSpace
        BevelOuter = bvNone
        BorderStyle = bsSingle
        Caption = #24037#31243#21517#31216
        ParentBackground = False
        TabOrder = 3
        object Label1: TLabel
          Left = 64
          Top = 40
          Width = 48
          Height = 13
          Caption = #24037#31243#21517#31216
        end
        object Label2: TLabel
          Left = 65
          Top = 118
          Width = 36
          Height = 13
          Caption = #21161#35760#30721
          Visible = False
        end
        object Label3: TLabel
          Left = 64
          Top = 240
          Width = 212
          Height = 13
          Caption = #27880#24847#65306#22312#24037#31243#21517#31216#37324#19981#35201#36755#20837#21333#24341#21495'(  '#39'  )'
        end
        object DBEdit73: TDBEdit
          Left = 64
          Top = 64
          Width = 275
          Height = 21
          DataField = 'gcname'
          DataSource = DataModule2.DS_GCMC
          TabOrder = 2
        end
        object Edit1: TEdit
          Left = 64
          Top = 64
          Width = 274
          Height = 21
          TabOrder = 0
          Text = 'Edit1'
        end
        object Edit2: TEdit
          Left = 64
          Top = 136
          Width = 129
          Height = 21
          TabOrder = 1
          Text = 'Edit2'
          Visible = False
        end
      end
      object Panel2: TPanel
        Left = 176
        Top = 29
        Width = 513
        Height = 277
        Alignment = taLeftJustify
        BevelInner = bvSpace
        BevelOuter = bvNone
        BorderStyle = bsSingle
        Caption = #24037#31243#24635#27010#20917
        ParentBackground = False
        TabOrder = 5
        object Label4: TLabel
          Left = 448
          Top = 8
          Width = 54
          Height = 13
          Caption = #36135#24065#21333#20301'  '
        end
        object Label5: TLabel
          Left = 117
          Top = 56
          Width = 48
          Height = 13
          Caption = #36135#24065#21333#20301
        end
        object Label6: TLabel
          Left = 282
          Top = 56
          Width = 48
          Height = 13
          Caption = #36135#24065#21333#20301
        end
        object Label7: TLabel
          Left = 447
          Top = 56
          Width = 48
          Height = 13
          Caption = #36135#24065#21333#20301
        end
        object Label8: TLabel
          Left = 117
          Top = 106
          Width = 48
          Height = 13
          Caption = #36135#24065#21333#20301
        end
        object Label9: TLabel
          Left = 282
          Top = 106
          Width = 48
          Height = 13
          Caption = #36135#24065#21333#20301
        end
        object Label10: TLabel
          Left = 448
          Top = 106
          Width = 48
          Height = 13
          Caption = #36135#24065#21333#20301
        end
        object LabeledEdit1: TLabeledEdit
          Left = 8
          Top = 24
          Width = 157
          Height = 21
          EditLabel.Width = 66
          EditLabel.Height = 13
          EditLabel.Caption = #25209#20934#25991#21495'      '
          TabOrder = 0
        end
        object LabeledEdit2: TLabeledEdit
          Left = 174
          Top = 24
          Width = 154
          Height = 21
          EditLabel.Width = 69
          EditLabel.Height = 13
          EditLabel.Caption = #36164#37329#26469#28304'       '
          TabOrder = 1
        end
        object LabeledEdit3: TLabeledEdit
          Left = 338
          Top = 24
          Width = 109
          Height = 21
          EditLabel.Width = 69
          EditLabel.Height = 13
          EditLabel.Caption = #35745#21010#25237#36164'       '
          TabOrder = 2
        end
        object ComboBox1: TComboBox
          Left = 448
          Top = 24
          Width = 49
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          ItemIndex = 0
          TabOrder = 3
          Text = #20803
          OnChange = ComboBox1Change
          Items.Strings = (
            #20803