📄 waveview.pas

📁 合成实验的上位机程序
💻 PAS
📖 第 1 页 / 共 3 页
字号:
  I:Integer;
begin
  C10.Checked:=not C10.Checked;   
  for I:=1 to 10 do
    if conSeries[I].Tag=10 then
      conSeries[I].Active:=C10.Checked;
end;

procedure TWaveViewFrm.V10Click(Sender: TObject);
begin
  V10.Checked:=not V10.Checked;
end;

procedure TWaveViewFrm.C11Click(Sender: TObject);    
var
  I:Integer;
begin
  C11.Checked:=not C11.Checked;   
  for I:=1 to 10 do
    if conSeries[I].Tag=11 then
      conSeries[I].Active:=C11.Checked;
end;

procedure TWaveViewFrm.V11Click(Sender: TObject);
begin
  V11.Checked:=not V11.Checked;
end;

procedure TWaveViewFrm.C12Click(Sender: TObject);  
var
  I:Integer;
begin
  C12.Checked:=not C12.Checked;   
  for I:=1 to 10 do
    if conSeries[I].Tag=12 then
      conSeries[I].Active:=C12.Checked;
end;

procedure TWaveViewFrm.V12Click(Sender: TObject);
begin
  V12.Checked:=not V12.Checked;
end;

procedure TWaveViewFrm.C13Click(Sender: TObject);  
var
  I:Integer;
begin
  C13.Checked:=not C13.Checked;    
  for I:=1 to 10 do
    if conSeries[I].Tag=13 then
      conSeries[I].Active:=C13.Checked;
end;

procedure TWaveViewFrm.V13Click(Sender: TObject);
begin
  V13.Checked:=not V13.Checked;
end;

procedure TWaveViewFrm.C14Click(Sender: TObject);  
var
  I:Integer;
begin
  C14.Checked:=not C14.Checked;    
  for I:=1 to 10 do
    if conSeries[I].Tag=14 then
      conSeries[I].Active:=C14.Checked;
end;

procedure TWaveViewFrm.V14Click(Sender: TObject);
begin
  V14.Checked:=not V14.Checked;
end;

procedure TWaveViewFrm.C15Click(Sender: TObject);  
var
  I:Integer;
begin
  C15.Checked:=not C15.Checked;    
  for I:=1 to 10 do
    if conSeries[I].Tag=15 then
      conSeries[I].Active:=C15.Checked;
end;

procedure TWaveViewFrm.V15Click(Sender: TObject);
begin
  V15.Checked:=not V15.Checked;
end;

procedure TWaveViewFrm.C16Click(Sender: TObject);   
var
  I:Integer;
begin
  C16.Checked:=not C16.Checked;    
  for I:=1 to 10 do
    if conSeries[I].Tag=16 then
      conSeries[I].Active:=C16.Checked;
end;

procedure TWaveViewFrm.V16Click(Sender: TObject);
begin
  V16.Checked:=not V16.Checked;
end;

procedure TWaveViewFrm.C17Click(Sender: TObject); 
var
  I:Integer;
begin
  C17.Checked:=not C17.Checked;    
  for I:=1 to 10 do
    if conSeries[I].Tag=17 then
      conSeries[I].Active:=C17.Checked;
end;

procedure TWaveViewFrm.V17Click(Sender: TObject);
begin
  V17.Checked:=not V17.Checked;
end;

procedure TWaveViewFrm.C18Click(Sender: TObject);  
var
  I:Integer;
begin
  C18.Checked:=not C18.Checked;    
  for I:=1 to 10 do
    if conSeries[I].Tag=18 then
      conSeries[I].Active:=C18.Checked;
end;

procedure TWaveViewFrm.V18Click(Sender: TObject);
begin
  V18.Checked:=not V18.Checked;
end;

procedure TWaveViewFrm.C19Click(Sender: TObject);  
var
  I:Integer;
begin
  C19.Checked:=not C19.Checked;    
  for I:=1 to 10 do
    if conSeries[I].Tag=19 then
      conSeries[I].Active:=C19.Checked;
end;

procedure TWaveViewFrm.V19Click(Sender: TObject);
begin
  V19.Checked:=not V19.Checked;
end;

procedure TWaveViewFrm.C20Click(Sender: TObject);  
var
  I:Integer;
begin
  C20.Checked:=not C20.Checked;    
  for I:=1 to 10 do
    if conSeries[I].Tag=20 then
      conSeries[I].Active:=C20.Checked;
end;

procedure TWaveViewFrm.V20Click(Sender: TObject);
begin
  V20.Checked:=not V20.Checked;
end;

procedure TWaveViewFrm.C21Click(Sender: TObject);  
var
  I:Integer;
begin
  C21.Checked:=not C21.Checked;    
  for I:=1 to 10 do
    if conSeries[I].Tag=21 then
      conSeries[I].Active:=C21.Checked;
end;

procedure TWaveViewFrm.V21Click(Sender: TObject);
begin
  V21.Checked:=not V21.Checked;
end;

procedure TWaveViewFrm.C22Click(Sender: TObject);  
var
  I:Integer;
begin
  C22.Checked:=not C22.Checked;    
  for I:=1 to 10 do
    if conSeries[I].Tag=22 then
      conSeries[I].Active:=C22.Checked;
end;

procedure TWaveViewFrm.V22Click(Sender: TObject);
begin
  V22.Checked:=not V22.Checked;
end;

procedure TWaveViewFrm.C23Click(Sender: TObject);  
var
  I:Integer;
begin
  C23.Checked:=not C23.Checked;   
  for I:=1 to 10 do
    if conSeries[I].Tag=23 then
      conSeries[I].Active:=C23.Checked;
end;

procedure TWaveViewFrm.V23Click(Sender: TObject);
begin
  V23.Checked:=not V23.Checked;
end;

procedure TWaveViewFrm.C24Click(Sender: TObject);   
var
  I:Integer;
begin
  C24.Checked:=not C24.Checked;   
  for I:=1 to 10 do
    if conSeries[I].Tag=24 then
      conSeries[I].Active:=C24.Checked;
end;

procedure TWaveViewFrm.V24Click(Sender: TObject);
begin
  V24.Checked:=not V24.Checked;
end;

procedure TWaveViewFrm.C25Click(Sender: TObject);   
var
  I:Integer;
begin
  C25.Checked:=not C25.Checked;   
  for I:=1 to 10 do
    if conSeries[I].Tag=25 then
      conSeries[I].Active:=C25.Checked;
end;

procedure TWaveViewFrm.V25Click(Sender: TObject);
begin
  V25.Checked:=not V25.Checked;
end;

procedure TWaveViewFrm.C26Click(Sender: TObject);   
var
  I:Integer;
begin
  C26.Checked:=not C26.Checked;    
  for I:=1 to 10 do
    if conSeries[I].Tag=26 then
      conSeries[I].Active:=C26.Checked;
end;

procedure TWaveViewFrm.V26Click(Sender: TObject);
begin
  V26.Checked:=not V26.Checked;
end;

procedure TWaveViewFrm.C27Click(Sender: TObject);  
var
  I:Integer;
begin
  C27.Checked:=not C27.Checked;    
  for I:=1 to 10 do
    if conSeries[I].Tag=27 then
      conSeries[I].Active:=C27.Checked;
end;

procedure TWaveViewFrm.V27Click(Sender: TObject);
begin
  V27.Checked:=not V27.Checked;
end;

procedure TWaveViewFrm.C28Click(Sender: TObject);   
var
  I:Integer;
begin
  C28.Checked:=not C28.Checked;   
  for I:=1 to 10 do
    if conSeries[I].Tag=28 then
      conSeries[I].Active:=C28.Checked;
end;

procedure TWaveViewFrm.V28Click(Sender: TObject);
begin
  V28.Checked:=not V28.Checked;
end;

procedure TWaveViewFrm.C29Click(Sender: TObject);  
var
  I:Integer;
begin
  C29.Checked:=not C29.Checked;   
  for I:=1 to 10 do
    if conSeries[I].Tag=29 then
      conSeries[I].Active:=C29.Checked;
end;

procedure TWaveViewFrm.V29Click(Sender: TObject);
begin
  V29.Checked:=not V29.Checked;
end;

procedure TWaveViewFrm.C30Click(Sender: TObject);  
var
  I:Integer;
begin
  C30.Checked:=not C30.Checked;   
  for I:=1 to 10 do
    if conSeries[I].Tag=30 then
      conSeries[I].Active:=C30.Checked;
end;

procedure TWaveViewFrm.V30Click(Sender: TObject);
begin
  V30.Checked:=not V30.Checked;
end;

procedure TWaveViewFrm.C31Click(Sender: TObject);  
var
  I:Integer;
begin
  C31.Checked:=not C31.Checked;   
  for I:=1 to 10 do
    if conSeries[I].Tag=31 then
      conSeries[I].Active:=C31.Checked;
end;

procedure TWaveViewFrm.V31Click(Sender: TObject);
begin
  V31.Checked:=not V31.Checked;
end;

procedure TWaveViewFrm.C32Click(Sender: TObject);    
var
  I:Integer;
begin
  C32.Checked:=not C32.Checked;    
  for I:=1 to 10 do
    if conSeries[I].Tag=32 then
      conSeries[I].Active:=C32.Checked;
end;

procedure TWaveViewFrm.V32Click(Sender: TObject);
begin
  V32.Checked:=not V32.Checked;
end;

procedure TWaveViewFrm.N1Click(Sender: TObject);
begin
  N1.Checked:=not N1.Checked;
end;

procedure TWaveViewFrm.FormShow(Sender: TObject);
var
  I:Integer;
  Str:String;
begin
  //给出可以显示的通道
  ParaAddFrm.ADOConnection1.Close;
  ParaAddFrm.ADODataSet1.Close;
  ParaAddFrm.ADoConnection1.ConnectionString:=
    'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ParaAdd.golFileName+
    ';Persist Security Info=False;Jet OLEDB:System database="";'+
    'Jet OLEDB:Registry Path="";Jet OLEDB:Engine Type=5;'+
    'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;'+
    'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:Create System Database=False;';
  ParaAddFrm.ADOConnection1.Connected:=True;
  ParaAddFrm.ADODataSet1.CommandText:='outChannel';
  ParaAddFrm.DataSource1.DataSet:=ParaAddFrm.ADODataSet1;
  ParaAddFrm.ADODataSet1.Connection:=ParaAddFrm.ADOConnection1;
  ParaAddFrm.ADODataSet1.Open;
  for I:=1 to ParaAddFrm.ADODataSet1.RecordCount-2 do
  begin
    Str:=ParaAddFrm.ADODataSet1.FieldByName('通道序号').AsString;
    if Length(Str)=5 then
      Str:=Str[5] else
    if Length(Str)=6 then
      Str:=Str[5]+Str[6];
    Case StrToInt(Str) of
       1: begin
            T1.Visible:=True;
            C1.Visible:=True;
            V1.Visible:=True;
          end;
       2: begin
            T2.Visible:=True;
            C2.Visible:=True;
            V2.Visible:=True;
          end;
       3: begin
            T3.Visible:=True;
            C3.Visible:=True;
            V3.Visible:=True;
          end;
       4: begin
            T4.Visible:=True;
            C4.Visible:=True;
            V4.Visible:=True;
          end;
       5: begin
            T5.Visible:=True;
            C5.Visible:=True;
            V5.Visible:=True;
          end;
       6: begin
            T6.Visible:=True;
            C6.Visible:=True;
            V6.Visible:=True;
          end;
       7: begin
            T7.Visible:=True;
            C7.Visible:=True;
            V7.Visible:=True;
          end;
       8: begin
            T8.Visible:=True;
            C8.Visible:=True;
            V8.Visible:=True;
          end;
       9: begin
            T9.Visible:=True;
            C9.Visible:=True;
            V9.Visible:=True;
          end;
      10: begin
            T10.Visible:=True;
            C10.Visible:=True;
            V10.Visible:=True;
          end;
      11: begin
            T11.Visible:=True;
            C11.Visible:=True;
            V11.Visible:=True;
          end;
      12: begin
            T12.Visible:=True;
            C12.Visible:=True;
            V12.Visible:=True;
          end;
      13: begin
            T13.Visible:=True;
            C13.Visible:=True;
            V13.Visible:=True;
          end;
      14: begin
            T14.Visible:=True;
            C14.Visible:=True;
            V14.Visible:=True;
          end;
      15: begin
            T15.Visible:=True;
            C15.Visible:=True;
            V15.Visible:=True;
          end;
      16: begin
            T16.Visible:=True;
            C16.Visible:=True;
            V16.Visible:=True;
          end;
      17: begin
            T17.Visible:=True;
            C17.Visible:=True;
            V17.Visible:=True;
          end;
      18: begin
            T18.Visible:=True;
            C18.Visible:=True;
            V18.Visible:=True;
          end;
      19: begin
            T19.Visible:=True;
            C19.Visible:=True;
            V19.Visible:=True;
          end;
      20: begin
            T20.Visible:=True;
            C20.Visible:=True;
            V20.Visible:=True;
          end;
      21: begin
            T21.Visible:=True;
            C21.Visible:=True;
            V21.Visible:=True;
          end;
      22: begin
            T22.Visible:=True;
            C22.Visible:=True;
            V22.Visible:=True;
          end;
      23: begin
            T23.Visible:=True;
            C23.Visible:=True;
            V23.Visible:=True;
          end;
      24: begin
            T24.Visible:=True;
            C24.Visible:=True;
            V24.Visible:=True;
          end;
      25: begin
            T25.Visible:=True;
            C25.Visible:=True;
            V25.Visible:=True;
          end;
      26: begin
            T26.Visible:=True;
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -