lbsr.dfm

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

    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
    OnDblClick = TreeView1DblClick
    OnKeyPress = TreeView1KeyPress
  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 = 115
      Top = 55
      Width = 42
      Height = 14
      Caption = #25340#38899#30721
      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 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
      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
      TabOrder = 3
      OnKeyPress = Edit4KeyPress
    end
    object Edit5: TEdit
      Left = 157
      Top = 50
      Width = 80
      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 *'
      'FROM leibie leibie'
      'where len(lbbm)=2')
    Left = 120
    Top = 8
  end
  object Query2: TQuery
    DatabaseName = 'aa'
    SQL.Strings = (
      'SELECT *'
      'FROM leibie leibie'
      'where len(lbbm)=4 and  left(lbbm,2)=:cs0')
    Left = 120
    Top = 46
    ParamData = <
      item
        DataType = ftString
        Name = 'cs0'
        ParamType = ptUnknown
      end>
  end
  object Query3: TQuery
    DatabaseName = 'aa'
    SQL.Strings = (
      'SELECT *'
      'FROM leibie leibie'
      'where len(lbbm)=6 and  left(lbbm,4)=:cs0')
    Left = 120
    Top = 88
    ParamData = <
      item
        DataType = ftString
        Name = 'cs0'
        ParamType = ptUnknown
      end>
  end
  object Query4: TQuery
    DatabaseName = 'aa'
    SQL.Strings = (
      'SELECT *'
      'FROM leibie leibie'
      'where len(lbbm)=8 and  left(lbbm,6)=:cs0')
    Left = 120
    Top = 126
    ParamData = <
      item
        DataType = ftString
        Name = 'cs0'
        ParamType = ptUnknown
      end>
  end
  object PopupMenu1: TPopupMenu
    Left = 248
    Top = 24
    object N4: TMenuItem
      Caption = #28155#21152#26032#23376#31867#21035
      OnClick = N4Click
    end
    object N1: TMenuItem
      Caption = #28155#21152#21516#32423#31867#21035
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #21024#38500#29616#26377#31867#21035
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #26356#25913#31867#21035#21517#31216
      OnClick = N3Click
    end
  end
  object Query5: TQuery
    CachedUpdates = True
    DatabaseName = 'aa'
    SQL.Strings = (
      'SELECT *'
      'FROM leibie leibie'
      'order by lbbm')
    UpdateObject = UpdateSQL1
    Left = 162
    Top = 8
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update leibie'
      'set'
      '  lbbm = :lbbm,'
      '  lbmc = :lbmc,'
      '  pym = :pym'
      'where'
      '  Id = :OLD_Id')
    InsertSQL.Strings = (
      'insert into leibie'
      '  (lbbm, lbmc, pym)'
      'values'
      '  (:lbbm, :lbmc, :pym)')
    DeleteSQL.Strings = (
      'delete from leibie'
      'where'
      '  Id = :OLD_Id')
    Left = 200
    Top = 8
  end
end