cxyeunit.dfm

使用delphi语言

object cxyeform: Tcxyeform
  Left = 39
  Top = 52
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #20313#39069#34920#26597#35810
  ClientHeight = 461
  ClientWidth = 723
  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 = 2
    Top = 56
    Width = 720
    Height = 33
    Shape = bsFrame
  end
  object Label1: TLabel
    Left = 16
    Top = 68
    Width = 59
    Height = 13
    Caption = #25130#27490#24180#26376':'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 81
    Top = 68
    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 = 723
    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 = 90
    Width = 721
    Height = 369
    DataSource = dsa
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnTitleClick = DBGrid1TitleClick
    Columns = <
      item
        Expanded = False
        FieldName = #32844#24037#32534#21495
        Width = 103
        Visible = True
      end
      item
        Expanded = False
        FieldName = #36134#21495
        Width = 113
        Visible = True
      end
      item
        Expanded = False
        FieldName = #32844#24037#22995#21517
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26399#26411#20313#39069
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #37096#38376#32534#21495
        Visible = True
      end>
  end
  object a: TADODataSet
    Connection = dm.gjjconn
    CursorType = ctStatic
    OnCalcFields = aCalcFields
    CommandText = 
      'select '#32844#24037#32534#21495','#36134#21495','#32844#24037#22995#21517',(sum('#24635#31995#25968')-sum('#20943#23569#24635#31995#25968')+(select '#24635#26399#21021#20313#39069' from '#26399#21021#20313#39069 +
      ' where '#26126#32454#34920'.'#32844#24037#32534#21495'='#26399#21021#20313#39069'.'#32844#24037#32534#21495')) '#26399#26411#20313#39069'  from '#26126#32454#34920' group by '#32844#24037#32534#21495','#36134#21495','#32844#24037#22995#21517 +
      #13#10
    Parameters = <>
    Left = 352
    Top = 40
    object aDSDesigner: TStringField
      DisplayWidth = 24
      FieldName = #32844#24037#32534#21495
      Size = 50
    end
    object aDSDesigner2: TStringField
      DisplayWidth = 23
      FieldName = #36134#21495
      Size = 50
    end
    object aDSDesigner3: TStringField
      DisplayWidth = 24
      FieldName = #32844#24037#22995#21517
      Size = 50
    end
    object aDSDesigner4: TBCDField
      DisplayWidth = 20
      FieldName = #26399#26411#20313#39069
      ReadOnly = True
      currency = True
      Precision = 19
    end
    object aField: TStringField
      FieldKind = fkCalculated
      FieldName = #37096#38376#32534#21495
      Calculated = True
    end
  end
  object dsa: TDataSource
    DataSet = a
    Left = 400
    Top = 24
  end
end