ygdmwh.dfm

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

        339977FF777777773377000BFB03333333337773FF733333333F333000333333
        3300333777333333337733333333333333003333333333333377333333333333
        333333333333333333FF33333333333330003333333333333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object BitBtn8: TBitBtn
      Left = 12
      Top = 146
      Width = 57
      Height = 25
      Caption = #25253#34920
      TabOrder = 4
      OnClick = BitBtn8Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
        300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
        330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
        333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
        339977FF777777773377000BFB03333333337773FF733333333F333000333333
        3300333777333333337733333333333333003333333333333377333333333333
        333333333333333333FF33333333333330003333333333333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 184
    Width = 515
    Height = 138
    BevelInner = bvLowered
    TabOrder = 4
    object Label1: TLabel
      Left = 12
      Top = 22
      Width = 48
      Height = 12
      Caption = #21592#24037#20195#30721
    end
    object Label3: TLabel
      Left = 199
      Top = 23
      Width = 48
      Height = 12
      Caption = #21592#24037#22995#21517
    end
    object Label2: TLabel
      Left = 376
      Top = 24
      Width = 24
      Height = 12
      Caption = #24615#21035
    end
    object Label4: TLabel
      Left = 12
      Top = 65
      Width = 48
      Height = 12
      Caption = #26680#23454#23494#30721
    end
    object Label5: TLabel
      Left = 197
      Top = 66
      Width = 132
      Height = 12
      Caption = #26368#39640#20248#24800#27604#20363'('#21487#25171#25240#25968')'
    end
    object Label6: TLabel
      Left = 13
      Top = 110
      Width = 48
      Height = 12
      Caption = #21592#24037#23703#20301
    end
    object Label7: TLabel
      Left = 223
      Top = 111
      Width = 24
      Height = 12
      Caption = #22791#27880
    end
    object Label8: TLabel
      Left = 194
      Top = 81
      Width = 318
      Height = 12
      Caption = #65288'1__'#26080#26435#25171#25240#65292'0__'#21487#20197#20813#21333#65307#22914#65306'0.8__'#26082#26368#39640#21487#25171#20843#25240#65289
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBEdit1: TDBEdit
      Left = 69
      Top = 20
      Width = 97
      Height = 20
      DataField = 'ygbh'
      DataSource = DataSource1
      TabOrder = 0
      OnExit = DBEdit1Exit
    end
    object DBEdit3: TDBEdit
      Left = 251
      Top = 19
      Width = 110
      Height = 20
      DataField = 'ygxm'
      DataSource = DataSource1
      TabOrder = 1
    end
    object DBComboBox1: TDBComboBox
      Left = 408
      Top = 19
      Width = 80
      Height = 20
      DataField = 'ygxb'
      DataSource = DataSource1
      ItemHeight = 12
      Items.Strings = (
        #30007
        #22899)
      TabOrder = 2
    end
    object DBEdit2: TDBEdit
      Left = 69
      Top = 63
      Width = 97
      Height = 20
      DataField = 'hsmm'
      DataSource = DataSource1
      TabOrder = 3
      OnExit = DBEdit1Exit
    end
    object DBEdit4: TDBEdit
      Left = 339
      Top = 59
      Width = 146
      Height = 20
      DataField = 'yhbl'
      DataSource = DataSource1
      TabOrder = 4
      OnExit = DBEdit4Exit
    end
    object DBEdit6: TDBEdit
      Left = 248
      Top = 107
      Width = 240
      Height = 20
      DataField = 'bz'
      DataSource = DataSource1
      TabOrder = 6
    end
    object DBComboBox2: TDBComboBox
      Left = 69
      Top = 104
      Width = 113
      Height = 20
      DataField = 'gw'
      DataSource = DataSource1
      ItemHeight = 12
      Items.Strings = (
        #32463#29702#32423
        #20027#20219#32423
        #25910#38134#21592
        #19968#33324#21592#24037)
      TabOrder = 5
    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
    DatabaseName = 'aa'
    SQL.Strings = (
      'SELECT *'
      'FROM ygda'
      'order by ygbh')
    UpdateObject = UpdateSQL1
    Left = 176
    Top = 40
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update ygda'
      'set'
      '  ygbh = :ygbh,'
      '  ygxm = :ygxm,'
      '  ygxb = :ygxb,'
      '  gw = :gw,'
      '  bz = :bz,'
      '  yhbl = :yhbl,'
      '  hsmm = :hsmm'
      'where'
      '  id = :OLD_id')
    InsertSQL.Strings = (
      'insert into ygda'
      '  (ygbh, ygxm, ygxb, gw, bz, yhbl, hsmm)'
      'values'
      '  (:ygbh, :ygxm, :ygxb, :gw, :bz, :yhbl, :hsmm)')
    DeleteSQL.Strings = (
      'delete from ygda'
      'where'
      '  id = :OLD_id')
    Left = 208
    Top = 40
  end
  object Query2: TQuery
    DatabaseName = 'aa'
    SQL.Strings = (
      'select ygbh'
      'from ygda'
      'where ygbh=:cs')
    Left = 192
    Top = 96
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'cs'
        ParamType = ptUnknown
      end>
  end
end