Delphi爱好者们来建立通讯录！！

Question

我也来凑一个：
E-mail：[email protected]
QQ：13697130
现在浙江。

Answer 1

排队哈哈
E-mail：[email protected]
QQ：46141895
现在哈尔滨。

Answer 2

有没有现在在上海的或者成都的？
我现在在成都，大三学生，要去上海
qq：1469886  身份验证 delphi
email：[email protected]
男

Answer 3

[email protected]
qq,81538918 

Answer 4

我也加入...期待合作!
35039359
[email protected]

Answer 5

一个非常简单的通讯录unit dhbU;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, Db, DBTables, ExtCtrls, DBCtrls, ComCtrls, StdCtrls, Mask;type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Splitter1: TSplitter;
    Panel2: TPanel;
    Panel3: TPanel;
    Splitter2: TSplitter;
    Panel4: TPanel;
    DataSource1: TDataSource;
    Table1: TTable;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Panel5: TPanel;
    Splitter3: TSplitter;
    Panel6: TPanel;
    TreeView1: TTreeView;
    RadioGroup1: TRadioGroup;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner5: TStringField;
    Table1BDEDesigner6: TStringField;
    Table1Oicq: TStringField;
    Table1BDEDesigner7: TStringField;
    Panel7: TPanel;
    Button1: TButton;
    Button2: TButton;
    DBEdit1: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBComboBox1: TDBComboBox;
    Table1BDEDesigner8: TStringField;
    Table1BDEDesigner9: TStringField;
    Label9: TLabel;
    Label10: TLabel;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBComboBox2: TDBComboBox;
    function getfieldlist(cclb:integer):tstringlist;
    procedure FormCreate(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
     
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
var fieldlist:Tstringlist;
{$R *.DFM}function treefinditem(sender:ttreeview; nodeitem:ttreenode; name:string):ttreenode;
begin
     if nodeitem=nil then nodeitem:=sender.items.getfirstnode
        else nodeitem:=nodeitem.getfirstchild;
     if (nodeitem<>nil) and (nodeitem.text<>name) then
        repeat
              nodeitem:=nodeitem.getnextsibling;
         until (nodeitem=nil) or (nodeitem.text=name);
         result:=nodeitem;
end;
function treeadditem(sender:ttreeview; itemlist:tstrings; book:tbook;resort:boolean):ttreenode;
 var thisnode,node:ttreenode;
    i:integer;
begin
    node:=nil;
    for i:=0 to itemlist.count-1 do
       begin
            thisnode:=treefinditem(sender,node,itemlist[i]);
            if thisnode<>nil then node:=thisnode else
                begin
                    if i<itemlist.Count-1 then
                         begin
                              if i=0 then node:=sender.items.add(node,itemlist[i])
                                      else node:=sender.items.addchild(node,itemlist[i])
                              end  else
                                      begin
                                           if i=0 then node:=sender.items.addobject(node,itemlist[i],book )
                                                   else node:=sender.items.addchildobject(node,itemlist[i],book);
                                                        node.stateindex:=node.level+1;
                                           if resort and (node.parent<>nil) then node.parent.alphasort;
                                      end;
                         end
                end;
                result:=node;
end;
function Tform1.getfieldlist(cclb:integer):tstringlist;
begin
      fieldlist.clear;
      if cclb=0 then
          begin
               fieldlist.add(table1.fieldbyname('性别').asstring);
               fieldlist.add(table1.fieldbyname('关系状况').asstring);          end
      else
            begin
               fieldlist.add(table1.fieldbyname('关系状况').asstring);
               fieldlist.add(table1.fieldbyname('性别').asstring);
              
             end;
       fieldlist.add(table1.fieldbyname('姓名').asstring);
       result:=fieldlist;
end;procedure TForm1.FormCreate(Sender: TObject);var cclb:integer;
begin
  button1.Enabled:=false;
  cclb:=radiogroup1.ItemIndex;
  fieldlist:=tstringlist.create;
  treeview1.Items.BeginUpdate;
  treeview1.Items.clear;
  table1.DisableConstraints;
  table1.first;
  while not table1.Eof do
    begin
          treeadditem(treeview1,getfieldlist(cclb),table1.getbook,false);
          table1.Next
    end;
  treeview1.AlphaSort;
  table1.EnableConstraints;
  treeview1.Items.endupdate;
  treeview1.Items[2].selected:=true;end;procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
formcreate(sender);
end;procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
datasource1.enabled:=node.data<>nil;
if datasource1.Enabled then table1.GotoBook(node.data);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
panel7.show;
button1.enabled:=false;
button2.enabled:=true;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
DBGrid1.show;
Panel7.Hide;
button2.enabled:=false;
button1.enabled:=true;
end;
end.

Answer 6

[email protected]
我在山东啊!!!!

Answer 7

[email protected]
男
大连

Answer 8

[email protected]
QQ :78123670
icq:148848518
男
合肥

Answer 9

沈阳 man：[email protected] 望联络！

Answer 10

[email protected]
男
东莞
thank

Answer 11

算我一个
北京
[email protected]

Answer 12

I Love Delphi
E-mail：[email protected]
QQ：108959077
现在上海。

Answer 13

加我一个。
北京的。
[email protected]

Answer 14

[email protected]
QQ147739389
性别:女

Answer 15

河北沧州
Email:[email protected]
QQ：无法上

Answer 16

辽宁抚顺
[email protected]

Answer 17

[email protected]
QQ :40815388
深圳