group.pas

通过串口发送多条短信的群发软件

    unselecteduseradoquery.SQL.Add('where '+searchstring+' ');

  unselecteduseradoquery.SQL.Add('order by mobile_telephone');

  unselecteduseradoquery.Open;

  // 添加数据到列表中
  while not unselecteduseradoquery.Eof do
  begin
    ListItem:=unselecteduserlistview.Items.Add;
    ListItem.Caption:=unselecteduseradoquery.Fields.Fields[1].AsString;
    ListItem.SubItems.Add(unselecteduseradoquery.Fields.Fields[2].AsString);
    ListItem.SubItems.Add(unselecteduseradoquery.Fields.Fields[0].AsString);
    ListItem.SubItems.Add(unselecteduseradoquery.Fields.Fields[4].AsString);
    ListItem.SubItems.Add(unselecteduseradoquery.Fields.Fields[5].AsString);
    ListItem.SubItems.Add(unselecteduseradoquery.Fields.Fields[6].AsString);
    ListItem.SubItems.Add(unselecteduseradoquery.Fields.Fields[7].AsString);
    ListItem.SubItems.Add(unselecteduseradoquery.Fields.Fields[8].AsString);
    ListItem.SubItems.Add(unselecteduseradoquery.Fields.Fields[9].AsString);
    ListItem.SubItems.Add(unselecteduseradoquery.Fields.Fields[10].AsString);
    ListItem.SubItems.Add(unselecteduseradoquery.Fields.Fields[3].AsString);
    ListItem.SubItems.Add(unselecteduseradoquery.Fields.Fields[11].AsString);

    unselecteduseradoquery.Next;
  end;

  unselecteduseradoquery.Close;
  unselecteduseradoquery.Free;
end;

procedure TgroupForm.exitBitBtnClick(Sender: TObject);
begin
  close;
end;

procedure TgroupForm.clearSpeedButtonClick(Sender: TObject);
begin
  //清空条件选项
  sexComboBox.ItemIndex:=-1;
  occupationComboBox.ItemIndex:=-1;
  birth_yearComboBox.ItemIndex:=-1;
  companyComboBox.ItemIndex:=-1;
  departmentComboBox.ItemIndex:=-1;
  jobComboBox.ItemIndex:=-1;

end;

procedure TgroupForm.applySpeedButtonClick(Sender: TObject);
var
  i:integer;
  groupadocommand:TADOCommand;
begin

  if (trim(newgroupnameEdit.Text)<>'') and
  (groupname<>trim(newgroupnameEdit.Text)) then
  begin
    try
      groupadoquery.RecNo:=clientForm.groupTreeView.Selected.Index+1;
      groupadoquery.Edit;
      groupadoquery.Fields.Fields[0].AsString:=trim(newgroupnameEdit.Text);
      groupadoquery.Post;
    except
      application.MessageBox('发生错误！','提示',MB_OK);
      exit;
    end;

    // 生成 groupadocommand 对象
    groupadocommand:=TADOCommand.Create(self);
    groupadocommand.ConnectionString:=adodbconnectionstring;

    // 修改数据库中的表group_client
    groupadocommand.CommandText:='update [group_client] set groupname='''+
    trim(newgroupnameEdit.Text)+''' where groupname='''+groupname+'''';

    try
      groupadocommand.Execute;
    except
      application.MessageBox('发生错误！','提示',MB_OK);
      groupadocommand.Free;
      exit;
    end;

    //修改群组列表中的群组名
    i:=0;
    while not ((mainForm.groupTreeView.Items.Item[i].Parent=nil) and
     (mainForm.groupTreeView.Items.Item[i].Text=clientForm.groupTreeView.Selected.Text)) do
      i:=i+1;
    mainForm.groupTreeView.Items.Item[i].Text:=trim(newgroupnameEdit.Text);
    clientForm.groupTreeView.Selected.Text:=trim(newgroupnameEdit.Text);

    //修改groupname
    groupname:=trim(newgroupnameEdit.Text);

    //清空 newgroupnameEdit
    newgroupnameEdit.Clear;

    //修改标题
    groupForm.Caption:='编辑联系组---'+groupname;

  end;

end;

procedure TgroupForm.querySpeedButtonClick(Sender: TObject);
begin
  self.ShowUnselectedusers(trim(sexComboBox.Text),trim(occupationComboBox.Text),
  trim(birth_yearComboBox.Text),trim(companyComboBox.Text),
  trim(departmentComboBox.Text),trim(jobComboBox.Text));
end;

procedure TgroupForm.addSpeedButtonClick(Sender: TObject);
var
  groupadocommand:TADOCommand;
  ListItem: TListItem;
  i:integer;
  TreeNode:TTreeNode;
begin
  if unselecteduserlistview.SelCount=1 then
  begin
    // 生成 groupadocommand 对象
    groupadocommand:=TADOCommand.Create(self);
    groupadocommand.ConnectionString:=adodbconnectionstring;

    // 向表group_client添加客户数据
    groupadocommand.CommandText:='insert into [group_client] (groupname,'+
    'username,sex,mobile_telephone,company,department,job,occupation,income,'+
    'address,e_mail,birth_year,'+'remark) values ('''+groupname+''','''+
    trim(unselecteduserlistview.Selected.Caption)+''','''+
    trim(unselecteduserlistview.Selected.SubItems.Strings[0])+''','''+
    trim(unselecteduserlistview.Selected.SubItems.Strings[1])+''','''+
    trim(unselecteduserlistview.Selected.SubItems.Strings[2])+''','''+
    trim(unselecteduserlistview.Selected.SubItems.Strings[3])+''','''+
    trim(unselecteduserlistview.Selected.SubItems.Strings[4])+''','''+
    trim(unselecteduserlistview.Selected.SubItems.Strings[5])+''','''+
    trim(unselecteduserlistview.Selected.SubItems.Strings[6])+''','''+
    trim(unselecteduserlistview.Selected.SubItems.Strings[7])+''','''+
    trim(unselecteduserlistview.Selected.SubItems.Strings[8])+''','''+
    trim(unselecteduserlistview.Selected.SubItems.Strings[9])+''','''+
    trim(unselecteduserlistview.Selected.SubItems.Strings[10])+''')';

    try
      groupadocommand.Execute;
    except
      application.MessageBox('发生错误！','提示',MB_OK);
      groupadocommand.Free;
      exit;
    end;

    //销毁 groupadocommand 对象
    groupadocommand.Free;

    //将未选客户添加已选客户栏
    ListItem:=selecteduserlistview.Items.Add;
    ListItem.Caption:=unselecteduserlistview.Selected.Caption;
    for i:=0 to unselecteduserlistview.Selected.SubItems.Count-1 do
      ListItem.SubItems.Add(unselecteduserlistview.Selected.SubItems.Strings[i]);

    //将客户添加到群组列表中
    TreeNode:=clientForm.groupTreeView.Selected;
    clientForm.groupTreeview.Items.AddChild(TreeNode,
    trim(unselecteduserlistview.Selected.SubItems.Strings[1])+' '+
    trim(unselecteduserlistview.Selected.Caption));

    i:=0;
    while not ((mainForm.groupTreeView.Items.Item[i].Parent=nil) and
     (mainForm.groupTreeView.Items.Item[i].Text=clientForm.groupTreeView.Selected.Text)) do
      i:=i+1;
    TreeNode:=mainForm.groupTreeView.Items.Item[i];

    mainForm.groupTreeview.Items.AddChild(TreeNode,
    trim(unselecteduserlistview.Selected.SubItems.Strings[1])+' '+
    trim(unselecteduserlistview.Selected.Caption));

    //将客户从未选客户栏中删除
    unselecteduserlistview.DeleteSelected;
  end;
end;

procedure TgroupForm.deleteSpeedButtonClick(Sender: TObject);
var
  groupadocommand:TADOCommand;
  ListItem: TListItem;
  i,j:integer;
  TreeNode1,TreeNode2:TTreeNode;
begin
  if selecteduserlistview.SelCount=1 then
  begin
    // 生成 groupadocommand 对象
    groupadocommand:=TADOCommand.Create(self);
    groupadocommand.ConnectionString:=adodbconnectionstring;

    // 从表group_client删除客户数据
    groupadocommand.CommandText:='delete from [group_client] where '+
    '(mobile_telephone='''+selecteduserlistview.Selected.SubItems.Strings[1]+
    ''') and (groupname='''+groupname+''')';

    try
      groupadocommand.Execute;
    except
      application.MessageBox('发生错误！','提示',MB_OK);
      groupadocommand.Free;
      exit;
    end;

    //销毁 groupadocommand 对象
    groupadocommand.Free;
    
    //将已选客户添加未选客户栏
    ListItem:=unselecteduserlistview.Items.Add;
    ListItem.Caption:=selecteduserlistview.Selected.Caption;
    for i:=0 to selecteduserlistview.Selected.SubItems.Count-1 do
      ListItem.SubItems.Add(selecteduserlistview.Selected.SubItems.Strings[i]);

    //将客户从到群组列表中删除
    TreeNode1:=clientForm.groupTreeView.Selected;

    i:=0;
    while TreeNode1.item[i].Text<>(trim(selecteduserlistview.Selected.SubItems.Strings[1])+' '+
    trim(selecteduserlistview.Selected.Caption)) do
      i:=i+1;

    j:=0;
    while not ((mainForm.groupTreeView.Items.Item[j].Parent=nil) and
     (mainForm.groupTreeView.Items.Item[j].Text=TreeNode1.Text)) do
      j:=j+1;
    TreeNode2:=mainForm.groupTreeView.Items.Item[j];
    j:=0;
    while not ((TreeNode2.Item[j].Text=TreeNode1.Item[i].Text)) do
      j:=j+1;

    TreeNode2.Item[j].Delete;
    TreeNode1.Item[i].Delete;

    //将客户从已选客户栏中删除
    selecteduserlistview.DeleteSelected;
  end;
end;

end.