📄 unitcastpurposefm.dfm

📁 一款房产中介软件
💻 DFM
字号:
object frmUnitCastPurpose: TfrmUnitCastPurpose
  Left = 121
  Top = 51
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = #23458#25143#24847#21521#20449#24687#32534#36753#31383#21475
  ClientHeight = 589
  ClientWidth = 799
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poOwnerFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object AALabel2: TLabel
    Left = 39
    Top = 7
    Width = 52
    Height = 13
    Caption = #20844#21496#32534#21495
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object DBText1: TDBText
    Left = 103
    Top = 7
    Width = 166
    Height = 19
    DataField = 'code'
    DataSource = frmViewCaster.DataSource1
    Transparent = True
  end
  object AALabel3: TLabel
    Left = 384
    Top = 7
    Width = 52
    Height = 13
    Caption = #20844#21496#21517#31216
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object DBText2: TDBText
    Left = 449
    Top = 6
    Width = 310
    Height = 19
    DataField = 'cname'
    DataSource = frmViewCaster.DataSource1
    Transparent = True
  end
  object AALabel4: TLabel
    Left = 39
    Top = 31
    Width = 52
    Height = 13
    Caption = #23458#25143#32534#21495
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object DBText3: TDBText
    Left = 103
    Top = 31
    Width = 166
    Height = 19
    DataField = #23458#25143#32534#21495
    DataSource = frmViewCaster.DataSource2
    Transparent = True
  end
  object AALabel5: TLabel
    Left = 384
    Top = 31
    Width = 52
    Height = 13
    Caption = #23458#25143#21517#31216
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object DBText4: TDBText
    Left = 449
    Top = 30
    Width = 310
    Height = 19
    DataField = #22995#21517
    DataSource = frmViewCaster.DataSource2
    Transparent = True
  end
  object Bevel1: TBevel
    Left = 8
    Top = 56
    Width = 761
    Height = 4
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 64
    Width = 785
    Height = 201
    Caption = #23458#25143#24847#21521#25151#23627
    TabOrder = 0
    object DBGridEh3: TDBGridEh
      Left = 2
      Top = 15
      Width = 781
      Height = 184
      Align = alClient
      DataSource = frmViewCaster.DataSource3
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -13
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      ImeName = #19975#33021#20116#31508'EXE'#22806#25346#29256
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      RowSizingAllowed = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = #39033#30446#32534#21495
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = #24162#21495
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = #25151#21495
          Footers = <>
        end>
    end
  end
  object GroupBox6: TGroupBox
    Left = 8
    Top = 312
    Width = 785
    Height = 265
    Caption = #29616#26377#21487#38144#21806#25151#23627#21015#34920
    TabOrder = 1
    object DBGridEh1: TDBGridEh
      Left = 2
      Top = 49
      Width = 781
      Height = 214
      Hint = #26174#31034#29616#26377#39033#30446#20013#21487#38144#21806#25151#23627#21015#34920#12290#13#10#13#10
      Align = alClient
      DataSource = DataSource1
      Flat = True
      FooterColor = clBtnFace
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -13
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      HorzScrollBar.Tracking = True
      ImeName = #19975#33021#20116#31508'EXE'#22806#25346#29256
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      OptionsEh = [dghFixed3D, dghFrozen3D, dghFooter3D, dghData3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind]
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      SumList.Active = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      VertScrollBar.Tracking = True
      Columns = <
        item
          EditButtons = <>
          FieldName = #39033#30446#21517#31216
          Footers = <>
          Width = 165
        end
        item
          EditButtons = <>
          FieldName = #24162#21495
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = #25151#21495
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = #24314#31569#38754#31215
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = #22871#20869#38754#31215
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = #20998#25674#38754#31215
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = #21487#38144#21806#25151#23627#29366#24577
          Footers = <>
        end>
    end
    object Panel1: TPanel
      Left = 2
      Top = 15
      Width = 781
      Height = 34
      Align = alTop
      TabOrder = 1
      object AALabel1: TLabel
        Left = 8
        Top = 8
        Width = 52
        Height = 13
        Caption = #39033#30446#20998#31867
      end
      object ComboBox1: TComboBox
        Left = 72
        Top = 8
        Width = 137
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        ItemHeight = 13
        TabOrder = 0
        OnChange = ComboBox1Change
      end
    end
  end
  object LbButton1: TButton
    Left = 16
    Top = 272
    Width = 81
    Height = 33
    Caption = #28155#21152
    TabOrder = 2
    OnClick = LbButton1Click
  end
  object LbButton2: TButton
    Left = 97
    Top = 272
    Width = 81
    Height = 33
    Caption = #21024#38500
    TabOrder = 3
    OnClick = LbButton2Click
  end
  object LbButton3: TButton
    Left = 178
    Top = 272
    Width = 81
    Height = 33
    Caption = #21047#26032
    TabOrder = 4
    OnClick = LbButton3Click
  end
  object LbButton4: TButton
    Left = 259
    Top = 272
    Width = 81
    Height = 33
    Caption = #20851#38381
    TabOrder = 5
    OnClick = LbButton4Click
  end
  object StaticText3: TStaticText
    Left = 354
    Top = 273
    Width = 439
    Height = 31
    Alignment = taCenter
    AutoSize = False
    BevelInner = bvNone
    BevelKind = bkFlat
    BevelOuter = bvNone
    BiDiMode = bdRightToLeft
    BorderStyle = sbsSunken
    Caption = #20808#20174#19979#38754#30340#8220#29616#26377#21487#38144#21806#25151#23627#21015#34920#8221#20013#36873#25321#19968#20010#23458#25143#20013#24847#30340#25151#23627#65292#13#10#28857'['#28155#21152']'#21363#21487#28155#21152#20837#19978#38754#30340#8220#23458#25143#24847#21521#25151#23627#34920#34920#8221#12290
    Color = clSkyBlue
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentBiDiMode = False
    ParentColor = False
    ParentFont = False
    TabOrder = 6
  end
  object qry1: TADOQuery
    Connection = DMMain.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select distinct '#21333#20803#20449#24687#34920'.'#20844#21496#32534#21495','#21333#20803#20449#24687#34920'.'#39033#30446#32534#21495','#39033#30446#21517#31216','#24162#21495','#25151#21495','#21512#21516#32422#23450#24314#31569#38754#31215' as '#24314#31569#38754 +
        #31215','
      '         '#21512#21516#32422#23450#22871#20869#38754#31215' AS '#22871#20869#38754#31215','#21512#21516#32422#23450#20998#25674#38754#31215' AS '#20998#25674#38754#31215','
      '         '#21487#38144#21806#25151#23627#29366#24577' from '#21333#20803#20449#24687#34920','#39033#30446#20449#24687#34920' WHERE'
      '         '#21333#20803#20449#24687#34920'.'#20844#21496#32534#21495'='#39'001'#39' AND '#39033#30446#20449#24687#34920'.'#20844#21496#32534#21495'='#39'001'#39
      '         AND '#39033#30446#20449#24687#34920'.'#39033#30446#32534#21495'='#21333#20803#20449#24687#34920'.'#39033#30446#32534#21495' '
      '         and '#21333#20803#20449#24687#34920'.'#39033#30446#32534#21495'='#39'I#001'#39
      '         and '#39033#30446#20449#24687#34920'.'#39033#30446#32534#21495'='#39'I#001'#39
      ' ')
    Left = 632
    Top = 424
  end
  object DataSource1: TDataSource
    DataSet = qry1
    Left = 632
    Top = 456
  end
end
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -