class_70712_sysset.~pas

自己编写的在Delphi下进行图像开发的空间可以向

unit Class_70712_SysSet;

interface
  uses Classes,Math,SysUtils,StdCtrls,ExtCtrls,Windows,ADODB,Forms;

type
  TSysSet = Class
  private
    FID:integer;
    FWorkMode:Integer; //工作模式
    FWorkNumber:Integer; //工作编号
    FClientCount:Integer;  //终端数量
    FAutoChangeMap:Integer;//自动切换地图
    FCommSerialName:String; //通信串口
    FGetGPSDataSerialName:String; //采集本机GPS值串口
  protected
  public
  published
    property SetID:integer read FID write FID;
    property WorkMode:Integer read FWorkMode write FWorkMode default 1;
    property WorkNumber:integer read FWorkNumber write FWorkNumber default 0;
    property ClientCount:integer read FClientCount write FClientCount default 0;
    property CommSerialName:string read FCommSerialName write FCommSerialName;
    property GetGPSDataSerialName:string read FGetGPSDataSerialName write FGetGPSDataSerialName;
    property AutoChangeMap:integer read FAutoChangeMap write FAutoChangeMap default 1;
  end;

  TRegimentalSysSet = Class(TSysSet)  //regimental 团
  end;

  TBattalionSysSet = Class(TSysSet) ///battalion 营
  private
    FHandsetCount: integer; //手持数量
    FHandsetCommSerialName: string; //手持机通信串口
    FHandsetBaseNumber: Integer; //手持机基台编号
    FUpHandSetCount:integer;
  protected
  published
    property SetID;
    property WorkMode;
    property WorkNumber;
    property ClientCount;
    property CommSerialName;
    property GetGPSDataSerialName;
    property AutoChangeMap;
    property HandsetCount:integer read FHandsetCount write FHandsetCount default 0;
    property HandsetCommSerialName:string read FHandsetCommSerialName write FHandsetCommSerialName;
    property HandsetBaseNumber:integer read FHandsetBaseNumber write FHandsetBaseNumber;
    property UpHandsetCount:integer read FUpHandSetCount write FUpHandSetCount;
  end;

  type TSysSet_Operate = class
  private
    FADOQuery:TADOQuery;
  public
    constructor Create();
    destructor Destroy; override;
  end;

  type TRegimentalSysSet_Operate = class(TSysSet_Operate)
  public
    procedure UpDateSysSet(ASysSetValue:TRegimentalSysSet);overload;
    procedure GetSysSet(ASysSetValue:TRegimentalSysSet);overload;
  end;

  type TBattalionSysSet_Operate = class(TSysSet_Operate)
  public
    procedure UpDateSysSet(ASysSetValue:TBattalionSysSet);overload;
    procedure GetSysSet(ASysSetValue:TBattalionSysSet);overload;
  end;


implementation

{ TSysSet }


{ TBattalionSysSet }


{ TSysSet_Operate }

constructor TSysSet_Operate.Create();
var
  DbName:string;
begin
  FADOQuery := TADOQuery.Create(nil);
  DbName := ExtractFilePath(Application.ExeName) + '\data\DataBase.mdb';
  FADOQuery.ConnectionString := Format('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False', [DbName]);
end;

destructor TSysSet_Operate.Destroy;
begin
  inherited;
  FADOQuery.Free;
end;

procedure TRegimentalSysSet_Operate.GetSysSet(
  ASysSetValue: TRegimentalSysSet);
begin
    FADOQuery.Close;
    FADOQuery.SQL.Clear;
    FADOQuery.SQl.Add('Select * from tblsysset');
    FADOQuery.Open;
    FADOQuery.First;
    if FADOQuery.RecordCount > 0 then
    begin
      ASysSetValue.SetID := FADOQuery.FieldByName('ID').AsInteger;
      ASysSetValue.CommSerialName := FADOQuery.FieldByName('通信串口').AsString;
      ASysSetValue.GetGPSDataSerialName := FADOQuery.FieldByName('采集数据串口').AsString;;
      ASysSetValue.WorkMode := FADOQuery.FieldByName('工作模式').AsInteger;
      ASysSetValue.WorkNumber := FADOQuery.FieldByName('部队编号').AsInteger;
      ASysSetValue.ClientCount := FADOQuery.FieldByName('营部数量').AsInteger;
      ASysSetValue.AutoChangeMap := FADOQuery.FieldByName('自动切换').AsInteger;
    end;
end;

procedure TRegimentalSysSet_Operate.UpDateSysSet(ASysSetValue:TRegimentalSysSet);
begin
  With FADOQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Update tblsysset set [通信串口]=:pCommSerial,[采集数据串口]=:pGetGPSSerial,');
    SQL.Append('[工作模式]=:pWorkMode, [部队编号]=:pWorkNumber, [营部数量]=:pClientCount,');
    SQL.Append('[自动切换]=:pAutoExchange where [id]=:pID');
    Parameters.ParamByName('pCommSerial').Value := ASysSetValue.CommSerialName;
    Parameters.ParamByName('pGetGPSSerial').Value := ASysSetValue.GetGPSDataSerialName;
    Parameters.ParamByName('pWorkMode').Value := ASysSetValue.WorkMode;
    Parameters.ParamByName('pWorkNumber').Value := ASysSetValue.WorkNumber;
    Parameters.ParamByName('pClientCount').Value := ASysSetValue.ClientCount;
    Parameters.ParamByName('pAutoExchange').Value := ASysSetValue.AutoChangeMap;
    Parameters.ParamByName('pID').Value := AsysSetValue.SetID;
    ExecSQL;
  end;
end;

{ TBattalionSysSet_Operate }

procedure TBattalionSysSet_Operate.GetSysSet(
  ASysSetValue: TBattalionSysSet);
begin
  with FADOQuery do
  begin
    Close;
    SQL.Clear;
    SQl.Add('Select * from tblsysset');
    Open;
    First;
    if RecordCount > 0 then
    begin
      ASysSetValue.SetID := FADOQuery.FieldByName('ID').AsInteger;
      ASysSetValue.CommSerialName := FieldByName('通信串口').AsString;
      ASysSetValue.GetGPSDataSerialName := FieldByName('采集数据串口').AsString;;
      ASysSetValue.WorkMode := FieldByName('工作模式').AsInteger;
      ASysSetValue.WorkNumber := FieldByName('部队编号').AsInteger;
      ASysSetValue.ClientCount := FieldByName('营部数量').AsInteger;
      ASysSetValue.AutoChangeMap := FieldByName('自动切换').AsInteger;

      ASysSetValue.HandsetCommSerialName := FieldByName('手持机串口').AsString;
      ASysSetValue.HandsetBaseNumber := FieldByName('手持基台编号').AsInteger;
      ASysSetValue.HandsetCount := FieldbyName('手持机数量').AsInteger;
      ASysSetValue.UpHandsetCount := FieldByName('上传个数').AsInteger;
    end;
  end;
end;

procedure TBattalionSysSet_Operate.UpDateSysSet(
  ASysSetValue: TBattalionSysSet);
begin
  With FADOQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Update tblsysset set [通信串口]=:pCommSerial,[采集数据串口]=:pGetGPSSerial,');
    SQL.Append('[工作模式]=:pWorkMode, [部队编号]=:pWorkNumber, [营部数量]=:pClientCount,');
    SQL.Append('[自动切换]=:pAutoExchange,[手持机串口]=:pHandCommSerial,[手持基台编号]=:pHandBaseNumber,[手持机数量]=:pHandCount,');
    SQL.Append('[上传个数]=:pUpHandsetCount where [id]=:pID');

    Parameters.ParamByName('pCommSerial').Value := ASysSetValue.CommSerialName;
    Parameters.ParamByName('pGetGPSSerial').Value := ASysSetValue.GetGPSDataSerialName;
    Parameters.ParamByName('pWorkMode').Value := ASysSetValue.WorkMode;
    Parameters.ParamByName('pWorkNumber').Value := ASysSetValue.WorkNumber;
    Parameters.ParamByName('pClientCount').Value := ASysSetValue.ClientCount;
    Parameters.ParamByName('pAutoExchange').Value := ASysSetValue.AutoChangeMap;

    Parameters.ParamByName('pHandCommSerial').Value := ASysSetValue.HandsetCommSerialName;
    Parameters.ParamByName('pHandBaseNumber').Value := ASysSetValue.HandsetBaseNumber;
    Parameters.ParamByName('pHandCount').Value := ASysSetValue.HandsetCount;
    Parameters.ParamByName('pUpHandsetCount').Value := AsysSetValue.UpHandsetCount;
    Parameters.ParamByName('pID').Value := AsysSetValue.SetID;
    ExecSQL;
  end;
end;

end.