fangshi.dfm

来自「小管理程序主要管理的小咖啡厅我是从网上下的经测试可用」· DFM 代码 · 共 122 行

object frmfangshi: Tfrmfangshi
  Left = 384
  Top = 158
  Width = 462
  Height = 194
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #20184#27454#26041#24335
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 15
    Top = 13
    Width = 39
    Height = 13
    Caption = #32534#21495#65306
    Transparent = True
  end
  object Label2: TLabel
    Left = 232
    Top = 11
    Width = 65
    Height = 13
    Caption = #20184#27454#26041#24335#65306
    Transparent = True
  end
  object Btnadd: TSpeedButton
    Left = 349
    Top = 40
    Width = 65
    Height = 22
    Caption = #22686'  '#21152
    OnClick = BtnaddClick
  end
  object BtnDele: TSpeedButton
    Left = 352
    Top = 83
    Width = 65
    Height = 22
    Caption = #21024'  '#38500
    OnClick = BtnDeleClick
  end
  object Btnsave: TSpeedButton
    Left = 352
    Top = 128
    Width = 65
    Height = 22
    Caption = #20445'  '#23384
    OnClick = BtnsaveClick
  end
  object DBEdit1: TDBEdit
    Left = 80
    Top = 9
    Width = 121
    Height = 21
    DataField = 'fangshiid'
    DataSource = dm.QfangshiDataSource
    ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
    TabOrder = 0
  end
  object DBEdit2: TDBEdit
    Left = 304
    Top = 8
    Width = 121
    Height = 21
    DataField = 'fangshiname'
    DataSource = dm.QfangshiDataSource
    ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
    TabOrder = 1
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 40
    Width = 320
    Height = 120
    DataSource = dm.QfangshiDataSource
    ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'fangshiid'
        Title.Alignment = taCenter
        Title.Caption = #32534#21495
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fangshiname'
        Title.Alignment = taCenter
        Title.Caption = #20184#27454#26041#24335
        Width = 150
        Visible = True
      end>
  end
  object DBoprate: TDBNavigator
    Left = 56
    Top = 80
    Width = 219
    Height = 25
    DataSource = dm.QfangshiDataSource
    VisibleButtons = [nbInsert, nbDelete, nbPost]
    TabOrder = 3
    Visible = False
  end
end