prtszwh.dfm

日昌餐饮管理系统是用Delphi7+SQL写的管理系统

    object Label1: TLabel
      Left = 14
      Top = 22
      Width = 90
      Height = 12
      Caption = #25171' '#21360' '#26426'  '#32534' '#30721
    end
    object Label3: TLabel
      Left = 14
      Top = 57
      Width = 90
      Height = 12
      Caption = #25171' '#21360' '#26426'  '#21517' '#31216
    end
    object Label6: TLabel
      Left = 368
      Top = 22
      Width = 48
      Height = 12
      Caption = #25509#21475#31867#22411
    end
    object Label8: TLabel
      Left = 183
      Top = 21
      Width = 60
      Height = 12
      Caption = #25171#21360#26426#31867#22411
    end
    object DBEdit1: TDBEdit
      Left = 122
      Top = 17
      Width = 41
      Height = 20
      DataField = 'bh'
      DataSource = DataSource1
      TabOrder = 0
      OnExit = DBEdit1Exit
    end
    object DBEdit3: TDBEdit
      Left = 121
      Top = 53
      Width = 376
      Height = 20
      DataField = 'name'
      DataSource = DataSource1
      TabOrder = 2
    end
    object ComboBox2: TComboBox
      Left = 421
      Top = 16
      Width = 74
      Height = 20
      ItemHeight = 12
      TabOrder = 1
      OnChange = ComboBox2Change
      Items.Strings = (
        #20018#21475#32852#25509)
    end
    object Panel5: TPanel
      Left = 2
      Top = 86
      Width = 511
      Height = 41
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 3
      object Label2: TLabel
        Left = 12
        Top = 18
        Width = 96
        Height = 12
        Caption = #25152#22312' '#32593' '#32476' '#20301' '#32622
        Color = clBtnFace
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label4: TLabel
        Left = 157
        Top = 14
        Width = 60
        Height = 12
        Caption = #35745#31639#26426#21517#31216
        Color = clBtnFace
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label5: TLabel
        Left = 368
        Top = 15
        Width = 48
        Height = 12
        Caption = #31471#21475#21495#30721
        Color = clBtnFace
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Edit1: TEdit
        Left = 122
        Top = 10
        Width = 25
        Height = 20
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        Text = '\\'
      end
      object Edit2: TEdit
        Left = 220
        Top = 10
        Width = 141
        Height = 20
        Color = clBtnHighlight
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object Edit3: TEdit
        Left = 418
        Top = 10
        Width = 29
        Height = 20
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        Text = 'COM'
      end
      object ComboBox1: TComboBox
        Left = 451
        Top = 10
        Width = 46
        Height = 20
        Color = clBtnHighlight
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ItemHeight = 12
        ParentFont = False
        TabOrder = 3
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '10'
          '11'
          '12'
          '13'
          '14'
          '15'
          '16'
          '17'
          '18'
          '19'
          '20'
          '21'
          '22'
          '23'
          '24'
          '25'
          '26'
          '27'
          '28'
          '29'
          '30')
      end
    end
    object DBComboBox1: TDBComboBox
      Left = 248
      Top = 16
      Width = 89
      Height = 20
      DataField = 'type'
      DataSource = DataSource1
      ItemHeight = 12
      Items.Strings = (
        'C_'#21416#25151#25171#21360#26426
        'P_'#20256#33756#38388#25171#21360#26426
        'S_'#25910#38134#25171#21360#26426)
      TabOrder = 4
      OnChange = DBComboBox1Change
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 144
    Top = 24
  end
  object ExcelApplication1: TExcelApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 256
    Top = 32
  end
  object ExcelWorksheet1: TExcelWorksheet
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 288
    Top = 32
  end
  object ExcelWorkbook1: TExcelWorkbook
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 320
    Top = 32
  end
  object ADOQuery1: TADOQuery
    Connection = mainForm.RJSADO
    AfterScroll = ADOQuery1AfterScroll
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM prtset prtset'
      'order by bh')
    Left = 136
    Top = 48
  end
  object ADOQuery2: TADOQuery
    Connection = mainForm.RJSADO
    Parameters = <
      item
        Name = 'cs'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 2
        Value = Null
      end>
    SQL.Strings = (
      'select bh'
      'from prtset'
      'where bh=:cs')
    Left = 432
    Top = 96
  end
end