mealform.~dfm

简单的餐饮软件部分源码

object meal: Tmeal
  Left = 74
  Top = 114
  AutoScroll = False
  BorderIcons = []
  Caption = 'meal'
  ClientHeight = 518
  ClientWidth = 502
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object lcount: TLabel
    Left = 8
    Top = 360
    Width = 61
    Height = 24
    AutoSize = False
    Caption = 'lcount'
    Color = clBackground
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object lpay: TLabel
    Left = 135
    Top = 360
    Width = 87
    Height = 24
    AutoSize = False
    Caption = 'lcount'
    Color = clBackground
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label3: TLabel
    Left = 19
    Top = 27
    Width = 41
    Height = 16
    AutoSize = False
    Caption = 'Label3'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object but10: TButton
    Left = 324
    Top = 223
    Width = 70
    Height = 42
    Caption = 'but1'
    TabOrder = 19
    Visible = False
    OnClick = but10Click
  end
  object gbox1: TGroupBox
    Left = 3
    Top = 50
    Width = 400
    Height = 2
    Color = clRed
    ParentColor = False
    TabOrder = 1
  end
  object DBGrid: TDBGrid
    Left = 5
    Top = 84
    Width = 320
    Height = 273
    Color = clInfoBk
    DataSource = DataM.inmealdata
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawColumnCell = DBGridDrawColumnCell
    OnDblClick = DBGridDblClick
  end
  object gbox2: TGroupBox
    Left = 397
    Top = 80
    Width = 4
    Height = 289
    TabOrder = 3
  end
  object but1: TButton
    Left = 324
    Top = 90
    Width = 70
    Height = 42
    Caption = 'but1'
    TabOrder = 4
    OnClick = but1Click
  end
  object but2: TButton
    Left = 324
    Top = 135
    Width = 70
    Height = 42
    Caption = 'but1'
    TabOrder = 5
    OnClick = but2Click
  end
  object but3: TButton
    Left = 324
    Top = 178
    Width = 70
    Height = 42
    Caption = 'but1'
    TabOrder = 6
    OnClick = but3Click
  end
  object but4: TButton
    Left = 324
    Top = 224
    Width = 70
    Height = 42
    Caption = 'but1'
    TabOrder = 7
    OnClick = but4Click
  end
  object but5: TButton
    Left = 324
    Top = 269
    Width = 70
    Height = 42
    Caption = 'but1'
    TabOrder = 8
    OnClick = but5Click
  end
  object but6: TButton
    Left = 324
    Top = 312
    Width = 70
    Height = 42
    Caption = 'but1'
    TabOrder = 9
    OnClick = but6Click
  end
  object Edit1: TEdit
    Left = 68
    Top = 360
    Width = 66
    Height = 24
    BorderStyle = bsNone
    Color = clBackground
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 10
  end
  object Edit2: TEdit
    Left = 222
    Top = 360
    Width = 102
    Height = 24
    BorderStyle = bsNone
    Color = clBackground
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 11
  end
  object but8: TButton
    Left = 324
    Top = 442
    Width = 70
    Height = 42
    Cancel = True
    Caption = 'but1'
    TabOrder = 12
    OnClick = but8Click
  end
  object but7: TButton
    Left = 324
    Top = 356
    Width = 70
    Height = 42
    Caption = 'but1'
    TabOrder = 13
    OnClick = but7Click
  end
  object dbg1: TDBGrid
    Left = 421
    Top = 111
    Width = 378
    Height = 410
    DataSource = DataM.mealdata
    ReadOnly = True
    TabOrder = 14
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Visible = False
    OnDrawColumnCell = dbg1DrawColumnCell
    OnKeyDown = dbg1KeyDown
    OnKeyPress = dbg1KeyPress
  end
  object Panel1: TPanel
    Left = 408
    Top = 208
    Width = 57
    Height = 41
    Caption = 'Panel1'
    TabOrder = 15
    Visible = False
  end
  object Panel2: TPanel
    Left = 408
    Top = 256
    Width = 57
    Height = 41
    Caption = 'Panel2'
    TabOrder = 16
    Visible = False
  end
  object Edit3: TEdit
    Left = 96
    Top = 16
    Width = 281
    Height = 21
    TabOrder = 0
    OnChange = Edit3Change
    OnKeyPress = Edit3KeyPress
  end
  object kwpanel: TPanel
    Left = 424
    Top = 72
    Width = 65
    Height = 33
    Caption = 'kwpanel'
    TabOrder = 17
    Visible = False
  end
  object but9: TButton
    Left = 324
    Top = 399
    Width = 70
    Height = 42
    Caption = 'but1'
    TabOrder = 18
    OnClick = but9Click
  end
  object Edit4: TEdit
    Left = 140
    Top = 52
    Width = 121
    Height = 27
    BorderStyle = bsNone
    Color = clBackground
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 20
  end
  object Edit5: TEdit
    Left = 3
    Top = 52
    Width = 137
    Height = 27
    BorderStyle = bsNone
    Color = clBackground
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 21
  end
  object payado: TADOQuery
    Connection = DataM.SQLconADO
    Parameters = <>
    Left = 96
    Top = 416
  end
  object Firstado: TADOQuery
    Connection = DataM.SQLconADO
    Parameters = <>
    Left = 304
    Top = 32
  end
end