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.