zdbb.dfm

集成酒店桑拿食管管理的完整程序

object zzbbForm: TzzbbForm
  Left = 37
  Top = 28
  Width = 696
  Height = 521
  BorderIcons = [biSystemMenu]
  Caption = '站点班报表'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 76
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label4: TLabel
      Left = 136
      Top = 40
      Width = 48
      Height = 12
      Caption = '开始时间'
    end
    object Label5: TLabel
      Left = 315
      Top = 40
      Width = 48
      Height = 12
      Caption = '结束时间'
    end
    object Edit1: TEdit
      Left = 186
      Top = 38
      Width = 125
      Height = 17
      AutoSize = False
      ReadOnly = True
      TabOrder = 0
      Text = '2003-03-03 00:00:00'
    end
    object Edit2: TEdit
      Left = 365
      Top = 38
      Width = 122
      Height = 17
      AutoSize = False
      ReadOnly = True
      TabOrder = 1
      Text = '2003-03-03 00:00:00'
    end
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 688
      Height = 32
      Align = alTop
      BevelOuter = bvNone
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -20
      Font.Name = '隶书'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 76
    Width = 688
    Height = 323
    Anchors = [akLeft, akTop, akRight, akBottom]
    Color = clInfoBk
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = '名称'
        Title.Alignment = taCenter
        Width = 134
        Visible = True
      end
      item
        Expanded = False
        FieldName = '编号'
        Title.Alignment = taCenter
        Width = 50
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '单位'
        Title.Alignment = taCenter
        Width = 32
        Visible = True
      end
      item
        Expanded = False
        FieldName = '单价'
        Title.Alignment = taCenter
        Width = 54
        Visible = True
      end
      item
        Expanded = False
        FieldName = '上班未结'
        Title.Alignment = taCenter
        Title.Caption = '未结数'
        Width = 53
        Visible = True
      end
      item
        Expanded = False
        FieldName = '上班实存'
        Title.Alignment = taCenter
        Title.Caption = '实存'
        Width = 52
        Visible = True
      end
      item
        Expanded = False
        FieldName = '调入数'
        Title.Alignment = taCenter
        Width = 51
        Visible = True
      end
      item
        Expanded = False
        FieldName = '数量'
        Title.Alignment = taCenter
        Width = 47
        Visible = True
      end
      item
        Expanded = False
        FieldName = '金额'
        Title.Alignment = taCenter
        Width = 57
        Visible = True
      end
      item
        Expanded = False
        FieldName = '未结数'
        Title.Alignment = taCenter
        Width = 51
        Visible = True
      end
      item
        Expanded = False
        FieldName = '实存'
        Title.Alignment = taCenter
        Width = 52
        Visible = True
      end>
  end
  object Panel2: TPanel
    Left = 1
    Top = 400
    Width = 684
    Height = 94
    Anchors = [akLeft, akRight, akBottom]
    BevelOuter = bvNone
    TabOrder = 2
    object Label1: TLabel
      Left = 573
      Top = 29
      Width = 30
      Height = 12
      Caption = '交班:'
    end
    object Label2: TLabel
      Left = 573
      Top = 13
      Width = 30
      Height = 12
      Caption = '接班:'
    end
    object jiao: TLabel
      Left = 605
      Top = 29
      Width = 24
      Height = 12
      Caption = 'jiao'
    end
    object jie: TLabel
      Left = 605
      Top = 13
      Width = 18
      Height = 12
      Caption = 'jie'
    end
    object Label14: TLabel
      Left = 164
      Top = 65
      Width = 60
      Height = 12
      Caption = '本班作废号'
    end
    object Label15: TLabel
      Left = 358
      Top = 64
      Width = 36
      Height = 12
      Caption = '共作废'
    end
    object Label7: TLabel
      Left = 435
      Top = 65
      Width = 12
      Height = 12
      Caption = '份'
    end
    object Label17: TLabel
      Left = 455
      Top = 65
      Width = 60
      Height = 12
      Caption = '本班共使用'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label18: TLabel
      Left = 555
      Top = 65
      Width = 12
      Height = 12
      Caption = '份'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 5
      Top = 64
      Width = 84
      Height = 12
      Caption = '上班未结帐移交'
    end
    object Label13: TLabel
      Left = 142
      Top = 65
      Width = 12
      Height = 12
      Caption = '份'
    end
    object GroupBox1: TGroupBox
      Left = 3
      Top = 4
      Width = 188
      Height = 46
      Caption = '上班移交起止号'
      TabOrder = 0
      object Label3: TLabel
        Left = 10
        Top = 19
        Width = 18
        Height = 12
        Caption = '起:'
      end
      object Label6: TLabel
        Left = 83
        Top = 19
        Width = 18
        Height = 12
        Caption = '止:'
      end
      object syjs: TLabel
        Left = 159
        Top = 20
        Width = 12
        Height = 12
        Caption = '份'
        OnClick = BitBtn1Click
      end
      object ksyj: TEdit
        Left = 29
        Top = 15
        Width = 48
        Height = 20
        TabOrder = 0
        OnExit = ksyjExit
        OnKeyDown = ksyjKeyDown
        OnKeyPress = ksyjKeyPress
      end
      object zsyj: TEdit
        Left = 104
        Top = 15
        Width = 48
        Height = 20
        TabOrder = 1
        OnExit = ksyjExit
        OnKeyDown = ksyjKeyDown
        OnKeyPress = ksyjKeyPress
      end
    end
    object GroupBox2: TGroupBox
      Left = 190
      Top = 4
      Width = 188
      Height = 46
      Caption = '本班使用起止号'
      TabOrder = 1
      object Label8: TLabel
        Left = 10
        Top = 19
        Width = 18
        Height = 12
        Caption = '起:'
      end
      object Label9: TLabel
        Left = 83
        Top = 19
        Width = 18
        Height = 12
        Caption = '止:'
      end
      object blys: TLabel
        Left = 159
        Top = 20
        Width = 12
        Height = 12
        Caption = '份'
      end
      object kbly: TEdit
        Left = 29
        Top = 15
        Width = 49
        Height = 20
        TabOrder = 0
        OnExit = ksyjExit
        OnKeyDown = ksyjKeyDown
        OnKeyPress = ksyjKeyPress
      end
      object zbly: TEdit
        Left = 104
        Top = 15
        Width = 49
        Height = 20
        TabOrder = 1
        OnExit = ksyjExit
        OnKeyDown = ksyjKeyDown
        OnKeyPress = ksyjKeyPress
      end
    end
    object GroupBox3: TGroupBox
      Left = 377
      Top = 4
      Width = 188
      Height = 46
      Caption = '移交下班起止号'
      TabOrder = 2
      object Label11: TLabel
        Left = 10
        Top = 19
        Width = 18
        Height = 12
        Caption = '起:'
      end
      object Label12: TLabel
        Left = 83
        Top = 19
        Width = 18
        Height = 12
        Caption = '止:'
      end
      object jxbs: TLabel
        Left = 159
        Top = 20
        Width = 12
        Height = 12
        Caption = '份'
      end
      object kyxb: TEdit
        Left = 29
        Top = 15
        Width = 49
        Height = 20
        TabOrder = 0
        OnExit = ksyjExit
        OnKeyDown = ksyjKeyDown
        OnKeyPress = ksyjKeyPress
      end
      object zyxb: TEdit
        Left = 104
        Top = 15
        Width = 49
        Height = 20
        TabOrder = 1
        OnExit = ksyjExit
        OnKeyDown = ksyjKeyDown
        OnKeyPress = ksyjKeyPress
      end
    end
    object Edit3: TEdit
      Left = 94
      Top = 61
      Width = 43
      Height = 20
      TabOrder = 3
      OnKeyDown = ksyjKeyDown
      OnKeyPress = ksyjKeyPress
    end
    object zfhm: TEdit
      Left = 226
      Top = 61
      Width = 130
      Height = 20
      TabOrder = 4
      OnExit = zfhmExit
      OnKeyDown = ksyjKeyDown
    end
    object zffs: TEdit
      Left = 398
      Top = 61
      Width = 29
      Height = 20
      TabOrder = 5
      OnExit = ksyjExit
      OnKeyDown = ksyjKeyDown
      OnKeyPress = ksyjKeyPress
    end
    object syfs: TEdit
      Left = 516
      Top = 62
      Width = 36
      Height = 20
      TabOrder = 6
      OnExit = zfhmExit
      OnKeyDown = ksyjKeyDown
      OnKeyPress = ksyjKeyPress
    end
  end
  object Panel4: TPanel
    Left = 13
    Top = 61
    Width = 136
    Height = 34
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = '商品名称'
    TabOrder = 3
  end
  object Panel5: TPanel
    Left = 147
    Top = 61
    Width = 54
    Height = 34
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = '商品编号'
    TabOrder = 4
  end
  object Panel6: TPanel
    Left = 198
    Top = 61
    Width = 36
    Height = 34
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = '单位'
    TabOrder = 5
  end
  object Panel7: TPanel
    Left = 232
    Top = 61
    Width = 57
    Height = 34
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = '单价'
    TabOrder = 6
  end
  object Panel8: TPanel
    Left = 287
    Top = 61
    Width = 109
    Height = 18
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = '上班结存'
    TabOrder = 7
  end
  object Panel9: TPanel
    Left = 393
    Top = 61
    Width = 55
    Height = 35
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = '本期调入'
    TabOrder = 8
  end
  object Panel10: TPanel
    Left = 446
    Top = 61
    Width = 107
    Height = 18
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = '本期销售'
    TabOrder = 9
  end
  object Panel11: TPanel
    Left = 552
    Top = 61
    Width = 106
    Height = 18
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = '本期结存'
    TabOrder = 10
  end
  object Panel12: TPanel
    Left = 1
    Top = 61
    Width = 14
    Height = 34
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 11
  end
  object BitBtn3: TBitBtn
    Left = 570
    Top = 448
    Width = 30
    Height = 30
    Caption = '保存'
    Enabled = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 12
    OnClick = BitBtn3Click
  end
  object BitBtn1: TBitBtn
    Left = 600
    Top = 448
    Width = 32
    Height = 30
    Caption = '打印'
    TabOrder = 13
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 632
    Top = 448
    Width = 30
    Height = 30
    Caption = '退出'
    TabOrder = 14
    OnClick = BitBtn2Click
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 224
    Top = 144
  end
  object Query1: TQuery
    DatabaseName = 'sanadm'
    SQL.Strings = (
      
        'select a.name as 名称,a.spcode AS 编号,a.dw as 单位,a.dj as 单价' +
        ',0 as 上班销售,0 AS 上班未结,0 AS 上班实存,a.innum AS 调入数,a.x' +
        'snum AS 数量,a.xsje as 金额,a.outnumwj AS 未结数,a.sjnum AS 实存'
      'from zdpkls as a'
      ''
      ' '
      ' ')
    Left = 288
    Top = 152
  end
end