listenform.pas

共监狱用

unit ListenForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls,ComDrv32, StdCtrls, KsControls, KsGroupBoxs,
  KsSkinGroupBoxs,DBISAMTb, DB, KsSkinEngine, KsHooks, KsForms, KsSkinForms;

type
  TAudioMatrixSetForm = class(TForm)
    ImageL6: TImage;
    ImageS6: TImage;
    ImageL7: TImage;
    ImageS7: TImage;
    ImageL10: TImage;
    ImageL8: TImage;
    ImageS8: TImage;
    ImageL9: TImage;
    ImageS9: TImage;
    ImageS10: TImage;
    ImageL11: TImage;
    ImageS11: TImage;
    ImageL12: TImage;
    ImageL14: TImage;
    ImageS15: TImage;
    ImageS12: TImage;
    ImageL13: TImage;
    ImageS13: TImage;
    ImageS14: TImage;
    ImageL15: TImage;
    SeSkinGroupBox1: TSeSkinGroupBox;
    ImageS1: TImage;
    ImageS2: TImage;
    ImageS3: TImage;
    ImageS5: TImage;
    ImageS4: TImage;
    ImageL3: TImage;
    ImageL5: TImage;
    ImageL4: TImage;
    ImageL2: TImage;
    ImageL1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    SeSkinGroupBox2: TSeSkinGroupBox;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    ImageL16: TImage;
    ImageS16: TImage;
    SeSkinGroupBox3: TSeSkinGroupBox;
    ImageS17: TImage;
    ImageS18: TImage;
    ImageL17: TImage;
    ImageL18: TImage;
    ImageL19: TImage;
    ImageS19: TImage;
    ImageL20: TImage;
    ImageL21: TImage;
    ImageL22: TImage;
    ImageL23: TImage;
    ImageS20: TImage;
    ImageS21: TImage;
    ImageS22: TImage;
    ImageS23: TImage;
    ImageL24: TImage;
    ImageS24: TImage;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Edit21: TEdit;
    Edit22: TEdit;
    Edit23: TEdit;
    Edit24: TEdit;
    SeSkinGroupBox4: TSeSkinGroupBox;
    ImageS25: TImage;
    ImageS26: TImage;
    ImageL25: TImage;
    ImageL26: TImage;
    ImageL27: TImage;
    ImageS27: TImage;
    ImageL28: TImage;
    ImageL29: TImage;
    ImageL30: TImage;
    ImageL31: TImage;
    ImageS28: TImage;
    ImageS29: TImage;
    ImageS30: TImage;
    ImageS31: TImage;
    Edit25: TEdit;
    Edit26: TEdit;
    Edit27: TEdit;
    Edit28: TEdit;
    Edit29: TEdit;
    Edit30: TEdit;
    Edit31: TEdit;
    SeSkinForm1: TSeSkinForm;
    SeSkinEngine1: TSeSkinEngine;
    OpenDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure ImageS1Click(Sender: TObject);
    procedure ImageL1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    

  private
    { Private declarations }
  public
    fComport:TCommPortDriver;
    { Public declarations }
  end;

var
  AudioMatrixSetForm: TAudioMatrixSetForm;
  CommandCode: array [0..5] of Byte ;
  cAMatrixQuery:TDBISAMQuery;
  tabAMatrix:TDBISAMTable;
  ListenImageArray:array[1..32] of  TImage;
  SpeakImageArray: array[1..32] of  TImage;
  //SpotArray:array[1..32] of  TEdit;
  ListenArray:array[1..32] of  Boolean;
  SpeakArray:array[1..32] of Boolean;
  UsedArray: array[1..32] of Boolean;



implementation

{$R *.dfm}
procedure TAudioMatrixSetForm.FormCreate(Sender: TObject);
var
s:string;
nn:integer;
begin
  {for nn:=1 to 31 do
  begin
  ListenImageArray[nn]:=TImage.Create(nil);
  SpeakImageArray[nn]:= TImage.Create(nil);
  SpotArray[nn]:=TEdit.Create(nil);
  end;}
  SeSkinEngine1.SkinFile:='skins\preluna.xskn';

  ListenImageArray[1]:=Imagel1;
  ListenImageArray[2]:=Imagel2;
  ListenImageArray[3]:=Imagel3;
  ListenImageArray[4]:=Imagel4;
  ListenImageArray[5]:=Imagel5;
  ListenImageArray[6]:=Imagel6;
  ListenImageArray[7]:=Imagel7;
  ListenImageArray[8]:=Imagel8;
  ListenImageArray[9]:=Imagel9;
  ListenImageArray[10]:=Imagel10;
  ListenImageArray[11]:=Imagel11;
  ListenImageArray[12]:=Imagel12;
  ListenImageArray[13]:=Imagel13;
  ListenImageArray[14]:=Imagel14;
  ListenImageArray[15]:=Imagel15;
  ListenImageArray[16]:=Imagel16;
  ListenImageArray[17]:=Imagel17;
  ListenImageArray[18]:=Imagel18;
  ListenImageArray[19]:=Imagel19;
  ListenImageArray[20]:=Imagel20;
  ListenImageArray[21]:=Imagel21;
  ListenImageArray[22]:=Imagel22;
  ListenImageArray[23]:=Imagel23;
  ListenImageArray[24]:=Imagel24;
  ListenImageArray[25]:=Imagel25;
  ListenImageArray[26]:=Imagel26;
  ListenImageArray[27]:=Imagel27;
  ListenImageArray[28]:=Imagel28;
  ListenImageArray[29]:=Imagel29;
  ListenImageArray[30]:=Imagel30;
  ListenImageArray[31]:=Imagel31;

  SpeakImageArray[1]:=Images1;
  SpeakImageArray[2]:=Images2;
  SpeakImageArray[3]:=Images3;
  SpeakImageArray[4]:=Images4;
  SpeakImageArray[5]:=Images5;
  SpeakImageArray[6]:=Images6;
  SpeakImageArray[7]:=Images7;
  SpeakImageArray[8]:=Images8;
  SpeakImageArray[9]:=Images9;
  SpeakImageArray[10]:=Images10;
  SpeakImageArray[11]:=Images11;
  SpeakImageArray[12]:=Images12;
  SpeakImageArray[13]:=Images13;
  SpeakImageArray[14]:=Images14;
  SpeakImageArray[15]:=Images15;
  SpeakImageArray[16]:=Images16;
  SpeakImageArray[17]:=Images17;
  SpeakImageArray[18]:=Images18;
  SpeakImageArray[19]:=Images19;
  SpeakImageArray[20]:=Images20;
  SpeakImageArray[21]:=Images21;
  SpeakImageArray[22]:=Images22;
  SpeakImageArray[23]:=Images23;
  SpeakImageArray[24]:=Images24;
  SpeakImageArray[25]:=Images25;
  SpeakImageArray[26]:=Images26;
  SpeakImageArray[27]:=Images27;
  SpeakImageArray[28]:=Images28;
  SpeakImageArray[29]:=Images29;
  SpeakImageArray[30]:=Images30;
  SpeakImageArray[31]:=Images31;

  tabAMatrix:=TDBISAMTable.Create(nil);
  tabAMatrix.DatabaseName:= ExtractFilePath(Application.ExeName) + 'Parameters';
  tabAMatrix.TableName:='cAudioMatrix';

  cAMatrixQuery := TDBISAMQuery.Create(nil);
    with cAMatrixQuery do
    begin
      Close;
      DatabaseName := ExtractFilePath(Application.ExeName) + 'Parameters';
      with SQL do
      begin
        Clear;
        S := 'Select * From cAudioMatrix';
        Add(S);
      end;
        Prepare;
        ExecSQL;
        Open;
        edit1.Text := FieldByName('spot1').AsString;
        edit2.Text := FieldByName('spot2').AsString;
        edit3.Text := FieldByName('spot3').AsString;
        edit4.Text := FieldByName('spot4').AsString;
        edit5.Text := FieldByName('spot5').AsString;
        edit6.Text := FieldByName('spot6').AsString;
        edit7.Text := FieldByName('spot7').AsString;
        edit8.Text := FieldByName('spot8').AsString;
        edit9.Text := FieldByName('spot9').AsString;
        edit10.Text := FieldByName('spot10').AsString;
        edit11.Text := FieldByName('spot11').AsString;
        edit12.Text := FieldByName('spot12').AsString;
        edit13.Text := FieldByName('spot13').AsString;
        edit14.Text := FieldByName('spot14').AsString;
        edit15.Text := FieldByName('spot15').AsString;
        edit16.Text := FieldByName('spot16').AsString;
        edit17.Text := FieldByName('spot17').AsString;
        edit18.Text := FieldByName('spot18').AsString;
        edit19.Text := FieldByName('spot19').AsString;
        edit20.Text := FieldByName('spot20').AsString;
        edit21.Text := FieldByName('spot21').AsString;
        edit22.Text := FieldByName('spot22').AsString;
        edit23.Text := FieldByName('spot23').AsString;
        edit24.Text := FieldByName('spot24').AsString;
        edit25.Text := FieldByName('spot25').AsString;
        edit26.Text := FieldByName('spot26').AsString;
        edit27.Text := FieldByName('spot27').AsString;
        edit28.Text := FieldByName('spot28').AsString;
        edit29.Text := FieldByName('spot29').AsString;
        edit30.Text := FieldByName('spot30').AsString;
        edit31.Text := FieldByName('spot31').AsString;

        SpeakArray[1]:= FieldByName('speak1').AsBoolean;
        SpeakArray[2]:= FieldByName('speak2').AsBoolean;
        SpeakArray[3]:= FieldByName('speak3').AsBoolean;
        SpeakArray[4]:= FieldByName('speak4').AsBoolean;
        SpeakArray[5]:= FieldByName('speak5').AsBoolean;
        SpeakArray[6]:= FieldByName('speak6').AsBoolean;
        SpeakArray[7]:= FieldByName('speak7').AsBoolean;
        SpeakArray[8]:= FieldByName('speak8').AsBoolean;
        SpeakArray[9]:= FieldByName('speak9').AsBoolean;
        SpeakArray[10]:= FieldByName('speak10').AsBoolean;
        SpeakArray[11]:= FieldByName('speak11').AsBoolean;
        SpeakArray[12]:= FieldByName('speak12').AsBoolean;
        SpeakArray[13]:= FieldByName('speak13').AsBoolean;
        SpeakArray[14]:= FieldByName('speak14').AsBoolean;
        SpeakArray[15]:= FieldByName('speak15').AsBoolean;
        SpeakArray[16]:= FieldByName('speak16').AsBoolean;
        SpeakArray[17]:= FieldByName('speak17').AsBoolean;
        SpeakArray[18]:= FieldByName('speak18').AsBoolean;
        SpeakArray[19]:= FieldByName('speak19').AsBoolean;
        SpeakArray[21]:= FieldByName('speak21').AsBoolean;
        SpeakArray[22]:= FieldByName('speak22').AsBoolean;
        SpeakArray[23]:= FieldByName('speak23').AsBoolean;
        SpeakArray[24]:= FieldByName('speak24').AsBoolean;
        SpeakArray[25]:= FieldByName('speak25').AsBoolean;
        SpeakArray[26]:= FieldByName('speak26').AsBoolean;
        SpeakArray[27]:= FieldByName('speak27').AsBoolean;
        SpeakArray[28]:= FieldByName('speak28').AsBoolean;
        SpeakArray[29]:= FieldByName('speak29').AsBoolean;