u_clcx.dfm

材料租赁

object frmClcx: TfrmClcx
  Left = 209
  Top = 110
  Width = 810
  Height = 581
  Caption = #26448#26009#31199#36161#24773#20917#34920
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  DesignSize = (
    802
    554)
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 802
    Height = 33
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object frTBPanel1: TfrTBPanel
      Left = 0
      Top = 0
      Width = 211
      Height = 33
      Align = alLeft
      AutoSize = True
      BevelInner = bvLowered
      BevelOuter = bvNone
      Caption = 'frTBPanel1'
      TabOrder = 0
      object Shape1: TShape
        Left = 99
        Top = 17
        Width = 12
        Height = 3
        Brush.Color = clRed
        Pen.Color = clRed
        Shape = stEllipse
      end
      object dtEnd: TDateTimePicker
        Left = 112
        Top = 7
        Width = 98
        Height = 20
        BevelInner = bvNone
        BevelOuter = bvNone
        Date = 38067.000000000000000000
        Time = 38067.000000000000000000
        Color = 16768925
        DateFormat = dfLong
        Font.Charset = GB2312_CHARSET
        Font.Color = clTeal
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = False
        TabOrder = 0
      end
      object dtStar: TDateTimePicker
        Left = 1
        Top = 9
        Width = 96
        Height = 20
        BevelInner = bvNone
        BevelOuter = bvNone
        Date = 38067.000000000000000000
        Time = 38067.000000000000000000
        Color = 16768925
        DateFormat = dfLong
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
    end
    object frTBPanel2: TfrTBPanel
      Left = 647
      Top = 0
      Width = 155
      Height = 33
      Align = alRight
      AutoSize = True
      Caption = 'frTBPanel2'
      TabOrder = 1
      object btnClose: TSpeedButton
        Left = 106
        Top = 7
        Width = 48
        Height = 22
        Caption = #36864#20986
        Flat = True
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000120B0000120B00000000000000000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBD
          BDBFBDBDBFBDBDBFBFBFBFBEBEBF0000BF0000BF0000BF0000BF0000BFBFBFBF
          0000BF0000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBDBDBFBDBDBFBEBEBF0000
          BF0000BF0000BF0000BF0000BFBFBFBF0000BF0000000000BFBFBFBFBFBFBFBF
          BFBFBFBFBFBDBDBFBDBDBFBEBEBF0000BE6E6EBE6E6EBE6E6EBF0000BFBFBFBF
          BFBFBF0000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBDBDBFBDBDBFBEBEBF0000
          BE6E6EBE6E6EBE6E6EBF0000BFBFBFBFBFBFBF0000000000BFBFBFBFBFBFBFBF
          BFBFBFBFBFBDBDBFBDBDBFBEBEBF0000BE6E6EBE6E6EBE6E6EBF0000BFBFBFBF
          BFBFBF0000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBDBDBFBDBDBFBEBEBF0000
          BE6E6EBE6E6EBE6E6EBF0000BFBFBFBFBFBFBF0000000000BFBFBFBFBFBFBFBF
          BFBFBFBFBFBDBDBFBDBDBFBEBEBF0000BE6E6EBE6E6EBE6E6EBF0000BFBFBFBF
          BFBFBF0000BFBFBFBFBFBF0000FFBFBFBFBFBFBFBFBDBDBFBDBDBFBEBEBF0000
          BE6E6EBE6E6EBE6E6EBF0000BFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FFBFBF
          BFBFBFBFBFBDBDBFBDBDBFBEBEBF0000BE6E6EBE6E6EBE6E6EBF0000BFBFBFBF
          BFBFBFBFBF0000FF0000FF0000FF0000FF0000FFBFBFBFBFBDBDBFBEBEBF0000
          BE6E6EBE6E6EBF0000BF0000BFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FFBFBF
          BF0000FFBFBFBFBFBDBDBFBEBEBF0000BE6E6EBF0000BF0000BFBFBFBFBFBFBF
          BFBFBF0000BFBFBFBFBFBF0000FFBFBFBFBFBFBF0000FFBFBDBDBFBEBEBF0000
          BF0000BF0000BFBFBFBFBFBFBFBFBFBFBFBFBF0000000000BFBFBFBFBFBFBFBF
          BFBFBFBF0000FFBFBDBDBFBEBEBF0000BF0000BFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBF0000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBDBDBFBEBEBF0000
          BF0000BF0000BF0000BF0000BF0000BF0000BF0000000000BFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBDBDBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBDBDBFBDBDBFBDBDBFBDBDBFBDBD}
        OnClick = btnCloseClick
      end
      object btnQuery: TSpeedButton
        Left = 1
        Top = 7
        Width = 51
        Height = 22
        Caption = #26597#35810
        Flat = True
        Glyph.Data = {
          66010000424D6601000000000000760000002800000014000000140000000100
          040000000000F0000000130B0000130B00001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
          FFFFFFFFC0C0FFFFFFFFFFFFFFFFFFFFC0C0FFFFFFF000FFFFF000FFC0C0FFFF
          FFF080FFFFF080FFC0C0FFFFFFF0007FFF7000FFC0C0FFFFFFF00000000000FF
          C0C0FF0000008000080000FFC0C0FF0FFFF08000080000FFC0C0FF0F00F00000
          000000FFC0C0FF0FFFFF0000F0000FFFC0C0FF0CCCCCC00CCC00FFFFC0C0FFFC
          FFFFF00FFF00FFFFC0C0FFFCF00F00080F00FFFFC0C0FFFCFFFFFFFFFFCFFFFF
          C0C0FFFCCCCCCCCCCCCFFFFFC0C0FFFC8CC8CC8CC8CFFFFFC0C0FFFCCCCCCCCC
          CCCFFFFFC0C0FFFFFFFFFFFFFFFFFFFFC0C0FFFFFFFFFFFFFFFFFFFFC0C0FFFF
          FFFFFFFFFFFFFFFFC0C0}
        OnClick = btnQueryClick
      end
      object btnPrint: TSpeedButton
        Left = 54
        Top = 7
        Width = 51
        Height = 22
        Caption = #25171#21360
        Flat = True
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000074120000741200001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888000000000
          0888880888888880808880000000000008088088888BBB808008808888877780
          8808800000000000888080888888888808808808888888888080888088888888
          8800888808888888888088888000000000008888077777777708888077777777
          7088880777777777088880777777777088888000000000088888}
        OnClick = btnPrintClick
      end
    end
    object frTBPanel3: TfrTBPanel
      Left = 211
      Top = 0
      Width = 436
      Height = 33
      Align = alClient
      AutoSize = True
      Caption = 'frTBPanel3'
      TabOrder = 2
      object Label1: TLabel
        Left = 167
        Top = 9
        Width = 63
        Height = 14
        Caption = #26448#26009#21517#31216':'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 6
        Top = 10
        Width = 49
        Height = 14
        Caption = #39033#30446#37096':'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object cmbCl: TComboBox
        Left = 236
        Top = 6
        Width = 101
        Height = 20
        ItemHeight = 12
        TabOrder = 0
        Text = 'cmbCl'
      end
      object cmbBm: TComboBox
        Left = 60
        Top = 7
        Width = 85
        Height = 20
        ItemHeight = 12
        TabOrder = 1
        Text = 'cmbBm'
      end
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 8
    Top = 40
    Width = 765
    Height = 477
    Anchors = [akLeft, akTop, akRight, akBottom]
    AutoFitColWidths = True
    DataSource = DataSource1
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    FooterColor = 16776400
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clRed
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    FooterRowCount = 1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection]
    OptionsEh = [dghFixed3D, dghResizeWholeRightPart, dghHighlightFocus, dghClearSelection, dghFitRowHeightToText, dghTraceColSizing, dghIncSearch, dghPreferIncSearch, dghRowHighlight]
    ParentFont = False
    ParentShowHint = False
    RowHeight = 2
    RowLines = 1
    RowSizingAllowed = True
    ShowHint = True
    SumList.Active = True
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    UseMultiTitle = True
    OnColWidthsChanged = DBGridEh1ColWidthsChanged
    OnDblClick = DBGridEh1DblClick
    OnDrawColumnCell = DBGridEh1DrawColumnCell
    Columns = <
      item
        EditButtons = <>
        FieldName = 'sfrq'
        Footers = <
          item
            Value = #21512#35745':'
            ValueType = fvtStaticText
          end>
        Title.Caption = #26085#26399
        Width = 92
      end
      item
        EditButtons = <>
        FieldName = 'sfno'
        Footers = <>
        Title.Caption = #21333#25454#21495
        Width = 79
      end
      item
        EditButtons = <>
        FieldName = 'djzy'
        Footers = <>
        Title.Caption = #25688#35201
        Width = 106
      end
      item
        EditButtons = <>
        FieldName = 'fcsl'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Caption = #39046#29992'|'#25968#37327
      end
      item
        EditButtons = <>
        FieldName = 'dj'
        Footers = <>
        Title.Caption = #39046#29992'|'#21333#20215
      end
      item
        EditButtons = <>
        FieldName = 'fczj'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Caption = #39046#29992'|'#37329#39069
      end
      item
        EditButtons = <>
        FieldName = 'shsl'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Caption = #22238#25910'|'#25968#37327
      end
      item
        EditButtons = <>
        FieldName = 'dj'
        Footers = <>
        Title.Caption = #22238#25910'|'#21333#20215
      end
      item
        EditButtons = <>
        FieldName = 'shzj'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Caption = #22238#25910'|'#37329#39069
      end
      item
        EditButtons = <>
        FieldName = 'jcsl'
        Footer.ValueType = fvtFieldValue
        Footers = <>
        Title.Caption = #32467#23384'|'#25968#37327
      end
      item
        EditButtons = <>
        FieldName = 'dj'
        Footers = <>
        Title.Caption = #32467#23384'|'#21333#20215
      end
      item
        EditButtons = <>
        FieldName = 'jczj'
        Footers = <>
        Title.Caption = #32467#23384'|'#37329#39069
      end>
  end
  object pShwomessage: TPanel
    Left = 280
    Top = 200
    Width = 241
    Height = 41
    BevelInner = bvLowered
    Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#20505#65281'......'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    Visible = False
  end
  object qytmp: TADOQuery
    Connection = frmMain.ADOConnect
    Parameters = <>
    Left = 656
    Top = 64
  end
  object DataSource1: TDataSource
    DataSet = ADOCLCX
    Left = 656
    Top = 112
  end
  object ADOCLCX: TADOQuery
    Connection = frmMain.ADOConnect
    Parameters = <>
    Left = 528
    Top = 128
  end
end