BillsEditor/CU/ScTables.pas

unit ScTables;

interface

type
  TScMDBFieldType = (ftString, ftByte, ftSmallint, ftInteger, ftBoolean, ftSingle, ftDouble,
    ftCurrency, ftDateTime, ftMemo, ftOLEObject);

  TScFieldDef = record
    FieldName: string;
    FieldType: TScMDBFieldType;
    Size: Integer;
    NotNull: Boolean;
    PrimaryKey: Boolean;
  end;

  PScFieldDef = ^TScFieldDef;

const
  ScMDBFieldTypeName: array [TScMDBFieldType] of string = (
    'Text', 'Byte', 'Smallint', 'Integer', 'Bit', 'Single', 'Double',
    'Currency', 'DateTime', 'Memo', 'OLEObject');

  {Bills}

  SBills = 'Bills';
  tdBills: array [0..19] of TScFieldDef = (
    (FieldName: 'Selected'; FieldType: ftBoolean; Size: 0; NotNull: False; PrimaryKey: False),
    (FieldName: 'OwnerName'; FieldType: ftString; Size: 50; NotNull: False; PrimaryKey: False),
    (FieldName: 'CustomValue'; FieldType: ftDouble; Size: 0; NotNull: False; PrimaryKey: False),
    (FieldName: 'ErrorHint'; FieldType: ftString; Size: 255; NotNull: False; PrimaryKey: False),
    (FieldName: 'IsSuperscale'; FieldType: ftBoolean; Size: 0; NotNull: False; PrimaryKey: False),
    (FieldName: 'StandardGrade'; FieldType: ftDouble; Size: 0; NotNull: False; PrimaryKey: False),
    (FieldName: 'DeductGrade'; FieldType: ftDouble; Size: 0; NotNull: False; PrimaryKey: False),
    (FieldName: 'IsIgNore'; FieldType: ftBoolean; Size: 0; NotNull: False; PrimaryKey: False),
    (FieldName: 'UserModified'; FieldType: ftBoolean; Size: 0; NotNull: False; PrimaryKey: False),
    (FieldName: 'LostPreSiblingCount'; FieldType: ftInteger; Size: 0; NotNull: False; PrimaryKey: False),
    (FieldName: 'LostChildrenCount'; FieldType: ftInteger; Size: 0; NotNull: False; PrimaryKey: False),
    (FieldName: 'LostNextSiblingCount'; FieldType: ftInteger; Size: 0; NotNull: False; PrimaryKey: False),
    (FieldName: 'NameErrorFlag'; FieldType: ftInteger; Size: 0; NotNull: False; PrimaryKey: False),
    (FieldName: 'UnitsErrorFlag'; FieldType: ftInteger; Size: 0; NotNull: False; PrimaryKey: False),
    (FieldName: 'RightName'; FieldType: ftString; Size: 255; NotNull: False; PrimaryKey: False),
    (FieldName: 'RightUnits'; FieldType: ftString; Size: 255; NotNull: False; PrimaryKey: False),
    (FieldName: 'ChapterID'; FieldType: ftInteger; Size: 0; NotNull: False; PrimaryKey: False),
    (FieldName: 'B_CodeAlpha'; FieldType: ftString; Size: 255; NotNull: False; PrimaryKey: False),
    (FieldName: 'IsAccQuantity'; FieldType: ftBoolean; Size: 0; NotNull: False; PrimaryKey: False),
    (FieldName: 'DrawingCode'; FieldType: ftString; Size: 50; NotNull: False; PrimaryKey: False)
  );

  { ±í DrawingQuantity ¶¨Òå }
  SDrawingQuantity = 'DrawingQuantity';
  tdDrawingQuantity: array [0..3] of TScFieldDef = (
    (FieldName: 'IsGatherQty'; FieldType: ftBoolean; Size: 0; NotNull: False; PrimaryKey: False),
    (FieldName: 'IsGatherQ'; FieldType: ftBoolean; Size: 0; NotNull: False; PrimaryKey: False),    
    (FieldName: 'SerinalNo'; FieldType: ftInteger; Size: 0; NotNull: False; PrimaryKey: False),
    (FieldName: 'MemoContext'; FieldType: ftString; Size: 200; NotNull: False; PrimaryKey: False)
  );

  {DQ Calculate Expression}
  SDQCalcExpression = 'DQCalcExpression';
  tdDQCalcExpression: array [0..3] of TScFieldDef = (
    (FieldName: 'ID'; FieldType: ftInteger; Size: 0; NotNull: True; PrimaryKey: True),
    (FieldName: 'DQID'; FieldType: ftInteger; Size: 0; NotNull: False; PrimaryKey: False),
    (FieldName: 'PileName'; FieldType: ftString; Size: 100; NotNull: False; PrimaryKey: False),
    (FieldName: 'ExprsValue'; FieldType: ftDouble; Size: 0; NotNull: False; PrimaryKey: False)
  );

  {Restore point}
  SHisRestorePoints = 'HisRestorePoints';
  tdHisRestorePoints: array [0..4] of TScFieldDef = (
    (FieldName: 'ID'; FieldType: ftInteger; Size: 0; NotNull: True; PrimaryKey: True),
    (FieldName: 'Fixed'; FieldType: ftBoolean; Size: 0; NotNull: True; PrimaryKey: True),
    (FieldName: 'CreateTime'; FieldType: ftDateTime; Size: 0; NotNull: True; PrimaryKey: True),
    (FieldName: 'FileName'; FieldType: ftString; Size: 100; NotNull: False; PrimaryKey: False),
    (FieldName: 'FileDir'; FieldType: ftString; Size: 200; NotNull: False; PrimaryKey: False)
  );

  { Split }

  SBidLot = 'BidLot';
  tdBidLot: array [0..4] of TScFieldDef = (
    (FieldName: 'ID'; FieldType: ftInteger; Size: 0; NotNull: True; PrimaryKey: True),
    (FieldName: 'ProjName'; FieldType: ftString; Size: 200; NotNull: False; PrimaryKey: False),
    (FieldName: 'AliasName'; FieldType: ftString; Size: 50; NotNull: False; PrimaryKey: False),
    (FieldName: 'FullName'; FieldType: ftString; Size: 100; NotNull: False; PrimaryKey: False),
    (FieldName: 'Flag'; FieldType: ftInteger; Size: 0; NotNull: False; PrimaryKey: False)
  );

  // ±íGradeStat
  SGradeStat = 'GradeStat';
  tdGradeStat: array [0..10] of TScFieldDef = (
    (FieldName: 'ChapterID'; FieldType: ftInteger; Size: 0; NotNull: True; PrimaryKey: True),
    (FieldName: 'Code'; FieldType: ftString; Size: 255; NotNull: False; PrimaryKey: False),
    (FieldName: 'Name'; FieldType: ftString; Size: 255; NotNull: False; PrimaryKey: False),
    (FieldName: 'StandardGrade'; FieldType: ftCurrency; Size: 4; NotNull: False; PrimaryKey: False),
    (FieldName: 'DeductGrade'; FieldType: ftCurrency; Size: 4; NotNull: False; PrimaryKey: False),
    (FieldName: 'ActureMark'; FieldType: ftCurrency; Size: 4; NotNull: False; PrimaryKey: False),
    (FieldName: 'TotalMark'; FieldType: ftCurrency; Size: 4; NotNull: False; PrimaryKey: False),
    (FieldName: 'StdMarkPercent'; FieldType: ftCurrency; Size: 4; NotNull: False; PrimaryKey: False),
    (FieldName: 'ResultMark'; FieldType: ftCurrency; Size: 4; NotNull: False; PrimaryKey: False),
    (FieldName: 'YsCount'; FieldType: ftInteger; Size: 0; NotNull: False; PrimaryKey: False),
    (FieldName: 'QdCount'; FieldType: ftInteger; Size: 0; NotNull: False; PrimaryKey: False)
    );

//   ±íGradeStatTotal
  SGradeStatTotal = 'GradeStatTotal';
  tdGradeStatTotal: array [0..7] of TScFieldDef = (
    (FieldName: 'ID'; FieldType: ftInteger; Size: 0; NotNull: True; PrimaryKey: True),
    (FieldName: 'StandardGradeTotal'; FieldType: ftCurrency; Size: 4; NotNull: False; PrimaryKey: False),
    (FieldName: 'DeductGradeTotal'; FieldType: ftCurrency; Size: 4; NotNull: False; PrimaryKey: False),
    (FieldName: 'ResultMarkTotal'; FieldType: ftCurrency; Size: 4; NotNull: False; PrimaryKey: False),
    (FieldName: 'YsCountTotal'; FieldType: ftInteger; Size: 0; NotNull: False; PrimaryKey: False),
    (FieldName: 'QdCountTotal'; FieldType: ftInteger; Size: 0; NotNull: False; PrimaryKey: False),
    (FieldName: 'AdditionalMark'; FieldType: ftCurrency; Size: 4; NotNull: False; PrimaryKey: False),
    (FieldName: 'QualityMark'; FieldType: ftCurrency; Size: 4; NotNull: False; PrimaryKey: False)
    );

//   ±íGradeStatTotal
  SRecycleBin = 'RecycleBin';
  tdRecycleBin: array [0..3] of TScFieldDef = (
    (FieldName: 'ID'; FieldType: ftInteger; Size: 0; NotNull: True; PrimaryKey: True),
    (FieldName: 'Name'; FieldType: ftString; Size: 50; NotNull: False; PrimaryKey: False),
    (FieldName: 'CreateTime'; FieldType: ftString; Size: 20; NotNull: False; PrimaryKey: False),
    (FieldName: 'FileName'; FieldType: ftString; Size: 100; NotNull: False; PrimaryKey: False)
    );

implementation

end.