chzx.dfm

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

object cpcxf: Tcpcxf
  Left = 59
  Top = 146
  Width = 664
  Height = 325
  BorderIcons = [biSystemMenu]
  Caption = #21407#26009#36873#25321#23631
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 14
  object Label1: TLabel
    Left = 424
    Top = 16
    Width = 56
    Height = 14
    Caption = #24744#36755#20837#30340
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 488
    Top = 16
    Width = 7
    Height = 14
    Font.Charset = GB2312_CHARSET
    Font.Color = clAqua
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 1
    Top = 47
    Width = 655
    Height = 250
    Color = clSilver
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    OnKeyPress = DBGrid1KeyPress
    Columns = <
      item
        Color = 13687272
        Expanded = False
        FieldName = 'cpmc'
        Title.Alignment = taCenter
        Title.Caption = #20135#21697#21517#31216
        Width = 75
        Visible = True
      end
      item
        Color = 12971500
        Expanded = False
        FieldName = 'cpbm'
        Title.Alignment = taCenter
        Title.Caption = #20135#21697#32534#30721
        Width = 68
        Visible = True
      end
      item
        Color = 13032130
        Expanded = False
        FieldName = 'posbm'
        Title.Alignment = taCenter
        Title.Caption = 'POS'#32534#30721
        Visible = True
      end
      item
        Color = 15647931
        Expanded = False
        FieldName = 'pym'
        Title.Alignment = taCenter
        Title.Caption = #25340#38899#30721
        Width = 58
        Visible = True
      end
      item
        Color = 14672075
        Expanded = False
        FieldName = 'dj'
        Title.Alignment = taCenter
        Title.Caption = #21333#20215
        Visible = True
      end
      item
        Color = 11262197
        Expanded = False
        FieldName = 'gysmc'
        Title.Alignment = taCenter
        Title.Caption = #29983#20135#21378#23478
        Visible = True
      end
      item
        Color = 13761711
        Expanded = False
        FieldName = 'lbbm'
        Title.Alignment = taCenter
        Title.Caption = #31867#21035#32534#30721
        Visible = True
      end
      item
        Color = 16707023
        Expanded = False
        FieldName = 'dw'
        Title.Alignment = taCenter
        Title.Caption = #21333#20301
        Visible = True
      end>
  end
  object RadioGroup1: TRadioGroup
    Left = 8
    Top = 8
    Width = 402
    Height = 33
    Caption = #26597#25214#26041#24335
    Columns = 3
    Items.Strings = (
      #25353#25340#38899#30721#26597#25214
      #25353#20135#21697#30721#26597#25214
      #25353'POS'#30721#26597#25214)
    TabOrder = 1
    OnClick = RadioGroup1Click
  end
  object chanpin: TQuery
    DatabaseName = 'aa'
    OnFilterRecord = chanpinFilterRecord
    SQL.Strings = (
      
        'SELECT Chanpin.cpbm, Chanpin.cpmc, Chanpin.posbm, Chanpin.pym, C' +
        'hanpin.dj, Chanpin.sccj, Chanpin.lbbm, Chanpin.lbmc, Chanpin.dw,' +
        ' Chanpin.id, Gys.gysmc'
      'FROM chanpin Chanpin, gys Gys'
      'WHERE  Chanpin.sccj = Gys.gysbm ')
    Left = 320
    Top = 128
    object chanpincpmc: TStringField
      FieldName = 'cpmc'
      Origin = 'CCC.chanpin.posbm'
      Size = 30
    end
    object chanpincpbm: TStringField
      FieldName = 'cpbm'
      Origin = 'CCC.chanpin.cpbm'
    end
    object chanpinposbm: TStringField
      FieldName = 'posbm'
      Origin = 'CCC.chanpin.posbm'
    end
    object chanpinpym: TStringField
      FieldName = 'pym'
      Origin = 'CCC.chanpin.pym'
      Size = 10
    end
    object chanpindj: TFloatField
      FieldName = 'dj'
      Origin = 'CCC.chanpin.dj'
    end
    object chanpinsccj: TStringField
      FieldName = 'sccj'
      Origin = 'CCC.chanpin.sccj'
      Size = 30
    end
    object chanpinlbbm: TStringField
      FieldName = 'lbbm'
      Origin = 'CCC.chanpin.lbbm'
    end
    object chanpindw: TStringField
      FieldName = 'dw'
      Origin = 'CCC.chanpin.dw'
      Size = 4
    end
    object chanpinid: TIntegerField
      FieldName = 'id'
      Origin = 'CCC.chanpin.id'
    end
    object chanpinlbmc: TStringField
      FieldName = 'lbmc'
      Origin = 'CCC.chanpin.lbmc'
      Size = 30
    end
    object chanpingysmc: TStringField
      FieldName = 'gysmc'
      Origin = 'CCC.gys.gysmc'
      Size = 30
    end
  end
  object DataSource1: TDataSource
    DataSet = chanpin
    Left = 352
    Top = 128
  end
end