hycxgl.dfm

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

object hyglForm: ThyglForm
  Left = 39
  Top = 120
  Width = 716
  Height = 400
  BorderIcons = [biSystemMenu]
  Caption = #20250#21592#31649#29702'__'#26597#35810#32467#26524
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 12
  object Shape1: TShape
    Left = 623
    Top = 8
    Width = 85
    Height = 65
    Brush.Color = clMoneyGreen
    Brush.Style = bsDiagCross
    Shape = stEllipse
  end
  object Panel4: TPanel
    Left = 624
    Top = 318
    Width = 84
    Height = 49
    TabOrder = 0
    object BitBtn4: TBitBtn
      Left = 12
      Top = 12
      Width = 57
      Height = 25
      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 = 624
    Top = 80
    Width = 84
    Height = 183
    TabOrder = 1
    object BitBtn1: TBitBtn
      Left = 12
      Top = 13
      Width = 57
      Height = 25
      Caption = #25171#21360
      TabOrder = 0
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        0003377777777777777308888888888888807F33333333333337088888888888
        88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
        8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
        8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 12
      Top = 46
      Width = 57
      Height = 25
      Caption = #37038#20214
      TabOrder = 1
      OnClick = BitBtn2Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333FFFFFFFFFFFFFFF000000000000
        000077777777777777770FFFFFFFFFFFFFF07F3333FFF33333370FFFF777FFFF
        FFF07F333777333333370FFFFFFFFFFFFFF07F3333FFFFFF33370FFFF777777F
        FFF07F33377777733FF70FFFFFFFFFFF99907F3FFF33333377770F777FFFFFFF
        9CA07F77733333337F370FFFFFFFFFFF9A907FFFFFFFFFFF7FF7000000000000
        0000777777777777777733333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object BitBtn7: TBitBtn
      Left = 12
      Top = 112
      Width = 57
      Height = 25
      Caption = #26597#25214
      TabOrder = 2
      OnClick = BitBtn7Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
        300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
        330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
        333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
        339977FF777777773377000BFB03333333337773FF733333333F333000333333
        3300333777333333337733333333333333003333333333333377333333333333
        333333333333333333FF33333333333330003333333333333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object BitBtn8: TBitBtn
      Left = 12
      Top = 146
      Width = 57
      Height = 25
      Caption = #25253#34920
      TabOrder = 3
      OnClick = BitBtn8Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
        333333333333337FF3333333333333903333333333333377FF33333333333399
        03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
        99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
        99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
        03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
        33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
        33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
        3333777777333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 619
    Height = 373
    DataSource = DataSource1
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'kh'
        Title.Caption = #20250#21592#21345#21495
        Width = 72
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zt'
        Title.Caption = #29366#24577
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'czyxm'
        Title.Caption = #25805#20316#21592#22995#21517
        Width = 63
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yhlb'
        Title.Caption = #29992#25143#31867#21035
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zwxm'
        Title.Caption = #20013#25991#22995#21517
        Width = 59
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ywxm'
        Title.Caption = #33521#25991#22995#21517
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sfzhm'
        Title.Caption = #36523#20221#35777#21495#30721
        Width = 125
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'jrrq'
        Title.Caption = #21152#20837#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yxq'
        Title.Caption = #26377#25928#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'hth'
        Title.Caption = #21512#21516#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'xfjf'
        Title.Caption = #28040#36153#31215#20998
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ye'
        Title.Caption = #20313#39069
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zjxfe'
        Title.Caption = #24635#35745#28040#36153#39069
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zjcs'
        Title.Caption = #24635#35745#27425#25968
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'dj'
        Title.Caption = #31561#32423
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'dh'
        Title.Caption = #30005#35805
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sr'
        Title.Caption = #29983#26085
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ah'
        Title.Caption = #20010#20154#29233#22909
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yb'
        Title.Caption = #37038#32534
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gsmc'
        Title.Caption = #20844#21496#21517#31216
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zw'
        Title.Caption = #32844#21153
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gsdz'
        Title.Caption = #20844#21496#22320#22336
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'bz'
        Title.Caption = #22791#27880
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'dzyjdz'
        Title.Caption = #30005#23376#37038#31665
        Visible = True
      end>
  end
  object CheckBox1: TCheckBox
    Left = 630
    Top = 32
    Width = 68
    Height = 17
    Caption = #20840#37096#33258#21160
    TabOrder = 3
  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
    Active = True
    Connection = mainForm.RJSADO
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *'
      'from hykwj')
    Left = 416
    Top = 8
    object ADOQuery1kh: TWideStringField
      FieldName = 'kh'
      Size = 30
    end
    object ADOQuery1zt: TStringField
      FieldName = 'zt'
      FixedChar = True
      Size = 1
    end
    object ADOQuery1czyxm: TStringField
      FieldName = 'czyxm'
    end
    object ADOQuery1yhlb: TStringField
      FieldName = 'yhlb'
      Size = 50
    end
    object ADOQuery1zwxm: TStringField
      FieldName = 'zwxm'
    end
    object ADOQuery1ywxm: TStringField
      FieldName = 'ywxm'
    end
    object ADOQuery1sfzhm: TStringField
      FieldName = 'sfzhm'
    end
    object ADOQuery1jrrq: TDateTimeField
      FieldName = 'jrrq'
    end
    object ADOQuery1yxq: TDateTimeField
      FieldName = 'yxq'
    end
    object ADOQuery1hth: TStringField
      FieldName = 'hth'
    end
    object ADOQuery1xfjf: TIntegerField
      FieldName = 'xfjf'
    end
    object ADOQuery1ye: TIntegerField
      FieldName = 'ye'
    end
    object ADOQuery1zjxfe: TIntegerField
      FieldName = 'zjxfe'
    end
    object ADOQuery1zjcs: TIntegerField
      FieldName = 'zjcs'
    end
    object ADOQuery1dj: TIntegerField
      FieldName = 'dj'
    end
    object ADOQuery1dh: TStringField
      FieldName = 'dh'
    end
    object ADOQuery1sr: TDateTimeField
      FieldName = 'sr'
    end
    object ADOQuery1ah: TStringField
      FieldName = 'ah'
      Size = 150
    end
    object ADOQuery1yb: TStringField
      FieldName = 'yb'
      Size = 10
    end
    object ADOQuery1gsmc: TStringField
      FieldName = 'gsmc'
      Size = 50
    end
    object ADOQuery1zw: TStringField
      FieldName = 'zw'
      Size = 10
    end
    object ADOQuery1gsdz: TStringField
      FieldName = 'gsdz'
      Size = 100
    end
    object ADOQuery1bz: TStringField
      FieldName = 'bz'
      Size = 100
    end
    object ADOQuery1dzyjdz: TStringField
      FieldName = 'dzyjdz'
      Size = 50
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 448
    Top = 8
  end
  object ADOQuery2: TADOQuery
    Connection = mainForm.RJSADO
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *'
      'from canting')
    Left = 168
    Top = 64
  end
  object ADOQuery3: TADOQuery
    Connection = mainForm.RJSADO
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'ctbh'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = '0001'
      end>
    SQL.Strings = (
      'select *'
      'from cantai'
      'where ctbh=:ctbh')
    Left = 216
    Top = 64
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 168
    Top = 96
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery3
    Left = 224
    Top = 96
  end
  object ADOQuery4: TADOQuery
    Connection = mainForm.RJSADO
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'cs1'
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = Null
      end>
    SQL.Strings = (
      'select *'
      'from hykwj'
      'where kh=:cs1')
    Left = 416
    Top = 73
  end
end