cdwh.dfm

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

        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333333333333333333FFF33FF333FFF339993370733
        999333777FF37FF377733339993000399933333777F777F77733333399970799
        93333333777F7377733333333999399933333333377737773333333333990993
        3333333333737F73333333333331013333333333333777FF3333333333910193
        333333333337773FF3333333399000993333333337377737FF33333399900099
        93333333773777377FF333399930003999333337773777F777FF339993370733
        9993337773337333777333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
  end
  object Panel4: TPanel
    Left = 668
    Top = 152
    Width = 114
    Height = 49
    TabOrder = 5
    object BitBtn4: TBitBtn
      Left = 27
      Top = 10
      Width = 65
      Height = 30
      Caption = #36864#20986
      TabOrder = 0
      OnClick = BitBtn4Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000C40E0000C40E00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
        0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
        0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
        0333337F777FFFFF7F3333000000000003333377777777777333}
      NumGlyphs = 2
    end
  end
  object Panel1: TPanel
    Left = 548
    Top = 19
    Width = 118
    Height = 183
    TabOrder = 6
    object BitBtn1: TBitBtn
      Left = 22
      Top = 9
      Width = 70
      Height = 31
      Caption = #28155#21152
      TabOrder = 0
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333FF33333333FF333993333333300033377F3333333777333993333333
        300033F77FFF3333377739999993333333333777777F3333333F399999933333
        33003777777333333377333993333333330033377F3333333377333993333333
        3333333773333333333F333333333333330033333333F33333773333333C3333
        330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
        993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
        333333333337733333FF3333333C333330003333333733333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 22
      Top = 42
      Width = 70
      Height = 31
      Caption = #20462#25913
      TabOrder = 1
      OnClick = BitBtn2Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
        00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
        F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
        0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
        FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
        FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
        0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
        00333377737FFFFF773333303300000003333337337777777333}
      NumGlyphs = 2
    end
    object BitBtn3: TBitBtn
      Left = 22
      Top = 75
      Width = 70
      Height = 31
      Caption = #21024#38500
      TabOrder = 2
      OnClick = BitBtn3Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF33333333333330003333333333333777333333333333
        300033FFFFFF3333377739999993333333333777777F3333333F399999933333
        3300377777733333337733333333333333003333333333333377333333333333
        3333333333333333333F333333333333330033333F33333333773333C3333333
        330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
        993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
        333333377F33333333FF3333C333333330003333733333333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object BitBtn7: TBitBtn
      Left = 22
      Top = 108
      Width = 70
      Height = 31
      Caption = #26597#25214
      TabOrder = 3
      OnClick = BitBtn7Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
        300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
        330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
        333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
        339977FF777777773377000BFB03333333337773FF733333333F333000333333
        3300333777333333337733333333333333003333333333333377333333333333
        333333333333333333FF33333333333330003333333333333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object BitBtn8: TBitBtn
      Left = 22
      Top = 142
      Width = 70
      Height = 31
      Caption = #25253#34920
      TabOrder = 4
      OnClick = BitBtn8Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
        300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
        330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
        333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
        339977FF777777773377000BFB03333333337773FF733333333F333000333333
        3300333777333333337733333333333333003333333333333377333333333333
        333333333333333333FF33333333333330003333333333333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
    end
  end
  object BitBtn9: TBitBtn
    Left = 628
    Top = 454
    Width = 93
    Height = 30
    Caption = #37197#39184#22788#29702
    TabOrder = 7
    OnClick = BitBtn9Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333FF33333333FF333993333333300033377F3333333777333993333333
      300033F77FFF3333377739999993333333333777777F3333333F399999933333
      33003777777333333377333993333333330033377F3333333377333993333333
      3333333773333333333F333333333333330033333333F33333773333333C3333
      330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
      993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
      333333333337733333FF3333333C333330003333333733333777333333333333
      3000333333333333377733333333333333333333333333333333}
    NumGlyphs = 2
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 112
    Top = 88
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 325
    Top = 88
  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 Query2: TQuery
    CachedUpdates = True
    DatabaseName = 'aa'
    DataSource = DataSource1
    SQL.Strings = (
      'SELECT *'
      'FROM tcwj Tcwj'
      'where zcbh=:bh')
    UpdateObject = UpdateSQL2
    Left = 360
    Top = 88
    ParamData = <
      item
        DataType = ftString
        Name = 'bh'
        ParamType = ptUnknown
        Size = 11
      end>
    object Query2id: TIntegerField
      FieldName = 'id'
      Origin = 'AA.tcwj.id'
    end
    object Query2zcbh: TStringField
      FieldName = 'zcbh'
      Origin = 'AA.tcwj.zcbh'
      Size = 10
    end
    object Query2pcbh: TStringField
      FieldName = 'pcbh'
      Origin = 'AA.tcwj.pcbh'
      Size = 10
    end
    object Query2pclb: TStringField
      FieldName = 'pclb'
      Origin = 'AA.tcwj.pclb'
      Size = 150
    end
    object Query2sl: TIntegerField
      FieldName = 'sl'
      Origin = 'AA.tcwj.sl'
    end
  end
  object UpdateSQL2: TUpdateSQL
    ModifySQL.Strings = (
      'update tcwj'
      'set'
      '  zcbh = :zcbh,'
      '  pcbh = :pcbh,'
      '  pclb = :pclb,'
      '  sl = :sl'
      'where'
      '  id = :OLD_id')
    InsertSQL.Strings = (
      'insert into tcwj'
      '  (zcbh, pcbh, pclb, sl)'
      'values'
      '  (:zcbh, :pcbh, :pclb, :sl)')
    DeleteSQL.Strings = (
      'delete from tcwj'
      'where'
      '  id = :OLD_id')
    Left = 392
    Top = 88
  end
  object Query3: TQuery
    CachedUpdates = True
    DatabaseName = 'aa'
    SQL.Strings = (
      'SELECT *'
      'FROM tcwj Tcwj'
      'where pcbh=:cs')
    UpdateObject = UpdateSQL3
    Left = 360
    Top = 137
    ParamData = <
      item
        DataType = ftString
        Name = 'cs'
        ParamType = ptUnknown
      end>
    object Query3id: TIntegerField
      FieldName = 'id'
      Origin = 'AA.tcwj.id'
    end
    object Query3zcbh: TStringField
      FieldName = 'zcbh'
      Origin = 'AA.tcwj.zcbh'
      Size = 10
    end
    object Query3pcbh: TStringField
      FieldName = 'pcbh'
      Origin = 'AA.tcwj.pcbh'
      Size = 10
    end
    object Query3pclb: TStringField
      FieldName = 'pclb'
      Origin = 'AA.tcwj.pclb'
      Size = 150
    end
    object Query3sl: TIntegerField
      FieldName = 'sl'
      Origin = 'AA.tcwj.sl'
    end
  end
  object UpdateSQL3: TUpdateSQL
    ModifySQL.Strings = (
      'update tcwj'
      'set'
      '  zcbh = :zcbh,'
      '  pcbh = :pcbh,'
      '  pclb = :pclb,'
      '  sl = :sl'
      'where'
      '  id = :OLD_id')
    InsertSQL.Strings = (
      'insert into tcwj'
      '  (zcbh, pcbh, pclb, sl)'
      'values'
      '  (:zcbh, :pcbh, :pclb, :sl)')
    DeleteSQL.Strings = (
      'delete from tcwj'
      'where'
      '  id = :OLD_id')
    Left = 392
    Top = 137
  end
  object Query4: TQuery
    DatabaseName = 'aa'
    SQL.Strings = (
      'select *'
      'from lbbm')
    Left = 272
    Top = 128
  end
  object DataSource3: TDataSource
    DataSet = Query4
    Left = 272
    Top = 160
  end
  object Query5: TQuery
    DatabaseName = 'aa'
    SQL.Strings = (
      'select bh'
      'from cdwj'
      'where bh=:cs')
    Left = 120
    Top = 136
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'cs'
        ParamType = ptUnknown
      end>
  end
  object Query1: TADOQuery
    Connection = mainForm.RJSADO
    CursorType = ctStatic
    AfterPost = Query1AfterPost
    AfterScroll = Query1AfterScroll
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM cdwj Cdwj'
      'order by lbbm,bh'
      '')
    Left = 144
    Top = 88
    object Query1bh: TStringField
      FieldName = 'bh'
      Size = 10
    end
    object Query1lbbm: TStringField
      FieldName = 'lbbm'
      Size = 10
    end
    object Query1mc: TStringField
      FieldName = 'mc'
      Size = 50
    end
    object Query1ywmc: TStringField
      FieldName = 'ywmc'
      Size = 50
    end
    object Query1gg: TStringField
      FieldName = 'gg'
      Size = 50
    end
    object Query1dj: TBCDField
      FieldName = 'dj'
      Precision = 19
    end
    object Query1tcbz: TBooleanField
      FieldName = 'tcbz'
    end
    object Query1zt: TBooleanField
      FieldName = 'zt'
    end
    object Query1sfkj: TBooleanField
      FieldName = 'sfkj'
    end
    object Query1zkdl: TBooleanField
      FieldName = 'zkdl'
    end
    object Query1zkl: TIntegerField
      FieldName = 'zkl'
    end
    object Query1fwfdl: TBooleanField
      FieldName = 'fwfdl'
    end
    object Query1fwfl: TIntegerField
      FieldName = 'fwfl'
    end
    object Query1shuilu: TIntegerField
      FieldName = 'shuilu'
    end
    object Query1cfdy: TBooleanField
      FieldName = 'cfdy'
    end
    object Query1cfdyjhm: TStringField
      FieldName = 'cfdyjhm'
      Size = 2
    end
    object Query1ccjdyjhm: TStringField
      FieldName = 'ccjdyjhm'
      Size = 2
    end
  end
  object ADOQuery1: TADOQuery
    Connection = mainForm.RJSADO
    Parameters = <>
    SQL.Strings = (
      'select * from prtset')
    Left = 368
    Top = 224
    object ADOQuery1bh: TStringField
      FieldName = 'bh'
      Size = 2
    end
    object ADOQuery1port: TStringField
      FieldName = 'port'
      Size = 50
    end
    object ADOQuery1name: TStringField
      FieldName = 'name'
      Size = 50
    end
    object ADOQuery1type: TStringField
      FieldName = 'type'
      Size = 1
    end
  end
  object DataSource4: TDataSource
    DataSet = ADOQuery1
    Left = 400
    Top = 232
  end
end