xscxwh1.dfm

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

object xscxwh: Txscxwh
  Left = 230
  Top = 126
  Width = 632
  Height = 465
  ActiveControl = Edit1
  Caption = '商品促销维护'
  Color = clBtnFace
  DefaultMonitor = dmMainForm
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object dxDBGrid1: TdxDBGrid
    Left = 0
    Top = 97
    Width = 624
    Height = 341
    Bands = <
      item
        Caption = '促销商品'
      end
      item
        Caption = '商品价格'
      end
      item
        Caption = '促销日期'
        Width = 164
      end
      item
        Caption = '促销时间'
        Width = 225
      end>
    DefaultLayout = False
    HeaderPanelRowCount = 1
    KeyField = 'spcode'
    SummaryGroups = <>
    SummarySeparator = ', '
    Align = alClient
    Color = 15524050
    Font.Charset = GB2312_CHARSET
    Font.Color = 7479077
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    BandFont.Charset = GB2312_CHARSET
    BandFont.Color = clWindowText
    BandFont.Height = -12
    BandFont.Name = '宋体'
    BandFont.Style = []
    DataSource = DataSource1
    Filter.Active = True
    Filter.Criteria = {00000000}
    GridLineColor = 7479077
    HeaderFont.Charset = GB2312_CHARSET
    HeaderFont.Color = clWindowText
    HeaderFont.Height = -12
    HeaderFont.Name = '宋体'
    HeaderFont.Style = []
    LookAndFeel = lfFlat
    OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
    OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
    PreviewFont.Charset = DEFAULT_CHARSET
    PreviewFont.Color = clBlue
    PreviewFont.Height = -12
    PreviewFont.Name = '宋体'
    PreviewFont.Style = []
    ShowBands = True
    object dxDBGrid1spcode: TdxDBGridMaskColumn
      ReadOnly = True
      Width = 76
      BandIndex = 0
      RowIndex = 0
      FieldName = 'spcode'
    end
    object dxDBGrid1name: TdxDBGridMaskColumn
      ReadOnly = True
      Width = 166
      BandIndex = 0
      RowIndex = 0
      FieldName = 'name'
    end
    object dxDBGrid1jldw: TdxDBGridMaskColumn
      ReadOnly = True
      BandIndex = 0
      RowIndex = 0
      FieldName = 'jldw'
    end
    object dxDBGrid1barcode: TdxDBGridMaskColumn
      ReadOnly = True
      Width = 70
      BandIndex = 0
      RowIndex = 0
      FieldName = 'barcode'
    end
    object dxDBGrid1lsj: TdxDBGridCurrencyColumn
      ReadOnly = True
      BandIndex = 1
      RowIndex = 0
      FieldName = 'lsj'
    end
    object dxDBGrid1rq_s: TdxDBGridMaskColumn
      ReadOnly = True
      Width = 82
      BandIndex = 2
      RowIndex = 0
      FieldName = 'rq_s'
    end
    object dxDBGrid1cxj: TdxDBGridCurrencyColumn
      ReadOnly = True
      BandIndex = 1
      RowIndex = 0
      FieldName = 'cxj'
    end
    object dxDBGrid1id: TdxDBGridMaskColumn
      ReadOnly = True
      Visible = False
      Width = 66
      BandIndex = 0
      RowIndex = 0
      FieldName = 'id'
    end
    object dxDBGrid1time_s: TdxDBGridMaskColumn
      ReadOnly = True
      Width = 108
      BandIndex = 3
      RowIndex = 0
      FieldName = 'time_s'
    end
    object dxDBGrid1rq_e: TdxDBGridMaskColumn
      ReadOnly = True
      Width = 94
      BandIndex = 2
      RowIndex = 0
      FieldName = 'rq_e'
    end
    object dxDBGrid1time_e: TdxDBGridMaskColumn
      ReadOnly = True
      Width = 117
      BandIndex = 3
      RowIndex = 0
      FieldName = 'time_e'
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 624
    Height = 97
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 60
      Height = 12
      Caption = '商品编码：'
    end
    object Label2: TLabel
      Left = 168
      Top = 16
      Width = 48
      Height = 12
      Caption = '商品名称'
    end
    object Label3: TLabel
      Left = 488
      Top = 16
      Width = 36
      Height = 12
      Caption = '原价：'
    end
    object Label4: TLabel
      Left = 28
      Top = 48
      Width = 48
      Height = 12
      Caption = '促销价：'
    end
    object Label5: TLabel
      Left = 168
      Top = 48
      Width = 60
      Height = 12
      Caption = '促销时间：'
    end
    object Label6: TLabel
      Left = 320
      Top = 48
      Width = 12
      Height = 12
      Caption = '至'
    end
    object Label7: TLabel
      Left = 512
      Top = 48
      Width = 12
      Height = 12
      Caption = '至'
    end
    object Edit1: TEdit
      Left = 80
      Top = 8
      Width = 81
      Height = 20
      TabOrder = 0
      OnExit = Edit1Exit
      OnKeyDown = Edit1KeyDown
    end
    object Edit2: TEdit
      Left = 528
      Top = 8
      Width = 77
      Height = 20
      ReadOnly = True
      TabOrder = 1
    end
    object RxCalcEdit1: TRxCalcEdit
      Left = 80
      Top = 39
      Width = 81
      Height = 21
      AutoSize = False
      ButtonWidth = 0
      NumGlyphs = 2
      TabOrder = 2
      OnKeyDown = RxCalcEdit1KeyDown
    end
    object Button1: TButton
      Left = 376
      Top = 67
      Width = 75
      Height = 25
      Caption = '确定'
      Enabled = False
      TabOrder = 3
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 456
      Top = 67
      Width = 75
      Height = 25
      Caption = '删除'
      TabOrder = 4
      OnClick = Button2Click
    end
    object DateTimePicker1: TDateTimePicker
      Left = 232
      Top = 40
      Width = 81
      Height = 20
      CalAlignment = dtaLeft
      Date = 37260
      Time = 37260
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 5
    end
    object DateTimePicker2: TDateTimePicker
      Left = 336
      Top = 40
      Width = 81
      Height = 20
      CalAlignment = dtaLeft
      Date = 37260.9999884259
      Time = 37260.9999884259
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 6
    end
    object DateTimePicker3: TDateTimePicker
      Left = 424
      Top = 40
      Width = 81
      Height = 20
      CalAlignment = dtaLeft
      Date = 32509.2923726852
      Time = 32509.2923726852
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkTime
      ParseInput = False
      TabOrder = 7
    end
    object DateTimePicker4: TDateTimePicker
      Left = 528
      Top = 40
      Width = 81
      Height = 20
      CalAlignment = dtaLeft
      Date = 72686.9999884259
      Time = 72686.9999884259
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkTime
      ParseInput = False
      TabOrder = 8
    end
    object BitBtn4: TBitBtn
      Left = 536
      Top = 67
      Width = 75
      Height = 25
      Caption = '打印&P'
      TabOrder = 9
      OnClick = BitBtn4Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 96
    Top = 152
  end
  object Table1: TADOTable
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    LockType = ltReadOnly
    TableName = 'xscx_v'
    Left = 96
    Top = 192
    object Table1spcode: TStringField
      DisplayLabel = '商品编码'
      DisplayWidth = 10
      FieldName = 'spcode'
      FixedChar = True
      Size = 10
    end
    object Table1name: TStringField
      DisplayLabel = '商品名称'
      DisplayWidth = 27
      FieldName = 'name'
      Required = True
      FixedChar = True
      Size = 50
    end
    object Table1unit: TStringField
      DisplayLabel = '单位'
      DisplayWidth = 10
      FieldName = 'jldw'
      FixedChar = True
      Size = 10
    end
    object Table1barcode: TStringField
      DisplayLabel = '条形码'
      DisplayWidth = 11
      FieldName = 'barcode'
      FixedChar = True
      Size = 15
    end
    object Table1cxj: TCurrencyField
      DisplayLabel = '促销价'
      DisplayWidth = 10
      FieldName = 'cxj'
    end
    object Table1lsj: TCurrencyField
      DisplayLabel = '原价'
      FieldName = 'lsj'
    end
    object Table1id: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object Table1rq_s: TStringField
      DisplayLabel = '开始'
      FieldName = 'rq_s'
    end
    object Table1rq_e: TStringField
      DisplayLabel = '结束'
      FieldName = 'rq_e'
    end
    object Table1time_s: TStringField
      DisplayLabel = '开始'
      FieldName = 'time_s'
    end
    object Table1time_e: TStringField
      DisplayLabel = '结束'
      FieldName = 'time_e'
    end
  end
  object Query1: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    Left = 160
    Top = 192
  end
  object dxComponentPrinter1: TdxComponentPrinter
    CurrentLink = dxComponentPrinter1Link1
    PreviewOptions.Caption = '促销商品表'
    PreviewOptions.RegistryPath = 'Software\Developer Express\PrintingSystem\DesignTime'
    PrintTitle = '促销商品表'
    Left = 275
    Top = 168
    object dxComponentPrinter1Link1: TdxDBGridReportLink
      Active = True
      Component = dxDBGrid1
      DateTime = 37676.9427267361
      DesignerHelpContext = 0
      PrinterPage.CenterOnPageH = True
      PrinterPage.DMPaper = 9
      PrinterPage.Footer = 6350
      PrinterPage.Header = 6350
      PrinterPage.Margins.Bottom = 12700
      PrinterPage.Margins.Left = 10000
      PrinterPage.Margins.Right = 10000
      PrinterPage.Margins.Top = 12700
      PrinterPage.PageFooter.Font.Charset = DEFAULT_CHARSET
      PrinterPage.PageFooter.Font.Color = clWindowText
      PrinterPage.PageFooter.Font.Height = -11
      PrinterPage.PageFooter.Font.Name = 'Tahoma'
      PrinterPage.PageFooter.Font.Style = []
      PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET
      PrinterPage.PageHeader.Font.Color = clWindowText
      PrinterPage.PageHeader.Font.Height = -11
      PrinterPage.PageHeader.Font.Name = 'Tahoma'
      PrinterPage.PageHeader.Font.Style = []
      PrinterPage.PageHeader.RightTitle.Strings = (
        '第[Page #]页共[Total Pages]页')
      PrinterPage.PageSize.X = 210000
      PrinterPage.PageSize.Y = 297000
      PrinterPage.ScaleMode = smFit
      PrinterPage._dxMeasurementUnits_ = 0
      PrinterPage._dxLastMU_ = 2
      ReportTitle.Font.Charset = DEFAULT_CHARSET
      ReportTitle.Font.Color = clWindowText
      ReportTitle.Font.Height = -19
      ReportTitle.Font.Name = 'Times New Roman'
      ReportTitle.Font.Style = [fsBold]
      ReportTitle.Text = '促销商品表'
      ShrinkToPageWidth = True
      BandFont.Charset = DEFAULT_CHARSET
      BandFont.Color = clWindowText
      BandFont.Height = -11
      BandFont.Name = 'Times New Roman'
      BandFont.Style = []
      EvenFont.Charset = DEFAULT_CHARSET
      EvenFont.Color = clWindowText
      EvenFont.Height = -11
      EvenFont.Name = 'Times New Roman'
      EvenFont.Style = []
      FixedTransparent = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Times New Roman'
      Font.Style = []
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'Times New Roman'
      FooterFont.Style = []
      GroupNodeFont.Charset = DEFAULT_CHARSET
      GroupNodeFont.Color = clWindowText
      GroupNodeFont.Height = -11
      GroupNodeFont.Name = 'Times New Roman'
      GroupNodeFont.Style = []
      HeaderFont.Charset = DEFAULT_CHARSET
      HeaderFont.Color = clWindowText
      HeaderFont.Height = -11
      HeaderFont.Name = 'Times New Roman'
      HeaderFont.Style = []
      OddFont.Charset = DEFAULT_CHARSET
      OddFont.Color = clWindowText
      OddFont.Height = -11
      OddFont.Name = 'Times New Roman'
      OddFont.Style = []
      Options = [tlpoBands, tlpoHeaders, tlpoFooters, tlpoRowFooters, tlpoPreview, tlpoPreviewGrid, tlpoGrid, tlpoFlatCheckMarks, tlpoSoft3D, tlpoRowFooterGrid]
      PreviewFont.Charset = DEFAULT_CHARSET
      PreviewFont.Color = clWindowText
      PreviewFont.Height = -11
      PreviewFont.Name = 'Times New Roman'
      PreviewFont.Style = []
      RowFooterFont.Charset = DEFAULT_CHARSET
      RowFooterFont.Color = clWindowText
      RowFooterFont.Height = -11
      RowFooterFont.Name = 'Times New Roman'
      RowFooterFont.Style = []
    end
  end
end