?? classesu.pas
字號:
unit ClassesU;
interface
type
TFeeSet=class
id:integer;
FeeName:string;
Price:double;
FeeStyle:string;
end;
type
TOperator=class
id:integer;
OperatorName:string;
pwd:string;
OperatorLevel:string;
end;
type
TBuilding=class
id:integer;
BuildingName:string;
end;
//單元對象
type
TBUnit=class
id:integer;
BUnitName:string;
buildingID:integer;
end;
type
Tcarfee=class
id:integer;
CarNo:string; //車位號
UserName:string;
carNumber:string; //車牌號
beginDate:string; //合同開始日期
endDate:string; //合同結(jié)束日期
end;
type
TFeeRecord=class
id:integer;
yzID:integer;
feeID:integer;
degree:double;
fee:double;
feeDate:string;
end;
type
TYZInfo=class
id:integer;
LPHid:integer;
DYHid:integer;
mph:integer;
yzName:string;
yzDW:string;
yzMJ:integer;
yzHX:string;
yzTel:string;
yzMobile:string;
remark:string;
end;
type
TFeeSetArray=array of TFeeSet;
implementation
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -