ydcl.dfm

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

object ydclForm: TydclForm
  Left = 131
  Top = 133
  Width = 605
  Height = 375
  BorderIcons = [biSystemMenu]
  Caption = #21488#20301#39044#23450#22788#29702
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 12
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 597
    Height = 178
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'ct'
        Title.Caption = #39184#21381#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'th'
        Title.Caption = #39184#21488#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'rq'
        Title.Caption = #26085#26399
        Width = 65
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'qssj'
        Title.Caption = #24320#22987#26102#38388
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zzsj'
        Title.Caption = #25130#27490#26102#38388
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'rs'
        Title.Caption = #23601#39184#20154#25968
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yq'
        Title.Caption = #35201#27714
        Width = 142
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'jbr'
        Title.Caption = #25509#24453#20154
        Width = 45
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ydr'
        Title.Caption = #39044#23450#20154
        Width = 46
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ydsj'
        Title.Caption = #39044#23450#26102#38388
        Width = 56
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'lxfs'
        Title.Caption = #32852#31995#26041#24335
        Width = 119
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'bz'
        Title.Caption = #22791#27880
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zxbz'
        Visible = True
      end>
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = mainForm.RJSADO
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *'
      'from ctyd'
      'where zxbz=0')
    Left = 416
    Top = 8
    object ADOQuery1ID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADOQuery1rq: TDateTimeField
      FieldName = 'rq'
    end
    object ADOQuery1ct: TStringField
      FieldName = 'ct'
      Size = 10
    end
    object ADOQuery1th: TStringField
      FieldName = 'th'
      Size = 10
    end
    object ADOQuery1qssj: TDateTimeField
      FieldName = 'qssj'
    end
    object ADOQuery1zzsj: TDateTimeField
      FieldName = 'zzsj'
    end
    object ADOQuery1rs: TIntegerField
      FieldName = 'rs'
    end
    object ADOQuery1yq: TStringField
      FieldName = 'yq'
      Size = 100
    end
    object ADOQuery1jbr: TStringField
      FieldName = 'jbr'
    end
    object ADOQuery1ydr: TStringField
      FieldName = 'ydr'
    end
    object ADOQuery1ydsj: TDateTimeField
      FieldName = 'ydsj'
    end
    object ADOQuery1lxfs: TStringField
      FieldName = 'lxfs'
      Size = 50
    end
    object ADOQuery1bz: TStringField
      FieldName = 'bz'
      Size = 100
    end
    object ADOQuery1zxbz: TBooleanField
      FieldName = 'zxbz'
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 448
    Top = 8
  end
end