tcmxxz.dfm

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

object tcmxForm: TtcmxForm
  Left = 67
  Top = 130
  Width = 620
  Height = 387
  BorderIcons = [biSystemMenu]
  Caption = #25353#26126#32454#36873#25321#37197#39184
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 26
    Top = 16
    Width = 84
    Height = 12
    Caption = #35831#36873#25321#37197#39184#31867#21035
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 128
    Top = 40
    Width = 36
    Height = 12
    Caption = #21487#36873#33756
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object BitBtn2: TBitBtn
    Left = 480
    Top = 4
    Width = 75
    Height = 41
    Cancel = True
    Caption = #36820#22238
    ModalResult = 10
    TabOrder = 0
    Glyph.Data = {
      360C0000424D360C000000000000360000002800000020000000200000000100
      180000000000000C000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      3399993399993399993399993399993399993399993399993399993399993399
      9933999933999933999933999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      3399993399993399993399993399993399993399993399993399993399993399
      9933999933999933999933999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999999999
      3399993399993399993399993399993399993399993399993399993399993399
      9933999933999933999933999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999999999990000
      0099993399993399993399993399993399993399993399993399993399993399
      9933999933999933999933999933999933999933999933FFFFFF000000999933
      999933999933999933999933999933999933999933999999999999000000FFFF
      0000000099993399993399993399993399993399993399993399993399993399
      9933999933999933999933999933999933999933999933FFFFFF000000999933
      999999999999999933999933999933999933999999999999000000FFFF00FFFF
      00FFFF0000000099993399993399993399993399993399993399993399993399
      9933999933999933999933999933999933999933999933FFFFFF000000999933
      999999000000999999999933999933999999999999000000FFFF00FFFF00FFFF
      00FFFF00FFFF0000000099993399993399993399993399993399993399993399
      9933999933999933999933999933999933999933999933FFFFFF000000999933
      999999000000000000999999999999999999000000FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF0099993300000099993399993399993399993399993399993399
      9933999933999933999933999933999933999933999933FFFFFF000000999933
      999999000000FFFF00000000999999000000FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF0099993300000099993399993399993399993399993399993399993399
      9933999933999933999933999933999933999933999933FFFFFF000000999933
      999999000000FFFF00FFFF00000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      0099993300000099993399993399993399993399993399993399993399993399
      9933999933999933999933999933999933999933999933FFFFFF000000999933
      999999000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF009999
      3300000099993399993399993399993399993399993399993399993399993399
      9933999933999933999933999933999933999933999933FFFFFF000000999933
      999999000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF009999330000
      0099993399993399993399993399993399993399993399993399993399993399
      9933999933999933999933999933999933999933999933FFFFFF000000999933
      999999000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF009999330000009999
      3399993399993399993399993399993399993399993399993399993399993399
      9933999933999933999933999933999933999933999933FFFFFF000000999933
      999999000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF000000009999339999
      3399993399993399999999999999999999999999999999999999999999999999
      9999999999999999999933999933999933999933999933FFFFFF000000999933
      999999000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF000000009999
      3399993399993399999900000000000000000000000000000000000000000000
      0000000000000000000000999933999933999933999933FFFFFF000000999933
      9999990000009999339999339999339999339999339999339999339999330000
      00999933999933999933999999000000FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00999933000000999933999933999933999933FFFFFF000000999933
      9999330000000000000000000000000000000000000000000000000000000000
      00000000999933999933999933999999000000FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00999933000000999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      33999933999933999933999933999999999999000000FFFF00FFFF00FFFF00FF
      FF00FFFF00999933000000999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      33999933999933999933999999999999000000FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00999933000000999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      33999933999933999999999999000000FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00999933000000999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      33999933999999999999000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF0099
      9933FFFF00999933000000999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      33999999999999000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF0099993300
      0000999933999933000000999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      99999999000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF0099993300000099
      9933000000999933000000999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      99000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF0099993300000099993399
      9933999933000000000000999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      33999999000000FFFF00FFFF00FFFF00FFFF0099993300000099993399993399
      9933999933999933000000999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      33999933999999000000FFFF00FFFF0099993300000099993399993399993399
      9933999933999933999933999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      3399993399993399999900000099993300000099993399993399993399993399
      9933999933999933999933999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      3399993399993399993399993300000099993399993399993399993399993399
      9933999933999933999933999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      3399993399993399993399993399993399993399993399993399993399993399
      9933999933999933999933999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      3399993399993399993399993399993399993399993399993399993399993399
      9933999933999933999933999933999933999933999933FFFFFF000000FFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  end
  object ComboBox1: TComboBox
    Left = 113
    Top = 12
    Width = 145
    Height = 20
    ItemHeight = 12
    TabOrder = 1
    OnChange = ComboBox1Change
  end
  object DBGrid1: TDBGrid
    Left = 4
    Top = 56
    Width = 326
    Height = 297
    DataSource = DataSource1
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'bh'
        Title.Caption = #32534#21495
        Width = 43
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'lbbm'
        Title.Caption = #31867#21035#32534#21495
        Width = 51
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'mc'
        Title.Caption = #21517#31216
        Width = 154
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'dj'
        Title.Caption = #21333#20215
        Width = 40
        Visible = True
      end>
  end
  object DBGrid2: TDBGrid
    Left = 336
    Top = 57
    Width = 273
    Height = 296
    DataSource = DataSource2
    TabOrder = 3
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGrid2DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'zcbh'
        Title.Caption = #20027#39184#32534#21495
        Width = 83
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'pcbh'
        Title.Caption = #37197#39184#32534#21495
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sl'
        Title.Caption = #25968#37327
        Width = 70
        Visible = True
      end>
  end
  object Query1: TQuery
    DatabaseName = 'aa'
    OnFilterRecord = Query1FilterRecord
    SQL.Strings = (
      'select *'
      'from cdwj')
    Left = 192
    Top = 80
    object Query1bh: TStringField
      FieldName = 'bh'
      Origin = 'AA.cdwj.bh'
      Size = 10
    end
    object Query1lbbm: TStringField
      FieldName = 'lbbm'
      Origin = 'AA.cdwj.lbbm'
      Size = 10
    end
    object Query1mc: TStringField
      FieldName = 'mc'
      Origin = 'AA.cdwj.mc'
      Size = 50
    end
    object Query1ywmc: TStringField
      FieldName = 'ywmc'
      Origin = 'AA.cdwj.ywmc'
      Size = 50
    end
    object Query1gg: TStringField
      FieldName = 'gg'
      Origin = 'AA.cdwj.gg'
      Size = 50
    end
    object Query1dj: TFloatField
      FieldName = 'dj'
      Origin = 'AA.cdwj.dj'
    end
    object Query1tcbz: TBooleanField
      FieldName = 'tcbz'
      Origin = 'AA.cdwj.tcbz'
    end
    object Query1zt: TBooleanField
      FieldName = 'zt'
      Origin = 'AA.cdwj.zt'
    end
    object Query1sfkj: TBooleanField
      FieldName = 'sfkj'
      Origin = 'AA.cdwj.sfkj'
    end
    object Query1zkdl: TBooleanField
      FieldName = 'zkdl'
      Origin = 'AA.cdwj.zkdl'
    end
    object Query1zkl: TIntegerField
      FieldName = 'zkl'
      Origin = 'AA.cdwj.zkl'
    end
    object Query1fwfdl: TBooleanField
      FieldName = 'fwfdl'
      Origin = 'AA.cdwj.fwfdl'
    end
    object Query1fwfl: TIntegerField
      FieldName = 'fwfl'
      Origin = 'AA.cdwj.fwfl'
    end
    object Query1shuilu: TIntegerField
      FieldName = 'shuilu'
      Origin = 'AA.cdwj.shuilu'
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 224
    Top = 80
  end
  object Query2: TQuery
    CachedUpdates = True
    DatabaseName = 'aa'
    SQL.Strings = (
      'select *'
      'from tcwj'
      'where zcbh=:cs and pcbh<>'#39#39)
    UpdateObject = UpdateSQL1
    Left = 464
    Top = 136
    ParamData = <
      item
        DataType = ftString
        Name = 'cs'
        ParamType = ptUnknown
      end>
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update tcwj'
      'set'
      '  zcbh = :zcbh,'
      '  pcbh = :pcbh,'
      '  pclb = :pclb,'
      '  sl = :sl'
      'where'
      '  id = :OLD_id')
    InsertSQL.Strings = (
      'insert into tcwj'
      '  (zcbh, pcbh, pclb, sl)'
      'values'
      '  (:zcbh, :pcbh, :pclb, :sl)')
    DeleteSQL.Strings = (
      'delete from tcwj'
      'where'
      '  id = :OLD_id')
    Left = 496
    Top = 136
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 528
    Top = 136
  end
end