fangtaiquery.dfm

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

object FrmFangTaiQuery: TFrmFangTaiQuery
  Left = 203
  Top = 198
  Width = 616
  Height = 388
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #25151#21488#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 4
    Top = 0
    Width = 597
    Height = 353
    Caption = #25151#21488#29366#24577
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 593
      Height = 336
      Align = alClient
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      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 = 'fangtaiid'
          Title.Alignment = taCenter
          Title.Caption = #25151#21488#32534#21495
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fangtainame'
          Title.Alignment = taCenter
          Title.Caption = #25151#21488#21517#31216
          Width = 150
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'statusname'
          Title.Alignment = taCenter
          Title.Caption = #25151#21488#29366#24577
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Gusttime'
          Title.Alignment = taCenter
          Title.Caption = #24320#21488#26102#38388
          Width = 105
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'yongshi'
          Title.Alignment = taCenter
          Title.Caption = #23458#20154#29992#26102
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Gustmoney'
          Title.Alignment = taCenter
          Title.Caption = #22312#36153#37329#39069
          Width = 68
          Visible = True
        end>
    end
  end
  object ADOQuery1: TADOQuery
    Connection = dm.conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT Q_fangtai.*, Q_fangtaistatus.statusname,(DateDiff('#39'n'#39',Q_f' +
        'angtai.Gusttime,now()))/60 as yongshi'
      
        'FROM Q_fangtaistatus INNER JOIN Q_fangtai ON Q_fangtaistatus.sta' +
        'tusid = Q_fangtai.statusid'
      'Where Q_fangtai.isdel=0'
      'order by  Q_fangtai.fangtaiid'
      ' ')
    Left = 144
    Top = 80
    object ADOQuery1yongshi: TFloatField
      FieldName = 'yongshi'
      ReadOnly = True
      DisplayFormat = ',0.00'
      EditFormat = '#.##'
    end
    object ADOQuery1fangtaiid: TIntegerField
      FieldName = 'fangtaiid'
    end
    object ADOQuery1fangtainame: TWideStringField
      FieldName = 'fangtainame'
      Size = 50
    end
    object ADOQuery1Gusttime: TDateTimeField
      FieldName = 'Gusttime'
      DisplayFormat = 'yyyy-mm-dd hh:mm:ss'
    end
    object ADOQuery1Gustmoney: TFloatField
      FieldName = 'Gustmoney'
      DisplayFormat = ',0.00'
      EditFormat = '#.##'
    end
    object ADOQuery1statusname: TWideStringField
      FieldName = 'statusname'
      Size = 50
    end
    object ADOQuery1statusid: TIntegerField
      FieldName = 'statusid'
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 200
    Top = 80
  end
end