wm_sel.dfm

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

object frm_wm_sel: Tfrm_wm_sel
  Left = 40
  Top = 150
  BorderStyle = bsDialog
  Caption = #37197#20214#38144#21806#65288#36864#36135#65289#36873#25321
  ClientHeight = 315
  ClientWidth = 758
  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 Panel1: TPanel
    Left = 0
    Top = 0
    Width = 757
    Height = 41
    BevelInner = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 9
      Top = 13
      Width = 59
      Height = 13
      Caption = #32467#31639#26085#26399':'
    end
    object Label2: TLabel
      Left = 157
      Top = 13
      Width = 13
      Height = 13
      Caption = #33267
    end
    object txt_d_xx: TMaskEdit
      Left = 72
      Top = 10
      Width = 81
      Height = 21
      EditMask = '!9999-99-99;1;0'
      MaxLength = 10
      TabOrder = 0
      Text = '    -  -  '
      OnKeyPress = txt_d_xxKeyPress
    end
    object txt_d_sx: TMaskEdit
      Left = 172
      Top = 10
      Width = 81
      Height = 21
      EditMask = '!9999-99-99;1;0'
      MaxLength = 10
      TabOrder = 1
      Text = '    -  -  '
      OnKeyPress = txt_d_xxKeyPress
    end
    object cmd_q: TBitBtn
      Left = 664
      Top = 8
      Width = 81
      Height = 25
      Caption = #26597#35810
      TabOrder = 2
      OnClick = cmd_qClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333FF3FF3333333333CC30003333333333773777333333333C33
        3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
        33003377333337F33377333333333C333300333F333337F33377339333333C33
        3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
        330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
        330077F377F337F33377993399333C33330077FF773337F33377399993333C33
        33333777733337F333FF333333333C33300033333333373FF7773333333333CC
        3000333333333377377733333333333333333333333333333333}
      NumGlyphs = 2
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 41
    Width = 162
    Height = 232
    BevelInner = bvLowered
    TabOrder = 1
    object DBGrid2: TDBGrid
      Left = 7
      Top = 7
      Width = 149
      Height = 217
      Color = clAqua
      DataSource = ds_bh
      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 = 'wm_bh'
          Title.Alignment = taCenter
          Title.Caption = #38144#21806#32534#21495
          Visible = True
        end>
    end
  end
  object Panel3: TPanel
    Left = 162
    Top = 41
    Width = 595
    Height = 232
    BevelInner = bvLowered
    TabOrder = 2
    object Label3: TLabel
      Left = 8
      Top = 207
      Width = 59
      Height = 13
      Caption = #32467#31639#26085#26399':'
    end
    object Label4: TLabel
      Left = 184
      Top = 207
      Width = 59
      Height = 13
      Caption = #32467#31639#21333#20301':'
    end
    object Label5: TLabel
      Left = 424
      Top = 207
      Width = 59
      Height = 13
      Caption = #25903#20184#37329#39069':'
    end
    object DBGrid1: TDBGrid
      Left = 7
      Top = 7
      Width = 581
      Height = 184
      Color = clInfoBk
      DataSource = ds_wm
      Options = [dgTitles, dgIndicator, dgColumnResize, 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 = 'pj_kind'
          Title.Alignment = taCenter
          Title.Caption = #37197#20214#31867#22411
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pj_gg'
          Title.Alignment = taCenter
          Title.Caption = #37197#20214#35268#26684
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pj_id'
          Title.Alignment = taCenter
          Title.Caption = #37197#20214#32534#21495
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pj_name'
          Title.Alignment = taCenter
          Title.Caption = #37197#20214#21517#31216
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pj_ck_sum'
          Title.Alignment = taCenter
          Title.Caption = #38144#21806#25968#37327
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pj_unit'
          Title.Alignment = taCenter
          Title.Caption = #21333#20301
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pj_dj'
          Title.Alignment = taCenter
          Title.Caption = #21333#20215
          Width = 69
          Visible = True
        end>
    end
    object txt_date: TEdit
      Left = 71
      Top = 204
      Width = 98
      Height = 21
      Color = clInfoBk
      ReadOnly = True
      TabOrder = 1
    end
    object txt_dw: TEdit
      Left = 247
      Top = 203
      Width = 163
      Height = 21
      Color = clInfoBk
      ReadOnly = True
      TabOrder = 2
    end
    object txt_je: TEdit
      Left = 487
      Top = 203
      Width = 98
      Height = 21
      Color = clInfoBk
      ReadOnly = True
      TabOrder = 3
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 273
    Width = 757
    Height = 41
    BevelInner = bvLowered
    TabOrder = 3
    object cmdOK: TBitBtn
      Left = 589
      Top = 8
      Width = 81
      Height = 25
      Caption = #30830#23450
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = cmdOKClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555555555555555555555555555555555555555FF55555555555559055555
        55555555577FF5555555555599905555555555557777F5555555555599905555
        555555557777FF5555555559999905555555555777777F555555559999990555
        5555557777777FF5555557990599905555555777757777F55555790555599055
        55557775555777FF5555555555599905555555555557777F5555555555559905
        555555555555777FF5555555555559905555555555555777FF55555555555579
        05555555555555777FF5555555555557905555555555555777FF555555555555
        5990555555555555577755555555555555555555555555555555}
      NumGlyphs = 2
    end
    object cmdCancel: TBitBtn
      Left = 672
      Top = 8
      Width = 80
      Height = 25
      Cancel = True
      Caption = #21462#28040
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = cmdCancelClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000C40E0000C40E00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555555555555555555555555555555555555555FF55555555555559055555
        55555555577FF5555555555599905555555555557777F5555555555599905555
        555555557777FF5555555559999905555555555777777F555555559999990555
        9955557777777FF5555557990599905995555777757777F55555790555599059
        55557775555777FF5555555555599995555555555557777F5555555555559905
        555555555555777FF5555555555599905555555555555777FF55555555595579
        05555555555555777FF5555555955557905555555555555777FF555555555555
        5990555555555555577755555555555555555555555555555555}
      NumGlyphs = 2
    end
  end
  object qe_wm: TQuery
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    SQL.Strings = (
      'select * from wm_gl where wm_zf_bs = 0 and wm_bh = :ibh')
    Left = 385
    Top = 8
    ParamData = <
      item
        DataType = ftString
        Name = 'ibh'
        ParamType = ptUnknown
      end>
  end
  object ds_wm: TDataSource
    DataSet = qe_wm
    Left = 417
    Top = 8
  end
  object qe_bh: TQuery
    AfterScroll = qe_bhAfterScroll
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    SQL.Strings = (
      'select * from wm_gl')
    Left = 449
    Top = 8
  end
  object ds_bh: TDataSource
    DataSet = qe_bh
    Left = 481
    Top = 8
  end
  object qe_sum: TQuery
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    SQL.Strings = (
      
        'select isnull(sum(pj_ck_sum * pj_dj), 0.00) as pj_zj from wm_gl ' +
        'where wm_bh = :ibh and wm_zf_bs = 0')
    Left = 345
    Top = 8
    ParamData = <
      item
        DataType = ftString
        Name = 'ibh'
        ParamType = ptUnknown
      end>
  end
end