yhfawh.dfm

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

    object Label9: TLabel
      Left = 395
      Top = 117
      Width = 60
      Height = 12
      Caption = #25351#23450#28040#36153#39069
    end
    object Label10: TLabel
      Left = 352
      Top = 117
      Width = 36
      Height = 12
      Caption = '%   '#25110
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 9
      Top = 112
      Width = 66
      Height = 12
      Caption = #25110' '#33756#21697#21517#31216
    end
    object Label12: TLabel
      Left = 236
      Top = 87
      Width = 24
      Height = 12
      Caption = #26143#26399
    end
    object DBEdit1: TDBEdit
      Left = 56
      Top = 8
      Width = 145
      Height = 20
      DataField = 'bm'
      DataSource = DataSource1
      TabOrder = 0
    end
    object DBEdit3: TDBEdit
      Left = 325
      Top = 7
      Width = 156
      Height = 20
      DataField = 'mc'
      DataSource = DataSource1
      TabOrder = 1
    end
    object DBEdit2: TDBEdit
      Left = 57
      Top = 33
      Width = 144
      Height = 20
      DataField = 'ksrq'
      DataSource = DataSource1
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 56
      Top = 58
      Width = 145
      Height = 20
      DataField = 'kssj'
      DataSource = DataSource1
      TabOrder = 4
      OnExit = DBEdit4Exit
    end
    object DBEdit5: TDBEdit
      Left = 325
      Top = 31
      Width = 155
      Height = 20
      DataField = 'zzrq'
      DataSource = DataSource1
      TabOrder = 3
    end
    object DBEdit6: TDBEdit
      Left = 324
      Top = 54
      Width = 156
      Height = 20
      DataField = 'zzsh'
      DataSource = DataSource1
      TabOrder = 5
      OnExit = DBEdit6Exit
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 80
      Top = 84
      Width = 121
      Height = 20
      DataField = 'cdlb'
      DataSource = DataSource1
      KeyField = 'lbbm'
      ListField = 'lbmc'
      ListSource = DataSource2
      TabOrder = 6
    end
    object DBEdit7: TDBEdit
      Left = 299
      Top = 111
      Width = 49
      Height = 20
      DataField = 'yhbl'
      DataSource = DataSource1
      TabOrder = 7
    end
    object DBEdit8: TDBEdit
      Left = 459
      Top = 112
      Width = 52
      Height = 20
      DataField = 'zdje'
      DataSource = DataSource1
      Enabled = False
      TabOrder = 8
    end
    object DateTimePicker1: TDateTimePicker
      Left = 203
      Top = 33
      Width = 21
      Height = 20
      CalAlignment = dtaLeft
      Date = 37572.4312724537
      Time = 37572.4312724537
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 9
      OnCloseUp = DateTimePicker1CloseUp
    end
    object DateTimePicker2: TDateTimePicker
      Left = 481
      Top = 31
      Width = 21
      Height = 20
      CalAlignment = dtaLeft
      Date = 37572.4312724537
      Time = 37572.4312724537
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 10
      OnCloseUp = DateTimePicker2CloseUp
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 80
      Top = 110
      Width = 121
      Height = 20
      DataField = 'cdbh'
      DataSource = DataSource1
      KeyField = 'bh'
      ListField = 'mc'
      ListSource = DataSource3
      TabOrder = 11
    end
    object CheckBox1: TCheckBox
      Left = 264
      Top = 84
      Width = 32
      Height = 17
      Caption = #19968
      TabOrder = 12
    end
    object CheckBox2: TCheckBox
      Left = 300
      Top = 84
      Width = 32
      Height = 17
      Caption = #20108
      TabOrder = 13
    end
    object CheckBox3: TCheckBox
      Left = 337
      Top = 84
      Width = 33
      Height = 17
      Caption = #19977
      TabOrder = 14
    end
    object CheckBox4: TCheckBox
      Left = 374
      Top = 84
      Width = 33
      Height = 17
      Caption = #22235
      TabOrder = 15
    end
    object CheckBox5: TCheckBox
      Left = 410
      Top = 84
      Width = 31
      Height = 17
      Caption = #20116
      TabOrder = 16
    end
    object CheckBox6: TCheckBox
      Left = 447
      Top = 84
      Width = 33
      Height = 17
      Caption = #20845
      TabOrder = 17
    end
    object CheckBox7: TCheckBox
      Left = 484
      Top = 84
      Width = 29
      Height = 17
      Caption = #26085
      TabOrder = 18
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 144
    Top = 24
  end
  object ExcelApplication1: TExcelApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 256
    Top = 32
  end
  object ExcelWorksheet1: TExcelWorksheet
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 288
    Top = 32
  end
  object ExcelWorkbook1: TExcelWorkbook
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 320
    Top = 32
  end
  object Query1: TQuery
    CachedUpdates = True
    AfterScroll = Query1AfterScroll
    DatabaseName = 'aa'
    SQL.Strings = (
      'SELECT *'
      'FROM yhfa Yhfa'
      'order by bm')
    UpdateObject = UpdateSQL1
    Left = 176
    Top = 40
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update yhfa'
      'set'
      '  bm = :bm,'
      '  mc = :mc,'
      '  ksrq = :ksrq,'
      '  zzrq = :zzrq,'
      '  zoubie = :zoubie,'
      '  kssj = :kssj,'
      '  zzsh = :zzsh,'
      '  cdlb = :cdlb,'
      '  cdbh = :cdbh,'
      '  yhbl = :yhbl,'
      '  zdje = :zdje'
      'where'
      '  id = :OLD_id')
    InsertSQL.Strings = (
      'insert into yhfa'
      
        '  (bm, mc, ksrq, zzrq, zoubie, kssj, zzsh, cdlb, cdbh, yhbl, zdj' +
        'e)'
      'values'
      
        '  (:bm, :mc, :ksrq, :zzrq, :zoubie, :kssj, :zzsh, :cdlb, :cdbh, ' +
        ':yhbl, '
      '   :zdje)')
    DeleteSQL.Strings = (
      'delete from yhfa'
      'where'
      '  id = :OLD_id')
    Left = 208
    Top = 40
  end
  object Query2: TQuery
    DatabaseName = 'aa'
    SQL.Strings = (
      'select *'
      'from lbbm')
    Left = 216
    Top = 80
    object Query2id: TIntegerField
      FieldName = 'id'
      Origin = 'AA.lbbm.id'
    end
    object Query2lbbm: TStringField
      FieldName = 'lbbm'
      Origin = 'AA.lbbm.lbbm'
      Size = 10
    end
    object Query2lbmc: TStringField
      FieldName = 'lbmc'
      Origin = 'AA.lbbm.lbmc'
      Size = 50
    end
    object Query2fwfbl: TIntegerField
      FieldName = 'fwfbl'
      Origin = 'AA.lbbm.fwfbl'
    end
    object Query2fwf: TIntegerField
      FieldName = 'fwf'
      Origin = 'AA.lbbm.fwf'
    end
    object Query2zkbl: TIntegerField
      FieldName = 'zkbl'
      Origin = 'AA.lbbm.zkbl'
    end
    object Query2shuilv: TIntegerField
      FieldName = 'shuilv'
      Origin = 'AA.lbbm.shuilv'
    end
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 248
    Top = 80
  end
  object Query3: TQuery
    DatabaseName = 'aa'
    DataSource = DataSource2
    SQL.Strings = (
      'select *'
      'from cdwj'
      'where lbbm=:lbbm')
    Left = 224
    Top = 120
    ParamData = <
      item
        DataType = ftString
        Name = 'lbbm'
        ParamType = ptUnknown
        Size = 11
      end>
  end
  object DataSource3: TDataSource
    DataSet = Query3
    Left = 256
    Top = 120
  end
end