frmmain.~dfm

一个小型餐饮管理系统,可支持小票打印.还存在一些小问题,希望朋友们帮助完成. QQ:15372627 E-mail:hdw802.163.com

object frm_main: Tfrm_main
  Left = 228
  Top = 186
  Width = 984
  Height = 547
  BorderIcons = []
  Caption = #20992#37070#38899#20048#39135#24220#39184#39278#31649#29702#31995#32479#20027#25511#30028#38754
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 65
    Width = 225
    Height = 417
    Align = alLeft
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object RzPageControl2: TRzPageControl
      Left = 2
      Top = 2
      Width = 221
      Height = 413
      ActivePage = TabSheet4
      Align = alClient
      TabIndex = 0
      TabOrder = 0
      FixedDimension = 18
      object TabSheet4: TRzTabSheet
        Caption = #29366#24577
        object RzClockStatus1: TRzClockStatus
          Left = 7
          Top = 13
          Width = 203
          Alignment = taCenter
        end
        object RzGroupBox1: TRzGroupBox
          Left = 8
          Top = 40
          Width = 201
          Height = 201
          Caption = #39184#21488#20449#24687
          TabOrder = 0
          object Label1: TLabel
            Left = 16
            Top = 40
            Width = 54
            Height = 12
            Caption = #36827#24215#26102#38388':'
          end
          object Label2: TLabel
            Left = 16
            Top = 72
            Width = 54
            Height = 12
            Caption = #24050#29992#26102#38388':'
          end
          object Label3: TLabel
            Left = 16
            Top = 104
            Width = 54
            Height = 12
            Caption = #28040#36153#37329#39069':'
          end
          object JD_Time: TLabel
            Left = 80
            Top = 40
            Width = 54
            Height = 12
            Caption = #36827#24215#26102#38388':'
          end
          object YY_time: TLabel
            Left = 80
            Top = 72
            Width = 54
            Height = 12
            Caption = #24050#29992#26102#38388':'
          end
          object XF_Money: TLabel
            Left = 80
            Top = 104
            Width = 59
            Height = 12
            Caption = #28040#36153#37329#39069':'
            Font.Charset = ANSI_CHARSET
            Font.Color = clMaroon
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            ParentFont = False
          end
        end
        object RzGroupBox2: TRzGroupBox
          Left = 8
          Top = 256
          Width = 201
          Height = 265
          Caption = #39184#21488#24635#29366#24577
          TabOrder = 1
          object Label4: TLabel
            Left = 16
            Top = 40
            Width = 54
            Height = 12
            Caption = #39184#21488#24635#25968':'
          end
          object Label5: TLabel
            Left = 16
            Top = 72
            Width = 54
            Height = 12
            Caption = #24403#21069#21344#29992':'
          end
          object Label6: TLabel
            Left = 16
            Top = 104
            Width = 54
            Height = 12
            Caption = #24403#21069#21487#20379':'
          end
          object Label7: TLabel
            Left = 16
            Top = 136
            Width = 54
            Height = 12
            Caption = #24403#21069#39044#35746':'
          end
          object Label8: TLabel
            Left = 16
            Top = 168
            Width = 54
            Height = 12
            Caption = #24403#21069#20572#29992':'
          end
          object Lab_Rate: TLabel
            Left = 88
            Top = 208
            Width = 54
            Height = 12
            Caption = #19978' '#24231' '#29575':'
          end
          object lab_total: TLabel
            Left = 88
            Top = 40
            Width = 54
            Height = 12
            Caption = #39184#21488#24635#25968':'
          end
          object Lab_Used: TLabel
            Left = 88
            Top = 72
            Width = 54
            Height = 12
            Caption = #24403#21069#21344#29992':'
          end
          object Lab_Empty: TLabel
            Left = 88
            Top = 104
            Width = 54
            Height = 12
            Caption = #24403#21069#21487#20379':'
          end
          object Lab_YD: TLabel
            Left = 88
            Top = 136
            Width = 54
            Height = 12
            Caption = #24403#21069#39044#35746':'
          end
          object Lab_Stop: TLabel
            Left = 88
            Top = 168
            Width = 54
            Height = 12
            Caption = #24403#21069#20572#29992':'
          end
          object Label9: TLabel
            Left = 16
            Top = 208
            Width = 54
            Height = 12
            Caption = #19978' '#24231' '#29575':'
          end
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 225
    Top = 65
    Width = 751
    Height = 417
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Panel3: TPanel
      Left = 0
      Top = 132
      Width = 751
      Height = 285
      Align = alBottom
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 0
      object DBGrid1: TDBGrid
        Left = 2
        Top = 33
        Width = 747
        Height = 250
        Align = alClient
        DataSource = DataSource1
        Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = #33756#21697#21517#31216
            Title.Alignment = taCenter
            Width = 260
            Visible = True
          end
          item
            Expanded = False
            FieldName = #25968#37327
            Title.Alignment = taCenter
            Width = 46