unit1.dfm

这是用PB6开发的一个POS管理系统

object Form1: TForm1
  Left = 259
  Top = 162
  Width = 544
  Height = 375
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 15
  object SpeedButton1: TSpeedButton
    Left = 206
    Top = 160
    Width = 15
    Height = 23
    Glyph.Data = {
      9E000000424D9E00000000000000760000002800000009000000050000000100
      0400000000002800000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFF0FFFF000
      0000FFF000FFF0000000FF00000FF0000000F0000000F0000000000000000000
      0000}
  end
  object Button1: TButton
    Left = 162
    Top = 20
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 254
    Top = 4
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 1
    OnClick = Button2Click
  end
  object Edit1: TEdit
    Left = 64
    Top = 258
    Width = 121
    Height = 23
    TabOrder = 2
    Text = 'Edit1'
  end
  object Panel1: TPanel
    Left = 92
    Top = 210
    Width = 139
    Height = 21
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = 'Panel1'
    TabOrder = 3
    object SpeedButton2: TSpeedButton
      Left = 118
      Top = 0
      Width = 17
      Height = 17
      Glyph.Data = {
        86000000424D8600000000000000760000002800000007000000040000000100
        0400000000001000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFF0FFF0FF00
        0FF0F00000F000000000}
    end
    object Edit2: TEdit
      Left = 0
      Top = 0
      Width = 117
      Height = 21
      BorderStyle = bsNone
      TabOrder = 0
      Text = 'Edit2'
    end
  end
  object LeeDBLookup1: TLeeDBLookup
    Left = 332
    Top = 28
    Width = 200
    Height = 21
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = 'LeeDBLookup1'
    TabOrder = 4
    TabStop = True
    Text = '0100'
    TextFont.Charset = GB2312_CHARSET
    TextFont.Color = clWindowText
    TextFont.Height = -15
    TextFont.Name = 'MS Sans Serif'
    TextFont.Style = []
    DataSource = DataSource3
    DataField = 'ClassNo'
    ReadOnly = False
    NoDefValue = True
    LastValueAsDef = False
    ControlStyle = [csAcceptsControls, csCaptureMouse, csClickEvents, csSetCaption, csOpaque, csDoubleClicks, csReplicatable]
    DSSql.Strings = (
      'select classno,name from class where classno<=$Edit1'
      '')
    GridWidth = 200
    GridHeight = 160
    ValueField = 'classno'
    IndexField = 'classno'
    GridRowCount = 8
  end
  object DBEdit1: TDBEdit
    Left = 134
    Top = 80
    Width = 121
    Height = 23
    TabOrder = 5
  end
  object LeeDBLookup21: TLeeDBLookup2
    Left = 70
    Top = 122
    Width = 179
    Height = 25
    Text = '0100'
    Caption = '类别代码'
    TextFont.Charset = GB2312_CHARSET
    TextFont.Color = clWindowText
    TextFont.Height = -15
    TextFont.Name = 'MS Sans Serif'
    TextFont.Style = []
    CaptionFont.Charset = GB2312_CHARSET
    CaptionFont.Color = clWindowText
    CaptionFont.Height = -15
    CaptionFont.Name = 'MS Sans Serif'
    CaptionFont.Style = []
    DataSource = DataSource3
    DataField = 'ClassNo'
    LabelLeft = 0
    LabelTop = 0
    LabelHeight = 25
    ReadOnly = False
    NoDefValue = True
    LastValueAsDef = False
    TabStop = True
    TabOrder = 6
    ControlStyle = [csCaptureMouse, csClickEvents, csSetCaption, csDoubleClicks]
    DSSql.Strings = (
      'select classno,name from class')
    ValueField = 'classno'
    IndexField = 'classno'
    GridRowCount = 8
  end
  object LeeLookupEdit1: TLeeLookupEdit
    Left = 274
    Top = 122
    Width = 200
    Height = 21
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = 'LeeLookupEdit1'
    TabOrder = 7
    TabStop = True
    TextFont.Charset = GB2312_CHARSET
    TextFont.Color = clWindowText
    TextFont.Height = -15
    TextFont.Name = 'MS Sans Serif'
    TextFont.Style = []
    ReadOnly = False
    NoDefValue = True
    LastValueAsDef = False
    ControlStyle = [csAcceptsControls, csCaptureMouse, csClickEvents, csSetCaption, csOpaque, csDoubleClicks, csReplicatable]
    GridWidth = 200
    GridHeight = 160
    GridRowCount = 8
  end
  object LeeLookupEdit21: TLeeLookupEdit2
    Left = 266
    Top = 92
    Width = 250
    Height = 23
    Caption = 'Unknown'
    TextFont.Charset = GB2312_CHARSET
    TextFont.Color = clWindowText
    TextFont.Height = -15
    TextFont.Name = 'MS Sans Serif'
    TextFont.Style = []
    CaptionFont.Charset = GB2312_CHARSET
    CaptionFont.Color = clWindowText
    CaptionFont.Height = -15
    CaptionFont.Name = 'MS Sans Serif'
    CaptionFont.Style = []
    LabelLeft = 0
    LabelTop = 0
    LabelHeight = 23
    ReadOnly = False
    NoDefValue = True
    LastValueAsDef = False
    TabStop = True
    TabOrder = 8
    ControlStyle = [csCaptureMouse, csClickEvents, csSetCaption, csDoubleClicks]
    DSSql.Strings = (
      'select classno,name from class')
    ValueField = 'name'
    IndexField = 'classno'
    GridRowCount = 8
    DatabaseName = 'a'
  end
  object Database1: TDatabase
    Connected = True
    DatabaseName = 'a'
    DriverName = 'MSSQL'
    KeepConnection = False
    LoginPrompt = False
    Params.Strings = (
      'DATABASE NAME=sypos2000'
      'SERVER NAME=leebk'
      'USER NAME=sa'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'BLOB EDIT LOGGING='
      'LANGDRIVER=china'
      'SQLQRYMODE='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'DATE MODE=0'
      'SCHEMA CACHE TIME=-1'
      'MAX QUERY TIME=300'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'HOST NAME='
      'APPLICATION NAME='
      'NATIONAL LANG NAME='
      'ENABLE BCD=FALSE'
      'TDS PACKET SIZE=4096'
      'BLOBS TO CACHE=64'
      'BLOB SIZE=32'
      'PASSWORD=')
    SessionName = 'Default'
    Left = 76
    Top = 14
  end
  object Query1: TQuery
    DatabaseName = 'a'
    SQL.Strings = (
      'select * from goods')
    Left = 112
    Top = 14
  end
  object Query2: TQuery
    DatabaseName = 'a'
    SQL.Strings = (
      'update goods set goodsno=:goodsno'
      'where barcode=:barcode')
    Left = 108
    Top = 52
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'goodsno'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'barcode'
        ParamType = ptUnknown
      end>
  end
  object DataSource1: TDataSource
    Left = 12
    Top = 112
  end
  object SmartQuery1: TSmartQuery
    DatabaseName = 'a'
    SQL.Strings = (
      'select classno,name from class where classno<'#39'01'#39)
    KeyReadOper = []
    KeyEditOper = []
    Left = 20
    Top = 202
  end
  object DataSource2: TDataSource
    DataSet = SmartQuery1
    Left = 56
    Top = 202
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'a'
    TableName = 'dbo.Goods'
    Left = 2
    Top = 68
  end
  object DataSource3: TDataSource
    DataSet = Table1
    Left = 34
    Top = 70
  end
end