pfm_cksetup.dfm

POS收银系统

object fm_cksetup: Tfm_cksetup
  Left = 29
  Top = 79
  Width = 736
  Height = 533
  Caption = '仓库的初始设置'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 185
    Height = 506
    Align = alLeft
    TabOrder = 0
    object Label1: TLabel
      Left = 20
      Top = 24
      Width = 130
      Height = 13
      Caption = '请选择查询仓库或分店'
    end
    object Label2: TLabel
      Left = 16
      Top = 88
      Width = 52
      Height = 13
      Caption = '库存数量'
      FocusControl = DBEdit1
    end
    object Label3: TLabel
      Left = 16
      Top = 132
      Width = 78
      Height = 13
      Caption = '库存最小数量'
      FocusControl = DBEdit2
    end
    object Label4: TLabel
      Left = 16
      Top = 176
      Width = 78
      Height = 13
      Caption = '库存最大数量'
      FocusControl = DBEdit3
    end
    object Label5: TLabel
      Left = 16
      Top = 284
      Width = 52
      Height = 13
      Caption = '商品编码'
    end
    object Label6: TLabel
      Left = 16
      Top = 332
      Width = 7
      Height = 13
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object CbBox1: TComboBox
      Left = 16
      Top = 44
      Width = 145
      Height = 21
      Style = csDropDownList
      Color = clInfoBk
      ItemHeight = 13
      TabOrder = 0
      OnChange = CbBox1Change
    end
    object DBEdit1: TDBEdit
      Left = 16
      Top = 104
      Width = 74
      Height = 21
      DataField = 'spnum'
      DataSource = DataSource2
      Enabled = False
      TabOrder = 1
    end
    object DBEdit2: TDBEdit
      Left = 16
      Top = 152
      Width = 74
      Height = 21
      DataField = 'spnummin'
      DataSource = DataSource2
      Enabled = False
      TabOrder = 2
    end
    object DBEdit3: TDBEdit
      Left = 16
      Top = 192
      Width = 74
      Height = 21
      DataField = 'spnummax'
      DataSource = DataSource2
      Enabled = False
      TabOrder = 3
    end
    object BBtnEdit: TBitBtn
      Left = 16
      Top = 220
      Width = 109
      Height = 25
      Caption = '修改'
      TabOrder = 4
      OnClick = BBtnEditClick
    end
    object Panel1: TPanel
      Left = 2
      Top = 356
      Width = 181
      Height = 148
      Align = alBottom
      BevelInner = bvLowered
      TabOrder = 5
      object Memo1: TMemo
        Left = 2
        Top = 57
        Width = 177
        Height = 89
        Align = alBottom
        Color = clInfoBk
        Lines.Strings = (
          '命令提示：'
          '加入所有的未加入的商品信息'
          '到库存中。并将初始库存量设'
          '置为0，最小库存数量为100，'
          '最大库存数量为1000。')
        TabOrder = 0
      end
      object BitBtn1: TBitBtn
        Left = 20
        Top = 20
        Width = 129
        Height = 25
        Caption = '初始商品信息到库存'
        TabOrder = 1
        OnClick = BitBtn1Click
      end
    end
    object BBtnLocate: TBitBtn
      Left = 16
      Top = 252
      Width = 109
      Height = 25
      Caption = '根据商品编码查找'
      TabOrder = 6
      OnClick = BBtnLocateClick
    end
    object Edit1: TEdit
      Left = 16
      Top = 304
      Width = 121
      Height = 21
      Color = clAqua
      TabOrder = 7
      OnKeyPress = Edit1KeyPress
    end
  end
  object GroupBox2: TGroupBox
    Left = 185
    Top = 0
    Width = 543
    Height = 506
    Align = alClient
    Caption = '库存商品信息'
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 539
      Height = 489
      Align = alClient
      Color = clInfoBk
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnDrawDataCell = DBGrid1DrawDataCell
    end
  end
  object Query1: TQuery
    AfterScroll = Query1AfterScroll
    DatabaseName = 'posdb'
    SQL.Strings = (
      'select t_stocksp.* ,t_spxx.spmc from t_stocksp,t_spxx '
      'where t_stocksp.spbm=t_spxx.spbm and 2=1')
    Left = 164
    Top = 20
    object Query1ckmc: TStringField
      FieldName = 'ckmc'
      Origin = 'POSDB."dbo.t_stocksp".ckmc'
      Visible = False
      FixedChar = True
    end
    object Query1spbm: TStringField
      FieldName = 'spbm'
      Origin = 'POSDB."dbo.t_stocksp".spbm'
      FixedChar = True
      Size = 6
    end
    object Query1sptxm: TStringField
      FieldName = 'sptxm'
      Origin = 'POSDB."dbo.t_stocksp".sptxm'
      FixedChar = True
      Size = 13
    end
    object Query1spmc: TStringField
      FieldName = 'spmc'
      Origin = 'POSDB."dbo.t_spxx".spmc'
    end
    object Query1spnum: TIntegerField
      FieldName = 'spnum'
      Origin = 'POSDB."dbo.t_stocksp".spnum'
    end
    object Query1spnummin: TIntegerField
      FieldName = 'spnummin'
      Origin = 'POSDB."dbo.t_stocksp".spnummin'
    end
    object Query1spnummax: TIntegerField
      FieldName = 'spnummax'
      Origin = 'POSDB."dbo.t_stocksp".spnummax'
    end
    object Query1id: TIntegerField
      FieldName = 'id'
      Origin = 'POSDB."dbo.t_stocksp".id'
      Visible = False
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 164
    Top = 52
  end
  object QryName: TQuery
    DatabaseName = 'posdb'
    Left = 152
    Top = 100
  end
  object Table1: TTable
    AfterPost = Table1AfterPost
    DatabaseName = 'posdb'
    IndexFieldNames = 'id'
    MasterFields = 'id'
    MasterSource = DataSource1
    TableName = 'dbo.t_stocksp'
    Left = 156
    Top = 140
  end
  object DataSource2: TDataSource
    DataSet = Table1
    Left = 156
    Top = 184
  end
end