queryddtj_1.dfm

客户档案管理-delphi开发

inherited FormQueryDDTJ_1: TFormQueryDDTJ_1
  Left = 309
  Caption = #26032#22686#23458#25143#32479#35745#25253#34920
  ClientHeight = 479
  ClientWidth = 704
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited bsSkinPanel1: TbsSkinPanel
    Width = 704
    Height = 40
    Visible = False
  end
  inherited bsSkinToolBar1: TbsSkinToolBar
    Width = 704
    inherited bsSkinSpeedButton1: TbsSkinSpeedButton
      Visible = False
    end
    inherited bsSkinSpeedButton2: TbsSkinSpeedButton
      Visible = False
    end
    inherited bsSkinBevel2: TbsSkinBevel
      Visible = False
    end
    inherited bsSkinBevel4: TbsSkinBevel
      Visible = False
    end
    inherited bsSkinSpeedButton7: TbsSkinSpeedButton
      Visible = False
    end
  end
  inherited dgMain: TDBGridEh
    Top = 65
    Width = 704
    Height = 343
    Columns = <
      item
        EditButtons = <>
        FieldName = #23458#25143#32534#21495
        Footers = <>
        Width = 69
      end
      item
        EditButtons = <>
        FieldName = #23458#25143#21517#31216
        Footers = <>
        Width = 208
      end
      item
        EditButtons = <>
        FieldName = #32852#31995#20154
        Footers = <>
        Width = 88
      end
      item
        EditButtons = <>
        FieldName = #21457#29983#26085#26399
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #22320#21306
        Footers = <>
        Width = 85
      end
      item
        EditButtons = <>
        FieldName = #38144#21806#25968#37327
        Footers = <>
      end>
  end
  inherited bsSkinStatusBar1: TbsSkinStatusBar
    Top = 457
    Width = 704
    inherited bsSkinStatusPanelUserName: TbsSkinStatusPanel
      Left = 584
    end
  end
  object bsSkinPanel2: TbsSkinPanel [4]
    Left = 0
    Top = 408
    Width = 704
    Height = 49
    TabOrder = 4
    SkinData = dbs.bsSkinData1
    SkinDataName = 'panel'
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = #23435#20307
    DefaultFont.Style = []
    DefaultWidth = 0
    DefaultHeight = 0
    UseSkinFont = True
    RealHeight = -1
    AutoEnabledControls = True
    CheckedMode = False
    Checked = False
    DefaultAlignment = taLeftJustify
    DefaultCaptionHeight = 22
    BorderStyle = bvFrame
    CaptionMode = False
    RollUpMode = False
    RollUpState = False
    NumGlyphs = 1
    Spacing = 2
    Caption = 'bsSkinPanel1'
    Align = alBottom
    object bsSkinStdLabel3: TbsSkinStdLabel
      Left = 392
      Top = 4
      Width = 80
      Height = 13
      UseSkinFont = True
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = -11
      DefaultFont.Name = 'MS Sans Serif'
      DefaultFont.Style = []
      SkinData = dbs.bsSkinData1
      SkinDataName = 'stdlabel'
      Alignment = taRightJustify
      AutoSize = False
      Caption = #25968#37327#65306
    end
    object bsSkinStdLabel4: TbsSkinStdLabel
      Left = 472
      Top = 4
      Width = 105
      Height = 13
      UseSkinFont = True
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = -11
      DefaultFont.Name = 'MS Sans Serif'
      DefaultFont.Style = []
      SkinData = dbs.bsSkinData1
      SkinDataName = 'stdlabel'
      Alignment = taRightJustify
      AutoSize = False
    end
  end
  inherited cdsQuery: TADODataSet
    AfterOpen = cdsQueryAfterOpen
    OnCalcFields = cdsQueryCalcFields
    CommandText = 'SELECT  *  from '#26032#23458#25143#32479#35745
    object cdsQueryDSDesigner: TStringField
      FieldName = #23458#25143#32534#21495
    end
    object cdsQueryDSDesigner2: TStringField
      FieldName = #23458#25143#21517#31216
      Size = 100
    end
    object cdsQueryDSDesigner3: TStringField
      FieldName = #32852#31995#20154
    end
    object cdsQueryDSDesigner4: TDateTimeField
      FieldKind = fkCalculated
      FieldName = #21457#29983#26085#26399
      Calculated = True
    end
    object cdsQueryDSDesigner5: TStringField
      FieldName = #22320#21306
      Size = 40
    end
    object cdsQueryDSDesigner6: TBCDField
      FieldKind = fkCalculated
      FieldName = #38144#21806#25968#37327
      Precision = 10
      Size = 2
      Calculated = True
    end
  end
  object ADODataSet1: TADODataSet
    CacheSize = 1000
    Connection = dbs.ADOConn
    CursorType = ctStatic
    CommandText = 
      'select top 1 '#26085#26399', '#25968#37327#13#10'from '#35746#21333#13#10'where ('#26085#26399' >= (CAST(YEAR(getdate())' +
      ' AS char(4)) + '#39'-01-01'#39')) and'#13#10'('#23458#25143#32534#21495'=:khid )'#13#10'order by '#26085#26399
    Parameters = <
      item
        Name = 'khid'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 585
    Top = 144
  end
end