rydmwh.dfm

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

      Caption = #25152#22312#38376#24066
    end
    object DBEdit1: TDBEdit
      Left = 64
      Top = 8
      Width = 65
      Height = 20
      DataField = 'yhm'
      DataSource = DataSource1
      TabOrder = 0
      OnExit = DBEdit1Exit
    end
    object DBEdit3: TDBEdit
      Left = 189
      Top = 7
      Width = 156
      Height = 20
      DataField = 'yhmc'
      DataSource = DataSource1
      TabOrder = 1
    end
    object MaskEdit1: TMaskEdit
      Left = 404
      Top = 8
      Width = 107
      Height = 20
      PasswordChar = '#'
      TabOrder = 2
    end
    object CheckBox1: TCheckBox
      Left = 25
      Top = 50
      Width = 73
      Height = 17
      Caption = #35821#35328#36873#25321
      TabOrder = 3
    end
    object CheckBox2: TCheckBox
      Left = 103
      Top = 50
      Width = 73
      Height = 17
      Caption = #21592#24037#31614#21040
      TabOrder = 4
    end
    object CheckBox3: TCheckBox
      Left = 184
      Top = 50
      Width = 69
      Height = 17
      Caption = #21592#24037#31614#36864
      TabOrder = 5
    end
    object CheckBox4: TCheckBox
      Left = 261
      Top = 50
      Width = 70
      Height = 17
      Caption = #21069#21488#28857#33756
      TabOrder = 6
    end
    object CheckBox5: TCheckBox
      Left = 25
      Top = 82
      Width = 73
      Height = 17
      Caption = #21488#20301#28857#33756
      TabOrder = 7
    end
    object CheckBox6: TCheckBox
      Left = 103
      Top = 82
      Width = 73
      Height = 17
      Caption = #21488#20301#39044#35746
      TabOrder = 8
    end
    object CheckBox7: TCheckBox
      Left = 184
      Top = 82
      Width = 73
      Height = 17
      Caption = #20250#21592#31649#29702
      TabOrder = 9
    end
    object CheckBox8: TCheckBox
      Left = 261
      Top = 82
      Width = 70
      Height = 17
      Caption = #31995#32479#35774#32622
      TabOrder = 10
    end
    object CheckListBox1: TCheckListBox
      Left = 335
      Top = 37
      Width = 172
      Height = 68
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 14
      ParentFont = False
      TabOrder = 12
      OnClick = CheckListBox1Click
    end
    object DBComboBox1: TDBComboBox
      Left = 236
      Top = 108
      Width = 95
      Height = 20
      DataField = 'lx'
      DataSource = DataSource1
      ItemHeight = 12
      Items.Strings = (
        'U'#8212#27491#24335#20154#21592
        'T'#8212#35757#32451#20154#21592)
      TabOrder = 11
    end
    object CheckBox9: TCheckBox
      Left = 26
      Top = 111
      Width = 73
      Height = 17
      Caption = #31995#32479#25253#34920
      TabOrder = 13
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 400
      Top = 109
      Width = 107
      Height = 20
      DataField = 'szdd'
      DataSource = DataSource1
      KeyField = 'mc'
      ListField = 'mc'
      ListSource = DataSource2
      TabOrder = 14
    end
    object CheckBox10: TCheckBox
      Left = 104
      Top = 111
      Width = 73
      Height = 17
      Caption = #24378#21046#20851#26426
      TabOrder = 15
    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
    AfterScroll = Query1AfterScroll
    DatabaseName = 'aa'
    SQL.Strings = (
      'SELECT *'
      'FROM userwj Userwj'
      'order by yhm')
    UpdateObject = UpdateSQL1
    Left = 176
    Top = 40
    object Query1id: TIntegerField
      FieldName = 'id'
      Origin = 'AA.userwj.id'
    end
    object Query1yhm: TStringField
      FieldName = 'yhm'
      Origin = 'AA.userwj.yhm'
      Size = 10
    end
    object Query1yhmc: TStringField
      FieldName = 'yhmc'
      Origin = 'AA.userwj.yhmc'
    end
    object Query1mm: TStringField
      FieldName = 'mm'
      Origin = 'AA.userwj.mm'
    end
    object Query1jb: TStringField
      FieldName = 'jb'
      Origin = 'AA.userwj.jb'
      Size = 230
    end
    object Query1twbh: TStringField
      FieldName = 'twbh'
      Origin = 'AA.userwj.twbh'
      Size = 100
    end
    object Query1twmc: TStringField
      FieldName = 'twmc'
      Origin = 'AA.userwj.twmc'
      Size = 250
    end
    object Query1lx: TStringField
      FieldName = 'lx'
      Origin = 'AA.userwj.lx'
      Size = 1
    end
    object Query1szdd: TStringField
      FieldName = 'szdd'
      Origin = 'AA.userwj.szdd'
      Size = 50
    end
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update userwj'
      'set'
      '  yhm = :yhm,'
      '  yhmc = :yhmc,'
      '  mm = :mm,'
      '  jb = :jb,'
      '  twbh = :twbh,'
      '  twmc = :twmc,'
      '  lx = :lx,'
      '  szdd = :szdd'
      'where'
      '  id = :OLD_id')
    InsertSQL.Strings = (
      'insert into userwj'
      '  (yhm, yhmc, mm, jb, twbh, twmc, lx, szdd)'
      'values'
      '  (:yhm, :yhmc, :mm, :jb, :twbh, :twmc, :lx, :szdd)')
    DeleteSQL.Strings = (
      'delete from userwj'
      'where'
      '  id = :OLD_id')
    Left = 208
    Top = 40
  end
  object Query2: TQuery
    DatabaseName = 'aa'
    SQL.Strings = (
      'select yhm'
      'from userwj'
      'where yhm=:cs')
    Left = 184
    Top = 88
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'cs'
        ParamType = ptUnknown
      end>
  end
  object Query3: TQuery
    DatabaseName = 'aa'
    SQL.Strings = (
      'SELECT *'
      'FROM taiwei')
    Left = 240
    Top = 112
  end
  object ADOQuery1: TADOQuery
    Connection = mainForm.RJSADO
    Parameters = <>
    SQL.Strings = (
      'select *'
      'from unit')
    Left = 296
    Top = 112
    object ADOQuery1id: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOQuery1mc: TStringField
      FieldName = 'mc'
      Size = 50
    end
    object ADOQuery1bh: TStringField
      FieldName = 'bh'
      Size = 10
    end
    object ADOQuery1bz: TStringField
      FieldName = 'bz'
      Size = 150
    end
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery1
    Left = 328
    Top = 112
  end
end