friendsaddunit.~pas

一个简单的数据库管理系统,是用delphi开发的.

unit FriendsAddUnit;

interface

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

type
  TFriendsAddForm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit1: TEdit;
    Bevel1: TBevel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    YesButton: TSpeedButton;
    CancelButton: TSpeedButton;
    procedure CancelButtonClick(Sender: TObject);
    procedure YesButtonClick(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FriendsAddForm: TFriendsAddForm;

implementation
uses DataUnit,PublicUnit, ADODB;
{$R *.dfm}

procedure TFriendsAddForm.CancelButtonClick(Sender: TObject);
begin
  Close;
end;

procedure TFriendsAddForm.YesButtonClick(Sender: TObject);
var
  SQLText,OldText:string;
begin
  if Trim(Edit1.Text) = '' then
  begin
    ShowMessage('姓名信息不能为空。');
    Exit;                                      //
  end;                                       //
  SQLText := 'Insert Into myfriends(Name,Sex,Class,OfficeTel,';
  SQLText := SQLText + 'HomeTel,Mobile,Email,WebSites,';
  SQLText := SQLText + 'OfficeAddr,Code,Remark) values(';
  SQLText := SQLText + ''''+trim(Edit1.Text)+''','''+Trim(ComboBox1.Text)+''',';
  SQLText := SQLText + ''''+trim(ComboBox2.Text)+''','''+Trim(Edit2.Text)+''',';
  SQLText := SQLText + ''''+trim(Edit3.Text)+''','''+Trim(Edit4.Text)+''',';
  SQLText := SQLText + ''''+Trim(Edit5.Text)+''','''+Trim(Edit6.Text)+''',';
  SQLText := SQLText + ''''+Trim(Edit7.Text)+''','''+Trim(Edit8.Text)+''',';
  SQLText := SQLText + ''''+Trim(Edit9.Text)+''')';

  OldText := DataForm.qrySource.SQL.Text;
  try
    ExecSQL(DataForm.qryEdit,SQLText);
    OpenSQL(DataForm.qrySource,OldText);
  finally
    DataForm.qryEdit.Close;
    close;
  end;
end;

procedure TFriendsAddForm.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = 13) or (key = vk_down) then
    selectnext(ActiveControl,true,true);
  if key = vk_up then
    selectnext(ActiveControl,false,true);
end;

end.