syjk1.dfm

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

object syjk: Tsyjk
  Left = 314
  Top = 164
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '收银员结款'
  ClientHeight = 285
  ClientWidth = 462
  Color = clBtnFace
  DefaultMonitor = dmMainForm
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object Label1: TLabel
    Left = 24
    Top = 16
    Width = 90
    Height = 15
    Caption = '收银员编码：'
  end
  object Label2: TLabel
    Left = 264
    Top = 16
    Width = 75
    Height = 15
    Caption = '当前日期：'
  end
  object Edit1: TEdit
    Left = 112
    Top = 8
    Width = 97
    Height = 23
    TabOrder = 0
    OnExit = Edit1Exit
    OnKeyDown = Edit1KeyDown
  end
  object Button1: TButton
    Left = 368
    Top = 256
    Width = 75
    Height = 25
    Caption = '保存&S'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = Button1Click
  end
  object Edit2: TEdit
    Left = 336
    Top = 8
    Width = 105
    Height = 23
    Enabled = False
    ReadOnly = True
    TabOrder = 2
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 40
    Width = 462
    Height = 209
    LineColor = clBlack
    SelectedFontColor = clHighlightText
    Color = 15524050
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = 7479077
    Font.Height = -15
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clBlack
    TitleFont.Height = -15
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnKeyDown = DBGridEh1KeyDown
    FooterRowCount = 1
    FrozenCols = 2
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -15
    FooterFont.Name = '宋体'
    FooterFont.Style = []
    FooterColor = clWindow
    AutoFitColWidths = True
    SumList.Active = True
    OptionsEh = [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
        Color = cl3DLight
        FieldName = 'fkfs'
        Font.Charset = GB2312_CHARSET
        Font.Color = clPurple
        Font.Height = -15
        Font.Name = '宋体'
        Font.Style = []
        ReadOnly = True
        Footers = <>
      end
      item
        Color = cl3DLight
        FieldName = 'ysje'
        Font.Charset = GB2312_CHARSET
        Font.Color = clPurple
        Font.Height = -15
        Font.Name = '宋体'
        Font.Style = []
        ReadOnly = True
        Width = 124
        Footer.ValueType = fvtSum
        Footer.FieldName = 'ysje'
        Footers = <>
      end
      item
        Color = 16776176
        FieldName = 'ssje'
        Font.Charset = GB2312_CHARSET
        Font.Color = clHighlight
        Font.Height = -15
        Font.Name = '宋体'
        Font.Style = []
        Width = 108
        Footer.ValueType = fvtSum
        Footer.FieldName = 'ssje'
        Footers = <>
      end
      item
        Color = cl3DLight
        FieldName = 'ce'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -15
        Font.Name = '宋体'
        Font.Style = []
        ReadOnly = True
        Width = 122
        Footer.ValueType = fvtSum
        Footer.FieldName = 'ce'
        Footers = <>
      end>
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 128
    Top = 128
  end
  object Table1: TADOTable
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    TableName = 'syjkb_t'
    Left = 96
    Top = 128
    object Table1fkfs: TStringField
      DisplayLabel = '付款方式'
      FieldName = 'fkfs'
      FixedChar = True
      Size = 10
    end
    object Table1ysje: TBCDField
      DisplayLabel = '应收金额'
      FieldName = 'ysje'
      Precision = 19
    end
    object Table1ssje: TBCDField
      DisplayLabel = '实收金额'
      FieldName = 'ssje'
      Precision = 19
    end
    object Table1ce: TBCDField
      DisplayLabel = '差额'
      FieldName = 'ce'
      Precision = 19
    end
  end
  object Query1: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    Left = 32
    Top = 216
  end
  object Query2: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    Left = 72
    Top = 216
  end
end