tbcx.dfm

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

object tbcxForm: TtbcxForm
  Left = 100
  Top = 122
  Width = 662
  Height = 413
  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 Panel1: TPanel
    Left = 0
    Top = 0
    Width = 654
    Height = 27
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object CheckBox1: TCheckBox
      Left = 4
      Top = 8
      Width = 68
      Height = 17
      Caption = '调拨单号'
      TabOrder = 0
      OnClick = CheckBox1Click
    end
    object CheckBox2: TCheckBox
      Left = 154
      Top = 8
      Width = 69
      Height = 17
      Caption = '调出库房'
      TabOrder = 1
      OnClick = CheckBox1Click
    end
    object CheckBox3: TCheckBox
      Left = 318
      Top = 8
      Width = 69
      Height = 17
      Caption = '调入库房'
      TabOrder = 2
      OnClick = CheckBox1Click
    end
    object dh: TComboBox
      Left = 75
      Top = 6
      Width = 73
      Height = 20
      Color = clInfoBk
      Enabled = False
      ItemHeight = 12
      TabOrder = 3
      Text = 'dh'
    end
    object yck: TComboBox
      Left = 221
      Top = 6
      Width = 93
      Height = 20
      Color = clInfoBk
      Enabled = False
      ItemHeight = 12
      TabOrder = 4
      Text = 'ComboBox1'
    end
    object yckid: TComboBox
      Left = 230
      Top = 7
      Width = 30
      Height = 20
      Color = clInfoBk
      ItemHeight = 12
      TabOrder = 5
      Text = 'ComboBox1'
      Visible = False
    end
    object xck: TComboBox
      Left = 386
      Top = 4
      Width = 90
      Height = 20
      Color = clInfoBk
      Enabled = False
      ItemHeight = 12
      TabOrder = 6
      Text = 'ComboBox1'
    end
    object xckid: TComboBox
      Left = 443
      Top = 4
      Width = 30
      Height = 20
      Color = clInfoBk
      ItemHeight = 12
      TabOrder = 7
      Text = 'ComboBox1'
      Visible = False
    end
    object BitBtn1: TBitBtn
      Left = 483
      Top = 1
      Width = 57
      Height = 25
      Caption = '查询'
      TabOrder = 8
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 539
      Top = 1
      Width = 57
      Height = 25
      Caption = '打印'
      TabOrder = 9
    end
    object BitBtn3: TBitBtn
      Left = 595
      Top = 1
      Width = 57
      Height = 25
      Caption = '退出'
      TabOrder = 10
      OnClick = BitBtn3Click
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 27
    Width = 654
    Height = 359
    Align = alClient
    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 = 221
        Visible = True
      end
      item
        Expanded = False
        FieldName = '调出库房'
        Title.Alignment = taCenter
        Width = 99
        Visible = True
      end
      item
        Expanded = False
        FieldName = '调入库房'
        Title.Alignment = taCenter
        Width = 92
        Visible = True
      end
      item
        Expanded = False
        FieldName = '调拨数量'
        Title.Alignment = taCenter
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = '日期'
        Title.Alignment = taCenter
        Width = 91
        Visible = True
      end
      item
        Expanded = False
        FieldName = '单价'
        Title.Alignment = taCenter
        Visible = True
      end>
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 216
    Top = 168
  end
  object Query1: TQuery
    DatabaseName = 'cwgl'
    SQL.Strings = (
      '')
    Left = 264
    Top = 168
  end
end