diandan.dfm

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

object Frmdiandan: TFrmdiandan
  Left = 167
  Top = 110
  Width = 753
  Height = 532
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #28857#21333
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox1: TGroupBox
    Left = 4
    Top = 3
    Width = 733
    Height = 47
    Caption = #25151#21488#20449#24687
    TabOrder = 0
    object Label3: TLabel
      Left = 17
      Top = 24
      Width = 48
      Height = 12
      Caption = #25151#21488#21495#65306
      Transparent = True
    end
    object Label4: TLabel
      Left = 159
      Top = 24
      Width = 60
      Height = 12
      Caption = #25151#21488#21517#31216#65306
      Transparent = True
    end
    object Label5: TLabel
      Left = 326
      Top = 24
      Width = 60
      Height = 12
      Caption = #27969#27700#24080#21495#65306
      Transparent = True
    end
    object Label1: TLabel
      Left = 524
      Top = 24
      Width = 60
      Height = 12
      AutoSize = False
      Caption = #24320#21488#26102#38388#65306
      Transparent = True
    end
    object DBText1: TDBText
      Left = 67
      Top = 23
      Width = 84
      Height = 17
      DataField = 'fangtaiid'
      DataSource = dm.QFangtaiDataSource
      Transparent = True
    end
    object DBText2: TDBText
      Left = 220
      Top = 23
      Width = 99
      Height = 17
      DataField = 'fangtainame'
      DataSource = dm.QFangtaiDataSource
      Transparent = True
    end
    object DBText3: TDBText
      Left = 386
      Top = 23
      Width = 134
      Height = 17
      DataField = 'zhanghao'
      DataSource = dm.QFangtaiDataSource
      Transparent = True
    end
    object DBText4: TDBText
      Left = 586
      Top = 23
      Width = 133
      Height = 17
      DataField = 'Gusttime'
      DataSource = dm.QFangtaiDataSource
      Transparent = True
    end
  end
  object GroupBox2: TGroupBox
    Left = 5
    Top = 56
    Width = 476
    Height = 297
    Caption = #25152#28857#33756#21697#21015#34920
    TabOrder = 1
    object DBGridTemp: TDBGrid
      Left = 3
      Top = 16
      Width = 471
      Height = 274
      DataSource = caipintempDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      PopupMenu = PopupMenu1
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'caipinid'
          Title.Alignment = taCenter
          Title.Caption = #32534#21495
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'caipinname'
          Title.Alignment = taCenter
          Title.Caption = #33756#21697#21517#31216
          Width = 112
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'caipincount'
          Title.Alignment = taCenter
          Title.Caption = #25968#37327
          Width = 51
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'caipinunit'
          Title.Alignment = taCenter
          Title.Caption = #21333#20301
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'caipinprice'
          Title.Alignment = taCenter
          Title.Caption = #20215#26684
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'caipinleipie'
          Title.Alignment = taCenter
          Title.Caption = #31867#21035
          Width = 79
          Visible = True
        end>
    end
  end
  object GroupBox3: TGroupBox
    Left = 488
    Top = 56
    Width = 250
    Height = 433
    Caption = #33756#21697#21015#34920
    TabOrder = 2
    object BtnListAll: TSpeedButton
      Left = 204
      Top = 403
      Width = 41
      Height = 26
      Caption = #21015' '#34920
      Flat = True
      OnClick = BtnListAllClick
    end
    object DBGridCaiPin: TDBGrid
      Left = 2
      Top = 120
      Width = 246
      Height = 281
      DataSource = QueryCaiPinDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = DBGridCaiPinDblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'Caipinid'
          Title.Alignment = taCenter
          Title.Caption = #32534#21495
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'caipinname'
          Title.Alignment = taCenter
          Title.Caption = #33756#21697#21517#31216
          Width = 110
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'caipinprice'
          Title.Alignment = taCenter
          Title.Caption = #21333#20215
          Width = 60
          Visible = True
        end>
    end
    object DBGridFenLei: TDBGrid
      Left = 3
      Top = 15
      Width = 244
      Height = 102
      DataSource = QueryFenLeiDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnCellClick = DBGridFenLeiCellClick
      Columns = <
        item
          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 = #33756#21697#20998#31867
          Width = 130
          Visible = True
        end>
    end
    object Edqueryma: TEdit
      Left = 2
      Top = 404
      Width = 194
      Height = 24
      CharCase = ecUpperCase
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      ParentFont = False
      TabOrder = 2
      OnKeyPress = EdquerymaKeyPress
    end
  end
  object GroupBox4: TGroupBox
    Left = 5
    Top = 356
    Width = 476
    Height = 46
    Caption = #33756#21697#35814#24773
    TabOrder = 3
    object Label2: TLabel
      Left = 8
      Top = 23
      Width = 60
      Height = 12
      AutoSize = False
      Caption = #33756#21697#21517#31216#65306
      Transparent = True
    end
    object Label6: TLabel
      Left = 178
      Top = 23
      Width = 36
      Height = 12
      AutoSize = False
      Caption = #25968#37327#65306
      Transparent = True
    end
    object Label7: TLabel
      Left = 274
      Top = 23
      Width = 36
      Height = 12
      AutoSize = False
      Caption = #21333#20215#65306
      Transparent = True
    end
    object Label8: TLabel
      Left = 365
      Top = 22
      Width = 37
      Height = 12
      AutoSize = False
      Caption = #21512#35745#65306
      Transparent = True
    end
    object DBEdit1: TDBEdit
      Left = 66
      Top = 18
      Width = 109
      Height = 20
      DataField = 'caipinname'
      DataSource = caipintempDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      ReadOnly = True
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 212
      Top = 18
      Width = 58
      Height = 20
      DataField = 'caipincount'
      DataSource = caipintempDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 309
      Top = 18
      Width = 54
      Height = 20
      DataField = 'caipinprice'
      DataSource = caipintempDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      ReadOnly = True
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 399
      Top = 16
      Width = 72
      Height = 20
      DataField = 'caipinheji'
      DataSource = caipintempDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      ReadOnly = True
      TabOrder = 3
    end
  end
  object GroupBox5: TGroupBox
    Left = 5
    Top = 408
    Width = 476
    Height = 82
    Caption = #25805#20316#21306
    TabOrder = 4
    object Label9: TLabel
      Left = 12
      Top = 23
      Width = 60
      Height = 12
      AutoSize = False
      Caption = #20256#31080#21495#30721#65306
      Transparent = True
    end
    object Label10: TLabel
      Left = 280
      Top = 19
      Width = 60
      Height = 12
      Caption = #37329#39069#24635#35745#65306
      Transparent = True
    end
    object BtnDianDan: TSpeedButton
      Left = 80
      Top = 48
      Width = 65
      Height = 22
      Caption = #28857'   '#21333
      OnClick = BtnDianDanClick
    end
    object SpeedButton2: TSpeedButton
      Left = 264
      Top = 48
      Width = 65
      Height = 22
      Caption = #20851'   '#38381
      OnClick = SpeedButton2Click
    end
    object Edit3: TEdit
      Left = 74
      Top = 17
      Width = 165
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      TabOrder = 0
      OnEnter = Edit3Enter
    end
    object Edsummoney: TEdit
      Left = 343
      Top = 16
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      TabOrder = 1
    end
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    Left = 168
    Top = 112
    object N1: TMenuItem
      Tag = 1
      Caption = #21024#38500#25152#36873
      OnClick = Popupmenuclick
    end
    object N2: TMenuItem
      Tag = 2
      Caption = #33756#21697#35843#20215
      OnClick = Popupmenuclick
    end
    object N3: TMenuItem
      Tag = 3
      Caption = #22871#39184#21015#34920
      OnClick = Popupmenuclick
    end
  end
  object QueryFenLei: TADOQuery
    Connection = dm.conn
    Parameters = <>
    SQL.Strings = (
      'select * from Q_childclass'
      'where isdel=0')
    Left = 552
    Top = 104
  end
  object QueryCaiPin: TADOQuery
    Connection = dm.conn
    AfterOpen = QueryCaiPinAfterOpen
    Parameters = <>
    SQL.Strings = (
      'select * from Q_caipin where isdel=0')
    Left = 576
    Top = 288
  end
  object QueryFenLeiDataSource: TDataSource
    DataSet = QueryFenLei
    Left = 592
    Top = 104
  end
  object QueryCaiPinDataSource: TDataSource
    DataSet = QueryCaiPin
    Left = 616
    Top = 288
  end
  object caipintempDataSource: TDataSource
    DataSet = caipintemp
    Left = 264
    Top = 136
  end
  object caipintemp: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    OnCalcFields = caipintempCalcFields
    Left = 328
    Top = 136
    object caipintempcaipinid: TIntegerField
      FieldName = 'caipinid'
    end
    object caipintempcaipinname: TStringField
      FieldName = 'caipinname'
    end
    object caipintempcaipincount: TIntegerField
      FieldName = 'caipincount'
    end
    object caipintempcaipinunit: TStringField
      FieldName = 'caipinunit'
    end
    object caipintempcaipinprice: TCurrencyField
      FieldName = 'caipinprice'
    end
    object caipintempcaipinleipie: TStringField
      FieldName = 'caipinleipie'
    end
    object caipintempcaipinheji: TCurrencyField
      FieldKind = fkCalculated
      FieldName = 'caipinheji'
      Calculated = True
    end
    object caipintempcaipingroup: TIntegerField
      FieldName = 'caipingroup'
    end
    object caipintempsummoney: TAggregateField
      FieldName = 'summoney'
    end
  end
  object SaveDianDanQuery: TADOQuery
    Connection = dm.conn
    Parameters = <>
    Left = 184
    Top = 240
  end
end