cl_dj.dfm

汽配前台收费,一个具有详细功能的小系统

        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 1
        OnChange = controlChange1
        Items.Strings = (
          #27491#24120#32500#20462
          #24378#20445
          #39318#20445
          #19977#21253)
      end
    end
  end
  object Panel4: TPanel
    Left = 165
    Top = 326
    Width = 513
    Height = 42
    BevelInner = bvLowered
    TabOrder = 2
    object cmd_new: TBitBtn
      Left = 4
      Top = 8
      Width = 80
      Height = 25
      Caption = #36710#36742#30331#35760
      TabOrder = 0
      OnClick = cmd_newClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
        0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
        0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
        33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
        B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
        3BB33773333773333773B333333B3333333B7333333733333337}
      NumGlyphs = 2
    end
    object cmd_edit: TBitBtn
      Left = 83
      Top = 8
      Width = 81
      Height = 25
      Caption = #32534#36753#30331#35760
      Enabled = False
      TabOrder = 1
      OnClick = cmd_editClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
        00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
        F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
        0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
        FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
        FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
        0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
        00333377737FFFFF773333303300000003333337337777777333}
      NumGlyphs = 2
    end
    object cmd_save: TBitBtn
      Left = 163
      Top = 8
      Width = 81
      Height = 25
      Caption = #20445#23384#30331#35760
      Enabled = False
      TabOrder = 2
      OnClick = cmd_saveClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
        7700333333337777777733333333008088003333333377F73377333333330088
        88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
        000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
        FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
        99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
        99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
        99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
        93337FFFF7737777733300000033333333337777773333333333}
      NumGlyphs = 2
    end
    object cmd_cancel: TBitBtn
      Left = 243
      Top = 8
      Width = 81
      Height = 25
      Caption = #21462#28040#30331#35760
      Enabled = False
      TabOrder = 3
      OnClick = cmd_cancelClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        3333333777333777FF33339993707399933333773337F3777FF3399933000339
        9933377333777F3377F3399333707333993337733337333337FF993333333333
        399377F33333F333377F993333303333399377F33337FF333373993333707333
        333377F333777F333333993333101333333377F333777F3FFFFF993333000399
        999377FF33777F77777F3993330003399993373FF3777F37777F399933000333
        99933773FF777F3F777F339993707399999333773F373F77777F333999999999
        3393333777333777337333333999993333333333377777333333}
      NumGlyphs = 2
    end
    object cmd_print: TBitBtn
      Left = 400
      Top = 8
      Width = 109
      Height = 25
      Caption = #25171#21360#25276#37329#20973#35777
      Enabled = False
      TabOrder = 4
      OnClick = cmd_printClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
    object cmd_refresh: TBitBtn
      Left = 323
      Top = 8
      Width = 77
      Height = 25
      Caption = #21047#26032#30331#35760
      Enabled = False
      TabOrder = 5
      OnClick = cmd_refreshClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF
        FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
        FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
        FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
        FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
        FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC
        C8807FF7777777777FF700000000000000007777777777777777333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
  end
  object pe_info: TPanel
    Left = 0
    Top = 0
    Width = 165
    Height = 368
    BevelInner = bvLowered
    TabOrder = 3
    object DBGrid1: TDBGrid
      Left = 6
      Top = 6
      Width = 153
      Height = 355
      DataSource = ds_cl
      Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'dj_bh'
          Title.Alignment = taCenter
          Title.Caption = #24403#21069#30331#35760#22996#25176#21495
          Width = 120
          Visible = True
        end>
    end
  end
  object qe_jy: TQuery
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    SQL.Strings = (
      'select * from cl_dj')
    Left = 257
    Top = 8
  end
  object qe_cl: TQuery
    AfterScroll = qe_clAfterScroll
    OnEditError = qe_clEditError
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    RequestLive = True
    SQL.Strings = (
      
        'select * from cl_dj where edit_type = 1 and dj_czr = :iczr and d' +
        'j_zf_bs = 0')
    Left = 289
    Top = 8
    ParamData = <
      item
        DataType = ftString
        Name = 'iczr'
        ParamType = ptUnknown
      end>
  end
  object sp_update_mode_for_cl_dj: TStoredProc
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    StoredProcName = 'UPDATE_MODE_FOR_CL_DJ;1'
    Left = 353
    Top = 8
    ParamData = <
      item
        DataType = ftString
        Name = '@idj_czr'
        ParamType = ptInput
      end>
  end
  object qe_bx: TQuery
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    SQL.Strings = (
      'select * from bx_kind')
    Left = 449
    Top = 8
  end
  object ds_cl: TDataSource
    DataSet = qe_cl
    Left = 485
    Top = 8
  end
  object sp_up_cl_dj: TStoredProc
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    StoredProcName = 'UP_CL_DL;1'
    Left = 389
    Top = 8
    ParamData = <
      item
        DataType = ftString
        Name = '@ibh'
        ParamType = ptInput
      end>
  end
  object sp_insert_into_day: TStoredProc
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    StoredProcName = 'INSERT_INTO_DAY_ACCOUNT;1'
    Left = 629
    Top = 8
    ParamData = <
      item
        DataType = ftString
        Name = '@idate'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@izy'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@ikm'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = '@ijf'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = '@idf'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = '@izy_id'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@idj_bh'
        ParamType = ptInput
      end>
  end
  object sp_insert_into_sj: TStoredProc
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    StoredProcName = 'INSERT_INTO_SJ;1'
    Left = 201
    Top = 17
    ParamData = <
      item
        DataType = ftSmallint
        Name = '@iyear'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = '@imonth'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = '@iday'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = '@ikind'
        ParamType = ptInput
      end>
  end
end