datafrm.pas

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

PAS
873
字号
    Dyfwz: TDataSource;
    dt: TTable;
    dtBDEDesigner: TIntegerField;
    dtBDEDesigner2: TStringField;
    dtBDEDesigner3: TStringField;
    dtBDEDesigner4: TStringField;
    dtBDEDesigner5: TStringField;
    dtBDEDesigner6: TStringField;
    dtBDEDesigner7: TStringField;
    dtBDEDesigner8: TStringField;
    dtBDEDesigner9: TStringField;
    dtBDEDesigner10: TStringField;
    dtBDEDesigner11: TStringField;
    dtBDEDesigner12: TSmallintField;
    dtBDEDesigner13: TFloatField;
    dtBDEDesigner14: TSmallintField;
    dtBDEDesigner15: TStringField;
    dtBDEDesigner16: TSmallintField;
    dtBDEDesigner17: TStringField;
    Ddt: TDataSource;
    wx: TTable;
    wxBDEDesigner: TStringField;
    wxBDEDesigner2: TStringField;
    wxBDEDesigner3: TStringField;
    wxBDEDesigner4: TStringField;
    wxBDEDesigner5: TDateField;
    wxBDEDesigner6: TStringField;
    wxBDEDesigner7: TStringField;
    wxBDEDesigner8: TCurrencyField;
    wxwz: TTable;
    wxwzBDEDesigner: TStringField;
    wxwzBDEDesigner2: TStringField;
    wxwzBDEDesigner3: TStringField;
    wxwzBDEDesigner4: TStringField;
    wxwzBDEDesigner5: TFloatField;
    wxwzBDEDesigner6: TCurrencyField;
    wxwzBDEDesigner7: TCurrencyField;
    Dwx: TDataSource;
    Dwxwz: TDataSource;
    Qwx: TQuery;
    Qwxwz: TQuery;
    wxwz1: TTable;
    Dwxwz1: TDataSource;
    wxwz1BDEDesigner: TStringField;
    wxwz1BDEDesigner2: TStringField;
    wxwz1BDEDesigner3: TStringField;
    wxwz1BDEDesigner4: TFloatField;
    wxwz1BDEDesigner5: TCurrencyField;
    wxwz1BDEDesigner6: TCurrencyField;
    dwqk1: TTable;
    dwqk1BDEDesigner: TStringField;
    dwqk1BDEDesigner2: TStringField;
    dwqk1BDEDesigner3: TStringField;
    dwqk1BDEDesigner4: TStringField;
    dwqk1BDEDesigner5: TStringField;
    dwqk1BDEDesigner6: TStringField;
    dwqk1BDEDesigner7: TStringField;
    dwqk1BDEDesigner8: TStringField;
    dwqk1BDEDesigner9: TStringField;
    dwqk1BDEDesigner10: TStringField;
    dwqk1BDEDesigner11: TIntegerField;
    dwqk1BDEDesigner12: TIntegerField;
    dwqk1BDEDesigner13: TStringField;
    dwqk1BDEDesigner14: TStringField;
    dwqk1BDEDesigner15: TStringField;
    dwqk1BDEDesigner16: TStringField;
    dwqk1BDEDesigner17: TIntegerField;
    dwqk1BDEDesigner18: TIntegerField;
    dwqk1BDEDesigner19: TIntegerField;
    dwqk1BDEDesigner20: TIntegerField;
    dwqk1BDEDesigner21: TIntegerField;
    dwqk1BDEDesigner22: TIntegerField;
    dwqk1BDEDesigner23: TIntegerField;
    dwqk1BDEDesigner24: TIntegerField;
    dwqk1BDEDesigner25: TIntegerField;
    dwqk1BDEDesigner26: TIntegerField;
    dwqk1BDEDesigner27: TIntegerField;
    dwqk1BDEDesigner28: TIntegerField;
    dwqk1BDEDesigner29: TIntegerField;
    dwqk1BDEDesigner30: TIntegerField;
    dwqk1BDEDesigner31: TIntegerField;
    guolu1: TTable;
    guolu1BDEDesigner: TIntegerField;
    guolu1BDEDesigner2: TStringField;
    guolu1BDEDesigner3: TStringField;
    guolu1BDEDesigner4: TStringField;
    guolu1BDEDesigner5: TStringField;
    guolu1BDEDesigner6: TStringField;
    guolu1BDEDesigner7: TFloatField;
    guolu1BDEDesigner8: TFloatField;
    guolu1BDEDesigner9: TFloatField;
    guolu1BDEDesigner10: TSmallintField;
    guolu1BDEDesigner11: TStringField;
    guolu1BDEDesigner12: TStringField;
    guolu1BDEDesigner13: TStringField;
    guolu1BDEDesigner14: TStringField;
    guolu1BDEDesigner15: TStringField;
    guolu1BDEDesigner16: TStringField;
    guolu1BDEDesigner17: TStringField;
    guolu1BDEDesigner18: TSmallintField;
    guolu1BDEDesigner19: TStringField;
    guolu1BDEDesigner20: TStringField;
    guolu1BDEDesigner21: TStringField;
    gx1: TTable;
    gx1BDEDesigner: TIntegerField;
    gx1BDEDesigner2: TStringField;
    gx1BDEDesigner3: TStringField;
    gx1BDEDesigner4: TStringField;
    gx1BDEDesigner5: TStringField;
    gx1BDEDesigner6: TStringField;
    gx1BDEDesigner7: TIntegerField;
    gx1BDEDesigner8: TSmallintField;
    gx1BDEDesigner9: TStringField;
    gx1BDEDesigner10: TSmallintField;
    gx1BDEDesigner11: TStringField;
    gx1BDEDesigner12: TStringField;
    gx1BDEDesigner13: TStringField;
    gx1BDEDesigner14: TStringField;
    xjyf1: TTable;
    xjyf1BDEDesigner: TIntegerField;
    xjyf1BDEDesigner2: TStringField;
    xjyf1BDEDesigner3: TStringField;
    xjyf1BDEDesigner4: TStringField;
    xjyf1BDEDesigner5: TStringField;
    xjyf1BDEDesigner6: TStringField;
    xjyf1BDEDesigner7: TIntegerField;
    xjyf1BDEDesigner8: TIntegerField;
    xjyf1BDEDesigner9: TIntegerField;
    xjyf1BDEDesigner10: TStringField;
    xjyf1BDEDesigner11: TSmallintField;
    xjyf1BDEDesigner12: TStringField;
    xjyf1BDEDesigner13: TCurrencyField;
    xjyf1BDEDesigner14: TCurrencyField;
    xjyf1BDEDesigner15: TCurrencyField;
    xjyf1BDEDesigner16: TCurrencyField;
    xjyf1BDEDesigner17: TCurrencyField;
    xjyf1BDEDesigner18: TStringField;
    xjyf1BDEDesigner19: TStringField;
    xjyf1BDEDesigner20: TStringField;
    yfda1: TTable;
    yfda1BDEDesigner: TIntegerField;
    yfda1BDEDesigner2: TStringField;
    yfda1BDEDesigner3: TStringField;
    yfda1BDEDesigner4: TStringField;
    yfda1BDEDesigner5: TStringField;
    yfda1BDEDesigner6: TStringField;
    yfda1BDEDesigner7: TSmallintField;
    yfda1BDEDesigner8: TSmallintField;
    yfda1BDEDesigner9: TStringField;
    yffd1: TTable;
    yffd1BDEDesigner: TIntegerField;
    yffd1BDEDesigner2: TStringField;
    yffd1BDEDesigner3: TStringField;
    yffd1BDEDesigner4: TStringField;
    yffd1BDEDesigner5: TStringField;
    yffd1BDEDesigner6: TIntegerField;
    yffd1BDEDesigner7: TStringField;
    yffd1BDEDesigner8: TStringField;
    yffd1BDEDesigner9: TIntegerField;
    yffd1BDEDesigner10: TStringField;
    yffd1BDEDesigner11: TStringField;
    yffd1BDEDesigner12: TIntegerField;
    yffd1BDEDesigner13: TIntegerField;
    yffd1BDEDesigner14: TIntegerField;
    yffd1BDEDesigner15: TIntegerField;
    yffd1BDEDesigner16: TIntegerField;
    yffd1BDEDesigner17: TIntegerField;
    yffd1BDEDesigner18: TStringField;
    yffd1BDEDesigner19: TStringField;
    yffd1BDEDesigner20: TStringField;
    yffd1BDEDesigner21: TStringField;
    yffd1BDEDesigner22: TStringField;
    yffd1BDEDesigner23: TStringField;
    yffd1BDEDesigner24: TSmallintField;
    yffd1BDEDesigner25: TIntegerField;
    yffd1BDEDesigner26: TStringField;
    yffd1BDEDesigner27: TStringField;
    yffd1BDEDesigner28: TStringField;
    yffd1BDEDesigner29: TStringField;
    yffd1BDEDesigner30: TStringField;
    yffd1BDEDesigner31: TStringField;
    yffd1BDEDesigner32: TStringField;
    yffd1BDEDesigner33: TStringField;
    yfsb1: TTable;
    yfsb1BDEDesigner: TSmallintField;
    yfsb1BDEDesigner2: TStringField;
    yfsb1BDEDesigner3: TStringField;
    yfsb1BDEDesigner4: TStringField;
    yfsb1BDEDesigner5: TSmallintField;
    yfsb1BDEDesigner6: TSmallintField;
    yfsb1BDEDesigner7: TIntegerField;
    yfsb1BDEDesigner8: TSmallintField;
    yfsb1BDEDesigner9: TIntegerField;
    yfsb1BDEDesigner10: TSmallintField;
    yfsb1BDEDesigner11: TIntegerField;
    yfsb1BDEDesigner12: TSmallintField;
    yfsb1BDEDesigner13: TSmallintField;
    yfsb1BDEDesigner14: TIntegerField;
    yfsb1BDEDesigner15: TSmallintField;
    yfsb1BDEDesigner16: TIntegerField;
    yfsb1BDEDesigner17: TSmallintField;
    yfsb1BDEDesigner18: TSmallintField;
    yfsb1BDEDesigner19: TSmallintField;
    yfsb1BDEDesigner20: TSmallintField;
    yfsb1BDEDesigner21: TIntegerField;
    yfsb1BDEDesigner22: TSmallintField;
    yfsb1BDEDesigner23: TIntegerField;
    yfsb1BDEDesigner24: TIntegerField;
    yfsb1BDEDesigner25: TIntegerField;
    yfsb1BDEDesigner26: TIntegerField;
    yfsb1BDEDesigner27: TIntegerField;
    yfsb1BDEDesigner28: TIntegerField;
    yfsb1BDEDesigner1: TIntegerField;
    yfsb1BDEDesigner110: TIntegerField;
    yfsb1BDEDesigner29: TIntegerField;
    yfwz1: TTable;
    yfwz1BDEDesigner: TIntegerField;
    yfwz1BDEDesigner2: TStringField;
    yfwz1BDEDesigner3: TStringField;
    yfwz1BDEDesigner4: TStringField;
    yfwz1BDEDesigner5: TStringField;
    yfwz1BDEDesigner6: TStringField;
    yfwz1BDEDesigner7: TIntegerField;
    yfwz1BDEDesigner8: TIntegerField;
    yfwz1BDEDesigner9: TIntegerField;
    yfwz1BDEDesigner10: TIntegerField;
    yfwz1BDEDesigner11: TIntegerField;
    yfwz1BDEDesigner12: TStringField;
    yfzl1: TTable;
    yfzl1BDEDesigner: TSmallintField;
    yfzl1BDEDesigner2: TStringField;
    yfzl1BDEDesigner3: TStringField;
    yfzl1BDEDesigner4: TStringField;
    yfzl1BDEDesigner5: TStringField;
    yfzl1BDEDesigner6: TStringField;
    yfzl1BDEDesigner7: TStringField;
    yfzl1BDEDesigner8: TStringField;
    yfzl1BDEDesigner9: TDateField;
    yfzl1BDEDesigner10: TIntegerField;
    yfzl1BDEDesigner11: TIntegerField;
    yfzl1BDEDesigner12: TIntegerField;
    yfzl1BDEDesigner13: TIntegerField;
    yfzl1BDEDesigner14: TIntegerField;
    yfzl1BDEDesigner15: TIntegerField;
    yfzl1BDEDesigner16: TIntegerField;
    yfzl1BDEDesigner1: TIntegerField;
    yfzl1BDEDesigner17: TIntegerField;
    yfzl1BDEDesigner18: TIntegerField;
    yfzl1BDEDesigner19: TStringField;
    yfzl1BDEDesigner20: TStringField;
    yfzl1BDEDesigner21: TStringField;
    yfzl1BDEDesigner22: TStringField;
    yfzl1BDEDesigner23: TStringField;
    yfzl1BDEDesigner24: TStringField;
    yfzl1BDEDesigner25: TStringField;
    yfzl1BDEDesigner26: TStringField;
    yfzl1BDEDesigner27: TStringField;
    yfzl1BDEDesigner28: TStringField;
    dt1: TTable;
    dt1BDEDesigner: TIntegerField;
    dt1BDEDesigner2: TStringField;
    dt1BDEDesigner3: TStringField;
    dt1BDEDesigner4: TStringField;
    dt1BDEDesigner5: TStringField;
    dt1BDEDesigner6: TStringField;
    dt1BDEDesigner7: TStringField;
    dt1BDEDesigner8: TStringField;
    dt1BDEDesigner9: TStringField;
    dt1BDEDesigner10: TStringField;
    dt1BDEDesigner11: TStringField;
    dt1BDEDesigner12: TSmallintField;
    dt1BDEDesigner13: TFloatField;
    dt1BDEDesigner14: TSmallintField;
    dt1BDEDesigner15: TStringField;
    dt1BDEDesigner16: TSmallintField;
    dt1BDEDesigner17: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  yfgldata: Tyfgldata;

implementation

{$R *.dfm}

end.

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?