frmusermoneys.dfm

IC卡饭堂售饭管理系统源码,内有相关说明,

object FrmUserMoney: TFrmUserMoney
  Left = 255
  Top = 162
  BorderStyle = bsSingle
  Caption = #29992#25143#23601#39184#24773#20917#26597#35810
  ClientHeight = 348
  ClientWidth = 536
  Color = clBtnFace
  DefaultMonitor = dmDesktop
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 185
    Height = 348
    Align = alLeft
    Caption = #24050#27880#20876#29992#25143
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 181
      Height = 331
      Align = alClient
      DataSource = DTConnect.QryUse
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      Columns = <
        item
          Expanded = False
          FieldName = 'UserName'
          Title.Caption = #29992#25143#21517#31216
          Width = 76
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ICcardNO'
          Title.Caption = #39277#21345#32534#21495
          Width = 83
          Visible = True
        end>
    end
  end
  object GroupBox2: TGroupBox
    Left = 185
    Top = 0
    Width = 351
    Height = 348
    Align = alClient
    Caption = #23601#39184#24773#20917
    TabOrder = 1
    object wwDBGrid1: TwwDBGrid
      Left = 2
      Top = 15
      Width = 347
      Height = 331
      Selected.Strings = (
        'Device'#9'10'#9#28040#36153#26426
        'Getdate'#9'18'#9#28040#36153#26085#26399
        'UserName'#9'10'#9#29992#25143#21517
        'ICCardNo'#9'10'#9#39277#21345#21495#30721
        'UseMoney'#9'20'#9#25152#29992#37329#39069
        'Money'#9'20'#9#24080#21495#20313#39069)
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      Align = alClient
      DataSource = DTConnect.DSmoney
      ReadOnly = True
      TabOrder = 0
      TitleAlignment = taLeftJustify
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = False
    end
  end
end