xgyhunit1.pas

这是一个Delphi很好很全面知识的实例

unit XGYHUnit1;

interface

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

type
  TXGYHForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    ComboBox2: TComboBox;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XGYHForm: TXGYHForm;

implementation

uses MDUnit1, mainUnit1, SPUnit1, SRBBUnit1, SRCXUnit1, SRLLUnit1,
  TJSRUnit1, TJZCUnit1, untDL, ZCBBUnit1, ZCCXUnit1, ZCLLUnit1;

{$R *.dfm}

procedure TXGYHForm.BitBtn1Click(Sender: TObject);//更改
begin
  if edit1.text='' then
      messagedlg('您还没有添写用户名!',mtinformation,[mbok],0)
      else if edit2.text=''  then
      messagedlg('您还没有添写旧密码!',mtinformation,[mbok],0)
      else if combobox1.text='--请在此选择一个权限--' then
      messagedlg('您还没有选择旧权限!',mtinformation,[mbok],0)
      else if edit3.text='' then
      messagedlg('您还没有添写新密码!',mtinformation,[mbok],0)
      else if combobox2.text='--请在此选择一个权限--' then
      messagedlg('您还没有选择新权限!',mtinformation,[mbok],0)
  else
      begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add('update 密码表 set 密码=:newmm,权限=:newqx');
        adoquery1.SQL.Add('where 用户名=:yhm and 密码=:mm and 权限=:qx');
        adoquery1.Parameters.ParamByName('yhm').Value:=edit1.Text;
        adoquery1.Parameters.ParamByName('mm').Value:=edit2.Text;
        adoquery1.Parameters.ParamByName('qx').Value:=combobox1.Text;
        adoquery1.Parameters.ParamByName('newmm').Value:=edit3.Text;
        adoquery1.Parameters.ParamByName('newqx').Value:=combobox2.Text;
        adoquery1.ExecSQL;
        if adoquery1.RowsAffected>0 then
          begin
          messagedlg('密码与权限更改完毕!',mtinformation,[mbok],0);
          edit1.Text:='';
          edit2.Text:='';
          edit3.Text:='';
          combobox1.Text:='--请在此选择一个权限--';
          combobox2.Text:='--请在此选择一个权限--';
          end
        else
          messagedlg('没有密码被更改!'+chr(13)+'可能原因:用户名或旧密码、旧权限输入有误.',mtinformation,[mbok],0);
          edit1.Text:='';
          edit2.Text:='';
          edit3.Text:='';
          combobox1.Text:='--请在此选择一个权限--';
          combobox2.Text:='--请在此选择一个权限--';
        end;
end;

procedure TXGYHForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  mainform.N15.Enabled:=true;
  free;
end;

procedure TXGYHForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
edit2.SetFocus;
end;
end;

procedure TXGYHForm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
combobox1.SetFocus;
end;
end;

procedure TXGYHForm.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
combobox2.SetFocus;
end;
end;

procedure TXGYHForm.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
edit3.SetFocus;
end;
end;

end.