datacenter.dfm

这是我在去年年底利用业余时间做的一个鞋塑企业的计件工资系统。由于本人技术有限

object DmData: TDmData
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 265
  Top = 114
  Height = 437
  Width = 616
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=PieceRate;Data Source=SOFTBOY;Use Proce' +
      'dure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstat' +
      'ion ID=USER1;Use Encryption for Data=False;Tag with column colla' +
      'tion when possible=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'SQLOLEDB.1'
    Left = 40
    Top = 24
  end
  object aTblPass: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'Password'
    Left = 128
    Top = 24
    object aTblPassID: TStringField
      FieldName = 'ID'
      Size = 4
    end
    object aTblPassUserName: TStringField
      FieldName = 'UserName'
      Size = 8
    end
    object aTblPassPassword: TStringField
      FieldName = 'Password'
      Size = 10
    end
  end
  object aquRateForms: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = aquRateFormsBeforePost
    AfterPost = aquRateFormsAfterPost
    OnNewRecord = aquRateFormsNewRecord
    OnPostError = aquRateFormsPostError
    Parameters = <>
    SQL.Strings = (
      'select * from RateForms')
    Left = 32
    Top = 152
    object aquRateFormsOrderNo: TStringField
      FieldName = 'OrderNo'
      Size = 10
    end
    object aquRateFormsOrderDate: TDateTimeField
      FieldName = 'OrderDate'
    end
    object aquRateFormsFirstTime: TStringField
      FieldName = 'FirstTime'
      Size = 8
    end
    object aquRateFormsEndTime: TStringField
      FieldName = 'EndTime'
      Size = 8
    end
    object aquRateFormsRateID: TStringField
      FieldName = 'RateID'
      Size = 6
    end
    object aquRateFormsRateName: TStringField
      FieldName = 'RateName'
      Size = 8
    end
    object aquRateFormsPicecID1: TStringField
      FieldName = 'PicecID1'
      Size = 6
    end
    object aquRateFormsPicecName1: TStringField
      FieldName = 'PicecName1'
      Size = 8
    end
    object aquRateFormsPicecID2: TStringField
      FieldName = 'PicecID2'
      Size = 6
    end
    object aquRateFormsPicecName2: TStringField
      FieldName = 'PicecName2'
      Size = 8
    end
    object aquRateFormsPicecID3: TStringField
      FieldName = 'PicecID3'
      Size = 6
    end
    object aquRateFormsPicecName3: TStringField
      FieldName = 'PicecName3'
      Size = 8
    end
    object aquRateFormsPicecID4: TStringField
      FieldName = 'PicecID4'
      Size = 6
    end
    object aquRateFormsPicecName4: TStringField
      FieldName = 'PicecName4'
      Size = 8
    end
    object aquRateFormsPicecNum: TSmallintField
      FieldName = 'PicecNum'
    end
    object aquRateFormsCheckID1: TStringField
      FieldName = 'CheckID1'
      Size = 6
    end
    object aquRateFormsCheckName1: TStringField
      FieldName = 'CheckName1'
      Size = 8
    end
    object aquRateFormsCheckID2: TStringField
      FieldName = 'CheckID2'
      Size = 6
    end
    object aquRateFormsCheckName2: TStringField
      FieldName = 'CheckName2'
      Size = 8
    end
    object aquRateFormsCheckID3: TStringField
      FieldName = 'CheckID3'
      Size = 6
    end
    object aquRateFormsCheckName3: TStringField
      FieldName = 'CheckName3'
      Size = 8
    end
    object aquRateFormsCheckID4: TStringField
      FieldName = 'CheckID4'
      Size = 6
    end
    object aquRateFormsCheckName4: TStringField
      FieldName = 'CheckName4'
      Size = 8
    end
    object aquRateFormsCheckNum: TSmallintField
      FieldName = 'CheckNum'
    end
  end
  object aquRateFormsDetail: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = aquRateFormsDetailBeforePost
    AfterPost = aquRateFormsDetailAfterPost
    OnNewRecord = aquRateFormsDetailNewRecord
    OnPostError = aquRateFormsDetailPostError
    DataSource = frmProdRate.dsProdRate
    Parameters = <
      item
        Name = 'OrderNo'
        DataType = ftString
        Size = 10
        Value = '0000000001'
      end>
    SQL.Strings = (
      'select * from RateFormsDetail where OrderNo=:OrderNo')
    Left = 128
    Top = 152
    object aquRateFormsDetailOrderNo: TStringField
      FieldName = 'OrderNo'
      Size = 10
    end
    object aquRateFormsDetailOrderID: TStringField
      FieldName = 'OrderID'
      Size = 10
    end
    object aquRateFormsDetailModelID: TStringField
      FieldName = 'ModelID'
      Size = 15
    end
    object aquRateFormsDetailColor: TStringField
      FieldName = 'Color'
      Size = 4
    end
    object aquRateFormsDetailCreateColor: TStringField
      FieldName = 'CreateColor'
      Size = 40
    end
    object aquRateFormsDetailShoeSize: TStringField
      FieldName = 'ShoeSize'
      Size = 2
    end
    object aquRateFormsDetailTotalNumbers: TIntegerField
      FieldName = 'TotalNumbers'
    end
    object aquRateFormsDetailProdANums: TIntegerField
      FieldName = 'ProdANums'
    end
    object aquRateFormsDetailProdBNums: TIntegerField
      FieldName = 'ProdBNums'
    end
    object aquRateFormsDetailProdCNums: TIntegerField
      FieldName = 'ProdCNums'
    end
    object aquRateFormsDetailPicecANums: TIntegerField
      FieldName = 'PicecANums'
    end
    object aquRateFormsDetailPicecBNums: TIntegerField
      FieldName = 'PicecBNums'
    end
    object aquRateFormsDetailCheckNums: TIntegerField
      FieldName = 'CheckNums'
    end
    object aquRateFormsDetailSubsidy: TBCDField
      FieldName = 'Subsidy'
      Precision = 10
    end
    object aquRateFormsDetailNotes: TStringField
      FieldName = 'Notes'
      Size = 40
    end
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 32
    Top = 288
  end
  object aquPersonel: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = aquPersonelBeforePost
    AfterPost = aquPersonelAfterPost
    OnNewRecord = aquPersonelNewRecord
    OnPostError = aquPersonelPostError
    Parameters = <>
    SQL.Strings = (
      'select * from Personel')
    Left = 184
    Top = 24
    object aquPersonelPersonID: TStringField
      FieldName = 'PersonID'
      Size = 6
    end
    object aquPersonelName: TStringField
      FieldName = 'Name'
      Size = 8
    end
    object aquPersonelSex: TStringField
      FieldName = 'Sex'
      Size = 2
    end
    object aquPersonelDept: TStringField
      FieldName = 'Dept'
      Size = 10
    end
    object aquPersonelWorkType: TStringField
      FieldName = 'WorkType'
      Size = 10
    end
    object aquPersonelInDate: TDateTimeField
      FieldName = 'InDate'
    end
    object aquPersonelBasePay: TBCDField
      FieldName = 'BasePay'
      Precision = 10
    end
    object aquPersonelServiceAward: TBCDField
      FieldName = 'ServiceAward'
      Precision = 10
    end
    object aquPersonelSubsidy: TBCDField
      FieldName = 'Subsidy'
      Precision = 10
    end
    object aquPersonelNotes: TMemoField
      FieldName = 'Notes'
      BlobType = ftMemo
    end
  end
  object atblWorkType: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = atblWorkTypeBeforePost
    AfterPost = atblWorkTypeAfterPost
    OnPostError = atblWorkTypePostError
    TableName = 'WorkType'
    Left = 242
    Top = 25
  end
  object atblDept: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = atblDeptBeforePost
    AfterPost = atblDeptAfterPost
    OnPostError = atblDeptPostError
    TableName = 'Dept'
    Left = 312
    Top = 24
  end
  object aquRates: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    BeforePost = aquRatesBeforePost
    AfterPost = aquRatesAfterPost
    AfterScroll = aquRatesAfterScroll
    OnPostError = aquRatesPostError
    Parameters = <>
    SQL.Strings = (
      'select * from Rates where 1=1 order by modelid,color,shoesize')
    Left = 368
    Top = 24
    object aquRatesModelID: TStringField
      FieldName = 'ModelID'
      Size = 15
    end
    object aquRatesColor: TStringField
      FieldName = 'Color'
      Size = 4
    end
    object aquRatesShoeSize: TStringField
      FieldName = 'ShoeSize'
      Size = 2
    end
    object aquRatesRateA: TBCDField
      FieldName = 'RateA'
      Precision = 10
    end
    object aquRatesRateB: TBCDField
      FieldName = 'RateB'
      Precision = 10
    end
    object aquRatesRateC: TBCDField
      FieldName = 'RateC'
      Precision = 10
    end
    object aquRatesPicecARate: TBCDField
      FieldName = 'PicecARate'
      Precision = 10
    end
    object aquRatesPicecBRate: TBCDField
      FieldName = 'PicecBRate'
      Precision = 10
    end
    object aquRatescheckRate: TBCDField
      FieldName = 'checkRate'
      Precision = 10
    end
    object aquRatesNotes: TStringField
      FieldName = 'Notes'
      Size = 60
    end
  end
  object qryUserGL: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from password')
    Left = 264
    Top = 144
    object qryUserGLID: TStringField
      FieldName = 'ID'
      Size = 4
    end
    object qryUserGLUserName: TStringField
      FieldName = 'UserName'
      Size = 8
    end
    object qryUserGLPassword: TStringField
      FieldName = 'Password'
      Size = 10
    end
  end
end