给编个Delphi制作的通讯录之类的数据库代码

Question

大虾们，帮忙啦！
增删改查都要！
控件名称和表名什么的无所谓，我自己可以改！拜托啦！
只有一张表,在各个窗口都应该加些什么控件，都应该改成什么属性呢？

Answer 1

说实话，俺觉得你应该先买本delphi的基础书籍看看

Answer 2

我不想学，好无语
那就支付money给大虾们做
有些大虾还不想做列

Answer 3

把李维《Delphi7高效数据库设计》的前3章看了你的问题就解决了，在坛子里问，三言两语根本说不清的。

Answer 4

这个还比较麻烦，楼主拿点银子出来吧。
现在的行情是：有分给思路，有钱给代码。
增删改查主要是SQL，Delphi的代码很简单。

Answer 5

楼主 拿分来：PAS：
unit uMan_Mainfrm;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls, DB, ADODB;type
  TfmMan_Mainfrm = class(TForm)
    pnlClient: TPanel;
    dbgrdStudent: TDBGrid;
    btnAdd: TBitBtn;
    btnMod: TBitBtn;
    btnSave: TBitBtn;
    btnDel: TBitBtn;
    pnlRight: TPanel;
    btnSelect: TBitBtn;
    lbl1: TLabel;
    edt1: TEdit;
    btnCancel: TBitBtn;
    qryTel: TADOQuery;
    dsTel: TDataSource;
    procedure btnCancelClick(Sender: TObject);
    procedure btnAddClick(Sender: TObject);
    procedure btnModClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure btnDelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnSelectClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  fmMan_Mainfrm: TfmMan_Mainfrm;implementation{$R *.dfm}procedure TfmMan_Mainfrm.btnAddClick(Sender: TObject);
begin
  Self.qryTel.Append;
end;procedure TfmMan_Mainfrm.btnCancelClick(Sender: TObject);
begin
 Close;
end;procedure TfmMan_Mainfrm.btnDelClick(Sender: TObject);
begin
  Self.qryTel.Delete;
end;procedure TfmMan_Mainfrm.btnModClick(Sender: TObject);
begin
  Self.qryTel.Edit;
end;procedure TfmMan_Mainfrm.btnSaveClick(Sender: TObject);
begin
 Self.qryTel.Post;
end;procedure TfmMan_Mainfrm.btnSelectClick(Sender: TObject);
begin
  Self.qryTel.Locate('number',edt1.Text,[]);
end;procedure TfmMan_Mainfrm.FormCreate(Sender: TObject);
var
  sSQL : string;
begin
  sSQL := Format('Select * from teltable',[]);
  Self.qryTel.Close;
  Self.qryTel.SQL.Text := sSQL;
  Self.qryTel.Open;
end;end.

Answer 6

dfmobject fmMan_Mainfrm: TfmMan_Mainfrm
  Left = 0
  Top = 0
  Caption = 'fmMan_Mainfrm'
  ClientHeight = 383
  ClientWidth = 778
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object pnlClient: TPanel
    Left = 0
    Top = 0
    Width = 778
    Height = 321
    Align = alTop
    Caption = 'pnlClient'
    TabOrder = 0
    object dbgrdStudent: TDBGrid
      Left = 1
      Top = 1
      Width = 591
      Height = 319
      Align = alClient
      DataSource = dsTel
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Tahoma'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'number'
          Title.Alignment = taCenter
          Title.Caption = #23398#21495
          Width = 129
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'name'
          Title.Alignment = taCenter
          Title.Caption = #22995#21517
          Width = 153
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'telnumber'
          Title.Caption = #30005#35805
          Width = 128
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'password'
          Title.Alignment = taCenter
          Title.Caption = #23494#30721#65311
          Width = 264
          Visible = True
        end>
    end
    object pnlRight: TPanel
      Left = 592
      Top = 1
      Width = 185
      Height = 319
      Align = alRight
      TabOrder = 1
      object lbl1: TLabel
        Left = 16
        Top = 240
        Width = 36
        Height = 13
        Caption = #23398#21495#65306
      end
      object edt1: TEdit
        Left = 58
        Top = 237
        Width = 111
        Height = 21
        TabOrder = 0
      end
    end
  end
  object btnAdd: TBitBtn
    Left = 608
    Top = 24
    Width = 153
    Height = 25
    Caption = 'btnAdd'
    TabOrder = 1
    OnClick = btnAddClick
  end
  object btnMod: TBitBtn
    Left = 608
    Top = 72
    Width = 153
    Height = 25
    Caption = 'btnMod'
    TabOrder = 2
    OnClick = btnModClick
  end
  object btnSave: TBitBtn
    Left = 608
    Top = 125
    Width = 153
    Height = 25
    Caption = 'btnSave'
    TabOrder = 3
    OnClick = btnSaveClick
  end
  object btnDel: TBitBtn
    Left = 608
    Top = 168
    Width = 153
    Height = 25
    Caption = 'btnDel'
    TabOrder = 4
    OnClick = btnDelClick
  end
  object btnSelect: TBitBtn
    Left = 608
    Top = 280
    Width = 153
    Height = 25
    Caption = 'btnSelect'
    TabOrder = 5
    OnClick = btnSelectClick
  end
  object btnCancel: TBitBtn
    Left = 632
    Top = 336
    Width = 75
    Height = 25
    Caption = 'btnCancel'
    TabOrder = 6
    OnClick = btnCancelClick
  end
  object qryTel: TADOQuery
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;Persist Se' +
      'curity Info=False'
    Parameters = <>
    Left = 336
    Top = 184
  end
  object dsTel: TDataSource
    DataSet = qryTel
    Left = 224
    Top = 128
  end
end

Answer 7

program Tel;uses
  Forms,
  uMan_Mainfrm in 'uMan_Mainfrm.pas' {fmMan_Mainfrm};{$R *.res}begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TfmMan_Mainfrm, fmMan_Mainfrm);
  Application.Run;
end.
收工， 用d2007

Answer 8

那个那个，对楼主的批判声音很强烈嘛，问题的关键真的不在楼主，楼主也很无奈，我们是课程设计，不是毕业设计，去年的.net设计我是自己做的，时间也充裕，Delphi我从来都没学过啊，只给4天做程序，第一天楼主还没着急，等着急了就看不进去，看不进去就更着急了
程序交完了已经
楼上的没用到~不过不会让你白辛苦的
还是道一声大谢！