unit IzmUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, PictureList, ExtCtrls, AdvPanel, AdvPicture, AdvGlowButton,
  AdvProgressBar, ActnList, DeviceRD, ComCtrls, DateUtils, DB;

type TIzmResult = array [1..24,1..5] of DeviceRD.params_record;  

type
  TIzmForm = class(TForm)
    Izm_main_panel: TAdvPanel;
    Izm_top_panel: TPanel;
    Izm_middle_panel: TPanel;
    Izm_prev_point_btn: TAdvGlowButton;
    Izm_next_point_btn: TAdvGlowButton;
    Izm_condition_label: TLabel;
    Izm_stop_btn: TAdvGlowButton;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Izm_info_panel: TPanel;
    Panel1: TPanel;
    Izm_progress_bar: TAdvProgressBar;
    Izm_point_picture: TAdvPicture;
    ActionList: TActionList;
    izm_next_point: TAction;
    izm_prev_point: TAction;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Izm_patient_name: TLabel;
    Izm_date: TLabel;
    Izm_pat_num: TLabel;
    Izm_gen_num: TLabel;
    Izm_pat_id: TLabel;
    Label7: TLabel;
    izm_mes_tek_count: TLabel;
    izm_manual_switch: TCheckBox;
    Label9: TLabel;
    izm_mes_count: TLabel;
    izm_device_result_LB: TListView;
    izm_device_program_LB: TListView;
    izm_write_ui: TCheckBox;
    Label8: TLabel;
    Label10: TLabel;
    izm_close: TAction;
    izm_opisanie_edit: TEdit;
    Label11: TLabel;
    izm_U_mis: TLabel;
    izm_I_mis: TLabel;
    Panel5: TPanel;
    Izm_DS: TDataSource;
    Label12: TLabel;
    izm_point_opis: TLabel;
    izm_point_num: TLabel;
    Label1: TLabel;
    Label13: TLabel;
    izm_point_name: TLabel;
    IzmPB: TAdvProgressBar;
    IzmTimer: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure izm_next_pointExecute(Sender: TObject);
    procedure Izm_next_point_btnClick(Sender: TObject);
    procedure izm_prev_pointExecute(Sender: TObject);
    procedure Izm_prev_point_btnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure izm_manual_switchClick(Sender: TObject);
    procedure Izm_stop_btnClick(Sender: TObject);
    procedure izm_closeExecute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure IzmTimerTimer(Sender: TObject);
  private
    { Private declarations }
  public

    points_name_array: array [1..24] of string; 
    points_array: array [1..24] of string;

    procedure incoming_message(message_:params_record; point,povtor:integer);
    procedure load_data_to_database(izm_result:TIzmResult);
    function get_string(data:TIzm_array):string;
    procedure load_picture(num:integer);
  end;

var
  IzmForm: TIzmForm;
  pict_num,
  povrot_num:integer;


implementation

uses ConstUnit, MainUnit, DataUnit, device_thread, D2XXUnit;

{$R *.dfm}
procedure TIzmForm.load_picture(num: Integer);
var stream:TMemoryStream;
i:integer;
begin
SQL_DM.mysql_DSQ3.DataSet.First;

//Перемотка датасета 
if num>1 then for i:=2 to num do SQL_DM.mysql_DSQ3.DataSet.Next;

try
  Izm_point_picture.Picture:=nil;

  stream := TMemoryStream.Create;

  (SQL_DM.mysql_DSQ3.DataSet.fieldbyname('image') as TBlobField).SaveToStream(stream);
  {что бы что-нибудь записать, необходимо установить позицию потока в ноль!}
  Stream.Position := 0;
  Izm_point_picture.Picture.LoadFromStream(stream);
  stream.Free;
except
end;
if Izm_point_picture.Picture<>nil then Izm_point_picture.Show;
end;
///для создания строки из значений тока и напряжения
///в настоящий момент не используется
function TIzmForm.get_string(data: TIzm_array):string;
var i:integer;
    tmp:string;
begin
result:='';
for i:=0 to 2400 do
begin
tmp:=inttostr(data[i]);
if strlen(PChar(tmp))<>3 then
  if strlen(PChar(tmp))=1 then tmp:='00'+tmp else
  if strlen(PChar(tmp))=2 then tmp:='0'+tmp;
result:=result+tmp;
end;
end;

procedure TIzmForm.incoming_message(message_:params_record; point,povtor:integer);
begin
// Показываем результаты расчета
//добавить результаты с программы
izm_device_result_LB.Items[0].SubItems.Clear;
izm_device_result_LB.Items[0].SubItems.Add(floattostrf(message_.R, ffExponent, 4, 2));
izm_device_result_LB.Items[1].SubItems.Clear;
izm_device_result_LB.Items[1].SubItems.Add(floattostrf(message_.g0, ffExponent, 4, 2));
izm_device_result_LB.Items[2].SubItems.Clear;
izm_device_result_LB.Items[2].SubItems.Add(floattostrf(message_.g1, ffExponent, 4, 2));
izm_device_result_LB.Items[3].SubItems.Clear;
izm_device_result_LB.Items[3].SubItems.Add(floattostrf(message_.g2, ffExponent, 4, 2));
izm_device_result_LB.Items[4].SubItems.Clear;
izm_device_result_LB.Items[4].SubItems.Add(floattostrf(message_.g3, ffExponent, 4, 2));
izm_device_result_LB.Items[5].SubItems.Clear;
izm_device_result_LB.Items[5].SubItems.Add(floattostrf(message_.C, ffExponent, 4, 2));
//добавить результаты с прибора
izm_device_program_LB.Items[0].SubItems.Clear;
izm_device_program_LB.Items[0].SubItems.Add(floattostrf(message_.R_e, ffExponent, 4, 2));
izm_device_program_LB.Items[1].SubItems.Clear;
izm_device_program_LB.Items[1].SubItems.Add(floattostrf(message_.g0_e, ffExponent, 4, 2));
izm_device_program_LB.Items[2].SubItems.Clear;
izm_device_program_LB.Items[2].SubItems.Add(floattostrf(message_.g1_e, ffExponent, 4, 2));
izm_device_program_LB.Items[3].SubItems.Clear;
izm_device_program_LB.Items[3].SubItems.Add(floattostrf(message_.g2_e, ffExponent, 4, 2));
izm_device_program_LB.Items[4].SubItems.Clear;
izm_device_program_LB.Items[4].SubItems.Add(floattostrf(message_.g3_e, ffExponent, 4, 2));
izm_device_program_LB.Items[5].SubItems.Clear;
izm_device_program_LB.Items[5].SubItems.Add(floattostrf(message_.C_e, ffExponent, 4, 2));
//Показываем результаты ошибок
if message_.U_mis then izm_U_mis.Visible:=true else izm_U_mis.Visible:=false;
if message_.I_mis then izm_I_mis.Visible:=true else izm_I_mis.Visible:=false;
end;

procedure TIzmForm.IzmTimerTimer(Sender: TObject);
begin
IzmPB.Position:=IzmPB.Position+3;
end;

procedure TIzmForm.load_data_to_database(izm_result: TIzmResult);
begin
//
end;



procedure TIzmForm.izm_closeExecute(Sender: TObject);
begin
device_thread.TTH.Suspend;
//self.CloseModal;
end;

procedure TIzmForm.izm_manual_switchClick(Sender: TObject);
begin
if izm_manual_switch.Checked then begin
  if pict_num<>1 then
       Izm_prev_point_btn.Enabled:=true;
  if pict_num<>24 then
       Izm_next_point_btn.Enabled:=true;
end
else
begin
       Izm_prev_point_btn.Enabled:=false;
       Izm_next_point_btn.Enabled:=false;
end;

end;

procedure TIzmForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
izm_close.Execute;
end;

procedure TIzmForm.FormCreate(Sender: TObject);
var i:integer;
begin
//загрузка точек...
mysql_query(SQL_DM.mysql_query3, 'SELECT num, name, opisanie, image FROM '+table_points_name+';', 1);

with SQL_DM.mysql_DSQ3 do begin
    Enabled:=false;
    DataSet:=SQL_DM.mysql_query3;
    Enabled:=true;
end;
Izm_DS:=SQL_DM.mysql_DSQ3;
load_picture(1);
Izm_DS.DataSet.First;
for I:=1 to 24 do
 begin
   points_name_array[i]:=Izm_DS.DataSet.FieldByName('name').AsString;
   points_array[i]:=Izm_DS.DataSet.FieldByName('opisanie').AsString;
   Izm_DS.DataSet.next;
 end;

with izm_device_result_LB do begin
Items.Add();
Items[0].Caption:='R';
Items.Add();
Items[1].Caption:='G0';
Items.Add();
Items[2].Caption:='G1';
Items.Add();
Items[3].Caption:='G2';
Items.Add();
Items[4].Caption:='G3';
Items.Add();
Items[5].Caption:='C';
end;
with izm_device_program_LB do begin
Items.Add();
Items[0].Caption:='R';
Items.Add();
Items[1].Caption:='G0';
Items.Add();
Items[2].Caption:='G1';
Items.Add();
Items[3].Caption:='G2';
Items.Add();
Items[4].Caption:='G3';
Items.Add();
Items[5].Caption:='C';
end;
end;

procedure TIzmForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then izmForm.izm_next_point.Execute;
end;

procedure TIzmForm.FormShow(Sender: TObject);
begin
device_thread.TTH.Resume;
//Панель информации
Izm_patient_name.Caption:=MainForm.new_izm_fam_znach.Caption+' '+
                          MainForm.new_izm_name_znach.Caption+' '+
                          MainForm.new_izm_otch_znach.Caption;
Izm_date.Caption:=datetostr(date());
Izm_pat_num.Caption:=inttostr(strtoint(MainForm.new_izm_kol_znach.Caption)+1);


mysql_query(SQL_DM.mysql_query1, 'SELECT MAX(id) FROM `'+table_izm_name+'`;',1);
Izm_gen_num.Caption:=inttostr(SQL_DM.mysql_DSQ1.DataSet.FieldByName('MAX(id)').AsInteger+1);

// обнуление параметров формы
Izm_pat_id.Caption:=MainForm.new_izm_pat_id.Caption;
izm_mes_count.Caption:=inttostr(device_thread.num);
izm_mes_tek_count.Caption:='0';
pict_num:=1;
izm_point_num.Caption:=inttostr(pict_num);
load_picture(1);
Izm_progress_bar.Position:=round(100/24*(pict_num));
Izm_stop_btn.Caption:='Досрочно закончить измерение';
izm_opisanie_edit.Text:='Измерение '+datetostr(today())+' '+timetostr(time());
Izm_next_point_btn.Enabled:=true;
Izm_prev_point_btn.Enabled:=false;

izm_point_opis.Caption:=points_array[1];
izm_point_name.Caption:=points_name_array[1];

IzmPB.Position:=0;
//Состояние прибора


end;

procedure TIzmForm.izm_next_pointExecute(Sender: TObject);
begin
if pict_num+1<25 then
  begin
    load_picture(pict_num+1);
    Izm_progress_bar.Position:=round(100/24*(pict_num+1));
    Izm_prev_point_btn.Enabled:=true;
    izm_point_num.Caption:=inttostr(pict_num+1);

    izm_point_opis.Caption:=points_array[pict_num+1];
    izm_point_name.Caption:=points_name_array[pict_num+1];
    
    inc(pict_num);
  end;
if pict_num+1=25 then begin
      Izm_progress_bar.Position:=100;
      Izm_next_point_btn.Enabled:=false;
     end;

izm_mes_tek_count.Caption:='0';

device_thread.povtor:=0;
device_thread.point:=pict_num;
end;

procedure TIzmForm.Izm_next_point_btnClick(Sender: TObject);
begin
IzmForm.izm_next_point.Execute;
end;

procedure TIzmForm.izm_prev_pointExecute(Sender: TObject);
begin
if pict_num-1>0 then
  begin
    load_picture(pict_num-1);
    Izm_progress_bar.Position:=round(100/24*(pict_num-1));
    Izm_next_point_btn.Enabled:=true;
    izm_point_num.Caption:=inttostr(pict_num-1);

    izm_point_opis.Caption:=points_array[pict_num-1];
    izm_point_name.Caption:=points_name_array[pict_num-1];

    dec(pict_num);
  end;
if pict_num-1=0 then begin
      Izm_progress_bar.Position:=round(100/24*(pict_num));
      Izm_prev_point_btn.Enabled:=false;
     end;
izm_mes_tek_count.Caption:='0';

device_thread.povtor:=0;
device_thread.point:=pict_num;
end;

procedure TIzmForm.Izm_prev_point_btnClick(Sender: TObject);
begin
izm_prev_point.Execute;
end;

procedure TIzmForm.Izm_stop_btnClick(Sender: TObject);
begin
if MessageBox(0,
              PChar(izm_data_lost),
              PChar(izm_caption_message),
              MB_ICONQUESTION or MB_OKCANCEL
              )=id_OK then
begin
 izm_close.Execute;
end;
end;

end.