ufrmcqgpsoperation.pas

来自「msc map program to control client of too」· PAS 代码 · 共 127 行

unit ufrmCQGPSOperation;

interface

uses
  Windows, DB, Classes, SysUtils, DateUtils,
  cxTextEdit, cxControls, cxContainer, cxEdit, cxLabel, ExtCtrls, RzPanel,
  StdCtrls, cxButtons, Controls, ComCtrls, TbListView, dxDockPanel,
  dxDockControl, uBaseDBUtils,
  uBaseDBForm, uBaseDBDefs, ufrmCQGPSOperationEdit, cxLookAndFeelPainters,
  cxMemo, ImgList, cxMaskEdit, cxDropDownEdit, cxCalendar, dxNavBarCollns,
  dxNavBarBase, dxNavBar, uBaseDBFunctionPanel, Menus, cxClasses;
type

  TfrmCQGPSOperation = class(TBaseDBForm)
    Panel1: TPanel;
    dxNavBar1: TdxNavBar;
    dxNavBar1Group1: TdxNavBarGroup;
    dxNavBar1Group2: TdxNavBarGroup;
    biYesterday: TdxNavBarItem;
    biToday: TdxNavBarItem;
    biThisMonth: TdxNavBarItem;
    biLastMonth: TdxNavBarItem;
    dxNavBar1Group1Control: TdxNavBarGroupControl;
    cxLabel12: TcxLabel;
    dtedtFrom: TcxDateEdit;
    cxLabel13: TcxLabel;
    dtedtTo: TcxDateEdit;
    dxDockPanel2: TdxDockPanel;
    btnEdit: TcxButton;
    btnAdd: TcxButton;
    btnRefresh: TcxButton;
    btnDelete: TcxButton;
    gbPlan: TRzGroupBox;
    VehicleID: TcxTextEdit;
    cxLabel1: TcxLabel;
    lvOilType: TTbListView;
    dxDockSite1: TdxDockSite;
    dxLayoutDockSite1: TdxLayoutDockSite;
    Splitter1: TSplitter;
    ilSmall: TImageList;
    ilLarge: TImageList;
    cxLabel10: TcxLabel;
    GenerateTime: TcxTextEdit;
    cxLabel7: TcxLabel;
    GPSTime: TcxTextEdit;
    cxLabel5: TcxLabel;
    OperationLevelID: TcxTextEdit;
    cxLabel2: TcxLabel;
    OperationTypeID: TcxTextEdit;
    cxLabel3: TcxLabel;
    OperationDescription: TcxMemo;
    procedure FormCreate(Sender: TObject);
    procedure biYesterdayClick(Sender: TObject);
    procedure dtedtFromPropertiesChange(Sender: TObject);
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

{ TfrmCQGPSOperation }

procedure TfrmCQGPSOperation.FormCreate(Sender: TObject);
var
  p_ref_table_operation_type  : PBaseDBRefTable;
  p_ref_table_operation_Level : PBaseDBRefTable;
  p_ref_table_vehicle         : PBaseDBRefTable;
  str_sql                     : String;
begin
  DBListView      := lvOilType;
  ButtonNew       := btnAdd;
  ButtonEdit      := btnEdit;
  ButtonDelete    := btnDelete;
  ButtonRefresh   := btnRefresh;

  DBTableName     := 'MSC_Operation';
  DBTableCHNName  := '业务管理';
  str_sql := Format('Select (CommNO %% 1000000000) As ID,RegistrationNO from MSC_Vehicle '+
                    'Where ID In (Select * from F_GetVehicleTableByUserID(%d))',
                    [BaseDBGlobal.UserGroupIDByName(AppName)]);

  EditFormClass := TfrmCQGPSOperationEdit;

  p_ref_table_operation_type  := AddRefTable('MSC_OperationType', '业务类型', 'Name', 'TypeNO');
  p_ref_table_operation_Level := AddRefTable('MSC_OperationLevel', '业务等级', 'Name', 'LevelNO');
  p_ref_table_vehicle         := AddRefTable('MSC_Vehicle', '车牌号', 'RegistrationNO',
                                             'ID', str_sql);

  AddField('ID', '编号', 100, ftInteger, False, False, True);
  AddField('VehicleID', '车牌号', 100, ftReference, True, False, False,
    '', '', p_ref_table_vehicle);
  AddField('GenerateTime', '生成时间', 130, ftDatetime);
  AddField('GPSTime', '定位时间', 130, ftDatetime);
  AddField('OperationLevelID', '业务等级', 160, ftReference, True, False, False,
    '', '', p_ref_table_operation_Level);
  AddField('OperationTypeID', '业务类型', 160, ftReference, True, False, False,
    '', '', p_ref_table_operation_type);
  AddField('OperationDescription', '备注', 300, ftMemo);

  InitialInfo(False);

  TBaseDBFuncPanelUtils.ChangeFilterDateTimeValue(dtedtFrom, dtedtTo);
end;

procedure TfrmCQGPSOperation.biYesterdayClick(Sender: TObject);
begin
  TBaseDBFuncPanelUtils.ChangeFilterDateTimeRange(
    TBaseDBFuncPanelDateRange(TComponent(Sender).Tag),
    dtedtFrom, dtedtTo);
end;

procedure TfrmCQGPSOperation.dtedtFromPropertiesChange(Sender: TObject);
begin
  RefreshCondition(
    Format('(GenerateTime >= ''%s'') and (GenerateTime <= ''%s'')', [
      FormatDateTime('yyyy-mm-dd 00:00:00', dtedtFrom.Date),
      FormatDateTime('yyyy-mm-dd 23:59:59', dtedtTo.Date)
    ])
    );
end;

end.