main1.dfm

思微POS连锁超市管理系统 (商业代码),几年前的东西了

object Main: TMain
  Left = 286
  Top = 170
  Width = 684
  Height = 530
  BorderIcons = []
  Caption = '思微电脑收银系统'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object StatusBar1: TStatusBar
    Left = 0
    Top = 465
    Width = 676
    Height = 19
    Panels = <
      item
        Text = '门店'
        Width = 50
      end
      item
        Width = 60
      end
      item
        Text = '收银员'
        Width = 50
      end
      item
        Width = 50
      end
      item
        Width = 80
      end
      item
        Text = 'POS机号'
        Width = 50
      end
      item
        Width = 60
      end
      item
        Text = '时间'
        Width = 50
      end
      item
        Width = 120
      end
      item
        Text = '普通'
        Width = 50
      end
      item
        Text = '单号'
        Width = 30
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 0
    Width = 676
    Height = 389
    LineColor = clBlack
    SelectedFontColor = clHighlightText
    Align = alClient
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    FooterRowCount = 1
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -14
    FooterFont.Name = '宋体'
    FooterFont.Style = [fsBold]
    FooterColor = clMenu
    AutoFitColWidths = True
    SumList.Active = True
    OptionsEh = [dghFixed3D, dghFooter3D, dghHighlightFocus, dghClearSelection]
    CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
    CurrencyStyle.CurrencyFont.Color = clWindowText
    CurrencyStyle.CurrencyFont.Height = -11
    CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
    CurrencyStyle.CurrencyFont.Style = []
    CurrencyStyle.CurrencySymbol = '￥'
    CurrencyStyle.CompartColor = clSilver
    CurrencyStyle.KilobitColor = clGreen
    CurrencyStyle.RadixColor = clRed
    CurrencyStyle.ShowMinus = True
    CurrencyStyle.ShowZero = False
    CurrencyStyle.MinusColor = clRed
    CurrencyStyle.Layout = tlCenter
    CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
    CurrencyStyle.HeadFont.Color = clWindowText
    CurrencyStyle.HeadFont.Height = -11
    CurrencyStyle.HeadFont.Name = '楷体_GB2312'
    CurrencyStyle.HeadFont.Style = []
    Columns = <
      item
        FieldName = 'spcode'
        Footer.Alignment = taCenter
        Footer.ValueType = fvtStaticText
        Footer.Value = '合计'
        Footers = <>
      end
      item
        FieldName = 'spname'
        Width = 203
        Footers = <>
      end
      item
        FieldName = 'unit'
        Footers = <>
      end
      item
        FieldName = 'dj'
        Footers = <>
      end
      item
        FieldName = 'sl'
        Footers = <>
      end
      item
        FieldName = 'je'
        Footer.ValueType = fvtSum
        Footer.FieldName = 'je'
        Footers = <>
      end
      item
        FieldName = 'zkje'
        Footer.ValueType = fvtSum
        Footer.FieldName = 'zkje'
        Footers = <>
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 389
    Width = 676
    Height = 76
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    object Label1: TLabel
      Left = 24
      Top = 19
      Width = 70
      Height = 14
      Caption = '商品编码：'
    end
    object Label5: TLabel
      Left = 224
      Top = 19
      Width = 42
      Height = 14
      Caption = '数量：'
    end
    object Label3: TLabel
      Left = 352
      Top = 19
      Width = 56
      Height = 14
      Caption = '零售价：'
    end
    object Label4: TLabel
      Left = 488
      Top = 19
      Width = 42
      Height = 14
      Caption = '单位：'
    end
    object Label2: TLabel
      Left = 24
      Top = 51
      Width = 70
      Height = 14
      Caption = '商品名称：'
    end
    object Label6: TLabel
      Left = 472
      Top = 49
      Width = 51
      Height = 16
      Caption = '找补：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label7: TLabel
      Left = 528
      Top = 42
      Width = 49
      Height = 30
      Caption = '0.00'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = 'Arial Black'
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 96
      Top = 11
      Width = 121
      Height = 22
      MaxLength = 15
      TabOrder = 0
      OnKeyDown = Edit1KeyDown
    end
    object RxCalcEdit1: TRxCalcEdit
      Left = 264
      Top = 12
      Width = 81
      Height = 21
      Alignment = taLeftJustify
      AutoSize = False
      DecimalPlaces = 3
      DisplayFormat = '0.###'
      ButtonWidth = 0
      MaxLength = 15
      NumGlyphs = 2
      TabOrder = 1
      Value = 1
      OnKeyDown = RxCalcEdit1KeyDown
    end
    object Edit3: TEdit
      Left = 408
      Top = 14
      Width = 73
      Height = 27
      BiDiMode = bdRightToLeft
      BorderStyle = bsNone
      Color = clMenu
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentBiDiMode = False
      ParentFont = False
      TabOrder = 2
      OnKeyDown = Edit3KeyDown
    end
    object Edit4: TEdit
      Left = 528
      Top = 14
      Width = 73
      Height = 22
      BiDiMode = bdRightToLeft
      BorderStyle = bsNone
      Color = clMenu
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = '宋体'
      Font.Style = []
      ParentBiDiMode = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 3
    end
    object Edit2: TEdit
      Left = 96
      Top = 46
      Width = 345
      Height = 22
      BorderStyle = bsNone
      Color = clMenu
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 4
    end
    object hyyh: TEdit
      Left = 240
      Top = 67
      Width = 121
      Height = 22
      TabOrder = 5
      Text = '0'
      Visible = False
    end
    object CheckBox1: TCheckBox
      Left = 600
      Top = 16
      Width = 65
      Height = 17
      Caption = '打标题'
      TabOrder = 6
      Visible = False
    end
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    AutoLineReduction = maManual
    Left = 176
    Top = 64
    object N1: TMenuItem
      Caption = '系统[&S]'
      object N13: TMenuItem
        Caption = '数据传送'
        OnClick = N13Click
      end
      object N12: TMenuItem
        Caption = '交 接 班'
        OnClick = N12Click
      end
      object N22: TMenuItem
        Caption = '打印设置'
        OnClick = N22Click
      end
      object N24: TMenuItem
        Caption = '初始设置'
        OnClick = N24Click
      end
      object N26: TMenuItem
        Caption = '打印班结'
        OnClick = N26Click
      end
      object N23: TMenuItem
        Caption = '系统注册'
        OnClick = N23Click
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object N2: TMenuItem
        Caption = '退出系统'
        OnClick = N2Click
      end
    end
    object N3: TMenuItem
      Caption = '功能[&F]'
      object N6: TMenuItem
        Caption = '折    扣'
        object N16: TMenuItem
          Caption = '单品打折'
          OnClick = N16Click
        end
        object N17: TMenuItem
          Caption = '整单打折'
          OnClick = N17Click
        end
        object N19: TMenuItem
          Caption = '取消折扣'
          object N18: TMenuItem
            Caption = '单品'
            OnClick = N18Click
          end
          object N20: TMenuItem
            Caption = '整单'
            OnClick = N20Click
          end
        end
      end
      object N7: TMenuItem
        Caption = '退    货'
        OnClick = N7Click
      end
      object N8: TMenuItem
        Caption = '挂    单'
        OnClick = N8Click
      end
      object N9: TMenuItem
        Caption = '恢复挂单'
        OnClick = N9Click
      end
      object N21: TMenuItem
        Caption = '会    员'
        OnClick = N21Click
      end
      object N27: TMenuItem
        Caption = '系统锁定'
        OnClick = N27Click
      end
      object N28: TMenuItem
        Caption = '重新开单'
        OnClick = N28Click
      end
    end
    object N4: TMenuItem
      Caption = '操作[&O]'
      object N10: TMenuItem
        Caption = '开 钱 箱'
        OnClick = N10Click
      end
      object N11: TMenuItem
        Caption = '删    除'
        OnClick = N11Click
      end
      object N14: TMenuItem
        Caption = '取消交易'
        OnClick = N14Click
      end
      object N15: TMenuItem
        Caption = '结款交易'
        OnClick = N15Click
      end
    end
    object N101: TMenuItem
      Caption = '注意:您的软件还可以使用10天.'
    end
  end
  object Query1: TQuery
    DatabaseName = 'pos'
    SQL.Strings = (
      'select * from sale_v')
    Left = 160
    Top = 112
  end
  object Table1: TTable
    AutoRefresh = True
    DatabaseName = 'pos'
    IndexFieldNames = 'id'
    TableName = 'dbo.spxs_t'
    Left = 232
    Top = 128
    object Table1spcode: TStringField
      DisplayLabel = '商品编码'
      FieldName = 'spcode'
      FixedChar = True
      Size = 10
    end
    object Table1spname: TStringField
      DisplayLabel = '商品名称'
      FieldName = 'spname'
      FixedChar = True
      Size = 50
    end
    object Table1unit: TStringField
      DisplayLabel = '单位'
      DisplayWidth = 6
      FieldName = 'unit'
      FixedChar = True
      Size = 10
    end
    object Table1dj: TFloatField
      DisplayLabel = '单价'
      DisplayWidth = 8
      FieldName = 'dj'
    end
    object Table1sl: TFloatField
      DisplayLabel = '数量'
      DisplayWidth = 6
      FieldName = 'sl'
    end
    object Table1je: TFloatField
      DisplayLabel = '金额'
      DisplayWidth = 12
      FieldName = 'je'
    end
    object Table1zk: TFloatField
      DisplayLabel = '折扣'
      FieldName = 'zk'
    end
    object Table1zkje: TFloatField
      DisplayLabel = '折扣金额'
      FieldName = 'zkje'
    end
    object Table1id: TAutoIncField
      FieldName = 'id'
    end
    object Table1sfcx: TStringField
      FieldName = 'sfcx'
      Size = 2
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 200
    Top = 128
  end
  object Table2: TTable
    DatabaseName = 'pos'
    TableName = 'dbo.spxs_g'
    Left = 288
    Top = 128
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 592
    Top = 240
  end
end