unit7.pas

学校教职工工资管理系统可实现工资的增加、删除和修改。

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DB, ADODB, StdCtrls, Grids, DBGrids, jpeg;

type
  TForm7 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Splitter1: TSplitter;
    Button4: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation
           uses  unit1;
{$R *.dfm}

procedure TForm7.Button2Click(Sender: TObject);
var
  str:string;
begin
  if   (edit3.Text <>edit4.Text)      then
   showmessage('修改失败！')
   else
   begin
   str:='update user1 set  pwd='+quotedstr(edit3.Text);
   str:=str+'where username='+quotedstr(edit1.Text)+'and pwd='+quotedstr(edit2.Text);
   adoquery1.Close;
   adoquery1.SQL.Clear ;
   adoquery1.SQL.Add(str);
   adoquery1.ExecSQL ;
   showmessage('修改成功！')
   end

end;

procedure TForm7.Button1Click(Sender: TObject);
var
   str:string;
begin
        str:='select username,pwd from user1 where username='+quotedstr(unit1.str000);
   adoquery1.Close;
   adoquery1.SQL.Clear ;
   adoquery1.SQL.Add(str);
   adoquery1.Open ;
end;

procedure TForm7.Button3Click(Sender: TObject);
begin
    form7.Close ;
end;

procedure TForm7.Button4Click(Sender: TObject);
var
   str:string;
begin
   str:='select username from user1';
   adoquery1.Close;
   adoquery1.SQL.Clear ;
   adoquery1.SQL.Add(str);
   adoquery1.Open ;
end;

end.