mydata.dfm

是个办公系统,可以实现财务上的管理和人员的流动

object dm: Tdm
  OldCreateOrder = False
  Left = 263
  Top = 17
  Height = 505
  Width = 886
  object AQCustName: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Customers')
    Left = 24
    Top = 101
  end
  object AQCustInfo: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Customers')
    Left = 150
    Top = 85
  end
  object DSCustInfo: TDataSource
    DataSet = ATCustInfo
    Left = 563
    Top = 101
  end
  object AQDeptName: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 121
    Top = 93
  end
  object DSFimaly: TDataSource
    DataSet = ATFimaly
    Left = 428
    Top = 101
  end
  object ATFimaly: TADOTable
    Connection = ADOConn
    CursorType = ctStatic
    IndexFieldNames = 'CustomerID'
    MasterFields = 'CustomerID'
    MasterSource = DSCustInfo
    TableName = 'Family'
    Left = 383
    Top = 101
  end
  object AQConnact: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ProjectItem')
    Left = 338
    Top = 101
  end
  object DSContact: TDataSource
    DataSet = ATContact
    Left = 518
    Top = 101
  end
  object AQSalesman: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 248
    Top = 101
  end
  object AQArea: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 293
    Top = 101
  end
  object AQProName: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 300
    Top = 357
  end
  object AQStatus: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 344
    Top = 357
  end
  object AQClass: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 261
    Top = 411
  end
  object AQCus: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 322
    Top = 411
  end
  object AQService: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from customers,service,projectitem'
      'where service.sername=customers.customerid and'
      '      projectitem.customname=customers.cusname ')
    Left = 200
    Top = 411
  end
  object AQAll: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 138
    Top = 411
  end
  object AQserveradd: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from service')
    Left = 77
    Top = 411
  end
  object DSserveradd: TDataSource
    DataSet = AQserveradd
    Left = 445
    Top = 411
  end
  object AQChart: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select opinions as '#23458#25143#35780#20215',count(distinct sername) '#23458#25143#25968#37327' from servic' +
        'e group by opinions')
    Left = 384
    Top = 411
  end
  object DSChart: TDataSource
    DataSet = AQChart
    Left = 16
    Top = 411
  end
  object ATContact: TADOTable
    Connection = ADOConn
    CursorType = ctStatic
    IndexFieldNames = 'Customname'
    MasterFields = 'Cusname'
    MasterSource = DSCustInfo
    TableName = 'ProjectItem'
    Left = 473
    Top = 101
  end
  object ATCustInfo: TADOTable
    Connection = ADOConn
    CursorType = ctStatic
    TableName = 'Customers'
    Left = 608
    Top = 101
  end
  object AQItems: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 203
    Top = 101
  end
  object ATItems: TADOTable
    Connection = ADOConn
    CursorType = ctStatic
    TableName = 'ProjectItem'
    Left = 214
    Top = 357
  end
  object DSItems: TDataSource
    DataSet = ATItems
    Left = 257
    Top = 357
  end
  object AQDailyCost: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from DailyCost')
    Left = 24
    Top = 184
  end
  object DSDailyCost: TDataSource
    DataSet = AQDailyCost
    Left = 24
    Top = 232
  end
  object AQEmpname: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 72
    Top = 184
  end
  object AQSalary: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from salary')
    Left = 232
    Top = 192
  end
  object DSSalary: TDataSource
    DataSet = AQSalary
    Left = 232
    Top = 240
  end
  object DSPayWages: TDataSource
    DataSet = ATPayWages
    Left = 136
    Top = 232
  end
  object AQPayWages: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select SalDate,employees.EmpName,employees.DepartMent,(Basicsal'
      '+Business*BusinessAdd+Prize-AbsCurr-LateCurr) as yifa,'
      '(AbsCurr+LateCurr) as kouchu,Post from employees,salary'
      'where employees.Empno=Salary.Empno  and IsSal='#39#26159#39)
    Left = 192
    Top = 168
  end
  object AQSumSal: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 416
    Top = 184
  end
  object DSSumSal: TDataSource
    DataSet = AQSumSal
    Left = 421
    Top = 232
  end
  object AQWagesSum: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 488
    Top = 184
  end
  object DSWagesSum: TDataSource
    DataSet = AQWagesSum
    Left = 499
    Top = 232
  end
  object ADOConn: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\NYOA.mdb;Persist ' +
      'Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 24
    Top = 16
  end
  object AQMintech: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select empno,empname from employees where department='#39#25216#26415#37096#39' ')
    Left = 162
    Top = 16
  end
  object DSMintech: TDataSource
    DataSet = ATMintech
    Left = 213
    Top = 16
  end
  object AQProject: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ProjectItem where Status='#39#21542#39)
    Left = 315
    Top = 16
  end
  object DSProject: TDataSource
    DataSet = AQProject
    Left = 264
    Top = 16
  end
  object AQDeptEmp: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 68
    Top = 85
  end
  object AQUsers: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from users')
    Left = 570
    Top = 16
  end
  object AQDept: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 366
    Top = 16
  end
  object AQHistory: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 672
    Top = 16
  end
  object ATLogHistory: TADOTable
    Connection = ADOConn
    CursorType = ctStatic
    TableName = 'LogHistory'
    Left = 788
    Top = 101
  end
  object DSLogHistory: TDataSource
    DataSet = ATLogHistory
    Left = 743
    Top = 101
  end
  object DSUsers: TDataSource
    DataSet = AQUsers
    Left = 621
    Top = 16
  end
  object ATService: TADOTable
    Connection = ADOConn
    CursorType = ctStatic
    TableName = 'Service'
    Left = 506
    Top = 411
  end
  object DSService: TDataSource
    DataSet = ATService
    Left = 568
    Top = 411
  end
  object AQUsersMgr: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Users')
    Left = 653
    Top = 101
  end
  object DSUsersMgr: TDataSource
    DataSet = AQUsersMgr
    Left = 698
    Top = 101
  end
  object AQsal: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select (sum(Business*BusinessAdd)+sum(BasicSal)+'
      'sum(prize)-(sum(latecurr)+sum(abscurr))) as sumsal,'
      'department from salary group by department')
    Left = 737
    Top = 184
  end
  object DSsal: TDataSource
    DataSet = AQsal
    Left = 740
    Top = 240
  end
  object AQCostSal: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select sum(DCQuatity) as costsal,DCObject from dailycost group b' +
        'y DCObject;')
    Left = 795
    Top = 184
  end
  object DSCostSal: TDataSource
    DataSet = AQCostSal
    Left = 796
    Top = 240
  end
  object DSTodayWork: TDataSource
    DataSet = AQTodayWork
    Left = 171
    Top = 357
  end
  object AQTodayWork: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'OrderDate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'UserName'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      
        'select * from Customers where OrderDate=:OrderDate and SalesManN' +
        'ame=:UserName')
    Left = 128
    Top = 357
  end
  object AQEmpInfo: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 417
    Top = 16
  end
  object ATEmpInfo: TADOTable
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    TableName = 'Employees'
    Left = 468
    Top = 16
  end
  object DSEmpInfo: TDataSource
    DataSet = ATEmpInfo
    Left = 519
    Top = 16
  end
  object ATMintech: TADOTable
    Connection = ADOConn
    CursorType = ctStatic
    TableName = 'Minth_View'
    Left = 112
    Top = 16
  end
  object AQPublic: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 728
    Top = 344
  end
  object ATPayWages: TADOTable
    Connection = ADOConn
    CursorType = ctStatic
    TableName = 'PayOff_View'
    Left = 136
    Top = 176
  end
  object ADOCMD: TADOCommand
    Connection = ADOConn
    Parameters = <>
    Left = 720
    Top = 16
  end
  object AQRequire: TADOQuery
    Connection = ADOConn
    Parameters = <>
    SQL.Strings = (
      
        'select sername as '#23458#25143#32534#21495',proname as '#39033#30446#21517#31216',count(*) as '#32500#25252#27425#25968' from ser' +
        'vice group by sername,proname')
    Left = 432
    Top = 368
  end
  object DSRequire: TDataSource
    DataSet = AQRequire
    Left = 488
    Top = 368
  end
end