📄 unitparam.pas

📁 本目录内所有代码仅作指导用户编程之用,用户如果要作为商业用途,建议使用正版软件进行编译. 开发环境说明： delphi demo : delphi 6.0 vc de
💻 PAS
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
      strcopy(param, PChar(Edit27.Text));
      nParamLenth := Length(Edit27.Text);
      SetParam($17, param, nParamLenth, iErrorCode);
    end;

    if ComboBox6.Visible and CheckBox2.Checked then begin
      param[0] := char(ComboBox6.ItemIndex);
      nParamLenth := 1;
      SetParam($18, param, nParamLenth, iErrorCode);
    end;

    if ComboBox7.Visible and CheckBox3.Checked then begin
      param[0] := char(ComboBox7.ItemIndex);
      nParamLenth := 1;
      SetParam($19, param, nParamLenth, iErrorCode);
    end;

    if Edit29.Visible and CheckBox34.Checked then begin
      two_byte := strtoint(Edit29.Text);
      param[0] := char(two_byte shr 8);
      param[1] := char(two_byte);
      nParamLenth := 2;
      SetParam($22, param, nParamLenth, iErrorCode);
    end;

    if CheckBox23.Checked then begin
      two_byte := strtoint(Edit22.Text);
      param[0] := char(two_byte);
      nParamLenth := 1;
      SetParam($1a, param, nParamLenth, iErrorCode);
    end;

    FShowParam := TFShowParam.Create(self);
    if FShowParam.ShowModal = mrOk then
      //if DoUpdateParam(destip, destport, PChar(dtu)) = 1 then
      if do_update_param(PChar(dtu), mess) = 0 then
      begin
        curr_action := 2;
        BitBtn1.Enabled := false;
        BitBtn2.Enabled := false;
        BitBtn3.Enabled := true;
        BitBtn4.Enabled := false;
        BitBtn5.Enabled := false;
        ComboBox1.Enabled := false;
        CheckBox1.Enabled := false;
        if CheckBox1.Checked then
        begin
          Timer1.Interval := Strtoint(Edit28.Text) * 1000;
          Timer1.Enabled := true;
        end;
      end else begin
        MessageBox(Handle, PChar('do_update_param ERROR'), PChar('ERROR'), MB_OK or MB_ICONERROR);
      end;
    FShowParam.Free;
  //end;
end;

procedure TFParam.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
  if not(Key in ['0'..'9', #8]) then
    Key := #0;
end;

procedure TFParam.Edit13KeyPress(Sender: TObject; var Key: Char);
begin
  if not(Key in ['0'..'9', '.', #8]) then
    Key := #0;
end;

procedure TFParam.BitBtn3Click(Sender: TObject);
begin
  Timer1.Enabled := false;
  BitBtn1.Enabled := true;
  BitBtn2.Enabled := true;
  BitBtn3.Enabled := false;
  BitBtn4.Enabled := true;
  BitBtn5.Enabled := true;
  ComboBox1.Enabled := true;
  CheckBox1.Enabled := true;
end;

procedure TFParam.RadioButton1Click(Sender: TObject);
begin
  RadioButton2.Checked := false;
  Edit1.Text := '*99***1#';
  CheckBox10.Enabled := true;
  ChangeEditColor(CheckBox10, Edit4);
end;

procedure TFParam.RadioButton2Click(Sender: TObject);
begin
  RadioButton1.Checked := false;
  Edit1.Text := '#777';
  CheckBox10.Enabled := false;
  CheckBox10.Checked := false;
  ChangeEditColor(CheckBox10, Edit4);
end;

procedure TFParam.ChangeCmbColor(cb: TCheckBox; cmbctr: TComboBox);
begin
  cmbctr.Enabled := cb.Checked;
  if cmbctr.Enabled then
    cmbctr.Color := clWindow
  else
    cmbctr.Color := clScrollBar;
end;

procedure TFParam.ChangeEditColor(cb: TCheckBox; editctr: TEdit);
begin
  editctr.Enabled := cb.Checked;
  if editctr.Enabled then
    editctr.Color := clWindow
  else
    editctr.Color := clScrollBar;
end;

procedure TFParam.CheckBox8Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit2);
end;

procedure TFParam.CheckBox9Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit3);
end;

procedure TFParam.CheckBox10Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit4);
end;

procedure TFParam.CheckBox11Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit5);
end;

procedure TFParam.CheckBox12Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit6);
end;

procedure TFParam.CheckBox13Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit7);
end;

procedure TFParam.CheckBox14Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit8);
end;

procedure TFParam.CheckBox15Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit9);
end;

procedure TFParam.CheckBox16Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit10);
end;

procedure TFParam.CheckBox17Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit12);
end;

procedure TFParam.CheckBox18Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit11);
end;

procedure TFParam.CheckBox24Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit13);
end;

procedure TFParam.CheckBox25Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit14);
end;

procedure TFParam.CheckBox26Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit15);
end;

procedure TFParam.CheckBox27Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit16);
end;

procedure TFParam.CheckBox28Click(Sender: TObject);
begin
  ChangeCmbColor(Sender as TCheckBox, ComboBox9);
end;

procedure TFParam.CheckBox29Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit23);
end;

procedure TFParam.CheckBox30Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit24);
end;

procedure TFParam.CheckBox31Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit25);
end;

procedure TFParam.CheckBox32Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit26);
end;

procedure TFParam.CheckBox33Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit27);
end;

procedure TFParam.CheckBox2Click(Sender: TObject);
begin
  ChangeCmbColor(Sender as TCheckBox, ComboBox6);
end;

procedure TFParam.CheckBox3Click(Sender: TObject);
begin
  ChangeCmbColor(Sender as TCheckBox, ComboBox7);
end;

procedure TFParam.BitBtn4Click(Sender: TObject);
begin
  Edit2.Text := '';
  Edit3.Text := '';
  if RadioButton1.Checked then begin
    Edit4.Text := 'CMNET';
    Edit2.Text := '';
    Edit3.Text := '';
  end else begin
    Edit4.Text := '';
    Edit2.Text := 'card';
    Edit3.Text := 'card';
  end;
  Edit5.Text := '';

  if ComboBox1.ItemIndex = -1 then
    Edit6.Text := ''
  else
    Edit6.Text := ComboBox1.Items[ComboBox1.ItemIndex];
  Edit7.Text := '5001';
  Edit8.Text := '40';
  Edit9.Text := '256';
  Edit10.Text := '0';
  Edit12.Text := '1';
  Edit11.Text := '600';
  Edit30.Text := '0';

  Edit13.Text := '0.0.0.0';
  Edit14.Text := 'www.mdtu.com';
  Edit15.Text := '0';
  Edit16.Text := '5002';
  ComboBox9.Text := '0.0.0.0';

  ComboBox8.Text := '57600';
  ComboBox5.ItemIndex := 3;
  ComboBox4.ItemIndex := 0;
  ComboBox2.ItemIndex := 0;
  ComboBox3.ItemIndex := 2;

  Edit23.Text := '0';
  Edit24.Text := '2';
  Edit25.Text := '60';
  Edit26.Text := '0';
  Edit27.Text := '';
  ComboBox6.ItemIndex := 1;
  ComboBox7.ItemIndex := 0;
  Edit29.Text := '5';
end;

procedure TFParam.CheckBox19Click(Sender: TObject);
begin
  Label1.Enabled := CheckBox19.Checked;
  Label2.Enabled := CheckBox19.Checked;
  Label3.Enabled := CheckBox19.Checked;
  Label4.Enabled := CheckBox19.Checked;
  Label5.Enabled := CheckBox19.Checked;

  ComboBox8.Enabled := CheckBox19.Checked;
  ComboBox5.Enabled := CheckBox19.Checked;
  ComboBox4.Enabled := CheckBox19.Checked;
  ComboBox2.Enabled := CheckBox19.Checked;
  ComboBox3.Enabled := CheckBox19.Checked;

  if CheckBox19.Checked then begin
    ComboBox8.Color := clWindow;
    ComboBox5.Color := clWindow;
    ComboBox4.Color := clWindow;
    ComboBox2.Color := clWindow;
    ComboBox3.Color := clWindow;
  end else begin
    ComboBox8.Color := clScrollBar;
    ComboBox5.Color := clScrollBar;
    ComboBox4.Color := clScrollBar;
    ComboBox2.Color := clScrollBar;
    ComboBox3.Color := clScrollBar;
  end;
end;

procedure TFParam.CheckBox4Click(Sender: TObject);
begin
  CheckBox7.Checked := CheckBox4.Checked;
  CheckBox8.Checked := CheckBox4.Checked;
  CheckBox9.Checked := CheckBox4.Checked;
  if CheckBox10.Enabled then
    CheckBox10.Checked := CheckBox4.Checked;
  CheckBox11.Checked := CheckBox4.Checked;
end;

procedure TFParam.CheckBox5Click(Sender: TObject);
begin
  CheckBox12.Checked := CheckBox5.Checked;
  CheckBox13.Checked := CheckBox5.Checked;
  CheckBox14.Checked := CheckBox5.Checked;
  CheckBox15.Checked := CheckBox5.Checked;
  CheckBox16.Checked := CheckBox5.Checked;
  CheckBox17.Checked := CheckBox5.Checked;
  CheckBox18.Checked := CheckBox5.Checked;
  CheckBox35.Checked := CheckBox5.Checked;
end;

procedure TFParam.CheckBox6Click(Sender: TObject);
begin
  CheckBox24.Checked := CheckBox6.Checked;
  CheckBox25.Checked := CheckBox6.Checked;
  CheckBox26.Checked := CheckBox6.Checked;
  CheckBox27.Checked := CheckBox6.Checked;
  CheckBox28.Checked := CheckBox6.Checked;

  CheckBox21.Checked := CheckBox6.Checked;
  CheckBox22.Checked := CheckBox6.Checked;
end;

procedure TFParam.CheckBox20Click(Sender: TObject);
begin
  CheckBox29.Checked := CheckBox20.Checked;
  CheckBox30.Checked := CheckBox20.Checked;
  CheckBox31.Checked := CheckBox20.Checked;
  CheckBox32.Checked := CheckBox20.Checked;
  CheckBox33.Checked := CheckBox20.Checked;
  CheckBox2.Checked := CheckBox20.Checked;
  CheckBox3.Checked := CheckBox20.Checked;
  CheckBox34.Checked := CheckBox20.Checked;
end;

procedure TFParam.BitBtn5Click(Sender: TObject);
var
  mess:arr;
  str:array[1..12] of char;
  i:Integer;
  s: string;
begin
  if ComboBox1.ItemIndex = -1 then exit;

  if MessageBox(Handle, PChar('确定要重启该DTU？'), PChar('提示'), MB_YESNO or MB_ICONQUESTION) = IDNO then exit;

  s := ComboBox1.Items[ComboBox1.ItemIndex];
  for i:=1 to Length(s) do
    str[i]:=s[i];

  str[12]:=#0;
  function_do_close_one_user(@str[1],@mess[1]);

  ComboBox1.Items.Delete(ComboBox1.ItemIndex);

  for i := 0 to Form1.ListView1.Items.Count - 1 do
    if Form1.ListView1.Items[i].Caption = s then begin
      Form1.ListView1.Items[i].Delete;
      break;
    end;
end;

procedure TFParam.CheckBox21Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit20);
end;

procedure TFParam.CheckBox22Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit21);
end;

procedure TFParam.CheckBox23Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit22);
end;

procedure TFParam.CheckBox34Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit29);
end;

procedure TFParam.CheckBox35Click(Sender: TObject);
begin
  ChangeEditColor(Sender as TCheckBox, Edit30);
end;

end.
上一页 1 2 34
⌨️ 快捷键说明

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