edituser.~pas

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

unit edituser;

interface

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

type
  TedituserForm = class(TForm)
    edituserPageControl: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    sureBitBtn: TBitBtn;
    cancelBitBtn: TBitBtn;
    sexComboBox: TComboBox;
    Label1: TLabel;
    nameEdit: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    e_mailEdit: TEdit;
    Label6: TLabel;
    birth_yearComboBox: TComboBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    departmentComboBox: TComboBox;
    companyComboBox: TComboBox;
    occupationComboBox: TComboBox;
    jobComboBox: TComboBox;
    incomeComboBox: TComboBox;
    addressComboBox: TComboBox;
    Label13: TLabel;
    remarkMemo: TMemo;
    mobile_telephoneEdit: TEdit;
    procedure cancelBitBtnClick(Sender: TObject);
    procedure sureBitBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ReadyforShow();//设置属性数据
    procedure clear_user_info();//清空所有栏目数据
  end;

var
  edituserForm: TedituserForm;

implementation

uses client, main, other;

{$R *.dfm}

procedure TedituserForm.ReadyforShow();
var
  i:integer;
begin
  // 添加出生年
  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;

  // 添加职业
  occupationComboBox.Clear;
  occupationadoquery.First;
  for i:=1 to occupationadoquery.RecordCount do
  begin
    occupationComboBox.AddItem(occupationadoquery.Fields.Fields[0].AsString,nil);
    occupationadoquery.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;

  // 添加收入
  incomeComboBox.Clear;
  incomeadoquery.First;
  for i:=1 to incomeadoquery.RecordCount do
  begin
    incomeComboBox.AddItem(incomeadoquery.Fields.Fields[0].AsString,nil);
    incomeadoquery.Next;
  end;

  // 添加地址
  addressComboBox.Clear;
  addressadoquery.First;
  for i:=1 to addressadoquery.RecordCount do
  begin
    addressComboBox.AddItem(addressadoquery.Fields.Fields[0].AsString,nil);
    addressadoquery.Next;
  end;

end;

procedure TedituserForm.clear_user_info();
begin
  //清空对话框中的所有数据
  nameEdit.Clear;
  sexComboBox.Text:='';
  mobile_telephoneEdit.Text:='';
  birth_yearComboBox.Text:='';
  e_mailEdit.Text:='';
  companyComboBox.Text:='';
  departmentComboBox.Text:='';
  jobComboBox.Text:='';
  occupationComboBox.Text:='';
  incomeComboBox.Text:='';
  addressComboBox.Text:='';
  remarkMemo.Text:='';
end;

procedure TedituserForm.cancelBitBtnClick(Sender: TObject);
begin
  //清空对话框中的所有数据
  self.clear_user_info;
  edituserPageControl.ActivePageIndex:=0;
  close;
end;

procedure TedituserForm.sureBitBtnClick(Sender: TObject);
var
  useradocommand:TADOCommand;
  ListItem:TListItem;
  i:integer;
begin
  edituserPageControl.ActivePageIndex:=0;

  // 检查手机号的有效性
  if trim(mobile_telephoneEdit.Text)='' then
  begin
    mobile_telephoneEdit.SetFocus;
    exit;
  end;

  if self.Caption='新建联系人' then
  begin
    // 向数据库添加客户数据
    try
      useradoquery.Append;
      useradoquery.Fields.Fields[0].AsString:=trim(mobile_telephoneEdit.Text);
      useradoquery.Fields.Fields[1].AsString:=trim(nameEdit.Text);
      useradoquery.Fields.Fields[2].AsString:=trim(sexComboBox.Text);
      useradoquery.Fields.Fields[3].AsString:=trim(birth_yearComboBox.Text);
      useradoquery.Fields.Fields[4].AsString:=trim(companyComboBox.Text);
      useradoquery.Fields.Fields[5].AsString:=trim(departmentComboBox.Text);
      useradoquery.Fields.Fields[6].AsString:=trim(jobComboBox.Text);
      useradoquery.Fields.Fields[7].AsString:=trim(occupationComboBox.Text);
      useradoquery.Fields.Fields[8].AsString:=trim(incomeComboBox.Text);
      useradoquery.Fields.Fields[9].AsString:=trim(addressComboBox.Text);
      useradoquery.Fields.Fields[10].AsString:=trim(e_mailEdit.Text);
      useradoquery.Fields.Fields[11].AsString:=trim(remarkMemo.Text);
      useradoquery.Post;
    except
      application.MessageBox('已存在相同的手机号！','提示',MB_OK);
      exit;
    end;

    //向客户列表添加新的客户信息
    ListItem:=clientForm.userlistview.Items.Add;
    ListItem.Caption:=trim(nameEdit.Text);
    ListItem.SubItems.Add(trim(sexComboBox.Text));
    ListItem.SubItems.Add(trim(mobile_telephoneEdit.Text));
    ListItem.SubItems.Add(trim(companyComboBox.Text));
    ListItem.SubItems.Add(trim(departmentComboBox.Text));
    ListItem.SubItems.Add(trim(jobComboBox.Text));
    ListItem.SubItems.Add(trim(occupationComboBox.Text));
    ListItem.SubItems.Add(trim(incomeComboBox.Text));
    ListItem.SubItems.Add(trim(addressComboBox.Text));
    ListItem.SubItems.Add(trim(e_mailEdit.Text));
    ListItem.SubItems.Add(trim(birth_yearComboBox.Text));
    ListItem.SubItems.Add(trim(remarkMemo.Text));

    ListItem:=mainForm.userlistview.Items.Add;
    ListItem.Caption:=trim(nameEdit.Text);
    ListItem.SubItems.Add(trim(sexComboBox.Text));
    ListItem.SubItems.Add(trim(mobile_telephoneEdit.Text));
    ListItem.SubItems.Add(trim(companyComboBox.Text));
    ListItem.SubItems.Add(trim(departmentComboBox.Text));
    ListItem.SubItems.Add(trim(jobComboBox.Text));
    ListItem.SubItems.Add(trim(occupationComboBox.Text));
    ListItem.SubItems.Add(trim(incomeComboBox.Text));
    ListItem.SubItems.Add(trim(addressComboBox.Text));
    ListItem.SubItems.Add(trim(e_mailEdit.Text));
    ListItem.SubItems.Add(trim(birth_yearComboBox.Text));
    ListItem.SubItems.Add(trim(remarkMemo.Text));

    if application.MessageBox('要继续添加联系人数据吗？','企信通',MB_YESNO)=IDYES then
      //清空对话框中的所有数据
      self.clear_user_info
    else
    begin
      //清空对话框中的所有数据
      self.clear_user_info;

      close;
    end;

  end
  else if self.Caption='编辑联系人' then
  begin
    // 修改数据库的客户数据
    try
      useradoquery.RecNo:=clientForm.userListView.Selected.Index+1;
      useradoquery.Edit;
      useradoquery.Fields.Fields[0].AsString:=trim(mobile_telephoneEdit.Text);
      useradoquery.Fields.Fields[1].AsString:=trim(nameEdit.Text);
      useradoquery.Fields.Fields[2].AsString:=trim(sexComboBox.Text);
      useradoquery.Fields.Fields[3].AsString:=trim(birth_yearComboBox.Text);
      useradoquery.Fields.Fields[4].AsString:=trim(companyComboBox.Text);
      useradoquery.Fields.Fields[5].AsString:=trim(departmentComboBox.Text);
      useradoquery.Fields.Fields[6].AsString:=trim(jobComboBox.Text);
      useradoquery.Fields.Fields[7].AsString:=trim(occupationComboBox.Text);
      useradoquery.Fields.Fields[8].AsString:=trim(incomeComboBox.Text);
      useradoquery.Fields.Fields[9].AsString:=trim(addressComboBox.Text);
      useradoquery.Fields.Fields[10].AsString:=trim(e_mailEdit.Text);
      useradoquery.Fields.Fields[11].AsString:=trim(remarkMemo.Text);
      useradoquery.Post;
    except
      application.MessageBox('已存在相同的手机号！','提示',MB_OK);
      exit;
    end;

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

    // 修改表group_client中的客户数据
    useradocommand.CommandText:='update [group_client] set username='''+
    trim(nameEdit.Text)+''',sex='''+trim(sexComboBox.Text)+
    ''',mobile_telephone='''+trim(mobile_telephoneEdit.Text)+''',birth_year='''+
    trim(birth_yearComboBox.Text)+''',company='''+trim(companyComboBox.Text)+
    ''',department='''+trim(departmentComboBox.Text)+''',job='''+
    trim(jobComboBox.Text)+''',occupation='''+trim(occupationComboBox.Text)+
    ''',income='''+trim(incomeComboBox.Text)+''',address='''+
    trim(addressComboBox.Text)+''',e_mail='''+trim(e_mailEdit.Text)+
    ''',remark='''+trim(remarkMemo.Text)+''' where mobile_telephone='''+
    trim(clientForm.userListView.Selected.SubItems.Strings[1])+'''';

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

    //修改联系组中的客户信息
    for i:=0 to clientForm.groupTreeView.Items.Count-1 do
      if (clientForm.groupTreeView.Items.Item[i].Parent<>nil) and
      (clientForm.groupTreeView.Items.Item[i].Text=
      (trim(clientForm.userlistview.Selected.SubItems.Strings[1])+' '+
      trim(clientForm.userlistview.Selected.Caption))) then
      clientForm.groupTreeView.Items.Item[i].Text:=trim(mobile_telephoneEdit.Text)
      +' '+trim(nameEdit.Text);

    for i:=0 to mainForm.groupTreeView.Items.Count-1 do
      if (mainForm.groupTreeView.Items.Item[i].Parent<>nil) and
      (mainForm.groupTreeView.Items.Item[i].Text=
      (trim(clientForm.userlistview.Selected.SubItems.Strings[1])+' '+
      trim(clientForm.userlistview.Selected.Caption))) then
      mainForm.groupTreeView.Items.Item[i].Text:=trim(mobile_telephoneEdit.Text)
      +' '+trim(nameEdit.Text);

    //修改客户列表中的客户信息
    clientForm.userListView.Selected.Caption:=trim(nameEdit.Text);
    clientForm.userListView.Selected.SubItems.Strings[0]:=trim(sexComboBox.Text);
    clientForm.userListView.Selected.SubItems.Strings[1]:=trim(mobile_telephoneEdit.Text);
    clientForm.userListView.Selected.SubItems.Strings[2]:=trim(companyComboBox.Text);
    clientForm.userListView.Selected.SubItems.Strings[3]:=trim(departmentComboBox.Text);
    clientForm.userListView.Selected.SubItems.Strings[4]:=trim(jobComboBox.Text);
    clientForm.userListView.Selected.SubItems.Strings[5]:=trim(occupationComboBox.Text);
    clientForm.userListView.Selected.SubItems.Strings[6]:=trim(incomeComboBox.Text);
    clientForm.userListView.Selected.SubItems.Strings[7]:=trim(addressComboBox.Text);
    clientForm.userListView.Selected.SubItems.Strings[8]:=trim(e_mailEdit.Text);
    clientForm.userListView.Selected.SubItems.Strings[9]:=trim(birth_yearComboBox.Text);
    clientForm.userListView.Selected.SubItems.Strings[10]:=trim(remarkMemo.Text);

    mainForm.userListView.Items.Item[clientForm.userListView.Selected.Index].Caption:=trim(nameEdit.Text);
    mainForm.userListView.Items.Item[clientForm.userListView.Selected.Index].SubItems.Strings[0]:=trim(sexComboBox.Text);
    mainForm.userListView.Items.Item[clientForm.userListView.Selected.Index].SubItems.Strings[1]:=trim(mobile_telephoneEdit.Text);
    mainForm.userListView.Items.Item[clientForm.userListView.Selected.Index].SubItems.Strings[2]:=trim(companyComboBox.Text);
    mainForm.userListView.Items.Item[clientForm.userListView.Selected.Index].SubItems.Strings[3]:=trim(departmentComboBox.Text);
    mainForm.userListView.Items.Item[clientForm.userListView.Selected.Index].SubItems.Strings[4]:=trim(jobComboBox.Text);
    mainForm.userListView.Items.Item[clientForm.userListView.Selected.Index].SubItems.Strings[5]:=trim(occupationComboBox.Text);
    mainForm.userListView.Items.Item[clientForm.userListView.Selected.Index].SubItems.Strings[6]:=trim(incomeComboBox.Text);
    mainForm.userListView.Items.Item[clientForm.userListView.Selected.Index].SubItems.Strings[7]:=trim(addressComboBox.Text);
    mainForm.userListView.Items.Item[clientForm.userListView.Selected.Index].SubItems.Strings[8]:=trim(e_mailEdit.Text);
    mainForm.userListView.Items.Item[clientForm.userListView.Selected.Index].SubItems.Strings[9]:=trim(birth_yearComboBox.Text);
    mainForm.userListView.Items.Item[clientForm.userListView.Selected.Index].SubItems.Strings[10]:=trim(remarkMemo.Text);

    //判断群组列表中是否有数据
    if clientForm.groupTreeView.Items.Count>0 then
    begin
      i:=0;
      while not ((clientForm.groupTreeView.Items.Item[i].Parent<>nil) and
      (clientForm.groupTreeView.Items.Item[i].Text<>
      (trim(clientForm.userlistview.Selected.SubItems.Strings[1])+' '+
      trim(clientForm.userlistview.Selected.Caption)))) do
        i:=i+1;
    end;

    // 销毁 useradocommand 对象
    useradocommand.Free;

    //清空对话框中的所有数据
    self.clear_user_info;

    close;

  end;

end;

end.