⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 umain.pas

📁 实现短信的收发应用非常的方便,系统很小直接使用不需安装
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
            qt1.next;
        end;
    end;
    if treeview2.Items.Count>1 then
    begin
      treeview2.Items.Item[0].Expanded:=true;
    end;

  //开始向短消息管理的文件夹中加入各种信息的显示
  treeview1.Items.Clear;
  tree1node:=treeview1.Items.Add(nil,'短消息文件夹');
  tree1node.HasChildren:=true;
  tree1node.ImageIndex :=0;
  tree1node.SelectedIndex :=0;
 { tree1node8:=treeview1.Items.AddChild(tree1node,'接收短信');
  tree1node8.ImageIndex:=1;
  tree1node8.SelectedIndex:=2; }
  tree1node2:=treeview1.Items.AddChild(tree1node,'已收短信');
  tree1node2.ImageIndex:=3;
  tree1node2.SelectedIndex:=4;

  tree1node3:=treeview1.Items.AddChild(tree1node,'待发短信');
  tree1node3.ImageIndex:=5;
  tree1node3.SelectedIndex:=6;

  tree1node4:=treeview1.Items.AddChild(tree1node,'已发短信');
  tree1node4.ImageIndex:=7;
  tree1node4.SelectedIndex:=8;

  tree1node5:=treeview1.Items.AddChild(tree1node,'失败短信');
  tree1node5.ImageIndex:=9;
  tree1node5.SelectedIndex:=10;

  tree1node6:=treeview1.Items.AddChild(tree1node,'草稿短信');
  tree1node6.ImageIndex:=11;
  tree1node6.SelectedIndex:=12;

  tree1node7:=treeview1.Items.AddChild(tree1node,'垃圾箱');
  tree1node7.ImageIndex:=13;
  tree1node7.SelectedIndex:=14;
  if treeview1.Items.Count>1 then
    begin
      treeview1.Items.Item[0].Expand(true);
    end;
  //结束消息管理的显示

end;

procedure Tmainform.N27Click(Sender: TObject);
begin
frmtxl:=Tfrmtxl.Create(nil);
frmtxl.Show;
end;

procedure Tmainform.ToolButton5Click(Sender: TObject);
begin
frmdxxj:=Tfrmdxxj.Create(nil);
frmdxxj.Show;
end;

procedure Tmainform.TreeView1Click(Sender: TObject);
var
  varstr,strsql:string;
  selnode:Ttreenode;
  i:integer;
  lstitem:Tlistitem;
  name: array[0..10] of string;
begin
   selnode:=treeview1.Selected;
   varstr:=trim(selnode.Text);
   //listview1.Selected.ImageIndex:=1;
   //开始分析用户点击了什么,然后再来在右边显示;
   if varstr='接收短信' then
   begin
   //开始向listview中加数据
   memo1.Clear;
   taball:='revsms';
   ljxdel:='no';
   nameall:='接收短信';
   listview1.Items.Clear;
   listview1.Columns.Clear;
   name[0]:='来自手机号';
   name[1]:='短信内容';
   name[2]:='接收时间';
   for i:= 0 to 2 do
     begin
     listview1.columns.add;
     listview1.Column[i].Caption:=name[i];
     //开始给显示的标题设置长度的对齐的方式;
     listview1.Column[i].Width:=120;
     listview1.Column[i].Alignment:=tacenter;
     end;
   strsql:='select * from revsms where status=0';
   runsql(qlist,strsql);
   if qlist.RecordCount >0 then
   begin
    for i:=0 to qlist.RecordCount-1 do
      begin
        lstitem:=listview1.Items.Add;
        idall[i]:=qlist.fieldbyname('id').AsString;//用于删除时的标识付
        lstitem.Caption:=qlist.fieldbyname('fromaddress').AsString;
        lstitem.ImageIndex:=0;
        lstitem.SubItems.Add(qlist.fieldbyname('content').AsString);
        lstitem.SubItems.Add(qlist.fieldbyname('revtime').AsString);
        qlist.Next;
      end;
   qlistup.Close;
   qlistup.SQL.Clear;
   qlistup.SQL.Text:='update revsms set status=1 where status=0';
   qlistup.ExecSQL;
   end;
   //结束加数据
   //开始更新数据即读过的应将其状态改为1表示已读过了
   //结束对状态的更改 
   //application.MessageBox('你双击了接收短信!',':提示:',mb_ok)
   end;
   //结结束用户的分析
   if varstr='已收短信' then
   begin
   //开始向listview中加数据
   memo1.Clear;
   taball:='revsms';
   ljxdel:='no';
   nameall:='已收短信';
   listview1.Items.Clear;
   listview1.Columns.Clear;
   name[0]:='来自手机号';
   name[1]:='短信内容';
   name[2]:='接收时间';
   for i:= 0 to 2 do
     begin
     listview1.columns.add;
     listview1.Column[i].Caption:=name[i];
     listview1.Column[i].Width:=120;
     listview1.Column[i].Alignment:=tacenter;
     end;
   strsql:='select * from revsms ';
   runsql(qlist,strsql);
   if qlist.RecordCount >0 then
   begin
    for i:=0 to qlist.RecordCount-1 do
      begin
        lstitem:=listview1.Items.Add;
        idall[i]:=qlist.fieldbyname('id').AsString;//用于删除时的标识付
        lstitem.Caption:=qlist.fieldbyname('fromaddress').AsString;
        lstitem.ImageIndex:=0;
        lstitem.SubItems.Add(qlist.fieldbyname('content').AsString);
        lstitem.SubItems.Add(qlist.fieldbyname('revtime').AsString);
        qlist.Next;
      end;
   {qlistup.Close;
   qlistup.SQL.Clear;
   qlistup.SQL.Text:='update revsms set status=1 where status=0';
   qlistup.ExecSQL;}
   end;
   //结束加数据
   //开始更新数据即读过的应将其状态改为1表示已读过了
   //结束对状态的更改
   //application.MessageBox('你双击了已收短信!',':提示:',mb_ok)
   end;
   //结结束用户的分析

   //开始测试是否点击了待发短信
   if varstr='待发短信' then
   begin
   //开始向listview中加数据
   memo1.Clear;
   taball:='sendsms';
   ljxdel:='no';
   nameall:='待发短信';
   listview1.Items.Clear;
   listview1.Columns.Clear;
   name[0]:='接收者手机号';
   name[1]:='发送者';
   name[2]:='短信内容';
   name[3]:='发信时间';

   for i:= 0 to 3 do
     begin
     listview1.columns.add;
     listview1.Column[i].Caption:=name[i];
     listview1.Column[i].Width:=115;
     listview1.Column[i].Alignment:=tacenter;
     end;
   strsql:='select * from sendsms where status=0';
   runsql(qlist,strsql);
   if qlist.RecordCount >0 then
   begin
    for i:=0 to qlist.RecordCount-1 do
      begin
        lstitem:=listview1.Items.Add;
        idall[i]:=qlist.fieldbyname('id').AsString;//用于删除时的标识付
        lstitem.Caption:=qlist.fieldbyname('receiver').AsString;
        lstitem.ImageIndex:=0;
        lstitem.SubItems.Add(qlist.fieldbyname('sender').AsString);
        lstitem.SubItems.Add(qlist.fieldbyname('content').AsString);
        lstitem.SubItems.Add(qlist.fieldbyname('senddate').AsString);
        qlist.Next;
      end;
   {qlistup.Close;
   qlistup.SQL.Clear;
   qlistup.SQL.Text:='update revsms set status=1 where status=0';
   qlistup.ExecSQL;}
   end;
   //结束加数据
   //开始更新数据即读过的应将其状态改为1表示已读过了
   //结束对状态的更改
   //application.MessageBox('你双击了待发短信!',':提示:',mb_ok)
   end;
   //结束待发短信的编写;

   //开始已发短信的显示
      if varstr='已发短信' then
   begin
   //开始向listview中加数据
   memo1.Clear;
   taball:='sendsms';
   ljxdel:='no';
   nameall:='已发短信';
   listview1.Items.Clear;
   listview1.Columns.Clear;
   name[0]:='接收者手机号';
   name[1]:='发送者';
   name[2]:='短信内容';
   name[3]:='发信时间';

   for i:= 0 to 3 do
     begin
     listview1.columns.add;
     listview1.Column[i].Caption:=name[i];
     listview1.Column[i].Width:=115;
     listview1.Column[i].Alignment:=tacenter;
     end;
   strsql:='select * from sendsms where status=1';
   runsql(qlist,strsql);
   if qlist.RecordCount >0 then
   begin
    for i:=0 to qlist.RecordCount-1 do
      begin
        lstitem:=listview1.Items.Add;
        idall[i]:=qlist.fieldbyname('id').AsString;//用于删除时的标识付
        lstitem.Caption:=qlist.fieldbyname('receiver').AsString;
        lstitem.ImageIndex:=0;
        lstitem.SubItems.Add(qlist.fieldbyname('sender').AsString);
        lstitem.SubItems.Add(qlist.fieldbyname('content').AsString);
        lstitem.SubItems.Add(qlist.fieldbyname('senddate').AsString);
        qlist.Next;
      end;
     end;
   //结束加数据
   //开始更新数据即读过的应将其状态改为1表示已读过了
   //结束对状态的更改
   //application.MessageBox('你双击了已发短信!',':提示:',mb_ok)
   end;
   //结束已发短信的显示

   //失败短信的显示
   if varstr='失败短信' then
   begin
   //开始向listview中加数据
   memo1.Clear;
   taball:='sendsms';
   ljxdel:='no';
   nameall:='失败短信';
   listview1.Items.Clear;
   listview1.Columns.Clear;
   name[0]:='接收者手机号';
   name[1]:='发送者';
   name[2]:='短信内容';
   name[3]:='发信时间';

   for i:= 0 to 3 do
     begin
     listview1.columns.add;
     listview1.Column[i].Caption:=name[i];
     listview1.Column[i].Width:=115;
     listview1.Column[i].Alignment:=tacenter;
     end;
   strsql:='select * from sendsms where status=2';
   runsql(qlist,strsql);
   if qlist.RecordCount >0 then
   begin
    for i:=0 to qlist.RecordCount-1 do
      begin
        lstitem:=listview1.Items.Add;
        idall[i]:=qlist.fieldbyname('id').AsString;//用于删除时的标识付
        lstitem.Caption:=qlist.fieldbyname('receiver').AsString;
        lstitem.ImageIndex:=0;
        lstitem.SubItems.Add(qlist.fieldbyname('sender').AsString);
        lstitem.SubItems.Add(qlist.fieldbyname('content').AsString);
        lstitem.SubItems.Add(qlist.fieldbyname('senddate').AsString);
        qlist.Next;
      end;
   end;
   //结束加数据
   //开始更新数据即读过的应将其状态改为1表示已读过了
   //结束对状态的更改
   //application.MessageBox('你双击了失败短信!',':提示:',mb_ok)
   end;
   //结束失败短信的显示

   //开始草稿短信的显示
   if varstr='草稿短信' then
   begin
   //开始向listview中加数据
   memo1.Clear;
   taball:='dxgl';
   ljxdel:='no';
   nameall:='草稿短信';
   listview1.Items.Clear;
   listview1.Columns.Clear;
   name[0]:='接收者手机号';
   name[1]:='发送者';
   name[2]:='短信内容';
   name[3]:='发信时间';

   for i:= 0 to 3 do
     begin
     listview1.columns.add;
     listview1.Column[i].Caption:=name[i];
     listview1.Column[i].Width:=115;
     listview1.Column[i].Alignment:=tacenter;
     end;
   strsql:='select * from dxgl where status=3';
   runsql(qlist,strsql);
   if qlist.RecordCount >0 then
   begin
    for i:=0 to qlist.RecordCount-1 do
      begin
        lstitem:=listview1.Items.Add;
        idall[i]:=qlist.fieldbyname('id').AsString;//用于删除时的标识付
        lstitem.Caption:=qlist.fieldbyname('receiver').AsString;
        lstitem.ImageIndex:=0;
        lstitem.SubItems.Add(qlist.fieldbyname('sender').AsString);
        lstitem.SubItems.Add(qlist.fieldbyname('content').AsString);
        lstitem.SubItems.Add(qlist.fieldbyname('senddate').AsString);
        qlist.Next;
      end;
   {qlistup.Close;
   qlistup.SQL.Clear;
   qlistup.SQL.Text:='update revsms set status=1 where status=0';
   qlistup.ExecSQL; }
   end;
   //结束加数据
   //开始更新数据即读过的应将其状态改为1表示已读过了
   //结束对状态的更改
   //application.MessageBox('你双击了草稿箱!',':提示:',mb_ok)
   end;
   //结束草稿箱的显示
   //开始垃圾箱的显示
   if varstr='垃圾箱' then
   begin
   //开始向listview中加数据
   memo1.Clear;
   taball:='dxgl';
   ljxdel:='yes';
   nameall:='垃圾箱';
   listview1.Items.Clear;
   listview1.Columns.Clear;
   name[0]:='接收者手机号';
   name[1]:='发送者';
   name[2]:='短信内容';
   name[3]:='发信时间';

   for i:= 0 to 3 do
     begin
     listview1.columns.add;
     listview1.Column[i].Caption:=name[i];
     listview1.Column[i].Width:=115;
     listview1.Column[i].Alignment:=tacenter;
     end;
   strsql:='select * from dxgl where status=4';
   runsql(qlist,strsql);
   if qlist.RecordCount >0 then
   begin
    for i:=0 to qlist.RecordCount-1 do
      begin
        lstitem:=listview1.Items.Add;
        idall[i]:=qlist.fieldbyname('id').AsString;//用于删除时的标识付
        lstitem.Caption:=qlist.fieldbyname('receiver').AsString;
        lstitem.ImageIndex:=0;
12345

⌨️ 快捷键说明

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