kehu.dfm

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

object Frmkehu: TFrmkehu
  Left = 211
  Top = 145
  Width = 515
  Height = 379
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #23458#25143#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 4
    Top = 145
    Width = 493
    Height = 192
    Caption = #23458#25143#21015#34920
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 489
      Height = 175
      Align = alClient
      DataSource = dm.QGuestDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'id'
          Title.Alignment = taCenter
          Title.Caption = #32534#21495
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'GuestName'
          Title.Alignment = taCenter
          Title.Caption = #23458#25143#21517#31216
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'GuesTele'
          Title.Alignment = taCenter
          Title.Caption = #32852#31995#26041#24335
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Guesaddr'
          Title.Alignment = taCenter
          Title.Caption = #32852#31995#22320#22336
          Width = 200
          Visible = True
        end>
    end
  end
  object GroupBox2: TGroupBox
    Left = 3
    Top = 1
    Width = 494
    Height = 136
    Caption = #35814#32454#20449#24687
    TabOrder = 1
    object Label1: TLabel
      Left = 19
      Top = 24
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #23458#25143#21517#31216#65306
      Transparent = True
    end
    object Label2: TLabel
      Left = 246
      Top = 25
      Width = 60
      Height = 13
      Caption = #32852#31995#26041#24335#65306
      Transparent = True
    end
    object Label3: TLabel
      Left = 18
      Top = 56
      Width = 60
      Height = 13
      Caption = #32852#31995#22320#22336#65306
      Transparent = True
    end
    object BtnAdd: TSpeedButton
      Left = 48
      Top = 96
      Width = 57
      Height = 25
      Caption = #22686'   '#21152
      OnClick = BtnAddClick
    end
    object BtnDele: TSpeedButton
      Left = 160
      Top = 96
      Width = 57
      Height = 25
      Caption = #21024'   '#38500
      OnClick = BtnDeleClick
    end
    object BtnSave: TSpeedButton
      Left = 384
      Top = 96
      Width = 57
      Height = 25
      Caption = #20445'   '#23384
      OnClick = BtnSaveClick
    end
    object BtnCancel: TSpeedButton
      Left = 272
      Top = 96
      Width = 57
      Height = 25
      Caption = #21462'   '#28040
      OnClick = BtnCancelClick
    end
    object DBEdit1: TDBEdit
      Left = 82
      Top = 20
      Width = 135
      Height = 21
      DataField = 'GuestName'
      DataSource = dm.QGuestDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 312
      Top = 21
      Width = 169
      Height = 21
      DataField = 'GuesTele'
      DataSource = dm.QGuestDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 80
      Top = 53
      Width = 401
      Height = 21
      DataField = 'Guesaddr'
      DataSource = dm.QGuestDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      TabOrder = 2
    end
    object DBoprate: TDBNavigator
      Left = 72
      Top = 72
      Width = 240
      Height = 25
      DataSource = dm.QGuestDataSource
      TabOrder = 3
      Visible = False
    end
  end
end