xiangqing.dfm

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

object Frmxiangqing: TFrmxiangqing
  Left = 228
  Top = 197
  Width = 704
  Height = 384
  Caption = #28040#36153#35814#24773
  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 SpeedButton1: TSpeedButton
    Left = 144
    Top = 309
    Width = 85
    Height = 33
    Caption = #25171#21360#23567#31080
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 464
    Top = 309
    Width = 85
    Height = 33
    Caption = #20851'     '#38381
    OnClick = SpeedButton2Click
  end
  object GroupBox3: TGroupBox
    Left = 2
    Top = 0
    Width = 686
    Height = 298
    Caption = #25152#28857#33756#21697#21015#34920
    TabOrder = 0
    object DBGrid2: TDBGrid
      Left = 7
      Top = 16
      Width = 674
      Height = 275
      DataSource = QueryDetailDataSource
      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 = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'chuanbiaohao'
          Title.Alignment = taCenter
          Title.Caption = #20256#31080#21495#30721
          Width = 111
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'caipinname'
          Title.Alignment = taCenter
          Title.Caption = #33756#21697#21517#31216
          Width = 163
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'caipincount'
          Title.Alignment = taCenter
          Title.Caption = #25968#37327
          Width = 67
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'caipinunit'
          Title.Alignment = taCenter
          Title.Caption = #21333#20301
          Width = 60
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'caipinprice'
          Title.Alignment = taCenter
          Title.Caption = #20215#26684
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'heji'
          Title.Alignment = taCenter
          Title.Caption = #21512#35745
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'dianliexing'
          Title.Alignment = taCenter
          Title.Caption = #33756#21697#31867#21035
          Width = 89
          Visible = True
        end>
    end
  end
  object QueryDetail: TADOQuery
    Connection = dm.conn
    AfterOpen = QueryDetailAfterOpen
    Parameters = <>
    SQL.Strings = (
      
        'select chuanbiaohao,caipinname,caipincount,caipinunit,caipinpric' +
        'e,dianliexing,caipinprice*caipincount as heji from Q_customertem' +
        'p')
    Left = 168
    Top = 128
  end
  object QueryDetailDataSource: TDataSource
    DataSet = QueryDetail
    Left = 168
    Top = 176
  end
end