udyxz.pas

实现短信的收发应用非常的方便,系统很小直接使用不需安装

unit udyxz;

interface

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

type
  Tfrmdyxz = class(TForm)
    Panel1: TPanel;
    TreeView2: TTreeView;
    PopupMenu1: TPopupMenu;
    N26: TMenuItem;
    N27: TMenuItem;
    ImageList2: TImageList;
    Shape1: TShape;
    Label4: TLabel;
    Shape2: TShape;
    SpeedButton1: TSpeedButton;
    qt1: TADOQuery;
    qt2: TADOQuery;
    qt3: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure TreeView2DblClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmdyxz: Tfrmdyxz;

implementation

uses Udxxj, udb, utxlxz;

{$R *.dfm}

procedure Tfrmdyxz.FormCreate(Sender: TObject);
var
 treenode,treenode1,treenode2:ttreenode;
begin
    treeview2.items.clear;
    treenode:=treeview2.items.add(nil,'短语库');
    treenode.HasChildren := true;
    treenode.ImageIndex := 0;
    treenode.SelectedIndex := 0;
    runsql(qt1,'select * from dyfz');
    with TreeView2.Items do
    begin
        while not qt1.eof do
        begin
            treenode1:=addchild(treenode,trim(qt1.fieldbyname('dyfzname').asstring));
            treenode1.ImageIndex := 1;
            treenode1.SelectedIndex := 2;
            //开始加第二层的内容：人员
               runsql(qt2,'select * from dy where dyfzid='''+trim(qt1.fieldbyname('dyfzid').asstring)+'''');
               while not qt2.Eof do
               begin
               treenode2:=addchild(treenode1,trim(qt2.fieldbyname('dyinfo').asstring));
               treenode2.ImageIndex := 3;
               treenode2.SelectedIndex := 4;
               qt2.Next;
               end;
            //结束第二层
            qt1.next;
        end;
    end;
end;


procedure Tfrmdyxz.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then
  begin
  releasecapture;
  perform(wm_syscommand,$f012,0);
  end;
end;

procedure Tfrmdyxz.TreeView2DblClick(Sender: TObject);
var
 seltxlnode:Ttreenode;
 seltxlstr:string;
begin
if (treeview2.Selected.Level =2) then
  begin
    seltxlnode:=treeview2.Selected;
    seltxlstr:=seltxlnode.Text;
    //开始给发送窗口的手机号栏
    frmdxxj.memo1.Text:=trim(seltxlstr);
    frmdyxz.Close;
    //结束写手机号
  end;
end;

procedure Tfrmdyxz.SpeedButton1Click(Sender: TObject);
begin
close;
end;

end.