modify.pas

delphi编写的联合管理程序,很不错的哦

unit modify;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMenu, ComCtrls, StdCtrls, ToolWin, Mask, DBCtrls, Grids,
  DBGrids, ImgList, Buttons;

type
  Tfrmmodify = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Label9: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label4: TLabel;
    dbname: TDBEdit;
    dbsex: TDBEdit;
    dbold: TDBEdit;
    dbconnect: TDBEdit;
    dbphone: TDBEdit;
    dbmovephone: TDBEdit;
    dbmail: TDBEdit;
    dbqq: TDBEdit;
    dbaddress: TDBEdit;
    GroupBox3: TGroupBox;
    DBGrid1: TDBGrid;
    ImageList3: TImageList;
    btnfirst: TBitBtn;
    btnup: TBitBtn;
    btnnext: TBitBtn;
    btnlast: TBitBtn;
    btnmodify: TBitBtn;
    btnexit: TBitBtn;
    procedure btnfirstClick(Sender: TObject);
    procedure btnupClick(Sender: TObject);
    procedure btnnextClick(Sender: TObject);
    procedure btnlastClick(Sender: TObject);
    procedure btnmodifyClick(Sender: TObject);
    procedure btnexitClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmmodify: Tfrmmodify;

implementation

uses datacont;

{$R *.dfm}

procedure Tfrmmodify.btnfirstClick(Sender: TObject);
begin
dataconnect.adoqrycomm.First;
end;

procedure Tfrmmodify.btnupClick(Sender: TObject);
begin
dataconnect.adoqrycomm.Prior;
end;

procedure Tfrmmodify.btnnextClick(Sender: TObject);
begin
dataconnect.adoqrycomm.Next;
end;

procedure Tfrmmodify.btnlastClick(Sender: TObject);
begin
dataconnect.adoqrycomm.Last;
end;

procedure Tfrmmodify.btnmodifyClick(Sender: TObject);
begin
dataconnect.adoqrycomm.Edit;
dataconnect.adoqrycomm.Post;
end;

procedure Tfrmmodify.btnexitClick(Sender: TObject);
begin
dataconnect.adoqrycomm.Cancel;
end;

procedure Tfrmmodify.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then
close;
end;

end.