ufrmadd.pas

DAD2.0 上传下传DAD2.0 上传下传DAD2.0 上传下传DAD2.0 上传下传

procedure TfrmAdd.cmbTypeChange(Sender: TObject);
begin
  txtThreads.Text := '1';
  {

  if (cmbType.Text = 'xmlfeed') or (cmbType.Text = 'search_get')  then
  begin

    txtRuntimes.Text := '3';
    txtCTR.Text := '100';
    rbHits.Checked := true;
    pc.ActivePageIndex := 0;

  end;

  if (cmbType.Text = 'vc') or (cmbType.Text = 'adsclick') or (cmbType.Text = 'tc') then
  begin
    txtRuntimes.Text := '3';
    txtCTR.Text := '3';
    rbHits.Checked := true;
    pc.ActivePageIndex := 0;
    txtKeywords2.Text := '';
  end;

  if (cmbType.Text = 'vc') or (cmbType.Text = 'tc') then
  begin
   txtKeywords2.Text := '';
   txtAdLink.Text := '';
  end;


  if (cmbType.Text = 'adb_cpc') or (cmbType.Text = 'ie_cpc') then
  begin
    txtRuntimes.Text := '1';
    txtCTR.Text := '1';
    txtKeywords2.Text := '';
    pc.ActivePageIndex := 0;
  end;

  if (cmbType.Text = 'park') then
  begin
    txtRuntimes.Text := '1';
    txtAhref.Text := '70';
    txtImgsrc.Text := '100';
    txtCTR.Text := '1';
  end;
  }

  cmdDefaultClick(sender);
end;

procedure TfrmAdd.SelectedCountry(strCountrys: string);
var
  sl: TStringlist;
  i: integer;
begin
  for i := 0 to CheckListBoxCountry.Count - 1 do
  begin
    CheckListBoxCountry.Checked[i] := false;
    if pos(CheckListBoxCountry.Items[i], strCountrys) > 0 then
    begin
      CheckListBoxCountry.Checked[i] := true;
    end;
  end;

end;

procedure TfrmAdd.SelectedUser(strUsers: string);
var
  sl: TStringlist;
  i: integer;
begin
  for i := 0 to CheckListBoxUser.Count - 1 do
  begin
    CheckListBoxUser.Checked[i] := false;
    if pos(CheckListBoxUser.Items[i]+'_', strUsers) > 0 then
    begin
      CheckListBoxUser.Checked[i] := true;
    end;
  end;

  if strUsers = 'ALL' then
  begin
    for i := 0 to CheckListBoxUser.Count - 1 do
    begin
      CheckListBoxUser.Checked[i] := true;
    end;
    txtUseips.Text := 'ALL';
  end;

end;

procedure TfrmAdd.Selected_cmbType(ftype: string);
var
  i: integer;
begin
  for i := 0 to cmbType.Items.Count - 1 do
  begin
    if ftype = cmbType.Items[i] then
    begin
      cmbType.ItemIndex := i;
      break;
    end;
  end;
end;

procedure TfrmAdd.FormCreate(Sender: TObject);
var
  i: integer;
begin

  cmbType.ItemIndex := 0;
  cmbTypeChange(sender);
  txtUser.Text := CURRENT_USER;
  Randomize;

  txtReferer.Text := 'http://www.';
  cmdDefaultClick(nil);

  for i := 0 to CheckListBoxCountry.Count - 1 do
  begin
    CheckListBoxCountry.Checked[i] := true;
  end;
  CheckListBoxCountry.Items.Add('其他');
  CheckListBoxCountry.Items.Add('中国');

  //  cmdSelectAllUserClick(NIL);

end;

procedure TfrmAdd.cmdDefaultClick(Sender: TObject);
begin
  if cmbType.Text = 'search_get' then
  begin
    txtKeywords2.Text := 'sf.cgi?' + #13#10 + 'go.cgi?' + #13#10 + 'go.php?' + #13#10 + 'frameit.cgi?' + #13#10 + 'Clk.jsp?' + #13#10 + 'redirect.php?' + #13#10 + 'o.php?' + #13#10 + 'other.php?' + #13#10 + 'click/' + #13#10 + 'cgi?' + #13#10 + '/link?'
      + #13#10;
    exit;
  end;

  if cmbType.Text = 'abcsearch' then
  begin
    txtKeywords2.Text := 'click/' + #13#10;
    exit;
  end;

  if cmbType.Text = 'ie_cpc' then
  begin
    txtKeywords2.Text := 'http://click.adbrite.com/mb/click.php?' + #13#10 + 'http://redir.adengage.com/geo_redir.cfm?' + #13#10 + 'track?target=' + #13#10;
  end;
end;

procedure TfrmAdd.cmdSelectAllClick(Sender: TObject);
var
  i: integer;
begin

  for i := 0 to CheckListBoxCountry.Count - 1 do
  begin
    CheckListBoxCountry.Checked[i] := true;
  end;

end;

procedure TfrmAdd.cmdSelectNotClick(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to CheckListBoxCountry.Count - 1 do
  begin
    CheckListBoxCountry.Checked[i] := not CheckListBoxCountry.Checked[i];
  end;
end;

procedure TfrmAdd.cmdSelectOMClick(Sender: TObject);
var
  i: integer;
  isOM: boolean;
begin
  isOM := true;
  for i := 0 to CheckListBoxCountry.Count - 1 do
  begin
    if isOM then
      CheckListBoxCountry.Checked[i] := true
    else
      CheckListBoxCountry.Checked[i] := false;

    if CheckListBoxCountry.Items[i] = '未知' then
    begin
      isOM := false;
    end;
  end;
end;

procedure TfrmAdd.cmdHelpClick(Sender: TObject);
var
  frmSelectMRef: TfrmSelectMRef;
begin
  frmSelectMRef := TfrmSelectMRef.create(self);
  try
    if txtReferer.Lines.Count > 0 then
    begin
      frmSelectMRef.m_strResult := txtReferer.Text;
    end;
    frmSelectMRef.ShowModal;
    txtReferer.Text := frmSelectMRef.m_strResult;
  finally
    frmSelectMRef.Free;
  end;
end;

procedure TfrmAdd.cmdSelectAllUserClick(Sender: TObject);
var
  i: integer;
begin

  for i := 0 to CheckListBoxUser.Count - 1 do
  begin
    CheckListBoxUser.Checked[i] := true;
  end;
  txtUseIps.Text := 'ALL';

end;

procedure TfrmAdd.cmdSelectUserNotClick(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to CheckListBoxUser.Count - 1 do
  begin
    CheckListBoxUser.Checked[i] := not CheckListBoxUser.Checked[i];
  end;
  txtUseIps.Text := GetUser();
end;

procedure TfrmAdd.CheckListBoxUserClickCheck(Sender: TObject);
begin
  txtUseIps.Text := GetUser();
end;

function TfrmAdd.GetCheckBoxToString(): string;
var
  chk: TCheckBox;
  i: integer;
begin
  result := '';
  for i := 1 to 40 do
  begin
    chk := sheetIPs.FindChildControl('chk' + inttostr(i)) as TCheckBox;
    result := result + MyBooleanToOneCharString(chk.Checked)
  end;
end;

function TfrmAdd.SelectIpRangeCheckBox(strIPRange: string): string;
var
  chk: TCheckBox;
  i: integer;
begin
  if length(strIPRange) <> 40 then
  begin
    showmessage('IPRange长度必须等于40!');
    exit;
  end;
  result := '';
  for i := 1 to 40 do
  begin
    chk := sheetIPs.FindChildControl('chk' + inttostr(i)) as TCheckBox;
    chk.Checked := MyOneCharStringToBoolean(strIPRange[i])
  end;
end;


procedure TfrmAdd.SelectCheckBoxByLine(Sender: TObject);
var
  chkClick: TCheckBox;
  chk: TCheckBox;
  i: integer;
  nIndex: integer;
  nFirst:integer;
begin
  chkClick := Sender as TCheckBox;
  nIndex := strtoint(copy(chkClick.Name, 5, 2));

  for i := nIndex to nIndex + 7 do
  begin
    chk := sheetIPs.FindChildControl('chk' + inttostr( (i -nIndex) *5 + nIndex)) as TCheckBox;
    chk.Checked := chkClick.Checked;
  end;
end;


procedure TfrmAdd.SelectCheckBox(Sender: TObject);
var
  chkClick: TCheckBox;
  chk: TCheckBox;
  i: integer;
  nIndex: integer;
begin
  chkClick := Sender as TCheckBox;
  nIndex := strtoint(copy(chkClick.Name, 5, 2));

  for i := nIndex to nIndex + 4 do
  begin
    chk := sheetIPs.FindChildControl('chk' + inttostr(i)) as TCheckBox;
    chk.Checked := chkClick.Checked;
  end;
end;



procedure TfrmAdd.chk101Click(Sender: TObject);
begin
  SelectCheckBox(sender);
end;

procedure TfrmAdd.chk106Click(Sender: TObject);
begin
  SelectCheckBox(sender);
end;

procedure TfrmAdd.chk111Click(Sender: TObject);
begin
  SelectCheckBox(sender);
end;

procedure TfrmAdd.chk116Click(Sender: TObject);
begin
  SelectCheckBox(sender);
end;

procedure TfrmAdd.chk121Click(Sender: TObject);
begin
  SelectCheckBox(sender);
end;

procedure TfrmAdd.chk126Click(Sender: TObject);
begin
  SelectCheckBox(sender);
end;

procedure TfrmAdd.chk131Click(Sender: TObject);
begin
  SelectCheckBox(sender);
end;

procedure TfrmAdd.chk136Click(Sender: TObject);
begin
  SelectCheckBox(sender);
end;

procedure TfrmAdd.cmdAllIprangeClick(Sender: TObject);
var

  chk: TCheckBox;
  i: integer;
  nIndex: integer;
begin
  for i := 1 to 40 do
  begin
    chk := sheetIPs.FindChildControl('chk' + inttostr(i)) as TCheckBox;
    chk.Checked := not chk.Checked;
  end;
end;
procedure TfrmAdd.cmdAutoClick(Sender: TObject);
var
 nHits,nShows:integer;
 fCTR:Single ;
 nCTR:integer;
begin
 nHits := strtoint(txtHits.Text);
 nShows := strtoint(txtShows.Text);
 fCTR := (nHits/ nShows) * 100;

 
txtCtr.Text := format('%0.0f',[fCTR]);
end;

procedure TfrmAdd.chk901Click(Sender: TObject);
begin
SelectCheckBoxByLine(sender)
end;

procedure TfrmAdd.chk902Click(Sender: TObject);
begin
SelectCheckBoxByLine(sender)
end;

procedure TfrmAdd.chk903Click(Sender: TObject);
begin
SelectCheckBoxByLine(sender)
end;

procedure TfrmAdd.chk904Click(Sender: TObject);
begin
SelectCheckBoxByLine(sender)
end;

procedure TfrmAdd.chk905Click(Sender: TObject);
begin
SelectCheckBoxByLine(sender)
end;

end.