cxdw_personunit.dfm

使用delphi语言

object cxdw_personform: Tcxdw_personform
  Left = 173
  Top = 78
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #20010#20154#19982#21333#20301#32564#32435#27719#24635#26597#35810
  ClientHeight = 452
  ClientWidth = 568
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 52
    Width = 567
    Height = 26
    Shape = bsFrame
  end
  object Label1: TLabel
    Left = 188
    Top = 59
    Width = 65
    Height = 13
    Caption = #26597#35810#24180#20221#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 260
    Top = 59
    Width = 42
    Height = 13
    Caption = 'Label2'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 568
    Height = 51
    ButtonHeight = 47
    Caption = 'ToolBar1'
    TabOrder = 0
    object sb_print: TSpeedButton
      Left = 0
      Top = 2
      Width = 57
      Height = 47
      Caption = #25171#21360'(F3)'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Glyph.Data = {
        36020000424D360200000000000076000000280000001C0000001C0000000100
        040000000000C0010000120B0000120B00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777788888888
        8888888888887777020077788800888888888888888087777777778000000000
        00000000000000777778788007FFFFFFFFFFFFFFFFFFF0777780888808888888
        8888888888888077788088000000000000000000000000078888708877777777
        77777777777777F0880070887070700707070070707007F07088708877777777
        77777777777777F0708870887777777774477777777477F07088708877777777
        7EE77777777E77F070887707FFFFFFFFFFFFFFFFFFFFFFF07088770000000000
        0000000000000007770777770000000000000000007F77777700777780777777
        77777777707F7777777777078077888788887887F0F077777777770780777777
        77777777F0F0777777077078807787887887888FF0077777770770000FF77FF7
        77F777FF00077777707877770FFFFFFFFFFFFFFF0777777770007770FF77F77F
        77F77FF07777777777777770FFFFFFFFFFFFFFF0777777777770777FF777F77F
        77F77F07777777777770777FFFFFFFFFFFFFFF0777777777777F770F77F777F7
        7F77F07777777777777F70F777F7777F777FF77777777777770F707777777777
        777777777777777770F770000000000000000777777777777077}
      Layout = blGlyphTop
      ParentFont = False
      OnClick = sb_printClick
    end
    object sb_close: TSpeedButton
      Left = 57
      Top = 2
      Width = 57
      Height = 47
      Caption = #20851#38381'(F8)'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Glyph.Data = {
        26020000424D260200000000000066000000280000001C0000001C0000000100
        040000000000C0010000120B0000120B00000C0000000C000000000000009900
        000000FF000099993300FFFF00000000FF0000FFFF0099999900C8B4C800CCCC
        CC00FFFFFF00C8B4C800AAAAAAAAAAAAAAAAAAAA6A7777770100AAAAAAAAAAAA
        AA6A66A67777777AAAAAAAAAAAAAAAAAAAAAAA777AA77AAAAAAAAAAAAAAAAA0A
        6A6A67A6A6776A6AAAAAAAAAAAA7A00A670A6077A6A66A6AAAAAAAAAAA7A070A
        7016A07AAAAAAAAAAAAAAAA7A7A0770A6A176176A6AAAAAAAAAAA7AA7A07770A
        AA11A1AAAAAAAAAAAAA77A77A077770A6A1167AAAAAAAAAAA7AA000007777707
        77117100000000007A7777770777770222311777777777770000777707770005
        A2211777777777777777777707770006AA210777777777777777777707777702
        26A7A77777777777777777770777770229AAA777777777777777777707777704
        446AA777777777777777777707777704446AAA77777777777777777707777704
        4446AA7777777777777777770777770444465777777777777777777707777704
        4446077777777777777777770777770444499777777777777777777707777704
        4444077777777777777777770777770444440777777777777777777707777764
        44440777777777777777777707779644444407777777777777777777064A4AA4
        A4A4077777777777777777770000000000000777777777777777777777777777
        77777777777777777777}
      Layout = blGlyphTop
      ParentFont = False
      OnClick = sb_closeClick
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 79
    Width = 566
    Height = 372
    DataSource = DataSource1
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDrawDataCell = DBGrid1DrawDataCell
    Columns = <
      item
        Expanded = False
        FieldName = #26376
        Width = 52
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20010#20154#32564#32435
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21333#20301#32564#32435
        Visible = True
      end
      item
        Expanded = False
        FieldName = #27719#24635#32564#32435
        Visible = True
      end>
  end
  object ADODataSet1: TADODataSet
    Connection = dm.gjjconn
    CommandText = 
      'select  '#26376',sum('#20010#20154#31995#25968') '#20010#20154#32564#32435',sum('#21333#20301#31995#25968') '#21333#20301#32564#32435', sum('#24635#31995#25968') '#27719#24635#32564#32435'  from '#26126#32454#34920 +
      ' where '#24180'=:y and '#25688#35201'='#39#23384#20837#39' group by '#26376#13#10'order by '#26376
    Parameters = <
      item
        Name = 'y'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 4
        Value = Null
      end>
    Left = 408
    Top = 40
    object ADODataSet1DSDesigner: TStringField
      DisplayWidth = 3
      FieldName = #26376
      Size = 2
    end
    object ADODataSet1DSDesigner2: TBCDField
      DisplayWidth = 20
      FieldName = #20010#20154#32564#32435
      ReadOnly = True
      currency = True
      Precision = 19
    end
    object ADODataSet1DSDesigner3: TBCDField
      DisplayWidth = 20
      FieldName = #21333#20301#32564#32435
      ReadOnly = True
      currency = True
      Precision = 19
    end
    object ADODataSet1DSDesigner4: TBCDField
      DisplayWidth = 20
      FieldName = #27719#24635#32564#32435
      ReadOnly = True
      currency = True
      Precision = 19
    end
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = ADODataSet1
    Left = 448
    Top = 40
  end
end