fenlei.dfm

小管理程序主要管理的小咖啡厅我是从网上下的经测试可用

object Frmfenlei: TFrmfenlei
  Left = 316
  Top = 146
  Width = 599
  Height = 346
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #33756#21697#20998#31867
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 4
    Top = 1
    Width = 263
    Height = 312
    Caption = #33756#21697#20027#31867
    TabOrder = 0
    object Label1: TLabel
      Left = 13
      Top = 21
      Width = 36
      Height = 13
      Caption = #32534#21495#65306
      Transparent = True
    end
    object Label2: TLabel
      Left = 11
      Top = 43
      Width = 36
      Height = 13
      Caption = #31867#21517#65306
      Transparent = True
    end
    object Btnnew: TSpeedButton
      Left = 16
      Top = 72
      Width = 57
      Height = 22
      Caption = #26032'   '#22686
      OnClick = BtnnewClick
    end
    object Btndel: TSpeedButton
      Left = 104
      Top = 72
      Width = 57
      Height = 22
      Caption = #21024'    '#38500
      OnClick = BtndelClick
    end
    object Btnsave1: TSpeedButton
      Left = 192
      Top = 72
      Width = 57
      Height = 22
      Caption = #20445'   '#23384
      OnClick = Btnsave1Click
    end
    object DBEdit1: TDBEdit
      Left = 52
      Top = 17
      Width = 113
      Height = 21
      DataField = 'mclassid'
      DataSource = dm.QmasterclassDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 50
      Top = 42
      Width = 151
      Height = 21
      DataField = 'Mclass_name'
      DataSource = dm.QmasterclassDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      TabOrder = 1
    end
    object DBGrid1: TDBGrid
      Left = 6
      Top = 104
      Width = 251
      Height = 201
      DataSource = dm.QmasterclassDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 2
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'mclassid'
          Title.Alignment = taCenter
          Title.Caption = #32534#21495
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Mclass_name'
          Title.Alignment = taCenter
          Title.Caption = #20027#31867#21517#31216
          Width = 140
          Visible = True
        end>
    end
    object DBoprate1: TDBNavigator
      Left = 56
      Top = 168
      Width = 64
      Height = 25
      DataSource = dm.QmasterclassDataSource
      VisibleButtons = [nbInsert, nbDelete]
      TabOrder = 3
      Visible = False
    end
  end
  object GroupBox2: TGroupBox
    Left = 271
    Top = 1
    Width = 313
    Height = 312
    Caption = #33756#21697#20998#31867
    TabOrder = 1
    object Label3: TLabel
      Left = 10
      Top = 20
      Width = 60
      Height = 13
      Caption = #20998#31867#32534#21495#65306
      Transparent = True
    end
    object Label4: TLabel
      Left = 146
      Top = 19
      Width = 60
      Height = 13
      Caption = #20027#31867#21517#31216#65306
      Transparent = True
    end
    object Label5: TLabel
      Left = 10
      Top = 46
      Width = 60
      Height = 13
      Caption = #20998#31867#21517#31216#65306
      Transparent = True
    end
    object Btnadd: TSpeedButton
      Left = 48
      Top = 72
      Width = 57
      Height = 22
      Caption = #26032'    '#22686
      OnClick = BtnaddClick
    end
    object Btndelete: TSpeedButton
      Left = 144
      Top = 72
      Width = 57
      Height = 22
      Caption = #21024'   '#38500
      OnClick = BtndeleteClick
    end
    object Btnsave2: TSpeedButton
      Left = 232
      Top = 72
      Width = 57
      Height = 22
      Caption = #20445'   '#23384
      OnClick = Btnsave2Click
    end
    object DBEdit3: TDBEdit
      Left = 69
      Top = 15
      Width = 73
      Height = 21
      DataField = 'chclassid'
      DataSource = dm.QchildclassDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      TabOrder = 0
    end
    object DBEdit4: TDBEdit
      Left = 203
      Top = 16
      Width = 102
      Height = 21
      DataField = 'Mclass_name'
      DataSource = dm.QmasterclassDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      ReadOnly = True
      TabOrder = 1
    end
    object DBEdit5: TDBEdit
      Left = 69
      Top = 40
      Width = 236
      Height = 21
      DataField = 'Chclass_name'
      DataSource = dm.QchildclassDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      TabOrder = 2
    end
    object DBGrid2: TDBGrid
      Left = 5
      Top = 106
      Width = 300
      Height = 199
      DataSource = dm.QchildclassDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 3
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'chclassid'
          Title.Alignment = taCenter
          Title.Caption = #20998#31867#32534#21495
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Chclass_name'
          Title.Alignment = taCenter
          Title.Caption = #20998#31867#21517#31216
          Width = 160
          Visible = True
        end>
    end
    object DBoprate2: TDBNavigator
      Left = 80
      Top = 144
      Width = 64
      Height = 25
      DataSource = dm.QchildclassDataSource
      VisibleButtons = [nbInsert, nbDelete]
      TabOrder = 4
      Visible = False
    end
  end
end