backedit.dfm

一个图书批发商的通用软件

object frmBackEdit: TfrmBackEdit
  Left = 296
  Top = 159
  BorderStyle = bsDialog
  Caption = #32534#36753
  ClientHeight = 168
  ClientWidth = 258
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object BitBtn1: TBitBtn
    Left = 40
    Top = 135
    Width = 75
    Height = 25
    Caption = #30830#23450
    Default = True
    TabOrder = 0
    OnClick = BitBtn1Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 148
    Top = 135
    Width = 75
    Height = 25
    Caption = #21462#28040
    TabOrder = 1
    OnClick = BitBtn2Click
    Kind = bkCancel
  end
  object GroupBox1: TGroupBox
    Left = 17
    Top = 7
    Width = 228
    Height = 122
    TabOrder = 2
    object Label1: TLabel
      Left = 22
      Top = 20
      Width = 36
      Height = 12
      Caption = #32534#21495#65306
    end
    object Label2: TLabel
      Left = 22
      Top = 45
      Width = 36
      Height = 12
      Caption = #25968#37327#65306
    end
    object Label3: TLabel
      Left = 22
      Top = 94
      Width = 36
      Height = 12
      Caption = #25240#25187#65306
    end
    object Label5: TLabel
      Left = 22
      Top = 69
      Width = 36
      Height = 12
      Caption = #21152#25439#65306
    end
    object Label6: TLabel
      Left = 197
      Top = 92
      Width = 6
      Height = 12
      Caption = '%'
    end
    object dbedtCount: TDBEdit
      Left = 61
      Top = 40
      Width = 145
      Height = 20
      DataField = 'BookCount'
      DataSource = dsqryBackSubs
      TabOrder = 0
    end
    object DBEdit1: TDBEdit
      Left = 61
      Top = 64
      Width = 145
      Height = 20
      DataField = 'addBook'
      DataSource = dsqryBackSubs
      TabOrder = 1
    end
    object edtdiscount: TEdit
      Left = 61
      Top = 88
      Width = 133
      Height = 20
      TabOrder = 2
      OnKeyPress = edtdiscountKeyPress
    end
  end
  object cxlcbBookId: TcxLookupComboBox
    Left = 78
    Top = 23
    Width = 146
    Height = 20
    Properties.DropDownAutoSize = True
    Properties.KeyFieldNames = 'BookId'
    Properties.ListColumns = <
      item
        Caption = #32534#21495
        Fixed = True
        HeaderAlignment = taCenter
        Width = 50
        FieldName = 'BookId'
      end
      item
        Caption = #21517#31216
        HeaderAlignment = taCenter
        Width = 120
        FieldName = 'BookName'
      end>
    Properties.ListOptions.ShowHeader = False
    Properties.ListSource = dsBookClass
    Properties.ReadOnly = False
    Style.BorderStyle = ebs3D
    Style.LookAndFeel.Kind = lfUltraFlat
    TabOrder = 3
  end
  object dsHouse: TDataSource
    DataSet = qryHouse
    Left = 132
    Top = 106
  end
  object qryHouse: TADOQuery
    Connection = dmData.adcDatabase
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From tbHouse')
    Left = 92
    Top = 102
  end
  object qryBookClass: TADOQuery
    Connection = dmData.adcDatabase
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From tbBookClass')
    Left = 92
    Top = 14
  end
  object dsBookClass: TDataSource
    DataSet = qryBookClass
    Left = 128
    Top = 14
  end
  object dsqryBackSubs: TDataSource
    DataSet = frmBackUnit.qryBackSubs
    Left = 168
    Top = 58
  end
end