zdkctj.dfm

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

object zdkctjForm: TzdkctjForm
  Left = 168
  Top = 117
  Width = 511
  Height = 386
  BorderIcons = [biSystemMenu]
  Caption = '站点库存统计'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object xfname: TTabControl
    Left = 0
    Top = 53
    Width = 503
    Height = 306
    Align = alClient
    TabOrder = 0
    OnChange = xfnameChange
    object DBGrid1: TDBGrid
      Left = 4
      Top = 6
      Width = 495
      Height = 296
      Align = alClient
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = '商品名称'
          Title.Alignment = taCenter
          Width = 192
          Visible = True
        end
        item
          Expanded = False
          FieldName = '商品简称'
          Title.Alignment = taCenter
          Width = 78
          Visible = True
        end
        item
          Expanded = False
          FieldName = '现有数量'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = '修改日期'
          Title.Alignment = taCenter
          Width = 121
          Visible = True
        end>
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 503
    Height = 53
    Align = alTop
    BevelOuter = bvNone
    Caption = 'Panel1'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = '隶书'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object Button1: TButton
      Left = 440
      Top = 24
      Width = 56
      Height = 25
      Caption = '打印'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = Button1Click
    end
  end
  object cwsys: TComboBox
    Left = 353
    Top = 91
    Width = 59
    Height = 20
    ItemHeight = 12
    TabOrder = 2
    Visible = False
  end
  object xflb: TComboBox
    Left = 334
    Top = 118
    Width = 94
    Height = 20
    ItemHeight = 12
    TabOrder = 3
    Text = 'xflb'
    Visible = False
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 152
    Top = 128
  end
  object Query1: TQuery
    DatabaseName = 'CWgl'
    SQL.Strings = (
      
        'select 商品名称,商品简称,现有数量,修改日期 from 商品表,数量表 wh' +
        'ere 商品表.商品编号=数量表.商品编号 and 仓库编号=:pkf'
      ''
      ' '
      ' '
      ' ')
    Left = 208
    Top = 149
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pkf'
        ParamType = ptUnknown
      end>
  end
end