group.pas

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

unit group;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls, ADODB, DB;

type
  TgroupForm = class(TForm)
    Panel6: TPanel;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label9: TLabel;
    clearSpeedButton: TSpeedButton;
    sexComboBox: TComboBox;
    companyComboBox: TComboBox;
    departmentComboBox: TComboBox;
    jobComboBox: TComboBox;
    occupationComboBox: TComboBox;
    birth_yearComboBox: TComboBox;
    Panel5: TPanel;
    Panel4: TPanel;
    Panel3: TPanel;
    Panel2: TPanel;
    Panel1: TPanel;
    Label1: TLabel;
    Image1: TImage;
    newgroupnameEdit: TEdit;
    Panel7: TPanel;
    exitBitBtn: TBitBtn;
    unselecteduserListView: TListView;
    Label7: TLabel;
    Label8: TLabel;
    addSpeedButton: TSpeedButton;
    deleteSpeedButton: TSpeedButton;
    newSpeedButton: TSpeedButton;
    modifySpeedButton: TSpeedButton;
    selecteduserListView: TListView;
    querySpeedButton: TSpeedButton;
    applySpeedButton: TSpeedButton;
    procedure exitBitBtnClick(Sender: TObject);
    procedure clearSpeedButtonClick(Sender: TObject);
    procedure applySpeedButtonClick(Sender: TObject);
    procedure querySpeedButtonClick(Sender: TObject);
    procedure addSpeedButtonClick(Sender: TObject);
    procedure deleteSpeedButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    groupname:string;//当前编辑的联系组名
    procedure ReadyforShow();//设置属性数据
    procedure ShowSelectedusers();//显示已选客户
    procedure ShowUnselectedusers(sex,occupation,birth_year,company,department,job:string);//显示未选客户
  end;

var
  groupForm: TgroupForm;

implementation

uses main, client, other;

{$R *.dfm}

procedure TgroupForm.ReadyforShow();
var
  i:integer;
begin
  // 添加职业
  occupationComboBox.Clear;
  occupationadoquery.First;
  for i:=1 to occupationadoquery.RecordCount do
  begin
    occupationComboBox.AddItem(occupationadoquery.Fields.Fields[0].AsString,nil);
    occupationadoquery.Next;
  end;

  // 添加出生年
  birth_yearComboBox.Clear;
  birth_yearadoquery.First;
  for i:=1 to birth_yearadoquery.RecordCount do
  begin
    birth_yearComboBox.AddItem(birth_yearadoquery.Fields.Fields[0].AsString,nil);
    birth_yearadoquery.Next;
  end;

  // 添加公司
  companyComboBox.Clear;
  companyadoquery.First;
  for i:=1 to companyadoquery.RecordCount do
  begin
    companyComboBox.AddItem(companyadoquery.Fields.Fields[0].AsString,nil);
    companyadoquery.Next;
  end;

  // 添加部门
  departmentComboBox.Clear;
  departmentadoquery.First;
  for i:=1 to departmentadoquery.RecordCount do
  begin
    departmentComboBox.AddItem(departmentadoquery.Fields.Fields[0].AsString,nil);
    departmentadoquery.Next;
  end;

  // 添加职位
  jobComboBox.Clear;
  jobadoquery.First;
  for i:=1 to jobadoquery.RecordCount do
  begin
    jobComboBox.AddItem(jobadoquery.Fields.Fields[0].AsString,nil);
    jobadoquery.Next;
  end;

end;

procedure TgroupForm.ShowSelectedusers();
var
  selecteduseradoquery:TADOQuery;
  ListItem: TListItem;
begin
  // 清除列表中的数据
  selecteduserlistview.Clear;

  // 检索新的数据
  selecteduseradoquery:=TADOQuery.Create(self);
  selecteduseradoquery.ConnectionString:=adodbconnectionstring;

  selecteduseradoquery.SQL.Add('select * from [group_client] where groupname='''+
  groupname+''' order by mobile_telephone');

  selecteduseradoquery.Open;

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

  selecteduseradoquery.Close;
  selecteduseradoquery.Free;
end;

procedure TgroupForm.ShowUnselectedusers(sex,occupation,birth_year,company,
department,job:string);
var
  unselecteduseradoquery:TADOQuery;
  ListItem: TListItem;
  i:integer;
  searchstring:string;
begin
  // 清除列表中的数据
  unselecteduserlistview.Clear;

  // 检索所有客户数据
  unselecteduseradoquery:=TADOQuery.Create(self);
  unselecteduseradoquery.ConnectionString:=adodbconnectionstring;

  unselecteduseradoquery.SQL.Add('select * from [client_info] ');
  searchstring:='';
  //检索条件 性别

  if sex<>'' then
  begin
   if searchstring='' then
     searchstring:='(sex='''+sex+''')'
   else
     searchstring:=searchstring+'and'+'(sex='''+sex+''')';
  end;
  //检索条件 职业
  if occupation<>'' then
  begin
   if searchstring='' then
     searchstring:='(occupation='''+occupation+''')'
   else
     searchstring:=searchstring+'and'+'(occupation='''+occupation+''')';
  end;
  //检索条件 出生年
  if birth_year<>'' then
  begin
   if searchstring='' then
     searchstring:='(birth_year='''+birth_year+''')'
   else
     searchstring:=searchstring+'and'+'(birth_year='''+birth_year+''')';
  end;
  //检索条件 公司
  if company<>'' then
  begin
   if searchstring='' then
     searchstring:='(company='''+company+''')'
   else
     searchstring:=searchstring+'and'+'(company='''+company+''')';
  end;
  //检索条件 部门
  if department<>'' then
  begin
   if searchstring='' then
     searchstring:=searchstring+'(department='''+department+''')'
   else
     searchstring:='and'+'(department='''+department+''')';
  end;
  //检索条件 职位
  if job<>'' then
  begin
   if searchstring='' then
     searchstring:='(job='''+job+''')'
   else
     searchstring:=searchstring+'and'+'(job='''+job+''')';
  end;

  // 检索条件 将已选客户从客户集中删除
  for i:=0 to selecteduserlistview.Items.Count-1 do
  begin
    if searchstring='' then
     searchstring:='(mobile_telephone<>'''+
     selecteduserlistview.Items.Item[i].SubItems.Strings[1]+''')'
   else
     searchstring:=searchstring+'and'+'(mobile_telephone<>'''+
     selecteduserlistview.Items.Item[i].SubItems.Strings[1]+''')';
  end;

  if searchstring<>'' then