dm32.dfm

delphi框架可以学习, 写的很好的

object dm: Tdm
  OldCreateOrder = False
  Left = 240
  Top = 192
  Height = 390
  Width = 393
  object conn: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=xiaobo;Persist Security Info=True;U' +
      'ser ID=sa;Initial Catalog=JeansMIS;Data Source=222.222.222.251'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 16
  end
  object qryFree: TADOQuery
    Connection = conn
    Parameters = <>
    Left = 104
    Top = 16
  end
  object qryDoSQL: TADOQuery
    Connection = conn
    Parameters = <>
    Left = 104
    Top = 64
  end
  object qrySecurity: TADOQuery
    Connection = conn
    Parameters = <>
    Left = 104
    Top = 112
  end
  object qryLoginLog: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 184
    Top = 16
    object qryLoginLogSer: TAutoIncField
      DisplayLabel = #27969#27700#21495
      FieldName = 'Ser'
      ReadOnly = True
    end
    object qryLoginLogUserCode: TStringField
      DisplayLabel = #29992#25143#20195#30721
      FieldName = 'UserCode'
      Size = 24
    end
    object qryLoginLogEmpName: TStringField
      DisplayLabel = #30495#23454#22995#21517
      FieldName = 'EmpName'
      Size = 10
    end
    object qryLoginLogIP: TStringField
      DisplayLabel = 'IP'#22320#22336
      FieldName = 'IP'
      Size = 24
    end
    object qryLoginLogMAC: TStringField
      DisplayLabel = #32593#21345#22320#22336
      FieldName = 'MAC'
      Size = 24
    end
    object qryLoginLogEV_Style: TStringField
      DisplayLabel = #20107#20214#31867#22411
      FieldName = 'EV_Style'
      Size = 24
    end
    object qryLoginLogEV_Note: TMemoField
      DisplayLabel = #20107#20214#35828#26126
      FieldName = 'EV_Note'
      BlobType = ftMemo
    end
    object qryLoginLogEV_UseSQL: TMemoField
      DisplayLabel = #25152#29992'SQL'
      FieldName = 'EV_UseSQL'
      BlobType = ftMemo
    end
    object qryLoginLogEV_Module: TStringField
      DisplayLabel = #25152#22312#27169#22359
      FieldName = 'EV_Module'
      Size = 32
    end
    object qryLoginLogEV_UseTime: TIntegerField
      DisplayLabel = #20849#35745#32791#26102
      FieldName = 'EV_UseTime'
    end
    object qryLoginLogEV_State: TStringField
      DisplayLabel = #25191#34892#32467#26524
      FieldName = 'EV_State'
      Size = 10
    end
    object qryLoginLogEV_STime: TDateTimeField
      DisplayLabel = #24320#22987#26102#38388
      FieldName = 'EV_STime'
    end
    object qryLoginLogEV_ETime: TDateTimeField
      DisplayLabel = #32467#26463#26102#38388
      FieldName = 'EV_ETime'
    end
  end
  object dsLoginLog: TDataSource
    DataSet = qryLoginLog
    Left = 200
    Top = 16
  end
  object qrySQL: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 104
    Top = 160
  end
  object dsSQL: TDataSource
    DataSet = qrySQL
    Left = 120
    Top = 160
  end
  object qrySysLog: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 184
    Top = 64
    object AutoIncField1: TAutoIncField
      DisplayLabel = #27969#27700#21495
      FieldName = 'Ser'
      ReadOnly = True
    end
    object StringField1: TStringField
      DisplayLabel = #29992#25143#20195#30721
      FieldName = 'UserCode'
      Size = 24
    end
    object StringField2: TStringField
      DisplayLabel = #30495#23454#22995#21517
      FieldName = 'EmpName'
      Size = 10
    end
    object StringField3: TStringField
      DisplayLabel = 'IP'#22320#22336
      FieldName = 'IP'
      Size = 24
    end
    object StringField4: TStringField
      DisplayLabel = #32593#21345#22320#22336
      FieldName = 'MAC'
      Size = 24
    end
    object StringField5: TStringField
      DisplayLabel = #20107#20214#31867#22411
      FieldName = 'EV_Style'
      Size = 24
    end
    object MemoField1: TMemoField
      DisplayLabel = #20107#20214#35828#26126
      FieldName = 'EV_Note'
      BlobType = ftMemo
    end
    object MemoField2: TMemoField
      DisplayLabel = #25152#29992'SQL'
      FieldName = 'EV_UseSQL'
      BlobType = ftMemo
    end
    object StringField6: TStringField
      DisplayLabel = #25152#22312#27169#22359
      FieldName = 'EV_Module'
      Size = 32
    end
    object IntegerField1: TIntegerField
      DisplayLabel = #20849#35745#32791#26102
      FieldName = 'EV_UseTime'
    end
    object StringField7: TStringField
      DisplayLabel = #25191#34892#32467#26524
      FieldName = 'EV_State'
      Size = 10
    end
    object DateTimeField1: TDateTimeField
      DisplayLabel = #24320#22987#26102#38388
      FieldName = 'EV_STime'
    end
    object DateTimeField2: TDateTimeField
      DisplayLabel = #32467#26463#26102#38388
      FieldName = 'EV_ETime'
    end
  end
  object dsSysLog: TDataSource
    DataSet = qrySysLog
    Left = 200
    Top = 64
  end
  object qryBasicData: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from coder')
    Left = 104
    Top = 208
    object qryBasicDataSer: TAutoIncField
      DisplayLabel = #27969#27700#21495
      FieldName = 'Ser'
      ReadOnly = True
    end
    object qryBasicDataCode: TStringField
      DisplayLabel = #20195#30721
      FieldName = 'Code'
    end
    object qryBasicDataName: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'Name'
      Size = 60
    end
    object qryBasicDataIsOK: TIntegerField
      DisplayLabel = #26159#21542#21487#29992
      FieldName = 'IsOK'
    end
    object qryBasicDataFZLX: TStringField
      DisplayLabel = #20998#32452#20195#30721
      FieldName = 'FZLX'
    end
    object qryBasicDataSecCode: TStringField
      DisplayLabel = #20108#32423#25551#36848
      FieldName = 'SecCode'
      Size = 100
    end
    object qryBasicDataSRRQ: TDateTimeField
      DisplayLabel = #36755#20837#26085#26399
      FieldName = 'SRRQ'
    end
    object qryBasicDataCZY: TStringField
      DisplayLabel = #36755#20837#20154
      FieldName = 'CZY'
      Size = 10
    end
    object qryBasicDataNumber: TIntegerField
      DisplayLabel = #24207#21495
      FieldName = 'Number'
    end
  end
  object dsBasicData: TDataSource
    DataSet = qryBasicData
    Left = 120
    Top = 208
  end
  object qryQuote: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from quote')
    Left = 272
    Top = 16
    object qryQuoteCpser: TAutoIncField
      DisplayLabel = #27969#27700#21495
      FieldName = 'Cpser'
      ReadOnly = True
    end
    object qryQuoteCpmc: TStringField
      DisplayLabel = #25104#21697#21517#31216
      FieldName = 'Cpmc'
      Size = 50
    end
    object qryQuoteCpys: TStringField
      DisplayLabel = #39068#33394#21517#31216
      FieldName = 'Cpys'
      Size = 24
    end
    object qryQuoteSzym: TStringField
      DisplayLabel = #25152#22312#39029#30721
      FieldName = 'Szym'
      Size = 24
    end
    object qryQuoteCpgg: TStringField
      DisplayLabel = #25104#21697#35268#26684
      FieldName = 'Cpgg'
      Size = 50
    end
    object qryQuoteCpzz: TStringField
      DisplayLabel = #25104#21697#32452#32455
      FieldName = 'Cpzz'
      Size = 12
    end
    object qryQuoteKh: TFloatField
      DisplayLabel = #31576#21495
      FieldName = 'Kh'
    end
    object qryQuoteRk: TFloatField
      DisplayLabel = #20837#31576
      FieldName = 'Rk'
    end
    object qryQuoteJf: TFloatField
      DisplayLabel = #32463#24133
      FieldName = 'Jf'
    end
    object qryQuoteWs: TFloatField
      DisplayLabel = #32428#25439
      FieldName = 'Ws'
    end
    object qryQuotewc: TFloatField
      DisplayLabel = #32428#38271
      FieldName = 'wc'
    end
    object qryQuoteZsl: TFloatField
      DisplayLabel = #32455#32553#29575
      FieldName = 'Zsl'
    end
    object qryQuoteSgl: TFloatField
      DisplayLabel = #19997#20809#32553#29575
      FieldName = 'Sgl'
    end
    object qryQuoteCpzl: TFloatField
      DisplayLabel = #25104#21697#37325#37327
      FieldName = 'Cpzl'
    end
    object qryQuoteSxzl: TFloatField
      DisplayLabel = #27700#27927#37325#37327
      FieldName = 'Sxzl'
    end
    object qryQuoteWys: TFloatField
      DisplayLabel = #32428#20313#32553
      FieldName = 'Wys'
    end
    object qryQuoteFk: TStringField
      DisplayLabel = #24133#23485
      FieldName = 'Fk'
      Size = 24
    end
    object qryQuoteZjl: TFloatField
      DisplayLabel = #24635#32463#37327
      FieldName = 'Zjl'
    end
    object qryQuoteBZ: TMemoField
      DisplayLabel = #22791#27880
      FieldName = 'BZ'
      BlobType = ftMemo
    end
    object qryQuoteSgjg: TFloatField
      DisplayLabel = #19997#20809#21152#20215
      FieldName = 'Sgjg'
    end
    object qryQuoteTrjg: TFloatField
      DisplayLabel = #22871#26579#21152#20215
      FieldName = 'Trjg'
    end
    object qryQuoteBcjg: TFloatField
      DisplayLabel = #26412#21378#21152#20215
      FieldName = 'Bcjg'
    end
    object qryQuotePtbj: TFloatField
      DisplayLabel = #26222#36890#20215#26684
      FieldName = 'Ptbj'
    end
    object qryQuoteTsbj: TFloatField
      DisplayLabel = #29305#27530#20215#26684
      FieldName = 'Tsbj'
    end
    object qryQuoteBjrq: TDateTimeField
      DisplayLabel = #25253#20215#26085#26399
      FieldName = 'Bjrq'
    end
    object qryQuotebjr: TStringField
      DisplayLabel = #25253#20215#20154
      FieldName = 'bjr'
      Size = 12
    end
    object qryQuoteshbz: TIntegerField
      DisplayLabel = #23457#26680#26631#24535
      FieldName = 'shbz'
    end
    object qryQuoteshrq: TDateTimeField
      DisplayLabel = #23457#26680#26085#26399
      FieldName = 'shrq'
    end
    object qryQuoteshr: TStringField
      DisplayLabel = #23457#26680#20154
      FieldName = 'shr'
      Size = 12
    end
    object qryQuotecsrq: TDateTimeField
      DisplayLabel = #25764#23457#26085#26399
      FieldName = 'csrq'
    end
    object qryQuotecsr: TStringField
      DisplayLabel = #25764#23457#20154
      FieldName = 'csr'
      Size = 12
    end
  end
  object dsQuote: TDataSource
    DataSet = qryQuote
    Left = 288
    Top = 16
  end
  object qryQuoteXB: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (