datafrm.pas

来自「本人编写的有关军队营房工作的管理系统」· PAS 代码 · 共 873 行 · 第 1/3 页

unit datafrm;

interface

uses
  SysUtils, Classes, DB, DBTables;

type
  Tyfgldata = class(TDataModule)
    sdjg: TTable;
    dsdjg: TDataSource;
    sdjgBDEDesigner: TFloatField;
    sdjgBDEDesigner2: TFloatField;
    sdjgBDEDesigner3: TFloatField;
    sdbz: TTable;
    dsdbz: TDataSource;
    sdbzBDEDesigner: TSmallintField;
    sdbzBDEDesigner2: TStringField;
    sdbzBDEDesigner3: TCurrencyField;
    sdbzBDEDesigner4: TCurrencyField;
    sdyh: TTable;
    dsdyh: TDataSource;
    sdyhBDEDesigner: TSmallintField;
    sdyhBDEDesigner2: TStringField;
    sdyhBDEDesigner3: TStringField;
    sdyhBDEDesigner4: TCurrencyField;
    sdyhBDEDesigner5: TCurrencyField;
    sdyhBDEDesigner6: TCurrencyField;
    qyhsdf: TQuery;
    qyhsdfBDEDesigner: TSmallintField;
    qyhsdfBDEDesigner2: TStringField;
    qyhsdfBDEDesigner3: TFloatField;
    qyhsdfBDEDesigner4: TCurrencyField;
    qyhsdfBDEDesigner5: TFloatField;
    qyhsdfBDEDesigner6: TFloatField;
    qyhsdfBDEDesigner7: TCurrencyField;
    qyhsdfBDEDesigner8: TFloatField;
    qyhsdfBDEDesigner9: TFloatField;
    qyhsdfBDEDesigner10: TCurrencyField;
    qyhsdfBDEDesigner11: TCurrencyField;
    qyhsdfBDEDesigner12: TCurrencyField;
    dyhsdf: TDataSource;
    Table1: TTable;
    DataSource1: TDataSource;
    yhsdf: TQuery;
    yhchaxun: TDataSource;
    yhsdfBDEDesigner: TFloatField;
    yhsdfBDEDesigner2: TCurrencyField;
    yhsdfBDEDesigner3: TFloatField;
    yhsdfBDEDesigner4: TFloatField;
    yhsdfBDEDesigner5: TCurrencyField;
    yhsdfBDEDesigner6: TFloatField;
    yhsdfBDEDesigner7: TFloatField;
    yhsdfBDEDesigner8: TCurrencyField;
    yhsdfBDEDesigner9: TCurrencyField;
    yhsdfBDEDesigner10: TCurrencyField;
    yhsdfBDEDesigner11: TSmallintField;
    yhsdfBDEDesigner12: TSmallintField;
    dbbdc: TTable;
    Ddw: TDataSource;
    yjzl: TTable;
    Dyjzl: TDataSource;
    yjzlBDEDesigner: TStringField;
    yjzlBDEDesigner2: TStringField;
    yjzlBDEDesigner3: TStringField;
    yjzlBDEDesigner4: TCurrencyField;
    yjzlBDEDesigner5: TStringField;
    yjzlBDEDesigner6: TDateField;
    yjzlBDEDesigner7: TStringField;
    dw: TTable;
    dwsdf: TTable;
    Ddwsdf: TDataSource;
    qdwsdf: TQuery;
    dwsdfBDEDesigner: TIntegerField;
    dwsdfBDEDesigner2: TStringField;
    dwsdfBDEDesigner3: TStringField;
    dwsdfBDEDesigner4: TStringField;
    dwsdfBDEDesigner5: TSmallintField;
    dwsdfBDEDesigner6: TSmallintField;
    dwsdfBDEDesigner7: TCurrencyField;
    dwsdfBDEDesigner8: TFloatField;
    dwsdfBDEDesigner9: TFloatField;
    dwsdfBDEDesigner10: TFloatField;
    dwsdfBDEDesigner11: TFloatField;
    dwsdfBDEDesigner12: TCurrencyField;
    qdwsdfBDEDesigner: TIntegerField;
    qdwsdfBDEDesigner2: TStringField;
    qdwsdfBDEDesigner3: TStringField;
    qdwsdfBDEDesigner4: TStringField;
    qdwsdfBDEDesigner5: TSmallintField;
    qdwsdfBDEDesigner6: TSmallintField;
    qdwsdfBDEDesigner7: TCurrencyField;
    qdwsdfBDEDesigner8: TFloatField;
    qdwsdfBDEDesigner9: TFloatField;
    qdwsdfBDEDesigner10: TFloatField;
    qdwsdfBDEDesigner11: TFloatField;
    qdwsdfBDEDesigner12: TCurrencyField;
    dwBDEDesigner: TStringField;
    dwBDEDesigner2: TStringField;
    dwBDEDesigner3: TStringField;
    dwBDEDesigner4: TStringField;
    dwBDEDesigner5: TIntegerField;
    dwBDEDesigner6: TIntegerField;
    dwBDEDesigner7: TIntegerField;
    dwBDEDesigner8: TIntegerField;
    dwBDEDesigner9: TIntegerField;
    dwBDEDesigner10: TIntegerField;
    dwBDEDesigner11: TIntegerField;
    dwBDEDesigner12: TIntegerField;
    dwBDEDesigner13: TStringField;
    dwBDEDesigner14: TMemoField;
    dwBDEDesigner15: TStringField;
    dwBDEDesigner16: TSmallintField;
    dwBDEDesigner17: TSmallintField;
    dwBDEDesigner18: TSmallintField;
    sdfbz: TTable;
    sdfbzBDEDesigner: TCurrencyField;
    sdfbzBDEDesigner2: TCurrencyField;
    sdfbzBDEDesigner3: TCurrencyField;
    sdfbzBDEDesigner4: TCurrencyField;
    Dsdfbz: TDataSource;
    zjxhde: TTable;
    Dzjxhde: TDataSource;
    zjxhdeBDEDesigner: TStringField;
    zjxhdeBDEDesigner2: TFloatField;
    zjxhdeBDEDesigner3: TFloatField;
    sdf: TTable;
    dwsdfhz: TTable;
    Ddwsdfhz: TDataSource;
    dwsdfhzBDEDesigner: TSmallintField;
    dwsdfhzBDEDesigner2: TFloatField;
    dwsdfhzBDEDesigner3: TFloatField;
    dwsdfhzBDEDesigner4: TCurrencyField;
    dwsdfcx: TQuery;
    Ddwsdfcx: TDataSource;
    dwsdfcxBDEDesigner: TIntegerField;
    dwsdfcxBDEDesigner2: TStringField;
    dwsdfcxBDEDesigner3: TStringField;
    dwsdfcxBDEDesigner4: TStringField;
    dwsdfcxBDEDesigner5: TSmallintField;
    dwsdfcxBDEDesigner6: TSmallintField;
    dwsdfcxBDEDesigner7: TCurrencyField;
    dwsdfcxBDEDesigner8: TFloatField;
    dwsdfcxBDEDesigner9: TFloatField;
    dwsdfcxBDEDesigner10: TFloatField;
    dwsdfcxBDEDesigner11: TFloatField;
    dwsdfcxBDEDesigner12: TCurrencyField;
    yj: TTable;
    Dyj: TDataSource;
    yj1: TTable;
    Dyj1: TDataSource;
    kcyj: TTable;
    kcyj1: TTable;
    dwyj: TTable;
    dwyj1: TTable;
    grjyyj: TTable;
    grjyyj1: TTable;
    Dkcyj: TDataSource;
    dkcyj1: TDataSource;
    ddwyj: TDataSource;
    ddwyj1: TDataSource;
    dgrjyyj: TDataSource;
    dgrjyyj1: TDataSource;
    yjBDEDesigner2: TStringField;
    yjBDEDesigner3: TStringField;
    yjBDEDesigner4: TCurrencyField;
    yjBDEDesigner5: TStringField;
    yjBDEDesigner6: TStringField;
    yj1BDEDesigner: TStringField;
    yj1BDEDesigner2: TStringField;
    yj1BDEDesigner3: TStringField;
    yj1BDEDesigner4: TCurrencyField;
    yj1BDEDesigner5: TIntegerField;
    yj1BDEDesigner6: TCurrencyField;
    kcyjBDEDesigner: TStringField;
    kcyjBDEDesigner2: TStringField;
    kcyjBDEDesigner3: TStringField;
    kcyjBDEDesigner4: TCurrencyField;
    kcyjBDEDesigner5: TStringField;
    kcyj1BDEDesigner: TStringField;
    kcyj1BDEDesigner2: TStringField;
    kcyj1BDEDesigner3: TStringField;
    kcyj1BDEDesigner4: TIntegerField;
    kcyj1BDEDesigner5: TCurrencyField;
    kcyj1BDEDesigner6: TCurrencyField;
    dwyjBDEDesigner: TStringField;
    dwyjBDEDesigner2: TStringField;
    dwyjBDEDesigner3: TStringField;
    dwyjBDEDesigner4: TStringField;
    dwyjBDEDesigner5: TStringField;
    dwyjBDEDesigner6: TStringField;
    dwyj1BDEDesigner: TStringField;
    dwyj1BDEDesigner2: TStringField;
    dwyj1BDEDesigner3: TStringField;
    dwyj1BDEDesigner4: TIntegerField;
    dwyj1BDEDesigner5: TCurrencyField;
    dwyj1BDEDesigner6: TCurrencyField;
    dwyj1BDEDesigner7: TStringField;
    grjyyjBDEDesigner: TStringField;
    grjyyjBDEDesigner2: TStringField;
    grjyyjBDEDesigner3: TStringField;
    grjyyjBDEDesigner4: TCurrencyField;
    grjyyjBDEDesigner5: TStringField;
    grjyyjBDEDesigner6: TDateField;
    grjyyjBDEDesigner7: TStringField;
    grjyyj1BDEDesigner: TStringField;
    grjyyj1BDEDesigner2: TStringField;
    grjyyj1BDEDesigner3: TStringField;
    grjyyj1BDEDesigner4: TIntegerField;
    grjyyj1BDEDesigner5: TCurrencyField;
    grjyyj1BDEDesigner6: TCurrencyField;
    grjyyj1BDEDesigner7: TStringField;
    yjBDEDesigner7: TStringField;
    yjBDEDesigner8: TBooleanField;
    yjBDEDesigner: TStringField;
    grjyyjBDEDesigner8: TBooleanField;
    kcyjBDEDesigner6: TBooleanField;
    dwyjBDEDesigner7: TBooleanField;
    yjtemp: TTable;
    dyjtemp: TDataSource;
    kcyjBDEDesigner7: TStringField;
    dwyjBDEDesigner8: TCurrencyField;
    dwyjBDEDesigner9: TStringField;
    grjyyjBDEDesigner9: TStringField;
    Qyj1: TQuery;
    Qyj1BDEDesigner: TStringField;
    Qyj1BDEDesigner2: TStringField;
    Qyj1BDEDesigner3: TStringField;
    Qyj1BDEDesigner4: TCurrencyField;
    Qyj1BDEDesigner5: TIntegerField;
    Qyj1BDEDesigner6: TCurrencyField;
    Qyj: TQuery;
    QyjBDEDesigner: TStringField;
    QyjBDEDesigner2: TStringField;
    QyjBDEDesigner3: TStringField;
    QyjBDEDesigner4: TCurrencyField;
    QyjBDEDesigner5: TStringField;
    QyjBDEDesigner6: TStringField;
    QyjBDEDesigner7: TStringField;
    QyjBDEDesigner8: TBooleanField;
    cjd: TTable;
    cjdBDEDesigner: TStringField;
    cjdBDEDesigner2: TStringField;
    cjdBDEDesigner3: TStringField;
    cjdBDEDesigner4: TDateField;
    cjdBDEDesigner5: TMemoField;
    cjd1: TTable;
    cjd1BDEDesigner: TStringField;
    cjd1BDEDesigner2: TStringField;
    cjd1BDEDesigner3: TStringField;
    cjd1BDEDesigner4: TStringField;
    cjd1BDEDesigner5: TStringField;
    cjd1BDEDesigner6: TCurrencyField;
    cjd1BDEDesigner7: TStringField;
    dbd: TTable;
    dbdBDEDesigner: TStringField;
    dbdBDEDesigner2: TStringField;
    dbdBDEDesigner3: TStringField;
    dbdBDEDesigner4: TStringField;
    dbdBDEDesigner5: TStringField;
    dbdBDEDesigner6: TStringField;
    dbdBDEDesigner7: TDateField;
    dbdBDEDesigner8: TMemoField;
    dbd1: TTable;
    dbd1BDEDesigner: TStringField;
    dbd1BDEDesigner2: TStringField;
    dbd1BDEDesigner3: TStringField;
    dbd1BDEDesigner4: TStringField;
    dbd1BDEDesigner5: TStringField;
    dbd1BDEDesigner6: TCurrencyField;
    dbd1BDEDesigner7: TStringField;
    Qdbd: TQuery;
    Qdbd1: TQuery;
    Ddbd: TDataSource;
    Ddbd1: TDataSource;
    Qdbd1BDEDesigner: TStringField;
    Qdbd1BDEDesigner2: TStringField;
    Qdbd1BDEDesigner3: TStringField;
    Qdbd1BDEDesigner4: TStringField;
    Qdbd1BDEDesigner5: TStringField;
    Qdbd1BDEDesigner6: TCurrencyField;
    Qdbd1BDEDesigner7: TStringField;
    QdbdBDEDesigner: TStringField;
    QdbdBDEDesigner2: TStringField;
    QdbdBDEDesigner3: TStringField;
    QdbdBDEDesigner4: TStringField;
    QdbdBDEDesigner5: TDateField;
    QdbdBDEDesigner6: TMemoField;
    QdbdBDEDesigner7: TStringField;
    QdbdBDEDesigner8: TStringField;
    qcjd: TQuery;