kehugz.dfm

来自「日昌餐饮管理系统是用Delphi7+SQL写的管理系统」· DFM 代码 · 共 932 行 · 第 1/3 页

    FixedColor = clActiveBorder
    RowCount = 10
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
    ScrollBars = ssVertical
    TabOrder = 3
    OnSelectCell = StringGrid1SelectCell
    RowHeights = (
      24
      24
      24
      24
      24
      24
      24
      24
      24
      24)
  end
  object Edit5: TEdit
    Left = 110
    Top = 177
    Width = 195
    Height = 24
    Enabled = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
  end
  object BitBtn1: TBitBtn
    Left = 181
    Top = 225
    Width = 75
    Height = 36
    Caption = #30830#35748
    TabOrder = 5
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 256
    Top = 225
    Width = 75
    Height = 36
    Caption = #21462#28040
    TabOrder = 6
    Kind = bkCancel
  end
  object Query1: TQuery
    DatabaseName = 'aa'
    OnFilterRecord = Query1FilterRecord
    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 Query2: TQuery
    DatabaseName = 'aa'
    SQL.Strings = (
      
        'SELECT id, bm, mc, ksrq, zzrq, zoubie, kssj, zzsh, cdlb, yhbl, z' +
        'dje'
      'FROM yhfa Yhfa')
    Left = 224
    Top = 16
    object Query2id: TIntegerField
      FieldName = 'id'
      Origin = 'AA.yhfa.id'
    end
    object Query2bm: TStringField
      FieldName = 'bm'
      Origin = 'AA.yhfa.bm'
      Size = 10
    end
    object Query2mc: TStringField
      FieldName = 'mc'
      Origin = 'AA.yhfa.mc'
      Size = 50
    end
    object Query2ksrq: TDateTimeField
      FieldName = 'ksrq'
      Origin = 'AA.yhfa.ksrq'
    end
    object Query2zzrq: TDateTimeField
      FieldName = 'zzrq'
      Origin = 'AA.yhfa.zzrq'
    end
    object Query2zoubie: TStringField
      FieldName = 'zoubie'
      Origin = 'AA.yhfa.zoubie'
      Size = 10
    end
    object Query2kssj: TStringField
      FieldName = 'kssj'
      Origin = 'AA.yhfa.kssj'
      Size = 10
    end
    object Query2zzsh: TStringField
      FieldName = 'zzsh'
      Origin = 'AA.yhfa.zzsh'
      Size = 10
    end
    object Query2cdlb: TStringField
      FieldName = 'cdlb'
      Origin = 'AA.yhfa.cdlb'
      Size = 10
    end
    object Query2yhbl: TFloatField
      FieldName = 'yhbl'
      Origin = 'AA.yhfa.yhbl'
    end
    object Query2zdje: TFloatField
      FieldName = 'zdje'
      Origin = 'AA.yhfa.zdje'
    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
end