pflr.dfm

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

object pflrf: Tpflrf
  Left = 192
  Top = 107
  Width = 525
  Height = 380
  BorderIcons = [biSystemMenu]
  Caption = #37197#26041#24405#20837
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  Scaled = False
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 14
  object DBGrid1: TDBGrid
    Left = 4
    Top = 45
    Width = 510
    Height = 162
    Color = 13687272
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'cpbm'
        Title.Alignment = taCenter
        Title.Caption = #20135#21697#32534#30721
        Width = 58
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'cpmc'
        Title.Alignment = taCenter
        Title.Caption = #20135#21697#21517#31216
        Width = 75
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ylbm'
        Title.Alignment = taCenter
        Title.Caption = #29992#26009#32534#30721
        Width = 65
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ylmc'
        Title.Alignment = taCenter
        Title.Caption = #29992#26009#21517#31216
        Width = 93
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yldw'
        Title.Alignment = taCenter
        Title.Caption = #29992#26009#21333#20301
        Width = 58
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yldj'
        Title.Alignment = taCenter
        Title.Caption = #29992#26009#21333#20215
        Width = 56
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ylyl'
        Title.Alignment = taCenter
        Title.Caption = #29992#26009#25968#37327
        Width = 63
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 1
    Top = 213
    Width = 515
    Height = 137
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object Bevel1: TBevel
      Left = 373
      Top = 101
      Width = 141
      Height = 31
    end
    object Label6: TLabel
      Left = 16
      Top = 15
      Width = 70
      Height = 14
      Caption = #20135#21697#21517#31216#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object SpeedButton1: TSpeedButton
      Left = 481
      Top = 10
      Width = 24
      Height = 22
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00999999999999
        99999C4F0F44400004499CC0F040088880099CC0F008888000099CCF00888007
        88099CCC0888077780499CC0FF80777880499CC0FF00877804499C0FF077F870
        44499C0FF0777F8444499C0F077770F8F4499C0F07770CC084499C007700CCF8
        F4499CC000CCCCCCCC499CCCCCCCCCCCCCC99999999999999999}
      Layout = blGlyphTop
      OnClick = SpeedButton1Click
    end
    object Label7: TLabel
      Left = 16
      Top = 107
      Width = 70
      Height = 14
      Caption = #29992#26009#25968#37327#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 283
      Top = 15
      Width = 70
      Height = 14
      Caption = #20135#21697#32534#30721#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 16
      Top = 46
      Width = 70
      Height = 14
      Caption = #29992#26009#21517#31216#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 283
      Top = 46
      Width = 70
      Height = 14
      Caption = #29992#26009#32534#30721#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object SpeedButton2: TSpeedButton
      Left = 481
      Top = 41
      Width = 24
      Height = 22
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00999999999999
        99999C4F0F44400004499CC0F040088880099CC0F008888000099CCF00888007
        88099CCC0888077780499CC0FF80777880499CC0FF00877804499C0FF077F870
        44499C0FF0777F8444499C0F077770F8F4499C0F07770CC084499C007700CCF8
        F4499CC000CCCCCCCC499CCCCCCCCCCCCCC99999999999999999}
      Layout = blGlyphTop
      OnClick = SpeedButton2Click
    end
    object Label3: TLabel
      Left = 15
      Top = 77
      Width = 70
      Height = 14
      Caption = #29992#26009#21333#20301#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 283
      Top = 75
      Width = 70
      Height = 14
      Caption = #29992#26009#21333#20215#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Edit5: TEdit
      Left = 77
      Top = 101
      Width = 97
      Height = 22
      Color = 13687272
      TabOrder = 1
      OnKeyPress = Edit5KeyPress
    end
    object Edit8: TEdit
      Left = 345
      Top = 10
      Width = 130
      Height = 22
      Color = 13687272
      ReadOnly = True
      TabOrder = 0
      OnDblClick = Edit4DblClick
      OnKeyPress = Edit8KeyPress
    end
    object Button1: TButton
      Left = 381
      Top = 104
      Width = 63
      Height = 25
      Caption = #30830#35748
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 445
      Top = 104
      Width = 60
      Height = 25
      Caption = #25918#24323
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = Button2Click
    end
    object Edit4: TEdit
      Left = 76
      Top = 10
      Width = 199
      Height = 22
      Color = 13687272
      ReadOnly = True
      TabOrder = 4
      OnDblClick = Edit4DblClick
      OnKeyPress = Edit4KeyPress
    end
    object Edit1: TEdit
      Left = 76
      Top = 41
      Width = 199
      Height = 22
      Color = 13687272
      ReadOnly = True
      TabOrder = 5
      OnDblClick = Edit1DblClick
      OnKeyPress = Edit1KeyPress
    end
    object Edit2: TEdit
      Left = 345
      Top = 41
      Width = 130
      Height = 22
      Color = 13687272
      ReadOnly = True
      TabOrder = 6
      OnDblClick = Edit2DblClick
      OnKeyPress = Edit2KeyPress
    end
    object Edit3: TEdit
      Left = 76
      Top = 71
      Width = 199
      Height = 22
      Color = 13687272
      ReadOnly = True
      TabOrder = 7
      OnKeyPress = Edit3KeyPress
    end
    object Edit6: TEdit
      Left = 344
      Top = 69
      Width = 133
      Height = 22
      Color = 13687272
      ReadOnly = True
      TabOrder = 8
      OnKeyPress = Edit6KeyPress
    end
  end
  object Panel2: TPanel
    Left = 5
    Top = 0
    Width = 509
    Height = 46
    TabOrder = 2
    object BitBtn1: TBitBtn
      Left = 16
      Top = 8
      Width = 74
      Height = 25
      Caption = #28155#21152#37197#26041
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 108
      Top = 8
      Width = 72
      Height = 25
      Caption = #20462#25913#37197#26041
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn2Click
    end
    object BitBtn3: TBitBtn
      Left = 200
      Top = 8
      Width = 73
      Height = 25
      Caption = #21024#38500#37197#26041
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = BitBtn3Click
    end
    object BitBtn4: TBitBtn
      Left = 424
      Top = 8
      Width = 67
      Height = 25
      Caption = #36864#20986
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = BitBtn4Click
    end
    object BitBtn5: TBitBtn
      Left = 311
      Top = 8
      Width = 73
      Height = 25
      Caption = #26641#29366#32467#26500
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = BitBtn5Click
    end
  end
  object pfwj: TQuery
    CachedUpdates = True
    BeforeClose = pfwjBeforeClose
    AfterScroll = pfwjAfterScroll
    DatabaseName = 'aa'
    SQL.Strings = (
      'SELECT cpbm, cpmc, ylbm, ylmc, yldw, yldj, ylyl, id'
      'FROM peifang Peifang'
      'order by cpbm,ylbm')
    UpdateObject = UpdateSQL1
    Left = 184
    Top = 96
    object pfwjcpbm: TStringField
      FieldName = 'cpbm'
      Origin = 'CCC.peifang.cpbm'
      Size = 10
    end
    object pfwjcpmc: TStringField
      FieldName = 'cpmc'
      Origin = 'CCC.peifang.cpmc'
      Size = 30
    end
    object pfwjylbm: TStringField
      FieldName = 'ylbm'
      Origin = 'CCC.peifang.ylbm'
      Size = 10
    end
    object pfwjylmc: TStringField
      FieldName = 'ylmc'
      Origin = 'CCC.peifang.ylmc'
      Size = 30
    end
    object pfwjyldw: TStringField
      FieldName = 'yldw'
      Origin = 'CCC.peifang.yldw'
      Size = 4
    end
    object pfwjyldj: TFloatField
      FieldName = 'yldj'
      Origin = 'CCC.peifang.yldj'
    end
    object pfwjylyl: TFloatField
      FieldName = 'ylyl'
      Origin = 'CCC.peifang.ylyl'
    end
    object pfwjid: TIntegerField
      FieldName = 'id'
      Origin = 'CCC.peifang.id'
    end
  end
  object DataSource1: TDataSource
    DataSet = pfwj
    Left = 216
    Top = 104
  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 = 248
    Top = 104
  end
end