objectform.dfm

本程序是一个餐饮业的管理软件

object FrmObject: TFrmObject
  Left = 268
  Top = 215
  BorderStyle = bsToolWindow
  Caption = #29289#21697#31649#29702
  ClientHeight = 288
  ClientWidth = 392
  Color = clBtnFace
  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
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 393
    Height = 289
    ActivePage = TabSheet3
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = #20837#24211
      object Label1: TLabel
        Left = 8
        Top = 16
        Width = 47
        Height = 13
        Caption = #29289#21697'ID'#65306
      end
      object Label2: TLabel
        Left = 8
        Top = 48
        Width = 60
        Height = 13
        Caption = #29289#21697#25968#37327#65306
      end
      object Edit1: TEdit
        Left = 88
        Top = 8
        Width = 121
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 0
        OnKeyDown = Edit1KeyDown
      end
      object Edit2: TEdit
        Left = 88
        Top = 40
        Width = 121
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 1
        OnKeyDown = Edit2KeyDown
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 80
        Width = 385
        Height = 185
        DataSource = Data.DataSObject
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ReadOnly = True
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object Button1: TButton
        Left = 248
        Top = 40
        Width = 75
        Height = 25
        Caption = #20837#24211
        TabOrder = 3
        OnClick = Button1Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = #20986#24211
      ImageIndex = 1
      object Label3: TLabel
        Left = 8
        Top = 16
        Width = 47
        Height = 13
        Caption = #29289#21697'ID'#65306
      end
      object Label4: TLabel
        Left = 8
        Top = 48
        Width = 60
        Height = 13
        Caption = #29289#21697#25968#37327#65306
      end
      object Edit3: TEdit
        Left = 88
        Top = 8
        Width = 121
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 0
        OnKeyDown = Edit3KeyDown
      end
      object Edit4: TEdit
        Left = 88
        Top = 40
        Width = 121
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 1
        OnKeyDown = Edit4KeyDown
      end
      object Button2: TButton
        Left = 248
        Top = 40
        Width = 75
        Height = 25
        Caption = #20986#24211
        TabOrder = 2
        OnClick = Button2Click
      end
      object DBGrid2: TDBGrid
        Left = 0
        Top = 80
        Width = 385
        Height = 185
        DataSource = Data.DataSObject
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ReadOnly = True
        TabOrder = 3
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object TabSheet3: TTabSheet
      Caption = #21152#20837#26032#29289#21697
      ImageIndex = 2
      object Label5: TLabel
        Left = 8
        Top = 16
        Width = 47
        Height = 13
        Caption = #29289#21697'ID'#65306
      end
      object Label6: TLabel
        Left = 8
        Top = 48
        Width = 60
        Height = 13
        Caption = #29289#21697#21517#31216#65306
      end
      object Label7: TLabel
        Left = 192
        Top = 16
        Width = 60
        Height = 13
        Caption = #29289#21697#25968#37327#65306
      end
      object Label8: TLabel
        Left = 192
        Top = 48
        Width = 60
        Height = 13
        Caption = #29289#21697#20215#26684#65306
      end
      object DBEdit1: TDBEdit
        Left = 80
        Top = 8
        Width = 105
        Height = 21
        DataField = 'ID'
        DataSource = Data.DataSObject
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ReadOnly = True
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 80
        Top = 40
        Width = 105
        Height = 21
        DataField = 'Name'
        DataSource = Data.DataSObject
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 264
        Top = 8
        Width = 105
        Height = 21
        DataField = 'Count'
        DataSource = Data.DataSObject
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 2
      end
      object DBNavigator1: TDBNavigator
        Left = 40
        Top = 72
        Width = 290
        Height = 18
        DataSource = Data.DataSObject
        TabOrder = 3
      end
      object DBGrid3: TDBGrid
        Left = 0
        Top = 96
        Width = 385
        Height = 169
        DataSource = Data.DataSObject
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ReadOnly = True
        TabOrder = 4
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ID'
            Width = 30
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Name'
            Width = 60
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Count'
            Width = 60
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Price'
            Width = 60
            Visible = True
          end>
      end
      object DBEdit4: TDBEdit
        Left = 264
        Top = 40
        Width = 105
        Height = 21
        DataField = 'Price'
        DataSource = Data.DataSObject
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 5
      end
    end
  end
end