zdpk.dfm

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

object zdpkForm: TzdpkForm
  Left = 69
  Top = 79
  Width = 680
  Height = 446
  BorderIcons = [biSystemMenu]
  Caption = '站点库存盘点系统'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object kfname: TTabControl
    Left = 0
    Top = 54
    Width = 672
    Height = 324
    Align = alClient
    TabOrder = 0
    OnChange = kfnameChange
    object DBGrid1: TDBGrid
      Left = 4
      Top = 6
      Width = 664
      Height = 314
      Align = alClient
      Color = clInfoBk
      DataSource = DataSource1
      ImeName = '中文 (简体) - 智能 ABC'
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'name'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '名称'
          Width = 140
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'innum'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '进货数量'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'outnum'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '出库数量'
          Width = 61
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'xsnum'
          ReadOnly = True
          Title.Caption = '销售数量'
          Width = 55
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'outnumwj'
          Title.Alignment = taCenter
          Title.Caption = '未结数量'
          Width = 55
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'num'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '库存数量'
          Width = 55
          Visible = True
        end
        item
          Color = clAqua
          Expanded = False
          FieldName = 'sjnum'
          Title.Alignment = taCenter
          Title.Caption = '实际数量'
          Width = 59
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'jsr'
          Title.Alignment = taCenter
          Title.Caption = '经手人'
          Width = 75
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'czy'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '操作员'
          Width = 63
          Visible = True
        end>
    end
    object GroupBox1: TGroupBox
      Left = 248
      Top = 104
      Width = 169
      Height = 105
      Caption = '输入经手人信息'
      TabOrder = 1
      Visible = False
      object Label3: TLabel
        Left = 16
        Top = 24
        Width = 24
        Height = 12
        Caption = '工号'
      end
      object Label4: TLabel
        Left = 17
        Top = 48
        Width = 24
        Height = 12
        Caption = '口令'
      end
      object Edit1: TEdit
        Left = 51
        Top = 20
        Width = 103
        Height = 20
        ImeName = '中文 (简体) - 智能 ABC'
        TabOrder = 0
        OnExit = Edit1Exit
        OnKeyPress = Edit1KeyPress
        OnKeyUp = Edit1KeyUp
      end
      object Edit2: TEdit
        Left = 51
        Top = 43
        Width = 103
        Height = 20
        ImeName = '中文 (简体) - 智能 ABC'
        PasswordChar = '*'
        TabOrder = 1
        OnExit = Edit2Exit
        OnKeyPress = Edit2KeyPress
        OnKeyUp = Edit1KeyUp
      end
      object BitBtn5: TBitBtn
        Left = 10
        Top = 71
        Width = 75
        Height = 25
        Caption = '确定'
        Enabled = False
        TabOrder = 2
        OnClick = BitBtn5Click
        OnExit = Edit1Exit
      end
      object BitBtn6: TBitBtn
        Left = 85
        Top = 71
        Width = 75
        Height = 25
        Caption = '取消'
        TabOrder = 3
        OnClick = BitBtn6Click
        OnExit = Edit1Exit
      end
    end
    object dm: TComboBox
      Left = 486
      Top = 142
      Width = 94
      Height = 20
      ImeName = '中文 (简体) - 智能 ABC'
      ItemHeight = 12
      TabOrder = 2
      Text = 'xflb'
      Visible = False
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 672
    Height = 34
    Align = alTop
    BevelOuter = bvNone
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = '隶书'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
  end
  object cwsys: TComboBox
    Left = 361
    Top = 131
    Width = 59
    Height = 20
    ImeName = '中文 (简体) - 智能 ABC'
    ItemHeight = 12
    TabOrder = 2
    Visible = False
  end
  object kfh: TComboBox
    Left = 486
    Top = 142
    Width = 94
    Height = 20
    ImeName = '中文 (简体) - 智能 ABC'
    ItemHeight = 12
    TabOrder = 3
    Text = 'kfh'
    Visible = False
  end
  object Panel2: TPanel
    Left = 0
    Top = 378
    Width = 672
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 4
    object jsr: TLabel
      Left = 80
      Top = 16
      Width = 6
      Height = 12
    end
    object BitBtn1: TBitBtn
      Left = 318
      Top = 8
      Width = 87
      Height = 25
      Caption = '产生新盘点表'
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 231
      Top = 8
      Width = 87
      Height = 25
      Caption = '保存新盘点表'
      Enabled = False
      TabOrder = 1
      Visible = False
      OnClick = BitBtn2Click
    end
    object BitBtn3: TBitBtn
      Left = 492
      Top = 8
      Width = 87
      Height = 25
      Caption = '打印盘点表'
      TabOrder = 2
      OnClick = BitBtn3Click
    end
    object BitBtn4: TBitBtn
      Left = 579
      Top = 8
      Width = 87
      Height = 25
      Caption = '退出'
      TabOrder = 3
      OnClick = BitBtn4Click
    end
    object BitBtn7: TBitBtn
      Left = 404
      Top = 8
      Width = 87
      Height = 25
      Caption = '站点班报表'
      Enabled = False
      TabOrder = 4
      OnClick = BitBtn7Click
    end
    object Button1: TButton
      Left = 16
      Top = 10
      Width = 56
      Height = 25
      Caption = '经手人'
      TabOrder = 5
      OnClick = Button1Click
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 34
    Width = 672
    Height = 20
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 5
    object Label1: TLabel
      Left = 76
      Top = 4
      Width = 48
      Height = 12
      Caption = '盘库时间'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 260
      Top = 4
      Width = 72
      Height = 12
      Caption = '选择盘库时间'
    end
    object pksj: TComboBox
      Left = 125
      Top = 0
      Width = 122
      Height = 20
      Color = clInfoBk
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ImeName = '中文 (简体) - 智能 ABC'
      ItemHeight = 12
      ParentFont = False
      TabOrder = 0
      OnChange = kfnameChange
    end
    object xzpksj: TDateTimePicker
      Left = 334
      Top = 0
      Width = 111
      Height = 20
      CalAlignment = dtaLeft
      Date = 37622.5612164352
      Time = 37622.5612164352
      DateFormat = dfLong
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object begtime: TDateTimePicker
      Left = 445
      Top = 0
      Width = 75
      Height = 20
      CalAlignment = dtaLeft
      Date = 37574.2614646643
      Time = 37574.2614646643
      DateFormat = dfShort
      DateMode = dmComboBox
      ImeName = '中文 (简体) - 智能 ABC'
      Kind = dtkTime
      ParseInput = False
      TabOrder = 2
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 152
    Top = 128
  end
  object Query1: TQuery
    DatabaseName = 'sanadm'
    SQL.Strings = (
      
        'select spcode,cuscode,name,dw,dj,innum,outnum,outnumwj,xsnum,num' +
        ','
      
        'sjnum,xsje,(sjnum-num) as cysl ,regtime,jsj,kf,jsr,czy,cbj from ' +
        'zdpk  where jsj=:pjsj and kf=:pkf and regtime=:psj'
      ''
      ''
      ''
      ''
      '')
    Left = 480
    Top = 213
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pjsj'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pkf'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'psj'
        ParamType = ptUnknown
      end>
  end
  object Query2: TQuery
    DatabaseName = 'sanadm'
    Left = 448
    Top = 246
  end
  object Table1: TTable
    DatabaseName = 'sanadm'
    TableName = 'dbo.zdpk'
    Left = 312
    Top = 126
    object Table1cysl: TFloatField
      FieldKind = fkCalculated
      FieldName = 'cysl'
      Calculated = True
    end
  end
end