friendseditunit.~pas

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

unit FriendsEditUnit;

interface

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

type
  TFriendsEditForm = 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 FormShow(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FriendsEditForm: TFriendsEditForm;

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

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

procedure TFriendsEditForm.YesButtonClick(Sender: TObject);
var
  SQLText,OldText,UpId:string;
begin
  if Trim(Edit1.Text) = '' then
  begin
    ShowMessage('姓名信息不能为空。');
    Exit;
  end;
  UpId := Trim(DataForm.qrySource.FieldByName('Id').AsString);

  SQLText := 'Update myfriends Set Name = '''+trim(Edit1.Text)+''',';
  SQLText := SQLText + 'Sex = '''+Trim(ComboBox1.Text)+''',';
  SQLText := SQLText + 'Class = '''+trim(ComboBox2.Text)+''',';
  SQLText := SQLText + 'OfficeTel = '''+Trim(Edit2.Text)+''',';
  SQLText := SQLText + 'HomeTel = '''+trim(Edit3.Text)+''',';
  SQLText := SQLText + 'Mobile = '''+Trim(Edit4.Text)+''',';
  SQLText := SQLText + 'Email = '''+Trim(Edit5.Text)+''',';
  SQLText := SQLText + 'WebSites = '''+Trim(Edit6.Text)+''',';
  SQLText := SQLText + 'OfficeAddr = '''+Trim(Edit7.Text)+''',';
  SQLText := SQLText + 'Code = '''+Trim(Edit8.Text)+''',';
  SQLText := SQLText + 'Remark = '''+Trim(Edit9.Text)+''' ';
  SQLText := SQLText + 'Where Id = '+UpId+'';
  OldText := DataForm.qrySource.SQL.Text;
  try
    ExecSQL(DataForm.qryEdit,SQLText);
    OpenSQL(DataForm.qrySource,OldText);
  finally
    DataForm.qryEdit.Close;
    close;
  end;
end;

procedure TFriendsEditForm.FormShow(Sender: TObject);
begin
  Edit1.Text := Trim(DataForm.qrySource.FieldByName('Name').AsString);
  ComboBox1.Text := Trim(DataForm.qrySource.FieldByName('Sex').AsString);
  ComboBox2.Text := Trim(DataForm.qrySource.FieldByName('Class').AsString);
  Edit2.Text := Trim(DataForm.qrySource.FieldByName('OfficeTel').AsString);
  Edit3.Text := Trim(DataForm.qrySource.FieldByName('HomeTel').AsString);
  Edit4.Text := Trim(DataForm.qrySource.FieldByName('Mobile').AsString);
  Edit5.Text := Trim(DataForm.qrySource.FieldByName('Email').AsString);
  Edit6.Text := Trim(DataForm.qrySource.FieldByName('WebSites').AsString);
  Edit7.Text := Trim(DataForm.qrySource.FieldByName('OfficeAddr').AsString);
  Edit8.Text := Trim(DataForm.qrySource.FieldByName('Code').AsString);
  Edit9.Text := Trim(DataForm.qrySource.FieldByName('Remark').AsString);
end;

procedure TFriendsEditForm.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.