unit8.~dfm

一个完整的户况管理系统一个完整的户况管理系统一个完整的户况管理系统

object Form8: TForm8
  Left = 166
  Top = 321
  Width = 1029
  Height = 744
  Caption = 'Form8'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object grp1: TGroupBox
    Left = 0
    Top = 40
    Width = 313
    Height = 425
    Caption = #27004#26635#20449#24687#65306
    TabOrder = 0
    object dbgrd1: TDBGrid
      Left = 0
      Top = 16
      Width = 305
      Height = 401
      DataSource = DM.ds3
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = dbgrd1CellClick
    end
  end
  object grp2: TGroupBox
    Left = 312
    Top = 40
    Width = 705
    Height = 673
    Caption = 'grp2'
    TabOrder = 1
    object dbgrdh1: TDBGrid
      Left = 0
      Top = 16
      Width = 697
      Height = 649
      DataSource = DM.ds4
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object tlb1: TToolBar
    Left = 0
    Top = 0
    Width = 1021
    Height = 41
    ButtonHeight = 36
    ButtonWidth = 55
    Caption = 'tlb1'
    Color = clScrollBar
    EdgeBorders = [ebTop, ebBottom]
    Flat = True
    Images = il1
    ParentColor = False
    ShowCaptions = True
    TabOrder = 2
    object btn1: TToolButton
      Left = 0
      Top = 0
      Hint = #26085#32467#31639
      Caption = #25143#20917#20449#24687
      ImageIndex = 0
      OnClick = btn1Click
    end
    object btn6: TToolButton
      Left = 55
      Top = 0
      Hint = #26435#38480#31649#29702
      Caption = #27004#26635#35774#32622
      ImageIndex = 1
      OnClick = btn6Click
    end
    object btn5: TToolButton
      Left = 110
      Top = 0
      Width = 8
      Caption = 'btn5'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object btn10: TToolButton
      Left = 118
      Top = 0
      Hint = #20851#20110#26412#36719#20214
      Caption = #23567#21306#35774#32622
      ImageIndex = 2
      OnClick = btn10Click
    end
    object btn9: TToolButton
      Left = 173
      Top = 0
      Hint = #20351#29992#24110#21161
      Caption = #32852#31995#26597#35810
      ImageIndex = 3
      OnClick = btn9Click
    end
    object btn2: TToolButton
      Left = 228
      Top = 0
      Caption = #25143#20917#26597#35810
      ImageIndex = 5
      OnClick = btn2Click
    end
    object btn8: TToolButton
      Left = 283
      Top = 0
      Width = 8
      Caption = 'btn8'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object btn12: TToolButton
      Left = 291
      Top = 0
      Hint = #36864#20986#31995#32479
      Caption = #36864#20986#31995#32479
      ImageIndex = 4
      OnClick = btn12Click
    end
  end
  object grp3: TGroupBox
    Left = 0
    Top = 456
    Width = 313
    Height = 257
    Caption = 'grp3'
    TabOrder = 3
    object dbgrdh2: TDBGridEh
      Left = 0
      Top = 16
      Width = 305
      Height = 233
      DataSource = DM.ds5
      ShowSerialNo = False
      Flat = False
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = dbgrdh2CellClick
    end
  end
  object il1: TImageList
    Left = 344
    Top = 8
    Bitmap = {
      494C010106000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000003000000001002000000000000030
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000