zhanghu.dfm

C++Builder6随书的源程序

object fmZhangHu: TfmZhangHu
  Left = 195
  Top = 145
  Width = 695
  Height = 480
  Caption = #24080#25143#35774#32622'('#26399#21021#25968#25454#24405#20837')'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 687
    Height = 49
    Align = alTop
    TabOrder = 0
    object BitBtn1: TBitBtn
      Left = 31
      Top = 12
      Width = 98
      Height = 25
      Caption = #24314#31435#26032#24080#31807
      TabOrder = 0
      OnClick = BitBtn1Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
        33333333333F8888883F33330000324334222222443333388F3833333388F333
        000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
        F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
        223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
        3338888300003AAAAAAA33333333333888888833333333330000333333333333
        333333333333333333FFFFFF000033333333333344444433FFFF333333888888
        00003A444333333A22222438888F333338F3333800003A2243333333A2222438
        F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
        22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
        33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
        3333333333338888883333330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 159
      Top = 12
      Width = 98
      Height = 25
      Caption = #21551#29992#24080#31807
      TabOrder = 1
      OnClick = BitBtn2Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object BitBtn3: TBitBtn
      Left = 287
      Top = 12
      Width = 98
      Height = 25
      Caption = #35797#31639#24179#34913
      TabOrder = 2
      OnClick = BitBtn3Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
        F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
        000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
        338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
        45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
        3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
        F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
        000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
        338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
        4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
        8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
        333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
        0000}
      NumGlyphs = 2
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 49
    Width = 465
    Height = 404
    Align = alLeft
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 463
      Height = 402
      Align = alClient
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Color = clMoneyGreen
          Expanded = False
          FieldName = #31185#30446#20195#30721
          ReadOnly = True
          Width = 54
          Visible = True
        end
        item
          Color = clMoneyGreen
          Expanded = False
          FieldName = #31185#30446#21517#31216
          ReadOnly = True
          Width = 119
          Visible = True
        end
        item
          Color = clMoneyGreen
          Expanded = False
          FieldName = #20313#39069#26041#21521
          ReadOnly = True
          Visible = True
        end
        item
          Expanded = False
          FieldName = #32047#35745#20511#26041
          Width = 68
          Visible = True
        end
        item
          Expanded = False
          FieldName = #32047#35745#36151#26041
          Width = 65
          Visible = True
        end
        item
          Expanded = False
          FieldName = #26399#21021#20313#39069
          Visible = True
        end>
    end
  end
  object Panel3: TPanel
    Left = 465
    Top = 49
    Width = 222
    Height = 404
    Align = alClient
    TabOrder = 2
    object DBGrid2: TDBGrid
      Left = 1
      Top = 1
      Width = 220
      Height = 402
      Align = alClient
      DataSource = DataSource2
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Color = clMoneyGreen
          Expanded = False
          FieldName = #32534#21495
          ReadOnly = True
          Width = 27
          Visible = True
        end
        item
          Color = clMoneyGreen
          Expanded = False
          FieldName = #21442#25968#21517#31216
          ReadOnly = True
          Width = 103
          Visible = True
        end
        item
          Expanded = False
          FieldName = #21462#20540
          Width = 46
          Visible = True
        end>
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 544
    Top = 8
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'db'
    TableName = 'dbo.'#24080#31807#21021#22987#21270#34920
    Left = 512
    Top = 8
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'db'
    TableName = 'dbo.'#31995#32479#21442#25968#34920
    Left = 576
    Top = 8
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 608
    Top = 8
  end
end