【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供Modify.pas参考,解决您在Modify.pas学习中工作中的难题,参考学习。
unit Modify;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DB, ADODB;
type
TForm6 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
ComboBox1: TComboBox;
Bevel1: TBevel;
ADOQuery1: TADOQuery;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit1Exit(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses ConnectDlg;
{$R *.dfm}
procedure TForm6.Button1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from userinfo where userid='''+Edit1.Text+'''');
adoquery1.Open;
if adoquery1.Recordset.RecordCount = 0 then
begin
ShowMessage('用户不存在 ');
end
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('update userinfo set username='''+edit2.Text+''', cardtype='''+combobox1.Text+''',cardnum='''+edit3.Text+''' where userid='''+edit1.text+'''');
adoquery1.ExecSQL;
ShowMessage('修改成功');
Close;
end;
end;
procedure TForm6.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TForm6.Edit1Exit(Sender: TObject);
var cardtype:String;
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from userinfo where userid='''+Edit1.Text+'''');
adoquery1.Open;
if adoquery1.Recordset.RecordCount <> 0 then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select username,cardtype,cardnum from userinfo where userid='''+edit1.text+'''');
adoquery1.Open;
edit2.Text:=adoquery1.fieldbyname('username').AsString;
cardtype:=adoquery1.fieldbyname('cardtype').AsString;
if cardtype = '身份证' then begin
ShowMessage(cardtype);
combobox1.ItemIndex:=0;
end
else begin if cardtype ='学生证' then begin
combobox1.ItemIndex:=1 ;
end else
combobox1.ItemIndex:=2;
end;
edit3.Text:=adoquery1.fieldbyname('cardnum').AsString;
end;
end;
end.