userunit.pas

这是我做的一个课程设计

unit userUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBActns, ActnList, ImgList, ComCtrls, ExtCtrls, ToolWin, Grids,
  DBGrids, StdCtrls;

type
  TuserForm = class(TForm)
    ToolBar1: TToolBar;
    Panel1: TPanel;
    tb_first: TToolButton;
    tb_prior: TToolButton;
    tb_next: TToolButton;
    tb_last: TToolButton;
    tb_add: TToolButton;
    tb_edit: TToolButton;
    tb_delete: TToolButton;
    tb_post: TToolButton;
    tb_exit: TToolButton;
    ImageList1: TImageList;
    ActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    DataSetCancel1: TDataSetCancel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    tb_cancel: TToolButton;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox8: TCheckBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure tb_exitClick(Sender: TObject);
    procedure tb_postClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  userForm: TuserForm;

implementation

uses MainUnit, dm;

{$R *.dfm}

procedure TuserForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
  mainform.tb_user.Down:=false;
end;

procedure TuserForm.tb_exitClick(Sender: TObject);
begin
  close;
end;

procedure TuserForm.tb_postClick(Sender: TObject);
var
  s:string;
begin
  s:='insert into login(用户名,密码) values(:a,:b)';
  dmform.ADOQuery_login.Close;
  dmform.ADOQuery_login.SQL.Clear;
  dmform.ADOQuery_login.SQL.Add(s);

  dmform.ADOQuery_login.Parameters[0].Value:=edit1.Text;
  dmform.ADOQuery_login.Parameters[1].Value:=edit2.Text;

  dmform.ADOQuery_login.ExecSQL;

  dmform.ADOQuery_login.Close;
  dmform.ADOQuery_login.SQL.Clear;
  dmform.ADOQuery_login.SQL.Add('select * from login');
  dmform.ADOQuery_login.Open;


end;


end.