unit1.dfm

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

        Top = 0
        Width = 505
        Height = 256
      end
    end
    object TabSheet8: TTabSheet
      ImageIndex = 7
      OnShow = TabSheet8Show
      object Bevel10: TBevel
        Left = 0
        Top = 0
        Width = 505
        Height = 256
      end
    end
    object TabSheet9: TTabSheet
      ImageIndex = 8
      OnShow = TabSheet9Show
      object Bevel11: TBevel
        Left = 0
        Top = 0
        Width = 505
        Height = 256
      end
    end
    object TabSheet10: TTabSheet
      ImageIndex = 9
      OnShow = TabSheet10Show
      object Bevel12: TBevel
        Left = 0
        Top = 0
        Width = 505
        Height = 256
      end
    end
    object TabSheet11: TTabSheet
      ImageIndex = 10
      OnShow = TabSheet11Show
      object Bevel13: TBevel
        Left = 0
        Top = 0
        Width = 505
        Height = 256
      end
    end
    object TabSheet12: TTabSheet
      ImageIndex = 11
      OnShow = TabSheet12Show
      object Bevel14: TBevel
        Left = 0
        Top = 0
        Width = 505
        Height = 256
      end
    end
    object TabSheet13: TTabSheet
      ImageIndex = 12
      OnShow = TabSheet13Show
      object Bevel15: TBevel
        Left = 0
        Top = 0
        Width = 505
        Height = 256
      end
    end
    object TabSheet14: TTabSheet
      ImageIndex = 13
      OnShow = TabSheet14Show
      object Bevel16: TBevel
        Left = 0
        Top = 0
        Width = 505
        Height = 256
      end
    end
    object TabSheet15: TTabSheet
      ImageIndex = 14
      OnShow = TabSheet15Show
      object Bevel17: TBevel
        Left = 0
        Top = 0
        Width = 505
        Height = 256
      end
    end
    object TabSheet16: TTabSheet
      ImageIndex = 15
      OnShow = TabSheet16Show
      object Bevel18: TBevel
        Left = 0
        Top = 0
        Width = 505
        Height = 256
      end
    end
    object TabSheet17: TTabSheet
      ImageIndex = 16
      OnShow = TabSheet17Show
      object Bevel19: TBevel
        Left = 0
        Top = 0
        Width = 505
        Height = 256
      end
    end
    object TabSheet18: TTabSheet
      ImageIndex = 17
      OnShow = TabSheet18Show
      object Bevel20: TBevel
        Left = 0
        Top = 0
        Width = 505
        Height = 256
      end
    end
  end
  object DBGrid2: TDBGrid
    Left = 529
    Top = 16
    Width = 252
    Height = 92
    Hint = #21452#20987#36873#23450#22823#31867
    DataSource = DataSource2
    Enabled = False
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentShowHint = False
    ReadOnly = True
    ShowHint = True
    TabOrder = 8
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'lbbm'
        Title.Caption = #31867#21035#32534#30721
        Width = 82
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'lbmc'
        Title.Caption = #31867#21035#21517#31216
        Width = 132
        Visible = True
      end>
  end
  object Edit6: TEdit
    Left = 218
    Top = 5
    Width = 67
    Height = 20
    ReadOnly = True
    TabOrder = 9
  end
  object BitBtn2: TBitBtn
    Left = 16
    Top = 8
    Width = 75
    Height = 33
    Caption = #25764#28040
    TabOrder = 10
    OnClick = BitBtn2Click
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      1800000000000003000000000000000000000000000000000000FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFF00000000008000FFFF000000FFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000008000FF
      FF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFF00000000008000FFFF00000000008000FFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000008000FFFF0000000000
      8000FFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00
      000000800000000000000000008000FFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFF00000000000000800000800000000000FFFF0000
      00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000008000
      0080000000008000008000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFF000000008000000000000080000080000000000000FFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00FF00800000800000
      0000000080000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      000000000000C0C0C0FF00FF008000008000000000FFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFF00FF000000C0C0C0FF00FF00
      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000
      FF00FFFFFFFFFF00FF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFF00FFFFFFFF000000FFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 565
    Top = 332
  end
  object OpenPictureDialog1: TOpenPictureDialog
    DefaultExt = 'BMP'
    Filter = 'All (*.bmp)|*.bmp|Bitmaps (*.bmp)|*.bmp'
    Options = [ofHideReadOnly, ofNoChangeDir, ofPathMustExist, ofFileMustExist, ofNoLongNames]
    Title = #25171#24320#22270#26631
    Left = 557
    Top = 427
  end
  object Query1: TQuery
    CachedUpdates = True
    DatabaseName = 'aa'
    SQL.Strings = (
      'SELECT *'
      'FROM cddyb Cddyb'
      'order by zxh,cxh')
    UpdateObject = UpdateSQL1
    Left = 541
    Top = 331
    object Query1id: TIntegerField
      FieldName = 'id'
      Origin = 'AA.cddyb.id'
    end
    object Query1lbbm: TStringField
      FieldName = 'lbbm'
      Origin = 'AA.cddyb.lbbm'
      Size = 10
    end
    object Query1mc: TStringField
      FieldName = 'mc'
      Origin = 'AA.cddyb.mc'
      Size = 50
    end
    object Query1ywmc: TStringField
      FieldName = 'ywmc'
      Origin = 'AA.cddyb.ywmc'
      Size = 50
    end
    object Query1ys: TIntegerField
      FieldName = 'ys'
      Origin = 'AA.cddyb.ys'
    end
    object Query1zt: TStringField
      FieldName = 'zt'
      Origin = 'AA.cddyb.zt'
      Size = 50
    end
    object Query1zh: TIntegerField
      FieldName = 'zh'
      Origin = 'AA.cddyb.zh'
    end
    object Query1bz: TStringField
      FieldName = 'bz'
      Origin = 'AA.cddyb.bz'
      Size = 50
    end
    object Query1dycdbh: TStringField
      FieldName = 'dycdbh'
      Origin = 'AA.cddyb.dycdbh'
      Size = 10
    end
    object Query1zxh: TIntegerField
      FieldName = 'zxh'
      Origin = 'AA.cddyb.zxh'
    end
    object Query1cxh: TIntegerField
      FieldName = 'cxh'
      Origin = 'AA.cddyb.cxh'
    end
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update cddyb'
      'set'
      '  lbbm = :lbbm,'
      '  mc = :mc,'
      '  ywmc = :ywmc,'
      '  ys = :ys,'
      '  zt = :zt,'
      '  zh = :zh,'
      '  bz = :bz,'
      '  dycdbh = :dycdbh,'
      '  zxh = :zxh,'
      '  cxh = :cxh'
      'where'
      '  id = :OLD_id')
    InsertSQL.Strings = (
      'insert into cddyb'
      '  (lbbm, mc, ywmc, ys, zt, zh, bz, dycdbh, zxh, cxh)'
      'values'
      '  (:lbbm, :mc, :ywmc, :ys, :zt, :zh, :bz, :dycdbh, :zxh, :cxh)')
    DeleteSQL.Strings = (
      'delete from cddyb'
      'where'
      '  id = :OLD_id')
    Left = 573
    Top = 331
  end
  object Query2: TQuery
    DatabaseName = 'aa'
    DataSource = DataSource2
    SQL.Strings = (
      'SELECT *'
      'FROM cdwj Cdwj'
      'where lbbm=:lbbm')
    Left = 610
    Top = 104
    ParamData = <
      item
        DataType = ftString
        Name = 'lbbm'
        ParamType = ptUnknown
        Size = 11
      end>
    object Query2bh: TStringField
      FieldName = 'bh'
      Origin = 'AA.cdwj.bh'
      Size = 10
    end
    object Query2mc: TStringField
      FieldName = 'mc'
      Origin = 'AA.cdwj.mc'
      Size = 50
    end
    object Query2ywmc: TStringField
      FieldName = 'ywmc'
      Origin = 'AA.cdwj.ywmc'
      Size = 50
    end
    object Query2gg: TStringField
      FieldName = 'gg'
      Origin = 'AA.cdwj.gg'
      Size = 50
    end
    object Query2dj: TFloatField
      FieldName = 'dj'
      Origin = 'AA.cdwj.dj'
    end
    object Query2tcbz: TBooleanField
      FieldName = 'tcbz'
      Origin = 'AA.cdwj.tcbz'
    end
    object Query2lbbm: TStringField
      FieldName = 'lbbm'
      Origin = 'AA.cdwj.lbbm'
      Size = 10
    end
  end
  object DataSource1: TDataSource
    DataSet = Query2
    Left = 578
    Top = 104
  end
  object DataSource2: TDataSource
    DataSet = Query3
    Left = 578
    Top = 64
  end
  object Query3: TQuery
    DatabaseName = 'aa'
    OnFilterRecord = Query3FilterRecord
    SQL.Strings = (
      'SELECT *'
      'FROM lbbm Lbbm'
      'order by lbbm')
    Left = 610
    Top = 64
    object Query3id: TIntegerField
      FieldName = 'id'
      Origin = 'AA.lbbm.id'
    end
    object Query3lbbm: TStringField
      FieldName = 'lbbm'
      Origin = 'AA.lbbm.lbbm'
      Size = 10
    end
    object Query3lbmc: TStringField
      FieldName = 'lbmc'
      Origin = 'AA.lbbm.lbmc'
    end
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 312
    Top = 40
  end
end