Delphi/CppBuilder

开发平台：
Delphi

U_htgd.dfm：源码内容
							object Form51: TForm51
  Left = 72
  Top = 71
  Width = 674
  Height = 455
  Caption = #21512#21516#24402#26723
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 105
    Top = 0
    Width = 8
    Height = 385
    Cursor = crHSplit
    Color = clGray
    ParentColor = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 105
    Height = 385
    Align = alLeft
    BevelInner = bvLowered
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 101
      Height = 381
      Align = alClient
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDrawColumnCell = DBGrid1DrawColumnCell
      Columns = <
        item
          Expanded = False
          FieldName = #21512#21516#32534#21495
          Title.Alignment = taCenter
          Width = 68
          Visible = True
        end>
    end
  end
  object Panel2: TPanel
    Left = 113
    Top = 0
    Width = 553
    Height = 385
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 1
    object DBGrid2: TDBGrid
      Left = 2
      Top = 2
      Width = 549
      Height = 381
      Align = alClient
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDrawColumnCell = DBGrid2DrawColumnCell
      Columns = <
        item
          Expanded = False
          FieldName = #20379#26041#21333#20301
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #38656#26041#21333#20301
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #31614#35746#22320#28857
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #31614#35746#26102#38388
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = #20379#26041#21333#20301#21517#31216
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #20379#26041#21333#20301#22320#22336
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #20379#26041#21333#20301#27861#23450#20195#34920#20154
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #20379#26041#21333#20301#22996#25176#20195#29702#20154
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #20379#26041#21333#20301#30005#35805
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #20379#26041#21333#20301#30005#25253#25346#21495
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #20379#26041#21333#20301#24320#25143#38134#34892
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #20379#26041#21333#20301#24080#21495
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #20379#26041#21333#20301#37038#25919#32534#30721
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #38656#26041#21333#20301#21517#31216
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #38656#26041#21333#20301#22320#22336
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #38656#26041#21333#20301#27861#23450#20195#34920#20154
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #38656#26041#21333#20301#22996#25176#20195#29702#20154
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #38656#26041#21333#20301#30005#35805
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #38656#26041#21333#20301#30005#25253#25346#21495
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #38656#26041#21333#20301#24320#25143#38134#34892
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #38656#26041#21333#20301#24080#21495
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #38656#26041#21333#20301#37038#25919#32534#30721
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #37492#35777#24847#35265
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #32463#21150#20154
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #37492#35777#26426#20851
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #37492#35777#26102#38388
          Title.Alignment = taCenter
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24402#26723#20154
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24402#26723#26102#38388
          Visible = True
        end>
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 409
    Width = 666
    Height = 19
    Panels = <
      item
        Width = 150
      end
      item
        Width = 150
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 385
    Width = 666
    Height = 24
    Align = alBottom
    AutoSize = True
    ButtonWidth = 75
    Caption = 'ToolBar1'
    Flat = True
    Images = ImageList1
    List = True
    ShowCaptions = True
    TabOrder = 3
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Caption = #24402'   '#26723
      ImageIndex = 0
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 75
      Top = 0
      AutoSize = True
      Caption = #36807#28388
      DropdownMenu = PopupMenu3
      ImageIndex = 1
      Style = tbsDropDown
    end
    object ToolButton3: TToolButton
      Left = 143
      Top = 0
      Caption = #35814#32454#20449#24687
      ImageIndex = 2
    end
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'P_CGHT'
    Left = 391
    Top = 8
    object ClientDataSet1ID: TIntegerField
      FieldName = 'ID'
    end
    object ClientDataSet1CDSDesigner: TStringField
      FieldName = #21512#21516#32534#21495
      FixedChar = True
      Size = 7
    end
    object ClientDataSet1CDSDesigner2: TStringField
      FieldName = #20379#26041#21333#20301
      FixedChar = True
      Size = 40
    end
    object ClientDataSet1CDSDesigner3: TStringField
      FieldName = #38656#26041#21333#20301
      FixedChar = True
      Size = 40
    end
    object ClientDataSet1CDSDesigner4: TStringField
      FieldName = #31614#35746#22320#28857
      FixedChar = True
      Size = 40
    end
    object ClientDataSet1CDSDesigner5: TDateTimeField
      FieldName = #31614#35746#26102#38388
    end
    object ClientDataSet1Z2: TStringField
      FieldName = 'Z2'
      Size = 100
    end
    object ClientDataSet1z3: TStringField
      FieldName = 'z3'
      Size = 100
    end
    object ClientDataSet1z4: TStringField
      FieldName = 'z4'
      Size = 100
    end
    object ClientDataSet1z5: TStringField
      FieldName = 'z5'
      Size = 100
    end
    object ClientDataSet1z6: TStringField
      FieldName = 'z6'
      Size = 100
    end
    object ClientDataSet1z7: TStringField
      FieldName = 'z7'
      Size = 100
    end
    object ClientDataSet1z8: TStringField
      FieldName = 'z8'
      Size = 100
    end
    object ClientDataSet1z9: TStringField
      FieldName = 'z9'
      Size = 100
    end
    object ClientDataSet1z10: TStringField
      FieldName = 'z10'
      Size = 100
    end
    object ClientDataSet1z11: TStringField
      FieldName = 'z11'
      Size = 100
    end
    object ClientDataSet1z12: TStringField
      FieldName = 'z12'
      Size = 100
    end
    object ClientDataSet1z13: TStringField
      FieldName = 'z13'
      Size = 100
    end
    object ClientDataSet1CDSDesigner6: TStringField
      FieldName = #20379#26041#21333#20301#21517#31216
      FixedChar = True
      Size = 40
    end
    object ClientDataSet1CDSDesigner7: TStringField
      FieldName = #20379#26041#21333#20301#22320#22336
      FixedChar = True
      Size = 40
    end
    object ClientDataSet1CDSDesigner8: TStringField
      FieldName = #20379#26041#21333#20301#27861#23450#20195#34920#20154
      FixedChar = True
    end
    object ClientDataSet1CDSDesigner9: TStringField
      FieldName = #20379#26041#21333#20301#22996#25176#20195#29702#20154
      FixedChar = True
    end
    object ClientDataSet1CDSDesigner10: TStringField
      FieldName = #20379#26041#21333#20301#30005#35805
      FixedChar = True
    end
    object ClientDataSet1CDSDesigner11: TStringField
      FieldName = #20379#26041#21333#20301#30005#25253#25346#21495
      FixedChar = True
    end
    object ClientDataSet1CDSDesigner12: TStringField
      FieldName = #20379#26041#21333#20301#24320#25143#38134#34892
      FixedChar = True
      Size = 40
    end
    object ClientDataSet1CDSDesigner13: TStringField
      FieldName = #20379#26041#21333#20301#24080#21495
      FixedChar = True
    end
    object ClientDataSet1CDSDesigner14: TStringField
      FieldName = #20379#26041#21333#20301#37038#25919#32534#30721
      FixedChar = True
      Size = 6
    end
    object ClientDataSet1CDSDesigner15: TStringField
      FieldName = #38656#26041#21333#20301#21517#31216
      FixedChar = True
      Size = 40
    end
    object ClientDataSet1CDSDesigner16: TStringField
      FieldName = #38656#26041#21333#20301#22320#22336
      FixedChar = True
      Size = 40
    end
    object ClientDataSet1CDSDesigner17: TStringField
      FieldName = #38656#26041#21333#20301#27861#23450#20195#34920#20154
      FixedChar = True
    end
    object ClientDataSet1CDSDesigner18: TStringField
      FieldName = #38656#26041#21333#20301#22996#25176#20195#29702#20154
      FixedChar = True
    end
    object ClientDataSet1CDSDesigner19: TStringField
      FieldName = #38656#26041#21333#20301#30005#35805
      FixedChar = True
    end
    object ClientDataSet1CDSDesigner20: TStringField
      FieldName = #38656#26041#21333#20301#30005#25253#25346#21495
      FixedChar = True
    end
    object ClientDataSet1CDSDesigner21: TStringField
      FieldName = #38656#26041#21333#20301#24320#25143#38134#34892
      FixedChar = True
      Size = 40
    end
    object ClientDataSet1CDSDesigner22: TStringField
      FieldName = #38656#26041#21333#20301#24080#21495
      FixedChar = True
    end
    object ClientDataSet1CDSDesigner23: TStringField
      FieldName = #38656#26041#21333#20301#37038#25919#32534#30721
      FixedChar = True
      Size = 6
    end
    object ClientDataSet1CDSDesigner24: TStringField
      FieldName = #37492#35777#24847#35265
      FixedChar = True
    end
    object ClientDataSet1CDSDesigner25: TStringField
      FieldName = #32463#21150#20154
      FixedChar = True
    end
    object ClientDataSet1CDSDesigner26: TStringField
      FieldName = #37492#35777#26426#20851
      FixedChar = True
      Size = 40
    end
    object ClientDataSet1CDSDesigner27: TDateTimeField
      FieldName = #37492#35777#26102#38388
    end
    object ClientDataSet1CDSDesigner28: TBooleanField
      FieldName = #26159#21542#24402#26723
    end
    object ClientDataSet1CDSDesigner29: TStringField
      FieldName = #24402#26723#20154
      FixedChar = True
    end
    object ClientDataSet1CDSDesigner30: TDateTimeField
      FieldName = #24402#26723#26102#38388
    end
    object ClientDataSet1Q_CGHT_JTCL: TDataSetField
      FieldName = 'Q_CGHT_JTCL'
    end
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 423
    Top = 8
  end
  object ImageList1: TImageList
    Left = 260
    Top = 88
    Bitmap = {
      494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000007C007C00000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000007C0000
      000000000000000000000000000000000000000000000000007C007C00000000
      0000000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000007C007C007C
      0000000000000000000000000000000000000000007C007C007C007C007C007C
      0000000000000000000000000000000000000000FF7F00000000FF7F00000000
      FF7F00000000FF7F000000000000FF7F00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000007C007C007C
      0000000000000000000000000000000000000000007C007C007C007C007C007C
      0000000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000
      000000000000000000000000000000000000000000000000007C007C007C007C
      007C00000000000000000000000000000000000000000000007C007C00000000
      0000000000000000000000000000000000000000FF7F00000000FF7F00000000
      FF7F00000000FF7F000000000000FF7F00000000000000000000000000000000
      00000000000000000000000000000000000000000000007C007C007C007C007C
      007C00000000000000000000000000000000000000000000007C007C00000000
      0000000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000
      0000000000000000000000000000000000000000EF3D007C007C00000000007C
      007C007C00000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000FF7F00000000FF7F00000000
      FF7F00000000FF7F000000000000FF7F00000000000000000000000000000000
      000000000000000000000000000000000000EF3D007C00000000000000000000
      007C007C00000000000000000000000000000000000000000000000000000000
      1F00000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      007C007C007C0000000000000000000000000000000000000000000000000000
      1F001F0000000000000000000000000000000000FF7F00000000FF7F00000000
      FF7F00000000FF7F000000000000FF7F00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000007C007C00000000000000000000000000001F001F001F001F001F001F00
      1F001F001F001F000000007C007C000000000000FF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000007C007C0000000000000000000000001F001F001F001F001F001F00
      1F001F001F001F000000007C007C0000000000001F001F001F001F001F001F00
      1F001F001F001F001F001F001F001F0000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000EF3D007C00000000000000000000000000000000000000000000
      1F001F0000000000000000000000000000000000F75EF75E1F001F001F001F00
      1F001F001F001F001F001F00F75EF75E00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000EF3D007C0000000000000000000000000000000000000000
      1F00000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000007C007C00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFFFFFFFFFF0000FFFFE7F800000000
      F9FFE7F800000000F0FF81FF00000000F0FF81FC00000000E07FE7FC00000000
      C07FE7FF00000000843FFFFC000000001E3FFEFC00000000FE1FFE7F00000000
      FF1F801300000000FF8F801300000000FFC7FE7F00000000FFE3FEF800000000
      FFF8FFF8FFFF0000FFFFFFFFFFFF000000000000000000000000000000000000
      000000000000}
  end
  object PopupMenu3: TPopupMenu
    Left = 244
    Top = 128
    object N2: TMenuItem
      Caption = #26410#24402#26723
      OnClick = N2Click
    end
    object N1: TMenuItem
      Caption = #24050#24402#26723
      OnClick = N1Click
    end
    object A1: TMenuItem
      Caption = #26174#31034#20840#37096
      OnClick = A1Click
    end
  end
end

						