unit9.~dfm

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

object Form9: TForm9
  Left = -102
  Top = 126
  Width = 1023
  Height = 749
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #20303#25143#20449#24687#65306
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001001010040000000000280100001600000028000000100000002000
    0000010004000000000080000000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000FFFFFFFFFF000000F8888888FF000000FFFFFFFFFF000000
    F888F888FF000000FFFFF888FF000000F888F888FF000000FFFFF0FFFF000000
    F8110FFFFF00000001110F000000000019990F0FF00000011910FF0F00000019
    9190FF000000019919000000000019111000000000001111000000000000E001
    0000E0010000E0010000E0010000E0010000E0010000E0010000E0010000E001
    0000E0010000E0030000E0070000C00F0000801F000003FF00000FFF0000}
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object edt1: TEdit
    Left = 160
    Top = 40
    Width = 121
    Height = 21
    TabOrder = 0
    Text = 'edt1'
    Visible = False
  end
  object tlb1: TToolBar
    Left = 0
    Top = 0
    Width = 1015
    Height = 41
    ButtonHeight = 36
    ButtonWidth = 55
    Caption = 'tlb1'
    Color = clScrollBar
    EdgeBorders = [ebTop, ebBottom]
    Flat = True
    Images = il1
    ParentColor = False
    ShowCaptions = True
    TabOrder = 1
    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 btn12: TToolButton
      Left = 283
      Top = 0
      Hint = #36864#20986#31995#32479
      Caption = #36864#20986#31995#32479
      ImageIndex = 4
      OnClick = btn12Click
    end
    object btn8: TToolButton
      Left = 338
      Top = 0
      Width = 8
      Caption = 'btn8'
      ImageIndex = 5
      Style = tbsSeparator
    end
  end
  object grp1: TGroupBox
    Left = 0
    Top = 44
    Width = 313
    Height = 341
    Caption = #27004#26635#20449#24687#65306
    TabOrder = 2
    object dbgrd1: TDBGrid
      Left = 2
      Top = 15
      Width = 309
      Height = 324
      Align = alClient
      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 = []
    end
  end
  object grp3: TGroupBox
    Left = 0
    Top = 383
    Width = 313
    Height = 338
    Caption = 'grp3'
    TabOrder = 3
    object dbgrdh2: TDBGridEh
      Left = 2
      Top = 15
      Width = 309
      Height = 321
      Align = alClient
      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 grp2: TGroupBox
    Left = 312
    Top = 40
    Width = 697
    Height = 681
    Caption = #20303#25143#20449#24687#65306
    TabOrder = 4
    object dbgrdh1: TDBGridEh
      Left = 2
      Top = 15
      Width = 693
      Height = 664
      Align = alClient
      DataSource = DM.ds4
      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 = []
    end
  end
  object edt2: TEdit
    Left = 56
    Top = 104
    Width = 121