hfgd1.dfm

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

object hfgd: Thfgd
  Left = 392
  Top = 132
  ActiveControl = Edit1
  BorderStyle = bsDialog
  Caption = '恢复挂单'
  ClientHeight = 305
  ClientWidth = 565
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 16
    Top = 16
    Width = 84
    Height = 12
    Caption = '请输入挂单号：'
  end
  object Edit1: TEdit
    Left = 104
    Top = 8
    Width = 121
    Height = 20
    TabOrder = 0
    OnKeyDown = Edit1KeyDown
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 32
    Width = 225
    Height = 273
    LineColor = clBlack
    SelectedFontColor = clHighlightText
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = '宋体'
    FooterFont.Style = []
    FooterColor = clWindow
    AutoFitColWidths = True
    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 = []
  end
  object DBGridEh2: TDBGridEh
    Left = 232
    Top = 8
    Width = 329
    Height = 297
    LineColor = clBlack
    SelectedFontColor = clHighlightText
    DataSource = DataSource2
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = '宋体'
    FooterFont.Style = []
    FooterColor = clWindow
    AutoFitColWidths = True
    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'
        Width = 54
        Footers = <>
      end
      item
        FieldName = 'spname'
        Footers = <>
      end
      item
        FieldName = 'dj'
        Footers = <>
      end
      item
        FieldName = 'sl'
        Footers = <>
      end>
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 40
    Top = 96
  end
  object Query1: TQuery
    AfterScroll = Query1AfterScroll
    DatabaseName = 'pos'
    SQL.Strings = (
      'select distinct(gdh) from spxs_g')
    Left = 80
    Top = 96
    object Query1gdh: TIntegerField
      DisplayLabel = '挂单号'
      DisplayWidth = 26
      FieldName = 'gdh'
      Origin = 'POS.spxs_g.gdh'
    end
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'pos'
    IndexFieldNames = 'gdh'
    MasterFields = 'gdh'
    MasterSource = DataSource1
    TableName = 'dbo.spxs_g'
    Left = 304
    Top = 112
    object Table1spcode: TStringField
      DisplayLabel = '商品编码'
      FieldName = 'spcode'
      FixedChar = True
      Size = 10
    end
    object Table1spname: TStringField
      DisplayLabel = '商品名称'
      DisplayWidth = 20
      FieldName = 'spname'
      FixedChar = True
      Size = 50
    end
    object Table1unit: TStringField
      FieldName = 'unit'
      FixedChar = True
      Size = 10
    end
    object Table1dj: TCurrencyField
      DisplayLabel = '单价'
      FieldName = 'dj'
    end
    object Table1sl: TCurrencyField
      DisplayLabel = '数量'
      FieldName = 'sl'
    end
    object Table1je: TCurrencyField
      FieldName = 'je'
    end
    object Table1zk: TCurrencyField
      FieldName = 'zk'
    end
    object Table1zkje: TCurrencyField
      FieldName = 'zkje'
    end
    object Table1gdh: TIntegerField
      DisplayLabel = '单号'
      FieldName = 'gdh'
    end
    object Table1sj: TDateTimeField
      FieldName = 'sj'
    end
  end
  object DataSource2: TDataSource
    DataSet = Table1
    Left = 328
    Top = 168
  end
  object Query2: TQuery
    DatabaseName = 'pos'
    Left = 280
    Top = 168
  end
end