gnsz.dfm

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

    Left = 218
    Top = 5
    Width = 67
    Height = 20
    ReadOnly = True
    TabOrder = 8
  end
  object BitBtn2: TBitBtn
    Left = 16
    Top = 0
    Width = 75
    Height = 27
    Caption = #25764#28040
    TabOrder = 9
    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 ScrollBox1: TScrollBox
    Left = 1
    Top = 57
    Width = 519
    Height = 119
    HorzScrollBar.ButtonSize = 50
    HorzScrollBar.Size = 46
    VertScrollBar.ButtonSize = 50
    VertScrollBar.Increment = 110
    VertScrollBar.Size = 46
    Color = clSilver
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 10
  end
  object ScrollBox2: TScrollBox
    Left = 0
    Top = 180
    Width = 520
    Height = 263
    VertScrollBar.ButtonSize = 50
    VertScrollBar.Increment = 260
    VertScrollBar.Size = 46
    Color = clSilver
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 11
  end
  object BitBtn3: TBitBtn
    Left = 16
    Top = 28
    Width = 75
    Height = 27
    Caption = #31227#21160
    TabOrder = 12
    OnClick = BitBtn3Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      0000377777777777777703030303030303037F7F7F7F7F7F7F7F000000000000
      00007777777777777777933393303933337073F37F37F73F3377393393303393
      379037FF7F37F37FF777379793303379793037777337F3777737339933303339
      93303377F3F7F3F77F3733993930393993303377F737F7377FF7399993303399
      999037777337F377777793993330333393307377FF37F3337FF7333993303333
      993033377F37F33377F7333993303333993033377337F3337737333333303333
      33303FFFFFF7FFFFFFF700000000000000007777777777777777030303030303
      03037F7F7F7F7F7F7F7F00000000000000007777777777777777}
    NumGlyphs = 2
  end
  object BitBtn4: TBitBtn
    Left = 160
    Top = 448
    Width = 75
    Height = 25
    Caption = #33258#21160#24067#23616
    TabOrder = 13
    OnClick = BitBtn4Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333FFFFFFFFFFFFFFF000000000000000077777777777777770FF7FF7FF7FF
      7FF07FF7FF7FF7F37F3709F79F79F7FF7FF077F77F77F7FF7FF7077777777777
      777077777777777777770FF7FF7FF7FF7FF07FF7FF7FF7FF7FF709F79F79F79F
      79F077F77F77F77F77F7077777777777777077777777777777770FF7FF7FF7FF
      7FF07FF7FF7FF7FF7FF709F79F79F79F79F077F77F77F77F77F7077777777777
      777077777777777777770FFFFF7FF7FF7FF07F33337FF7FF7FF70FFFFF79F79F
      79F07FFFFF77F77F77F700000000000000007777777777777777CCCCCC8888CC
      CCCC777777FFFF777777CCCCCCCCCCCCCCCC7777777777777777}
    NumGlyphs = 2
  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 DataSource1: TDataSource
    DataSet = Query2
    Left = 578
    Top = 104
  end
  object DataSource2: TDataSource
    DataSet = Query3
    Left = 578
    Top = 64
  end
  object Query1: TADOQuery
    Connection = mainForm.RJSADO
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM cddyb Cddyb'
      'order by zxh,cxh'
      '')
    Left = 576
    Top = 288
    object Query1id: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    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 Query1ys: TIntegerField
      FieldName = 'ys'
    end
    object Query1zt: TStringField
      FieldName = 'zt'
      FixedChar = True
      Size = 1
    end
    object Query1zh: TIntegerField
      FieldName = 'zh'
    end
    object Query1bz: TStringField
      FieldName = 'bz'
      Size = 150
    end
    object Query1dycdbh: TStringField
      FieldName = 'dycdbh'
      Size = 10
    end
    object Query1zxh: TIntegerField
      FieldName = 'zxh'
    end
    object Query1cxh: TIntegerField
      FieldName = 'cxh'
    end
  end
  object Query3: TADOQuery
    Connection = mainForm.RJSADO
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM lbbm Lbbm'
      'order by lbbm'
      '')
    Left = 600
    Top = 32
    object Query3id: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object Query3lbbm: TStringField
      FieldName = 'lbbm'
      Size = 10
    end
    object Query3lbmc: TStringField
      FieldName = 'lbmc'
      Size = 50
    end
    object Query3fwfbl: TIntegerField
      FieldName = 'fwfbl'
    end
    object Query3fwf: TIntegerField
      FieldName = 'fwf'
    end
    object Query3zkbl: TIntegerField
      FieldName = 'zkbl'
    end
    object Query3shuilv: TIntegerField
      FieldName = 'shuilv'
    end
  end
  object Query4: TADOQuery
    Connection = mainForm.RJSADO
    Parameters = <>
    SQL.Strings = (
      'SELECT cddyb.lbbm, cddyb.zxh, lbbm.lbmc'
      'FROM cddyb INNER JOIN'
      '      lbbm ON cddyb.lbbm = lbbm.lbbm'
      'GROUP BY cddyb.lbbm, cddyb.zxh, lbbm.lbmc'
      '')
    Left = 656
    Top = 32
    object Query4lbbm: TStringField
      FieldName = 'lbbm'
      Size = 10
    end
    object Query4zxh: TIntegerField
      FieldName = 'zxh'
    end
    object Query4lbmc: TStringField
      FieldName = 'lbmc'
      Size = 50
    end
  end
  object Query2: TADOQuery
    Connection = mainForm.RJSADO
    CursorType = ctStatic
    DataSource = DataSource2
    Parameters = <
      item
        Name = 'lbbm'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = ''
      end>
    SQL.Strings = (
      'SELECT *'
      'FROM cdwj Cdwj'
      'where lbbm=:lbbm'
      'order by lbbm,bh'
      '')
    Left = 616
    Top = 136
    object Query2bh: TStringField
      FieldName = 'bh'
      Size = 10
    end
    object Query2lbbm: TStringField
      FieldName = 'lbbm'
      Size = 10
    end
    object Query2mc: TStringField
      FieldName = 'mc'
      Size = 50
    end
    object Query2ywmc: TStringField
      FieldName = 'ywmc'
      Size = 50
    end
    object Query2gg: TStringField
      FieldName = 'gg'
      Size = 50
    end
    object Query2dj: TBCDField
      FieldName = 'dj'
      Precision = 19
    end
    object Query2tcbz: TBooleanField
      FieldName = 'tcbz'
    end
    object Query2zt: TBooleanField
      FieldName = 'zt'
    end
    object Query2sfkj: TBooleanField
      FieldName = 'sfkj'
    end
    object Query2zkdl: TBooleanField
      FieldName = 'zkdl'
    end
    object Query2zkl: TIntegerField
      FieldName = 'zkl'
    end
    object Query2fwfdl: TBooleanField
      FieldName = 'fwfdl'
    end
    object Query2fwfl: TIntegerField
      FieldName = 'fwfl'
    end
    object Query2shuilu: TIntegerField
      FieldName = 'shuilu'
    end
    object Query2cfdy: TBooleanField
      FieldName = 'cfdy'
    end
    object Query2cfdyjhm: TStringField
      FieldName = 'cfdyjhm'
      Size = 2
    end
    object Query2ccjdyjhm: TStringField
      FieldName = 'ccjdyjhm'
      Size = 2
    end
  end
end