ctctwh.dfm

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

        300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
        330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
        333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
        339977FF777777773377000BFB03333333337773FF733333333F333000333333
        3300333777333333337733333333333333003333333333333377333333333333
        333333333333333333FF33333333333330003333333333333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 184
    Width = 515
    Height = 138
    BevelInner = bvLowered
    TabOrder = 4
    object Label1: TLabel
      Left = 19
      Top = 14
      Width = 48
      Height = 12
      Caption = #39184#21488#20195#30721
    end
    object Label3: TLabel
      Left = 239
      Top = 18
      Width = 48
      Height = 12
      Caption = #39184#21488#21517#31216
    end
    object Label2: TLabel
      Left = 19
      Top = 48
      Width = 48
      Height = 12
      Caption = #25152#22312#39184#21381
    end
    object Label4: TLabel
      Left = 31
      Top = 78
      Width = 36
      Height = 12
      Caption = #26381#21153#36153
    end
    object Label5: TLabel
      Left = 251
      Top = 79
      Width = 36
      Height = 12
      Caption = #33590#20301#36153
    end
    object Label6: TLabel
      Left = 19
      Top = 107
      Width = 48
      Height = 12
      Caption = #23450#39069#20154#25968
    end
    object Label7: TLabel
      Left = 239
      Top = 104
      Width = 48
      Height = 12
      Caption = #39184#21488#29366#24577
    end
    object Label8: TLabel
      Left = 232
      Top = 48
      Width = 60
      Height = 12
      Caption = #26368#20302#28040#36153#39069
    end
    object DBEdit1: TDBEdit
      Left = 79
      Top = 12
      Width = 97
      Height = 20
      DataField = 'twbh'
      DataSource = DataSource1
      TabOrder = 0
      OnExit = DBEdit1Exit
    end
    object DBEdit3: TDBEdit
      Left = 293
      Top = 14
      Width = 156
      Height = 20
      DataField = 'twmc'
      DataSource = DataSource1
      TabOrder = 1
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 79
      Top = 42
      Width = 98
      Height = 20
      DataField = 'ctbh'
      DataSource = DataSource1
      KeyField = 'ctbh'
      ListField = 'ctmc'
      ListSource = DataSource2
      TabOrder = 2
      OnExit = DBLookupComboBox1Exit
    end
    object DBEdit2: TDBEdit
      Left = 79
      Top = 73
      Width = 95
      Height = 20
      DataField = 'twfwf'
      DataSource = DataSource1
      TabOrder = 4
    end
    object DBEdit4: TDBEdit
      Left = 293
      Top = 73
      Width = 155
      Height = 20
      DataField = 'twcwf'
      DataSource = DataSource1
      TabOrder = 5
    end
    object DBEdit5: TDBEdit
      Left = 79
      Top = 104
      Width = 97
      Height = 20
      DataField = 'twrs'
      DataSource = DataSource1
      TabOrder = 6
    end
    object DBComboBox1: TDBComboBox
      Left = 293
      Top = 103
      Width = 155
      Height = 20
      DataField = 'twzt'
      DataSource = DataSource1
      ItemHeight = 12
      Items.Strings = (
        'K'#8212#8212#21487#29992
        'Y'#8212#8212#39044#23450
        'Z'#8212#8212#21344#29992)
      TabOrder = 7
    end
    object DBEdit6: TDBEdit
      Left = 293
      Top = 43
      Width = 155
      Height = 20
      DataField = 'zdxf'
      DataSource = DataSource1
      TabOrder = 3
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    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 Query1: TQuery
    CachedUpdates = True
    DatabaseName = 'aa'
    SQL.Strings = (
      'SELECT *'
      'FROM cantai cantai'
      'order by ctbh,twbh')
    UpdateObject = UpdateSQL1
    Left = 176
    Top = 40
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update cantai'
      'set'
      '  ctbh = :ctbh,'
      '  ctmc = :ctmc,'
      '  twbh = :twbh,'
      '  twmc = :twmc,'
      '  twrs = :twrs,'
      '  twfwf = :twfwf,'
      '  twcwf = :twcwf,'
      '  twzt = :twzt,'
      '  zdxf = :zdxf'
      'where'
      '  id = :OLD_id')
    InsertSQL.Strings = (
      'insert into cantai'
      '  (ctbh, ctmc, twbh, twmc, twrs, twfwf, twcwf, twzt, zdxf)'
      'values'
      
        '  (:ctbh, :ctmc, :twbh, :twmc, :twrs, :twfwf, :twcwf, :twzt, :zd' +
        'xf)')
    DeleteSQL.Strings = (
      'delete from cantai'
      'where'
      '  id = :OLD_id')
    Left = 208
    Top = 40
  end
  object Query2: TQuery
    DatabaseName = 'aa'
    SQL.Strings = (
      'select twbh'
      'FROM cantai cantai'
      'where twbh=:cs')
    Left = 192
    Top = 96
    ParamData = <
      item
        DataType = ftString
        Name = 'cs'
        ParamType = ptUnknown
      end>
  end
  object Query3: TQuery
    DatabaseName = 'aa'
    SQL.Strings = (
      'select *'
      'from canting')
    Left = 256
    Top = 104
    object Query3id: TIntegerField
      FieldName = 'id'
      Origin = 'AA.canting.id'
    end
    object Query3ctbh: TStringField
      FieldName = 'ctbh'
      Origin = 'AA.canting.ctbh'
      Size = 10
    end
    object Query3ctmc: TStringField
      FieldName = 'ctmc'
      Origin = 'AA.canting.ctmc'
      Size = 50
    end
  end
  object DataSource2: TDataSource
    DataSet = Query3
    Left = 288
    Top = 104
  end
  object syssetQ: TADOQuery
    Connection = mainForm.RJSADO
    Parameters = <>
    SQL.Strings = (
      'select *'
      'from sysset')
    Left = 280
    Top = 64
  end
end