【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“FeeStationClass.pas”一文,供大家参考学习
unit FeeStationClass;
interface
uses
Db, ADODB;
type TFeeStation = Class
public
FeeStationId : integer;
ComputerName : string;
ComputerIp : string;
Description : string;
ModifyTime: TDateTime;
ConnectionFlag : Char; //*连接标记*/
LeaveFixNum : integer; //*开出该站固定用户的数量*/
LeaveFixMoney : double;//*保留*/
LeaveCasualNum : integer;//*开出该站临时用户的数量*/
LeaveCasualMoney : double;//*开出该站临时用户所交的停车费*/
EmployeeId : integer; //*在岗人员编号*/,
EmployeeName : string; //*在岗人员*/
StartFee : double; //*开户的费用*/
MaintainNum : integer; ///*维护次数 2月18日*/
MaintainFee : double; ///*维护费用 2月18日*/
BlockerSta : Char;///*2月21日*/
CameraSta : Char;///*2月21日*/
BloodLightSta : Char; ///* 2月21日*/
//==========member function===============
constructor Create();overload;
constructor Create(AComputerName,AComputerIp: string);overload;
function ReadDB_local(AsyFlag: integer): integer; //读取数据库
function InsertDB_local(AsyFlag: integer): integer; //写入数据库
function UpdateDB_local(AsyFlag: integer): integer; //修改数据库
function ReadDB_remote(): integer; //读取数据库
function InsertDB_remote(): integer; //写入数据库
function UpdateDB_remote(): integer; //修改数据库
end;
implementation
uses
GlobalUnit;
{ TFeeStation }
constructor TFeeStation.Create;
begin
Self.Create('','');
end;
constructor TFeeStation.Create(AComputerName, AComputerIp: string);
begin
Self.ComputerName := AComputerName;
Self.ComputerIp := AComputerIp;
end;
function TFeeStation.InsertDB_local(AsyFlag: integer): integer;
var
mConnection : TADOConnection;
mQuery: TADOQuery;
mStr : string;
begin
{
if (ComputerName = '') or (ComputerIp = '' ) then
begin
Result := 0;
Exit;
end;
mConnection := GetLocalConnection();
if mConnection = nil then
begin
Result := -1;
Exit;
end;
mQuery := TADOQuery.Create(nil);
mStr := 'INSERT INTO fee_station '
+'(fee_station_id,computer_name,computer_ip, '
+'description,modify_time,connetion_flag, '
+'leave_fix_num,leave_fix_money, '
+'leave_casual_num ,leave_casual_money , '
+'employee_id,employee_name '
+'start_fee float , '
+'maintain_num int,maintain_fee float, '
+'blocker_sta ,camera_sta ,bloodlight_sta) '
+'VALUES(:AFeeStationId,:AComputerName,:AComputerIp, '
+':ADescription,:AModifyTime,:AConnectionFlag, '
+':ALeaveFixNum, :ALeaveFixMoney, '
+':ALeaveCasualNum, :ALeaveCasualMoney, '
+':AEmployeeId, :AEmployeeName, '
+':AStartFee, '
+':AMaintainNum,:AMaintainFee, '
+':ABlockerSta, :ACameraSta, :ABloodLightSta) ';
with mQuery do
begin
Connection := mConnection ;
SQL.Clear();
SQL.Add(mStr);
try
Parameters[0].Value := FeeStationId;
Parameters[1].Value := AComputerName;
Parameters[2].Value := AComputerIp;
Parameters[3].Value := ADescription;
Parameters[4].Value := AModifyTime;
Parameters[5].Value := AConnectionFlag;
Parameters[6].Value := ALeaveFixNum;
Parameters[7].Value := ALeaveFixMoney;
Parameters[8].Value := ALeaveCasualNum;
Parameters[9].Value := ALeaveCasualMoney;
Parameters[10].Value := AEmployeeId;
Parameters[11].Value := AEmployeeName;
Parameters[12].Value := AStartFee;
Parameters[13].Value :=;
Parameters[14].Value :=;
Parameters[15].Value :=;
except
end;
end;
}
end;
function TFeeStation.InsertDB_remote: integer;
begin
end;
function TFeeStation.ReadDB_local(AsyFlag: integer): integer;
begin
end;
function TFeeStation.ReadDB_remote: integer;
begin
end;
function TFeeStation.UpdateDB_local(AsyFlag: integer): integer;
begin
end;
function TFeeStation.UpdateDB_remote: integer;
begin
end;
end.