fkfs.dfm

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

    Left = 2
    Top = 20
    Width = 393
    Height = 220
    ColCount = 3
    DefaultColWidth = 140
    DefaultRowHeight = 23
    FixedColor = clActiveBorder
    RowCount = 10
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
    ScrollBars = ssVertical
    TabOrder = 3
    OnSelectCell = StringGrid1SelectCell
    ColWidths = (
      140
      116
      113)
    RowHeights = (
      23
      23
      23
      23
      23
      23
      23
      23
      23
      23)
  end
  object BitBtn1: TBitBtn
    Left = 409
    Top = 286
    Width = 75
    Height = 36
    Caption = #30830#35748
    TabOrder = 4
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 484
    Top = 286
    Width = 75
    Height = 36
    Caption = #21462#28040
    TabOrder = 5
    Kind = bkCancel
  end
  object Edit4: TEdit
    Left = 283
    Top = 308
    Width = 89
    Height = 24
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 6
  end
  object Panel1: TPanel
    Left = 2
    Top = 240
    Width = 393
    Height = 34
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 7
    object Label6: TLabel
      Left = 116
      Top = 11
      Width = 48
      Height = 16
      Caption = #25273#38646#22836
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Edit5: TEdit
      Left = 187
      Top = 5
      Width = 80
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnChange = Edit5Change
    end
  end
  object Query1: TQuery
    DatabaseName = 'aa'
    SQL.Strings = (
      'SELECT *'
      'FROM fkfs Fkfs')
    Left = 192
    Top = 16
    object Query1fkfsbm: TStringField
      FieldName = 'fkfsbm'
      Origin = 'AA.fkfs.fkfsbm'
      Size = 10
    end
    object Query1fkfsmc: TStringField
      FieldName = 'fkfsmc'
      Origin = 'AA.fkfs.fkfsmc'
      Size = 50
    end
    object Query1sfjy: TBooleanField
      FieldName = 'sfjy'
      Origin = 'AA.fkfs.sfjy'
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 500
    OnTimer = Timer1Timer
    Left = 128
    Top = 40
  end
  object Query3: TQuery
    CachedUpdates = True
    DatabaseName = 'aa'
    SQL.Strings = (
      'select *'
      'from hykwj'
      'where kh=:cs')
    UpdateObject = UpdateSQL1
    Left = 184
    Top = 72
    ParamData = <
      item
        DataType = ftString
        Name = 'cs'
        ParamType = ptUnknown
      end>
    object Query3kh: TStringField
      FieldName = 'kh'
      Origin = 'AA.hykwj.kh'
      Size = 30
    end
    object Query3zt: TStringField
      FieldName = 'zt'
      Origin = 'AA.hykwj.zt'
      FixedChar = True
      Size = 1
    end
    object Query3czyxm: TStringField
      FieldName = 'czyxm'
      Origin = 'AA.hykwj.czyxm'
    end
    object Query3yhlb: TStringField
      FieldName = 'yhlb'
      Origin = 'AA.hykwj.yhlb'
      Size = 50
    end
    object Query3zwxm: TStringField
      FieldName = 'zwxm'
      Origin = 'AA.hykwj.zwxm'
    end
    object Query3ywxm: TStringField
      FieldName = 'ywxm'
      Origin = 'AA.hykwj.ywxm'
    end
    object Query3sfzhm: TStringField
      FieldName = 'sfzhm'
      Origin = 'AA.hykwj.sfzhm'
    end
    object Query3jrrq: TDateTimeField
      FieldName = 'jrrq'
      Origin = 'AA.hykwj.jrrq'
    end
    object Query3yxq: TDateTimeField
      FieldName = 'yxq'
      Origin = 'AA.hykwj.yxq'
    end
    object Query3hth: TStringField
      FieldName = 'hth'
      Origin = 'AA.hykwj.hth'
    end
    object Query3xfjf: TIntegerField
      FieldName = 'xfjf'
      Origin = 'AA.hykwj.xfjf'
    end
    object Query3ye: TIntegerField
      FieldName = 'ye'
      Origin = 'AA.hykwj.ye'
    end
    object Query3zjxfe: TIntegerField
      FieldName = 'zjxfe'
      Origin = 'AA.hykwj.zjxfe'
    end
    object Query3zjcs: TIntegerField
      FieldName = 'zjcs'
      Origin = 'AA.hykwj.zjcs'
    end
    object Query3dj: TIntegerField
      FieldName = 'dj'
      Origin = 'AA.hykwj.dj'
    end
    object Query3dh: TStringField
      FieldName = 'dh'
      Origin = 'AA.hykwj.dh'
    end
    object Query3sr: TDateTimeField
      FieldName = 'sr'
      Origin = 'AA.hykwj.sr'
    end
    object Query3ah: TStringField
      FieldName = 'ah'
      Origin = 'AA.hykwj.ah'
      Size = 150
    end
    object Query3yb: TStringField
      FieldName = 'yb'
      Origin = 'AA.hykwj.yb'
      Size = 10
    end
    object Query3gsmc: TStringField
      FieldName = 'gsmc'
      Origin = 'AA.hykwj.gsmc'
      Size = 50
    end
    object Query3zw: TStringField
      FieldName = 'zw'
      Origin = 'AA.hykwj.zw'
      Size = 10
    end
    object Query3gsdz: TStringField
      FieldName = 'gsdz'
      Origin = 'AA.hykwj.gsdz'
      Size = 100
    end
    object Query3bz: TStringField
      FieldName = 'bz'
      Origin = 'AA.hykwj.bz'
      Size = 100
    end
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update hykwj'
      'set'
      '  kh = :kh,'
      '  zt = :zt,'
      '  czyxm = :czyxm,'
      '  yhlb = :yhlb,'
      '  zwxm = :zwxm,'
      '  ywxm = :ywxm,'
      '  sfzhm = :sfzhm,'
      '  jrrq = :jrrq,'
      '  yxq = :yxq,'
      '  hth = :hth,'
      '  xfjf = :xfjf,'
      '  ye = :ye,'
      '  zjxfe = :zjxfe,'
      '  zjcs = :zjcs,'
      '  dj = :dj,'
      '  dh = :dh,'
      '  sr = :sr,'
      '  ah = :ah,'
      '  yb = :yb,'
      '  gsmc = :gsmc,'
      '  zw = :zw,'
      '  gsdz = :gsdz,'
      '  bz = :bz'
      'where'
      '  kh = :OLD_kh')
    InsertSQL.Strings = (
      'insert into hykwj'
      
        '  (kh, zt, czyxm, yhlb, zwxm, ywxm, sfzhm, jrrq, yxq, hth, xfjf,' +
        ' ye, zjxfe, '
      '   zjcs, dj, dh, sr, ah, yb, gsmc, zw, gsdz, bz)'
      'values'
      
        '  (:kh, :zt, :czyxm, :yhlb, :zwxm, :ywxm, :sfzhm, :jrrq, :yxq, :' +
        'hth, :xfjf, '
      
        '   :ye, :zjxfe, :zjcs, :dj, :dh, :sr, :ah, :yb, :gsmc, :zw, :gsd' +
        'z, :bz)')
    DeleteSQL.Strings = (
      'delete from hykwj'
      'where'
      '  kh = :OLD_kh')
    Left = 216
    Top = 80
  end
  object Query2: TADOQuery
    Connection = mainForm.RJSADO
    Parameters = <>
    SQL.Strings = (
      'select * '
      'from sysset')
    Left = 240
    Top = 16
  end
end