luodan.dfm

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

object Frmluodan: TFrmluodan
  Left = 241
  Top = 165
  Width = 713
  Height = 392
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #33853#21333
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Btnluodan: TSpeedButton
    Left = 15
    Top = 311
    Width = 65
    Height = 27
    Caption = #33853'     '#21333
    OnClick = BtnluodanClick
  end
  object BtnClose: TSpeedButton
    Left = 109
    Top = 311
    Width = 65
    Height = 27
    Caption = #20851'     '#38381
    OnClick = BtnCloseClick
  end
  object GroupBox1: TGroupBox
    Left = 2
    Top = 2
    Width = 695
    Height = 47
    Caption = #25151#21488#20449#24687
    TabOrder = 0
    object Label3: TLabel
      Left = 17
      Top = 23
      Width = 48
      Height = 13
      Caption = #25151#21488#21495#65306
      Transparent = True
    end
    object Label4: TLabel
      Left = 159
      Top = 21
      Width = 60
      Height = 13
      Caption = #25151#21488#21517#31216#65306
      Transparent = True
    end
    object Label5: TLabel
      Left = 326
      Top = 21
      Width = 60
      Height = 13
      Caption = #24080#21153#32534#21495#65306
      Transparent = True
    end
    object Label1: TLabel
      Left = 501
      Top = 20
      Width = 60
      Height = 12
      AutoSize = False
      Caption = #24320#21488#26102#38388#65306
      Transparent = True
    end
    object DBText1: TDBText
      Left = 64
      Top = 22
      Width = 89
      Height = 17
      DataField = 'fangtaiid'
      DataSource = dm.QFangtaiDataSource
      Transparent = True
    end
    object DBText2: TDBText
      Left = 218
      Top = 21
      Width = 105
      Height = 17
      DataField = 'fangtainame'
      DataSource = dm.QFangtaiDataSource
      Transparent = True
    end
    object DBText3: TDBText
      Left = 385
      Top = 20
      Width = 105
      Height = 17
      DataField = 'zhanghao'
      DataSource = dm.QFangtaiDataSource
      Transparent = True
    end
    object DBText4: TDBText
      Left = 561
      Top = 19
      Width = 128
      Height = 17
      DataField = 'Gusttime'
      DataSource = dm.QFangtaiDataSource
      Transparent = True
    end
  end
  object GroupBox2: TGroupBox
    Left = 4
    Top = 52
    Width = 177
    Height = 245
    Caption = #20256#31080#21015#34920
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 6
      Top = 15
      Width = 163
      Height = 223
      DataSource = QueryMastDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      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 = []
      OnCellClick = DBGrid1CellClick
      Columns = <
        item
          Expanded = False
          FieldName = 'chuanbiaohao'
          Title.Alignment = taCenter
          Title.Caption = #25163#24037#20256#31080#21495
          Width = 143
          Visible = True
        end>
    end
  end
  object GroupBox3: TGroupBox
    Left = 184
    Top = 52
    Width = 513
    Height = 298
    Caption = #25152#28857#33756#21697#21015#34920
    TabOrder = 2
    object DBGrid2: TDBGrid
      Left = 6
      Top = 16
      Width = 501
      Height = 275
      DataSource = QueryDetailDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      PopupMenu = PopupMenu1
      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 = '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 = 52
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'caipinunit'
          Title.Alignment = taCenter
          Title.Caption = #21333#20301
          Width = 48
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'caipinprice'
          Title.Alignment = taCenter
          Title.Caption = #20215#26684
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'dianliexing'
          Title.Alignment = taCenter
          Title.Caption = #33756#21697#31867#21035
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'heji'
          Title.Alignment = taCenter
          Title.Caption = #21512#35745
          Visible = True
        end>
    end
  end
  object QueryMaster: TADOQuery
    Connection = dm.conn
    Parameters = <>
    SQL.Strings = (
      'select zhanghao,chuanbiaohao from Q_customertemp')
    Left = 120
    Top = 93
  end
  object QueryDetail: TADOQuery
    Connection = dm.conn
    AfterOpen = QueryDetailAfterOpen
    Parameters = <>
    SQL.Strings = (
      
        'select Caipinid,caipinname,caipincount,caipinunit,caipinprice,di' +
        'anliexing,caipinprice*caipincount as heji from Q_customertemp')
    Left = 408
    Top = 112
  end
  object QueryMastDataSource: TDataSource
    DataSet = QueryMaster
    Left = 120
    Top = 128
  end
  object QueryDetailDataSource: TDataSource
    DataSet = QueryDetail
    Left = 408
    Top = 152
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    Left = 304
    Top = 136
    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
  end
  object SumQuery: TADOQuery
    Connection = dm.conn
    Parameters = <>
    Left = 240
    Top = 240
  end
end