pg_print.dfm

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

object frm_pg_print: Tfrm_pg_print
  Left = 439
  Top = 221
  BorderStyle = bsDialog
  Caption = #27966#24037#21333#25171#21360#36873#25321#23545#35805#26694
  ClientHeight = 123
  ClientWidth = 211
  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 Panel1: TPanel
    Left = 0
    Top = 1
    Width = 211
    Height = 80
    BevelInner = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 33
      Height = 13
      Caption = #32534#21495':'
    end
    object Label2: TLabel
      Left = 8
      Top = 48
      Width = 33
      Height = 13
      Caption = #22995#21517':'
    end
    object combo_bh: TComboBox
      Left = 43
      Top = 13
      Width = 145
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 0
      OnChange = combo_bhChange
    end
    object combo_name: TComboBox
      Left = 43
      Top = 45
      Width = 145
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 1
      OnChange = combo_nameChange
    end
  end
  object cmd_print: TBitBtn
    Tag = 25
    Left = 3
    Top = 93
    Width = 80
    Height = 25
    Caption = #25171#21360
    TabOrder = 1
    OnClick = cmd_printClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
      8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
      8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
      8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
      03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
      03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
      33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
      33333337FFFF7733333333300000033333333337777773333333}
    NumGlyphs = 2
  end
  object cmd_cancel: TBitBtn
    Tag = 23
    Left = 129
    Top = 93
    Width = 80
    Height = 25
    Caption = #21462#28040
    TabOrder = 2
    OnClick = cmd_cancelClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
      3333333777333777FF33339993707399933333773337F3777FF3399933000339
      9933377333777F3377F3399333707333993337733337333337FF993333333333
      399377F33333F333377F993333303333399377F33337FF333373993333707333
      333377F333777F333333993333101333333377F333777F3FFFFF993333000399
      999377FF33777F77777F3993330003399993373FF3777F37777F399933000333
      99933773FF777F3F777F339993707399999333773F373F77777F333999999999
      3393333777333777337333333999993333333333377777333333}
    NumGlyphs = 2
  end
  object qe_jy: TQuery
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    SQL.Strings = (
      
        'select * from bg_wh where pg_id in (select gs_pg_id from gs_ad w' +
        'here dj_bh = :ibh group by gs_pg_id)')
    Left = 64
    Top = 9
    ParamData = <
      item
        DataType = ftString
        Name = 'ibh'
        ParamType = ptUnknown
      end>
  end
  object qe_pg: TQuery
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    SQL.Strings = (
      'select * from gs_ad where dj_bh = :ibh and gs_pg_id = :id')
    Left = 120
    Top = 9
    ParamData = <
      item
        DataType = ftString
        Name = 'ibh'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'id'
        ParamType = ptUnknown
      end>
  end
end