求助,Delphi的错误

Question

unit login;interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, DBTables;type
  TForm1 = class(TForm)
    cmdok: TButton;
    cmdclose: TButton;
    yhm_LEdit: TLabeledEdit;
    mm_LEdit: TLabeledEdit;
    Query1: TQuery;
    DataSource1: TDataSource;
    procedure cmdcloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}//确定按钮单击事件
procedure Tlogin_Form.cmdokClick(Sender:TObject);
var
  yhm,mm,sqlstr,loginok:string;
  begin
    yhm:=Trim(yhm_LEdit.Text);
    mm:=Trim(mm_LEdit.Text);
    sqlstr:='select* from user where(yhm="'+yhm+'")and(mm="'+mm+'")';
    loginok:='Tlogin_Form.close and TMain_form.ModalShow';
    if(Length(yhm)>0)or(Length(mm)>0)then
    begin
      with TQuery.Create(nil)do
        try
          Close;
          SQL.Clear;
          SQL.ADD(sqlstr);
          Open;
          //验证用户合法性
          if RecordCount>0 then
          begin
            MainForm.yhm:=FieldByName('yhm').AsString;
            MainForm.qx:=FieldByName('qx').AsString;
            loginok;
          end
          else
          begin
            ShowMessage('请确认登录用户名和密码是否正确!');
            yhm_LEdit.SelectAll;
          end;
        finally
          Free;
          end;
        Close;
      end
    else
    begin
      ShowMessage('请输入登录用户名和密码!');
      yhm_LEdit.SelectAll;
    end;
  end;procedure TForm1.cmdcloseClick(Sender: TObject);
begin
  Close;
end;
end.
[Error] login.pas(33): ';' expected but '.' found
[Error] login.pas(37): Undeclared identifier: 'yhm_LEdit'
[Error] login.pas(37): '(' expected but ')' found
[Error] login.pas(38): Missing operator or semicolon
[Error] login.pas(38): There is no overloaded version of 'Trim' that can be called with these arguments
[Error] login.pas(39): Missing operator or semicolon
[Error] login.pas(52): Undeclared identifier: 'MainForm'
[Error] login.pas(53): Missing operator or semicolon
[Error] login.pas(54): Statement expected, but expression of type 'String' found
[Error] login.pas(59): Missing operator or semicolon
[Error] login.pas(64): '(' expected but ';' found
[Error] login.pas(69): Missing operator or semicolon
[Fatal Error] gzglxt.dpr(17): Could not compile used unit 'login.pas'

Answer 1

loginok:='Tlogin_Form.close and TMain_form.ModalShow';
...
loginok;你太有创意了！