q_wjs.dfm

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

object frm_q_wjs: Tfrm_q_wjs
  Left = 94
  Top = 209
  BorderStyle = bsDialog
  Caption = #19994#21153#26597#35810'--'#36710#36742#32500#20462#24773#20917#65288#26410#32467#31639#65289
  ClientHeight = 425
  ClientWidth = 755
  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
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pe_select: TPanel
    Left = 0
    Top = 0
    Width = 182
    Height = 424
    BevelInner = bvLowered
    Color = clActiveBorder
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object cb_bh: TCheckBox
      Left = 8
      Top = 5
      Width = 81
      Height = 17
      Caption = #22996#25176#32534#21495
      TabOrder = 0
      OnClick = cb_bhClick
    end
    object pe_bh: TPanel
      Left = 8
      Top = 24
      Width = 166
      Height = 54
      BevelOuter = bvLowered
      Enabled = False
      TabOrder = 1
      object Label4: TLabel
        Left = 5
        Top = 9
        Width = 33
        Height = 13
        Caption = #19979#38480':'
      end
      object Label5: TLabel
        Left = 5
        Top = 30
        Width = 33
        Height = 13
        Caption = #19978#38480':'
      end
      object txt_bh_xx: TMaskEdit
        Left = 40
        Top = 5
        Width = 120
        Height = 21
        EditMask = '!99999999-999-999;1;0'
        MaxLength = 16
        TabOrder = 0
        Text = '        -   -   '
      end
      object txt_bh_sx: TMaskEdit
        Left = 40
        Top = 26
        Width = 120
        Height = 21
        EditMask = '!99999999-999-999;1;0'
        MaxLength = 16
        TabOrder = 1
        Text = '        -   -   '
      end
    end
    object pe_wx: TPanel
      Left = 8
      Top = 255
      Width = 166
      Height = 32
      BevelOuter = bvLowered
      Enabled = False
      TabOrder = 2
      object Label6: TLabel
        Left = 5
        Top = 9
        Width = 33
        Height = 13
        Caption = #31867#22411':'
      end
      object combo_wx_kind: TComboBox
        Left = 40
        Top = 5
        Width = 120
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 0
        Items.Strings = (
          #27491#24120#32500#20462
          #24378#20445
          #39318#20445
          #19977#21253)
      end
    end
    object cmd_q_sel: TBitBtn
      Left = 8
      Top = 393
      Width = 97
      Height = 25
      Caption = #26597#35810
      TabOrder = 3
      OnClick = cmd_q_selClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333FF3FF3333333333CC30003333333333773777333333333C33
        3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
        33003377333337F33377333333333C333300333F333337F33377339333333C33
        3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
        330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
        330077F377F337F33377993399333C33330077FF773337F33377399993333C33
        33333777733337F333FF333333333C33300033333333373FF7773333333333CC
        3000333333333377377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object cb_cph: TCheckBox
      Left = 8
      Top = 168
      Width = 97
      Height = 17
      Caption = #36710#29260#21495
      TabOrder = 4
      OnClick = cb_cphClick
    end
    object pe_cph: TPanel
      Left = 8
      Top = 185
      Width = 166
      Height = 39
      BevelOuter = bvLowered
      Enabled = False
      TabOrder = 5
      object Label8: TLabel
        Left = 5
        Top = 13
        Width = 33
        Height = 13
        Caption = #21495#30721':'
      end
      object txt_cph: TEdit
        Left = 40
        Top = 9
        Width = 120
        Height = 21
        CharCase = ecUpperCase
        TabOrder = 0
      end
    end
    object cb_time: TCheckBox
      Left = 8
      Top = 86
      Width = 81
      Height = 17
      Caption = #20837#21378#26085#26399
      TabOrder = 6
      OnClick = cb_timeClick
    end
    object pe_time: TPanel
      Left = 8
      Top = 105
      Width = 166
      Height = 54
      BevelOuter = bvLowered
      Enabled = False
      TabOrder = 7
      object Label1: TLabel
        Left = 5
        Top = 9
        Width = 33
        Height = 13
        Caption = #19979#38480':'
      end
      object Label2: TLabel
        Left = 5
        Top = 30
        Width = 33
        Height = 13
        Caption = #19978#38480':'
      end
      object txt_time_xx: TMaskEdit
        Left = 40
        Top = 5
        Width = 120
        Height = 21
        EditMask = '!9999-99-99;1;0'
        MaxLength = 10
        TabOrder = 0
        Text = '    -  -  '
      end
      object txt_time_sx: TMaskEdit
        Left = 40
        Top = 26
        Width = 120
        Height = 21
        EditMask = '!9999-99-99;1;0'
        MaxLength = 10
        TabOrder = 1
        Text = '    -  -  '
      end
    end
    object rb_wx: TRadioButton
      Left = 8
      Top = 233
      Width = 73
      Height = 17
      Caption = #32500#20462#31867#22411
      TabOrder = 8
      OnClick = rb_wxClick
    end
    object rb_bx: TRadioButton
      Left = 8
      Top = 296
      Width = 73
      Height = 17
      Caption = #20445#38505#31867#22411
      TabOrder = 9
      OnClick = rb_bxClick
    end
    object pe_bx: TPanel
      Left = 8
      Top = 317
      Width = 166
      Height = 32
      BevelOuter = bvLowered
      Enabled = False
      TabOrder = 10
      object Label3: TLabel
        Left = 5
        Top = 9
        Width = 33
        Height = 13
        Caption = #31867#22411':'
      end
      object combo_bx_kind: TComboBox
        Left = 40
        Top = 5
        Width = 120
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 0
      end
    end
    object cmd_print: TBitBtn
      Left = 69
      Top = 393
      Width = 106
      Height = 25
      Caption = #25171#21360#32500#20462#28165#21333
      Enabled = False
      TabOrder = 11
      Visible = False
      OnClick = cmd_printClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
  end
  object Panel3: TPanel
    Left = 182
    Top = 0
    Width = 571
    Height = 139
    BevelInner = bvLowered
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 4
      Top = 4
      Width = 562
      Height = 130
      Color = clInfoBk
      DataSource = ds_cl
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, 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 = #22996#25176#32534#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'dj_time'
          Title.Alignment = taCenter
          Title.Caption = #20837#21378#26085#26399
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'dj_cx'
          Title.Alignment = taCenter
          Title.Caption = #36710#22411
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'dj_cph'
          Title.Alignment = taCenter