pfjg.dfm

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

    0000000000300001991199101000000000000000000000000000000000010083
    1999110100000000000000000000000000000000000308383199911000000000
    0000000000000000000000000000138310199910000000000000000000000000
    0000000000003031000191010000000000000000000000000000000000000110
    0011101000000000000000000000000000000000000003000138301000000000
    0000000000000000000000000000001013838101000000000000000000000000
    0000000000000030383810100000000000000000000000000000000000000003
    0381011000000000000000000000000000000000000000003010111000000000
    0000000000000000000000000000000003011110000000000000000000000000
    0000000000000000003011800000000000000000000000000000000000000000
    0003088000000000000000000000000000000000000000000000300000000000
    00000000000000000000000000000000000000000000FFFFFFFFFFFF0000FFFF
    FFFFC0FF1001FFFFFFFF007F8310FFFFFFFC007F0000FFFFFFF0007FF300FFFF
    F00000FF3108FFFF800001FF0000FFFE000003FF3F30FFF0000007070010F800
    000000030000E000000000037183C00000000003013080000000000100008000
    0000000138118000000000010013C000000000010000F000078000018383FF00
    FF4000010000FFFFFCD000010000FFFFE3B000033838FFFC1FB000031101FFFF
    FF7000070000FFFFFF7000070300FFFFFF70000F8083FFFFFEF0000F0000FFFF
    FEF0000F3138FFFFFEF000073038FFFFFEF800070000FFFFFEF800078383FFFF
    FEF800070083FFFFFEF800070000FFFFFFFC00070838FFFFFFFC00070830FFFF
    FFFE000F0000FFFFFFFE000F0083FFFFFFFF000F0000FFFFFFFF000F0000FFFF
    FFFF801F0000FFFFFFFF801F0000FFFFFFFFC00F0000FFFFFFFFC00F0000FFFF
    FFFFE00F0000FFFFFFFFF00F0000FFFFFFFFF80F0000FFFFFFFFFC0F0000FFFF
    FFFFFE0F0000FFFFFFFFFF1F0000FFFFFFFFFFFF0000}
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 14
  object Label1: TLabel
    Left = 16
    Top = 159
    Width = 90
    Height = 12
    Caption = #24744#36873#25321#30340#31185#30446#26159':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Edit2: TEdit
    Left = 208
    Top = 154
    Width = 121
    Height = 20
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    Text = 'Edit2'
  end
  object Edit1: TEdit
    Left = 128
    Top = 154
    Width = 73
    Height = 20
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    Text = 'Edit1'
  end
  object TreeView1: TTreeView
    Left = 0
    Top = 0
    Width = 519
    Height = 376
    Hint = #25353'Enter'#38190#25110#21452#20987#40736#26631#24038#38190#30830#35748#13#10#25353#21491#31661#22836#38190#25110#28857#20987#40736#26631#24038#38190' '#23637#24320#33756#21333
    Align = alClient
    AutoExpand = True
    Color = 16316926
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    Indent = 19
    ParentFont = False
    ParentShowHint = False
    PopupMenu = PopupMenu1
    ReadOnly = True
    ShowHint = True
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 120
    Top = 120
    Width = 265
    Height = 121
    TabOrder = 3
    Visible = False
    object Label2: TLabel
      Left = 8
      Top = 19
      Width = 28
      Height = 14
      Caption = #21517#31216
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 7
      Top = 59
      Width = 28
      Height = 14
      Caption = #32534#30721
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 123
      Top = 55
      Width = 28
      Height = 14
      Caption = #25968#37327
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 8
      Top = 96
      Width = 42
      Height = 14
      Caption = 'Label5'
      Font.Charset = GB2312_CHARSET
      Font.Color = clTeal
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 221
      Top = 54
      Width = 42
      Height = 14
      Caption = 'Label6'
    end
    object BitBtn1: TBitBtn
      Left = 96
      Top = 91
      Width = 75
      Height = 25
      Caption = #30830#35748
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 176
      Top = 91
      Width = 75
      Height = 25
      Caption = #25918#24323
      TabOrder = 1
      OnClick = BitBtn2Click
    end
    object Edit3: TEdit
      Left = 36
      Top = 14
      Width = 200
      Height = 22
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 2
      OnKeyPress = Edit3KeyPress
    end
    object Edit4: TEdit
      Left = 36
      Top = 50
      Width = 76
      Height = 22
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      MaxLength = 20
      ParentFont = False
      ReadOnly = True
      TabOrder = 3
      OnKeyPress = Edit4KeyPress
    end
    object Edit5: TEdit
      Left = 157
      Top = 50
      Width = 61
      Height = 22
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      MaxLength = 10
      ParentFont = False
      TabOrder = 4
      OnKeyPress = Edit5KeyPress
    end
  end
  object Query1: TQuery
    DatabaseName = 'aa'
    SQL.Strings = (
      'SELECT cpbm, cpmc'
      'FROM peifang peifang'
      'group by cpbm,cpmc'
      'order by cpbm,cpmc')
    Left = 120
    Top = 8
  end
  object Query2: TQuery
    DatabaseName = 'aa'
    SQL.Strings = (
      'SELECT *'
      'FROM peifang peifang'
      'where cpbm=:cs0')
    Left = 120
    Top = 46
    ParamData = <
      item
        DataType = ftString
        Name = 'cs0'
        ParamType = ptUnknown
      end>
  end
  object PopupMenu1: TPopupMenu
    Left = 248
    Top = 24
    object N4: TMenuItem
      Caption = #28155#21152#26032#29992#26009
      OnClick = N4Click
    end
    object N1: TMenuItem
      Caption = #28155#21152#26032#37197#26041
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #21024#38500#12290#12290#12290
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #26356#25913#12290#12290#12290
      OnClick = N3Click
    end
  end
  object Query5: TQuery
    CachedUpdates = True
    DatabaseName = 'aa'
    SQL.Strings = (
      'SELECT *'
      'FROM peifang peifang'
      'order by cpbm, ylbm')
    UpdateObject = UpdateSQL1
    Left = 162
    Top = 8
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update peifang'
      'set'
      '  cpbm = :cpbm,'
      '  cpmc = :cpmc,'
      '  ylbm = :ylbm,'
      '  ylmc = :ylmc,'
      '  yldw = :yldw,'
      '  yldj = :yldj,'
      '  ylyl = :ylyl'
      'where'
      '  id = :OLD_id')
    InsertSQL.Strings = (
      'insert into peifang'
      '  (cpbm, cpmc, ylbm, ylmc, yldw, yldj, ylyl)'
      'values'
      '  (:cpbm, :cpmc, :ylbm, :ylmc, :yldw, :yldj, :ylyl)')
    DeleteSQL.Strings = (
      'delete from peifang'
      'where'
      '  id = :OLD_id')
    Left = 200
    Top = 8
  end
end