frmmain.dfm

关于利用DELPHI来进行企业级方案解决的著作的附书源码

object Form1: TForm1
  Left = 195
  Top = 85
  Width = 761
  Height = 602
  Caption = #21333#20301#23383#20856#32500#25252
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020000100000000A80800001600000028000000200000004000
    0000010008000000000000040000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C000C0DC
    C000F0CAA600B155FF0000003400BC00340052F7020024F89C004F0400000000
    07000200D80066205200D8030200AF0592001B7E4F0094F6AF00482DCF002000
    CC00120036002000000000004F00040036000000160012004600AF0502001F03
    C8004201360004006C0016003600160008008400000000F00000200036003200
    0200CEFB9400AF050000162000004F1601005AF34600B2F865004F042000CC00
    200000000200F60500000C070C0000006400020000000500CA006507C80046F6
    0200DCF86F00F605F6004401AF00D60500000000EE00CF1C4F0000004400E01C
    6C006C26E70002F96800B717FE00F605E700E42D0D0000008E0016F99800CF17
    00002F30440002009C0002000D0040F98200E42D02002F3001003150E4000200
    42003103CF000700E40002003600A4F9EA005F280000440307009C010000E42D
    BA001F228C003C31A70000009C000800280002002F00282C0200665FCF009C01
    04003E5028000000A2008E47A700020093002F30D900E782CF00020028000200
    E700D767CF000000170091719100070000000800000012FA2F00000008004903
    4E003F008300372911002F300A000AFA0A000900170016FBF80037290A002F30
    40002F301700756E7400746C6500000001006A0BDF0098ACFD000100E7000100
    470000001C00AA810000A981700003C12800F7BF2C005481000000007D00F7BF
    0000A9810000000068002C802F00B8FA8C00F5810000F4817000F7BF18000000
    E800F48100000000AC00FCFA470000003C00D3810000D3817000F7BFF4000000
    F40044FB4700D2812400D481EC0000002800D4812600D48179002F3000002CFB
    24003729000040FB2F0088722F002F302F009172490041FCC000EF3088002F30
    910091717500746974006564000000007F001F010000440300007FAF1F009EFB
    35008F17000000F0D20000005B000200C500EF00000000006C00C2FB7100E716
    2800020001000000E400020044003F2200000A36A700F0FB2500A71728000200
    E400740302000D003F00010000009FDFDF009FDFFF009FFF3F009FFF5F009FFF
    7F009FFF9F009FFFBF009FFFDF009FFFFF00BF3F3F00BF3F5F00BF3F7F00BF3F
    9F00BF3FBF00BF3FDF00BF3FFF00BF5F3F00BF5F5F00BF5F7F00BF5F9F00BF5F
    BF00BF5FDF00BF5FFF00BF7F3F00BF7F5F00BF7F7F00BF7F9F00BF7FBF00BF7F
    DF00BF7FFF00BF9F3F00BF9F5F00BF9F7F00BF9F9F00BF9FBF00BF9FDF00BF9F
    FF00BFBF3F00BFBF5F00BFBF7F00BFBF9F00BFBFBF00BFBFDF00BFBFFF00BFDF
    3F00BFDF5F00BFDF7F00BFDF9F00BFDFBF00BFDFDF00F0FBFF00A4A0A0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000707
    07070707070707070707070707070707F9F9FFFDFCFDFFFDFCFDFCFDFCFD0707
    070707070707070707070707070707F9F9F9FFFCFDFCFFFCFDFCFDFCFDFC0707
    0707070707070707070707070707F9F9F9F9FFFDFCFDFFFDFCFDFCFDFCFD0707
    0707070707070707070707070606F9F9F9F9FFFCFDFCFFFCFDFCFDFCFDFC0707
    07070707070707070707070606FFF9F9F9F9FFFDFCFDFFFDFCFDFCFDFCFD0707
    07070707070707070707060606FFF9F9F9F9FFFCFDFCFFFCFDFCFDFCFDFC0707
    07070707070707070706060606FFF9F9F9F9FFFDFCFDFFFDFCFDFCFDFCFD0707
    07070707070707FEFC06060606FFF9F9F9F9FFFCFDFCFFFCFDFCFDFCFDFC0707
    070707070707FCFCFF06060606FFF9F9F9F9FFFDFCFDFFFDFCFDFCFDFCFD0707
    0707070707FEFCFEFF06060606FFF9F9F9F9FFFCFDFCFFFCFDFCFDFCFDFC0707
    07070707FCFCFEFCFF06060606FFF9F9F9F9FFFDFCFDFCFDFCFDFCFDFCFD0707
    07070505FCFEFCFEFF06060606FFF9F9F9F9FFFCFDFCFFFFFDFCFDFCFDFC0707
    070505FFFCFCFEFCFF06060606FFF9F9F9F9FFFDFCFFFFFFFFFFFCFDFCFD0707
    050505FFFCFEFCFEFF06060606FFF9F9F9F9FFFCFCF8FFFFFFFFFFFFFDFC0705
    050505FFFCFCFEFCFF06060606FFF9F9F9F9F90707FCFCF8FFFFFFFFFFFF0705
    050505FFFCFEFCFEFF06060606FFF9F9F9FFFFF9F907FCFCFCF8FFFFFFFF0705
    050505FFFCFCFEFCFF06060606FFF9F9FFFFFFFFFFF9F90707FCFCF8FFFF0705
    050505FFFCFEFCFEFF06060606FFF9F9F8FFFFFFFFFFFFF9F90707FCFCF80705
    050505FFFCFCFEFCFF06060606060707F9F9F8FFFFFFFFFFFFF9F9F907070705
    050505FFFCFEFCFEFF060606FFFF060607F9F9F9F8FFFFFFFFFFFFF907070705
    050505FFFCFCFEFCFF0606FFFFFFFFFF06060707F9F9F8FFFFFF070707070705
    050505FFFCFEFCFEFF0606F8FFFFFFFFFFFF06060707F9F9F807070707070705
    050505FFFCFCFEFCFE07070606F8FFFFFFFFFFFF060606070707070707070705
    050505FFFCFEFCFFFFFCFE07060606F8FFFFFFFFFFFF06070707070707070705
    050505FFFCFCFEFFFFFFFFFCFE07070606F8FFFFFF0707070707070707070705
    050505FFFCFCF8FFFFFFFFFFFFFCFE07070606F8070707070707070707070705
    050505050707FCFCF8FFFFFFFFFFFFFCFEFC0707070707070707070707070705
    0505FFFF05050707FCFCF8FFFFFFFFFF07070707070707070707070707070705
    05FFFFFFFFFF05050707FCFCF8FFFF0707070707070707070707070707070705
    05F8FFFFFFFFFFFF05050707FCFCF80707070707070707070707070707070707
    070505F8FFFFFFFFFFFF05050507070707070707070707070707070707070707
    0707070707070707070707070707070707070707070707070707070707070000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 12
  inline FrameTree1: TFrameTree
    Left = 0
    Top = 79
    Width = 753
    Height = 489
    Align = alClient
    TabOrder = 0
    inherited Splitter1: TSplitter
      Height = 489
      OnCanResize = FrameTree1Splitter1CanResize
    end
    inherited Panel1: TPanel
      Height = 489
      inherited Tree: TTreeView
        Height = 487
        OnClick = FrameTree1TreeClick
      end
    end
    inherited Panel2: TPanel
      Width = 450
      Height = 489
      inherited FrameDetail1: TFrameDetail
        Width = 448
        Height = 487
        inherited StaticText1: TStaticText
          Width = 448
        end
        inherited DBEdit1: TDBEdit
          Hint = #35813#39033#19981#33021#20026#31354#65281
          Color = clInfoBk
          DataField = 'DWNM'
        end
        inherited DBEdit2: TDBEdit
          Hint = #35813#39033#19981#33021#20026#31354#65281
          Color = clInfoBk
          DataField = 'DWJC'
        end
        inherited DBEdit3: TDBEdit
          DataField = 'DWDH'
        end
        inherited DBEdit5: TDBEdit
          DataField = 'DWZD'
        end
        inherited DBEdit8: TDBEdit
          DataField = 'DHHM'
        end
        inherited DBEdit9: TDBEdit
          DataField = 'DWFZR'
        end
        inherited DBEdit10: TDBEdit
          DataField = 'YHZHU'
        end
        inherited DBEdit11: TDBEdit
          DataField = 'KJDZ'
        end
        inherited DBEdit12: TDBEdit
          DataField = 'ZCDZ'
        end
        inherited DBEdit14: TDBEdit
          Hint = #35813#39033#19981#33021#20026#31354#65281
          Color = clInfoBk
          DataField = 'DWQC'
        end
        inherited DBEdit16: TDBEdit
          DataField = 'TXDZ'
        end
        inherited DBEdit17: TDBEdit
          DataField = 'KHYH'
        end
        inherited DBEdit18: TDBEdit
          DataField = 'YHZHAO'
        end
        inherited DBEdit19: TDBEdit
          DataField = 'DZYX'
        end
        inherited DBEdit21: TDBEdit
          Hint = #21482#33021#20462#25913#26412#23618#32534#30721#12289#26032#22686#19979#23618#32534#30721#65281
          Color = clInfoBk
          DataField = 'DWBM'
        end
        inherited DBEdit22: TDBEdit
          DataField = 'DYMC'
        end
        inherited DBEdit26: TDBEdit
          DataField = 'SSBM'
        end
        inherited DBEdit27: TDBEdit
          DataField = 'YZBM'
        end
        inherited DBEdit32: TDBEdit
          DataField = 'CZHM'
        end
        inherited DBEdit33: TDBEdit
          DataField = 'JDSNM'
        end
        inherited DBEdit28: TDBEdit
          DataField = 'DWSH'
        end
        inherited DBEdit29: TDBEdit
          DataField = 'LDDZ'
        end
        inherited DBCheckBox2: TDBCheckBox
          Hint = #35813#39033#19981#33021#20026#31354#65281
          Color = clInfoBk
          DataField = 'LWBZ'
          ParentColor = False
          ValueChecked = '1'
          ValueUnchecked = '0'
        end
        inherited DBComboBox1: TDBComboBox
          DataField = 'DWJB'
        end
        inherited DBEdit4: TDBEdit