hygl.dfm

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

    end
    object DBEdit9: TDBEdit
      Left = 56
      Top = 5
      Width = 106
      Height = 20
      DataField = 'kh'
      DataSource = DataSource1
      TabOrder = 0
      OnExit = DBEdit9Exit
    end
    object DBCheckBox1: TDBCheckBox
      Left = 233
      Top = 7
      Width = 57
      Height = 17
      Caption = #21487#29992
      DataField = 'zt'
      DataSource = DataSource1
      TabOrder = 1
      ValueChecked = 'True'
      ValueUnchecked = 'False'
    end
    object DBEdit10: TDBEdit
      Left = 56
      Top = 82
      Width = 105
      Height = 20
      DataField = 'xfjf'
      DataSource = DataSource1
      TabOrder = 11
    end
    object DBEdit11: TDBEdit
      Left = 233
      Top = 82
      Width = 94
      Height = 20
      DataField = 'ye'
      DataSource = DataSource1
      TabOrder = 12
    end
    object DBEdit12: TDBEdit
      Left = 383
      Top = 82
      Width = 73
      Height = 20
      DataField = 'zjxfe'
      DataSource = DataSource1
      TabOrder = 13
    end
    object DBEdit13: TDBEdit
      Left = 522
      Top = 82
      Width = 88
      Height = 20
      DataField = 'zjcs'
      DataSource = DataSource1
      TabOrder = 14
    end
    object DBEdit14: TDBEdit
      Left = 56
      Top = 109
      Width = 104
      Height = 20
      DataField = 'dj'
      DataSource = DataSource1
      TabOrder = 15
    end
    object DBEdit15: TDBEdit
      Left = 233
      Top = 109
      Width = 94
      Height = 20
      DataField = 'dh'
      DataSource = DataSource1
      TabOrder = 16
    end
    object DBEdit16: TDBEdit
      Left = 383
      Top = 109
      Width = 73
      Height = 20
      DataField = 'sr'
      DataSource = DataSource1
      TabOrder = 17
    end
    object DBEdit17: TDBEdit
      Left = 522
      Top = 109
      Width = 87
      Height = 20
      DataField = 'ah'
      DataSource = DataSource1
      TabOrder = 18
    end
    object DBEdit18: TDBEdit
      Left = 56
      Top = 135
      Width = 104
      Height = 20
      DataField = 'yb'
      DataSource = DataSource1
      TabOrder = 19
    end
    object DBEdit19: TDBEdit
      Left = 233
      Top = 135
      Width = 95
      Height = 20
      DataField = 'gsmc'
      DataSource = DataSource1
      TabOrder = 20
    end
    object DBEdit20: TDBEdit
      Left = 522
      Top = 135
      Width = 88
      Height = 20
      DataField = 'gsdz'
      DataSource = DataSource1
      TabOrder = 21
    end
    object DBEdit21: TDBEdit
      Left = 383
      Top = 135
      Width = 73
      Height = 20
      DataField = 'zw'
      DataSource = DataSource1
      TabOrder = 22
    end
    object DBEdit22: TDBEdit
      Left = 328
      Top = 162
      Width = 281
      Height = 20
      DataField = 'bz'
      DataSource = DataSource1
      TabOrder = 23
    end
    object DBEdit23: TDBEdit
      Left = 56
      Top = 161
      Width = 235
      Height = 20
      DataField = 'dzyjdz'
      DataSource = DataSource1
      TabOrder = 24
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 617
    Height = 178
    DataSource = DataSource1
    TabOrder = 4
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'kh'
        Title.Caption = #20250#21592#21345#21495
        Width = 102
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zt'
        Title.Caption = #20250#21592#21345#29366#24577
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'czyxm'
        Title.Caption = #25805#20316#21592#22995#21517
        Width = 67
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yhlb'
        Title.Caption = #29992#25143#31867#21035
        Width = 72
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zwxm'
        Title.Caption = #20013#25991#22995#21517
        Width = 56
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ywxm'
        Title.Caption = #33521#25991#22995#21517
        Width = 53
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sfzhm'
        Title.Caption = #36523#20221#35777#21495#30721
        Width = 71
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'jrrq'
        Title.Caption = #21152#20837#26085#26399
        Width = 65
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yxq'
        Title.Caption = #26377#25928#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'hth'
        Title.Caption = #21512#21516#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'xfjf'
        Title.Caption = #28040#36153#31215#20998
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ye'
        Title.Caption = #20313#39069
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zjxfe'
        Title.Caption = #24635#35745#28040#36153#39069
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zjcs'
        Title.Caption = #24635#35745#28040#36153#27425#25968
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'dj'
        Title.Caption = #31561#32423
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'dh'
        Title.Caption = #30005#35805
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sr'
        Title.Caption = #29983#26085
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ah'
        Title.Caption = #29233#22909
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yb'
        Title.Caption = #37038#25919#32534#30721
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gsmc'
        Title.Caption = #20844#21496#21517#31216
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zw'
        Title.Caption = #32844#21153
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gsdz'
        Title.Caption = #20844#21496#22320#22336
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'bz'
        Title.Caption = #22791#27880
        Visible = True
      end>
  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 ADOQuery1: TADOQuery
    Connection = mainForm.RJSADO
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *'
      'from hykwj')
    Left = 416
    Top = 8
    object ADOQuery1kh: TWideStringField
      FieldName = 'kh'
      Size = 30
    end
    object ADOQuery1zt: TStringField
      FieldName = 'zt'
      FixedChar = True
      Size = 1
    end
    object ADOQuery1czyxm: TStringField
      FieldName = 'czyxm'
    end
    object ADOQuery1yhlb: TStringField
      FieldName = 'yhlb'
      Size = 50
    end
    object ADOQuery1zwxm: TStringField
      FieldName = 'zwxm'
    end
    object ADOQuery1ywxm: TStringField
      FieldName = 'ywxm'
    end
    object ADOQuery1sfzhm: TStringField
      FieldName = 'sfzhm'
    end
    object ADOQuery1jrrq: TDateTimeField
      FieldName = 'jrrq'
    end
    object ADOQuery1yxq: TDateTimeField
      FieldName = 'yxq'
    end
    object ADOQuery1hth: TStringField
      FieldName = 'hth'
    end
    object ADOQuery1xfjf: TIntegerField
      FieldName = 'xfjf'
    end
    object ADOQuery1ye: TIntegerField
      FieldName = 'ye'
    end
    object ADOQuery1zjxfe: TIntegerField
      FieldName = 'zjxfe'
    end
    object ADOQuery1zjcs: TIntegerField
      FieldName = 'zjcs'
    end
    object ADOQuery1dj: TIntegerField
      FieldName = 'dj'
    end
    object ADOQuery1dh: TStringField
      FieldName = 'dh'
    end
    object ADOQuery1sr: TDateTimeField
      FieldName = 'sr'
    end
    object ADOQuery1ah: TStringField
      FieldName = 'ah'
      Size = 150
    end
    object ADOQuery1yb: TStringField
      FieldName = 'yb'
      Size = 10
    end
    object ADOQuery1gsmc: TStringField
      FieldName = 'gsmc'
      Size = 50
    end
    object ADOQuery1zw: TStringField
      FieldName = 'zw'
      Size = 10
    end
    object ADOQuery1gsdz: TStringField
      FieldName = 'gsdz'
      Size = 100
    end
    object ADOQuery1bz: TStringField
      FieldName = 'bz'
      Size = 100
    end
    object ADOQuery1dzyjdz: TStringField
      FieldName = 'dzyjdz'
      Size = 50
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 448
    Top = 8
  end
  object ADOQuery2: TADOQuery
    Connection = mainForm.RJSADO
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *'
      'from canting')
    Left = 168
    Top = 64
  end
  object ADOQuery3: TADOQuery
    Connection = mainForm.RJSADO
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'ctbh'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = '0001'
      end>
    SQL.Strings = (
      'select *'
      'from cantai'
      'where ctbh=:ctbh')
    Left = 216
    Top = 64
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 168
    Top = 96
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery3
    Left = 224
    Top = 96
  end
  object ADOQuery4: TADOQuery
    Connection = mainForm.RJSADO
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'cs1'
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = Null
      end>
    SQL.Strings = (
      'select *'
      'from hykwj'
      'where kh=:cs1')
    Left = 416
    Top = 73
  end
end