inherited frm_TXPBHBHCSH: Tfrm_TXPBHBHCSH
  Tag = 13400
  Left = 40
  Top = 31
  Caption = '零枚票庫存包號版號初始化'
  ClientWidth = 632
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object ModiPanel1: TModiPanel
    Left = 0
    Top = 442
    Width = 632
    Height = 31
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 0
    DisButton = [bnEdit, bnSave, bnCancel, bnClose]
    BtnWidth = 65
    OnBtnClick = ModiPanel1BtnClick
  end
  object Panel1: TPanel
    Left = 0
    Top = 45
    Width = 368
    Height = 397
    Align = alLeft
    BevelOuter = bvLowered
    TabOrder = 1
    object Label2: TLabel
      Left = 161
      Top = 12
      Width = 36
      Height = 12
      Caption = '庫房號'
    end
    object Label3: TLabel
      Left = 11
      Top = 11
      Width = 24
      Height = 12
      Caption = '查找'
    end
    object cmbKFH: TComboBox
      Left = 202
      Top = 8
      Width = 97
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 0
      OnChange = cmbKFHChange
    end
    object Edit1: TEdit
      Left = 40
      Top = 6
      Width = 89
      Height = 20
      MaxLength = 10
      TabOrder = 1
      OnChange = Edit1Change
    end
    object RxDBGrid1: TRxDBGrid
      Left = 1
      Top = 36
      Width = 366
      Height = 360
      Align = alBottom
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      PopupMenu = data.pm_Export
      TabOrder = 2
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋體'
      TitleFont.Style = []
      FixedCols = 2
      Columns = <
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'ZH'
          Title.Caption = '志號'
          Width = 61
          Visible = True
        end
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'TPMZ'
          ReadOnly = True
          Title.Caption = '面值'
          Width = 57
          Visible = True
        end
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'TJC'
          Title.Caption = '名稱'
          Width = 104
          Visible = True
        end
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'SL'
          Title.Caption = '庫存數量'
          Width = 102
          Visible = True
        end>
    end
  end
  object DBGrid1: TDBGrid
    Left = 368
    Top = 45
    Width = 264
    Height = 397
    Align = alClient
    DataSource = DataSource2
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋體'
    TitleFont.Style = []
    Columns = <
      item
        Color = clInfoBk
        Expanded = False
        FieldName = 'QSBH'
        Title.Caption = '起始版號'
        Width = 107
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZZBH'
        Title.Caption = '終止版號'
        Width = 118
        Visible = True
      end>
  end
  object Panel11: TPanel
    Left = 0
    Top = 0
    Width = 632
    Height = 45
    Align = alTop
    BevelOuter = bvLowered
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋體'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    object RxLabel1: TRxLabel
      Left = 1
      Top = 1
      Width = 630
      Height = 24
      Align = alTop
      Alignment = taCenter
      Caption = '零枚票包號版號初始化'
      Font.Charset = GB2312_CHARSET
      Font.Color = clGreen
      Font.Height = -24
      Font.Name = '楷體_GB2312'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object DWMC: TLabel
      Left = 20
      Top = 28
      Width = 60
      Height = 12
      Caption = '使用單位：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋體'
      Font.Style = []
      ParentFont = False
    end
  end
  object qryYZPPTXXB: TRxQuery
    AfterOpen = qryYZPPTXXBAfterOpen
    OnUpdateError = qryYZPPTXXBUpdateError
    DatabaseName = 'YZPP'
    SQL.Strings = (
      
        'Select J.TUDM, Y.ZH, Y.TMC TJC, J.KFDM, SUM(J.SL) SL, Y.TPMZ/100' +
        ' TPMZ'
      '  From TKS_TXPPKC J, TB_YZPPXXB Y'
      '  Where J.TUDM = Y.TDM and %CON'
      '  GROUP BY J.TUDM, Y.ZH, Y.TMC, J.KFDM,  TPMZ'
      '  Order by J.TUDM'
      ' '
      ' '
      ' ')
    Macros = <
      item
        DataType = ftString
        Name = 'CON'
        ParamType = ptInput
        Value = '0=0'
      end>
    Left = 13
    Top = 97
  end
  object DataSource1: TDataSource
    DataSet = qryYZPPTXXB
    Left = 43
    Top = 97
  end
  object qryBHBH: TQuery
    CachedUpdates = True
    OnUpdateError = qryBHBHUpdateError
    DatabaseName = 'YZPP'
    DataSource = DataSource1
    RequestLive = True
    SQL.Strings = (
      'SELECT KFDM, PPDM, QSBH, ZZBH'
      ' FROM TKS_TXBHBHBKC Where KFDM = :KFDM AND PPDM = :TUDM')
    UpdateObject = UpdateSQL2
    Left = 18
    Top = 132
    ParamData = <
      item
        DataType = ftString
        Name = 'KFDM'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'TUDM'
        ParamType = ptUnknown
      end>
  end
  object UpdateSQL2: TUpdateSQL
    ModifySQL.Strings = (
      'update TKS_TXBHBHBKC'
      'set'
      '  KFDM = :KFDM,'
      '  PPDM = :PPDM,'
      '  QSBH = :QSBH,'
      '  ZZBH = :ZZBH'
      'where'
      '  KFDM = :OLD_KFDM and'
      '  PPDM = :OLD_PPDM and'
      '  QSBH = :OLD_QSBH')
    InsertSQL.Strings = (
      'insert into TKS_TXBHBHBKC'
      '  (KFDM, PPDM, QSBH, ZZBH)'
      'values'
      '  (:KFDM, :PPDM, :QSBH, :ZZBH)')
    DeleteSQL.Strings = (
      'delete from TKS_TXBHBHBKC'
      'where'
      '  KFDM = :OLD_KFDM and'
      '  PPDM = :OLD_PPDM and'
      '  QSBH = :OLD_QSBH')
    Left = 48
    Top = 133
  end
  object DataSource2: TDataSource
    DataSet = qryBHBH
    Left = 81
    Top = 134
  end
end