delphi 报错，我不会改啊！修改密码代码

来源：百度知道 编辑：UC知道 时间：2024/06/01 05:24:36
unit xs_Chpass;

interface

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

type
TChpass = class(TForm)
ADOQuery1: TADOQuery;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Chpass: TChpass;

implementation

uses xs_main;

{$R *.dfm}

procedure TChpass.Button2Click(Sender: TObject);
begin
close;
end;

procedure TChpass.Button1Click(Sender: TObject);
begin
AdoQuery1.Close;

[Error] xs_Chpass.pas(47): Undeclared identifier: 'main' //main未标识
[Error] xs_Chpass.pas(47): 'END' expected but ')' found //多了一个“）”
[Error] xs_Chpass.pas(50): ';' expected but 'IF' found //仔细检查“IF”和“END”，看是否配套，应该是多了一个
[Error] xs_Chpass.pas(53): Undeclared identifier: 'edit2' //edit2未标识
[Error] xs_Chpass.pas(54): Undeclared identifier: 'edit3'//edit3未标识
[Error] xs_Chpass.pas(55): Missing operator or semicolon //分号丢失
[Error] xs_Chpass.pas(57): '.' expected but 'ELSE' found //else的语法错误
[Error] xs_Chpass.pas(60): Identifier redeclared: 'Finalization'
[Error] xs_Chpass.pas(61): Undeclared identifier: 'AdoQuery1'
[Error] xs_Chpass.pas(62): Missing operator or semicolon
[Error] xs_Chpass.pas(62): Missing operator or semicolon
[Error] xs_Chpass.pas(62): There is no overloaded version of 'Trim' that can be called with these arguments