js_select.dfm

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

object frm_js_select: Tfrm_js_select
  Left = 409
  Top = 160
  BorderStyle = bsDialog
  Caption = #20462#36710#32467#31639#23545#35805#26694
  ClientHeight = 221
  ClientWidth = 245
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pe_1: TPanel
    Left = 1
    Top = 1
    Width = 242
    Height = 47
    BevelInner = bvLowered
    TabOrder = 0
    object rb_fk: TRadioButton
      Left = 16
      Top = 16
      Width = 57
      Height = 17
      Caption = #25910#27454
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = rb_fkClick
    end
    object rb_gz: TRadioButton
      Left = 152
      Top = 16
      Width = 57
      Height = 17
      Caption = #25346#24080
      TabOrder = 1
      OnClick = rb_gzClick
    end
  end
  object pe_2: TPanel
    Left = 1
    Top = 48
    Width = 242
    Height = 116
    BevelInner = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 59
      Height = 13
      Caption = #25910#27454#26041#24335':'
    end
    object Label2: TLabel
      Left = 16
      Top = 48
      Width = 59
      Height = 13
      Caption = #23454#25910#37329#39069':'
    end
    object Label3: TLabel
      Left = 16
      Top = 84
      Width = 59
      Height = 13
      Caption = #20248#24800#37329#39069':'
    end
    object combo_fs: TComboBox
      Left = 79
      Top = 13
      Width = 145
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 0
      Items.Strings = (
        #29616#37329
        #25903#31080)
    end
    object txt_yh_zf: TEdit
      Left = 79
      Top = 45
      Width = 145
      Height = 21
      TabOrder = 1
      OnKeyPress = txt_yh_zfKeyPress
    end
    object txt_yh_je: TEdit
      Left = 79
      Top = 80
      Width = 145
      Height = 21
      TabOrder = 2
      OnKeyPress = txt_yh_zfKeyPress
    end
  end
  object cmd_js: TBitBtn
    Tag = 26
    Left = 3
    Top = 191
    Width = 91
    Height = 25
    Caption = #32467#31639
    TabOrder = 2
    OnClick = cmd_jsClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000000
      00003333377777777777333330FFFFFFFFF03FF3F7FFFF33FFF7003000000FF0
      00F077F7777773F77737E00FBFBFB0FFFFF07773333FF7FF33F7E0FBFB00000F
      F0F077F333777773F737E0BFBFBFBFB0FFF077F3333FFFF733F7E0FBFB00000F
      F0F077F333777773F737E0BFBFBFBFB0FFF077F33FFFFFF733F7E0FB0000000F
      F0F077FF777777733737000FB0FFFFFFFFF07773F7F333333337333000FFFFFF
      FFF0333777F3FFF33FF7333330F000FF0000333337F777337777333330FFFFFF
      0FF0333337FFFFFF7F37333330CCCCCC0F033333377777777F73333330FFFFFF
      0033333337FFFFFF773333333000000003333333377777777333}
    NumGlyphs = 2
  end
  object cmd_cancel: TBitBtn
    Tag = 26
    Left = 150
    Top = 191
    Width = 91
    Height = 25
    Caption = #36864#20986
    TabOrder = 3
    OnClick = cmd_cancelClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
      03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
      0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
      0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
      0333337F777FFFFF7F3333000000000003333377777777777333}
    NumGlyphs = 2
  end
  object Panel1: TPanel
    Left = 1
    Top = 164
    Width = 242
    Height = 25
    BevelInner = bvLowered
    TabOrder = 4
    object cb_pj: TCheckBox
      Left = 8
      Top = 4
      Width = 73
      Height = 17
      Caption = #25171#21360#31080#25454
      TabOrder = 0
    end
    object cb_cmz: TCheckBox
      Left = 92
      Top = 4
      Width = 101
      Height = 17
      Caption = #25171#21360#20986#38376#35777
      TabOrder = 1
    end
  end
  object sp_up_cl_dj1: TStoredProc
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    StoredProcName = 'UP_CL_DJ1;1'
    Left = 89
    Top = 17
    ParamData = <
      item
        DataType = ftString
        Name = '@ibh'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = '@iyh_zf'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = '@iyh_je'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = '@ipj_je'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = '@igs_je'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = '@isb_je'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = '@ifj_je'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = '@iyh_je1'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = '@icb_je'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@ijs_time'
        ParamType = ptInput
      end>
  end
  object qe_jy: TQuery
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    Left = 121
    Top = 17
  end
  object sp_insert_into_day: TStoredProc
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    StoredProcName = 'INSERT_INTO_DAY_ACCOUNT;1'
    Left = 61
    Top = 17
    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
  object sp_up_pj_add2: TStoredProc
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    StoredProcName = 'UP_PJ_ADD2;1'
    Left = 161
    Top = 41
    ParamData = <
      item
        DataType = ftString
        Name = '@idj_bh'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@idate'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = '@ipos'
        ParamType = ptInput
      end>
  end
  object sp_up_cl4: TStoredProc
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    StoredProcName = 'UP_CL_DL4;1'
    Left = 118
    Top = 48
    ParamData = <
      item
        DataType = ftString
        Name = '@ibh'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = '@ipos'
        ParamType = ptInput
      end>
  end
end