qt_dsk.dfm

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

object frm_dsk: Tfrm_dsk
  Left = 290
  Top = 217
  BorderStyle = bsDialog
  Caption = #20195#25910#27454#31649#29702
  ClientHeight = 162
  ClientWidth = 467
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pe_edit: TPanel
    Left = 0
    Top = 0
    Width = 345
    Height = 161
    BevelInner = bvLowered
    Enabled = False
    TabOrder = 0
    object Label2: TLabel
      Left = 8
      Top = 43
      Width = 59
      Height = 13
      Caption = #21378#29260#22411#21495':'
    end
    object Label3: TLabel
      Left = 8
      Top = 73
      Width = 59
      Height = 13
      Caption = #25910#27454#21333#20301':'
    end
    object Label4: TLabel
      Left = 8
      Top = 104
      Width = 59
      Height = 13
      Caption = #25910#27454#37329#39069':'
    end
    object Label5: TLabel
      Left = 8
      Top = 12
      Width = 59
      Height = 13
      Caption = #20195#25910#26102#38388':'
    end
    object Label1: TLabel
      Left = 180
      Top = 43
      Width = 59
      Height = 13
      Caption = #36710#29260#21495#30721':'
    end
    object Label6: TLabel
      Left = 8
      Top = 135
      Width = 59
      Height = 13
      Caption = #25910#27454#26041#24335':'
    end
    object txt_cx: TEdit
      Tag = 2
      Left = 70
      Top = 39
      Width = 91
      Height = 21
      CharCase = ecUpperCase
      TabOrder = 0
      OnChange = ControlChanged
      OnKeyPress = controlKeyPress1
    end
    object txt_dw: TEdit
      Tag = 4
      Left = 70
      Top = 70
      Width = 264
      Height = 21
      CharCase = ecUpperCase
      TabOrder = 1
      OnChange = ControlChanged
      OnKeyPress = controlKeyPress1
    end
    object combo_fs: TComboBox
      Tag = 6
      Left = 70
      Top = 132
      Width = 264
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 2
      OnChange = ControlChanged
      Items.Strings = (
        #29616#37329
        #25903#31080)
    end
    object txt_time: TMaskEdit
      Tag = 1
      Left = 70
      Top = 8
      Width = 264
      Height = 21
      EditMask = '!9999-99-99;1;0'
      MaxLength = 10
      TabOrder = 3
      Text = '    -  -  '
      OnChange = ControlChanged
      OnKeyPress = controlKeyPress1
    end
    object txt_cph: TEdit
      Tag = 3
      Left = 243
      Top = 39
      Width = 91
      Height = 21
      CharCase = ecUpperCase
      TabOrder = 4
      OnChange = ControlChanged
      OnKeyPress = controlKeyPress1
    end
    object txt_je: TEdit
      Tag = 5
      Left = 70
      Top = 101
      Width = 264
      Height = 21
      TabOrder = 5
      OnChange = ControlChanged
      OnKeyPress = controlKeyPress2
    end
    object combo_p: TComboBox
      Left = 216
      Top = 128
      Width = 113
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 6
      Visible = False
    end
  end
  object Panel4: TPanel
    Left = 345
    Top = 0
    Width = 121
    Height = 161
    BevelInner = bvLowered
    TabOrder = 1
    object cmd_new: TBitBtn
      Left = 6
      Top = 8
      Width = 109
      Height = 25
      Caption = #26032#24314#19994#21153
      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 = 6
      Top = 32
      Width = 109
      Height = 25
      Caption = #36820#36824#19994#21153
      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 = 6
      Top = 56
      Width = 109
      Height = 25
      Caption = #20445#23384#19994#21153
      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 = 6
      Top = 80
      Width = 109
      Height = 25
      Caption = #21462#28040#26032#24314
      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_del: TBitBtn
      Left = 6
      Top = 104
      Width = 109
      Height = 25
      Caption = #19994#21153#20316#24223
      Enabled = False
      TabOrder = 4
      OnClick = cmd_delClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333333333333333333FFF33FF333FFF339993370733
        999333777FF37FF377733339993000399933333777F777F77733333399970799
        93333333777F7377733333333999399933333333377737773333333333990993
        3333333333737F73333333333331013333333333333777FF3333333333910193
        333333333337773FF3333333399000993333333337377737FF33333399900099
        93333333773777377FF333399930003999333337773777F777FF339993370733
        9993337773337333777333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object cmd_print: TBitBtn
      Left = 6
      Top = 128
      Width = 109
      Height = 25
      Caption = #19994#21153#32467#31639
      Enabled = False
      TabOrder = 5
      OnClick = cmd_printClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
  end
  object sp_insert_into_dsk: TStoredProc
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    StoredProcName = 'INSERT_INTO_DSK;1'
    Left = 88
    Top = 40
    ParamData = <
      item
        DataType = ftInteger
        Name = '@ipos'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@ids_time'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@ids_cx'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@ids_cph'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@ids_dw'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = '@ids_je'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@ids_fs'
        ParamType = ptInput
      end>
  end
  object qe_jy: TQuery
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    Left = 168
    Top = 64
  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