p7_1.dpr

欢迎大家相互学习。delphi系统 四个文件夹分别对应书中的四个实例

program P7_1;

uses
  Forms,
  addgzb in 'addgzb.pas' {addgzb_Form},
  gzgl in 'gzgl.pas' {gzgl_Form},
  gztj in 'gztj.pas' {gztj_Form},
  login in 'login.pas' {login_Form},
  main in 'main.pas' {mainForm},
  modigz in 'modigz.pas' {modigz_Form},
  password in 'password.pas' {password_Form},
  setother in 'setother.pas' {setother_Form},
  setzc in 'setzc.pas' {setzc_Form},
  setzw in 'setzw.pas' {setzw_Form},
  usergl in 'usergl.pas' {usergl_Form},
  yggl in 'yggl.pas' {yggl_Form},
  ygxx in 'ygxx.pas' {ygxx_Form};

{$R *.res}

var yhm,qx:string;
begin
  Application.CreateForm(Tlogin_Form, login_Form);
  login_form.ShowModal;
  if login_form.loginok then
  begin
    yhm:=login_form.yhm;
    qx:=login_form.qx;
    login_Form.Free;
    Application.CreateForm(TmainForm, mainForm);
    mainform.yhm:=yhm;
    mainform.qx:=qx;
    Application.Run;
  end
  else
    Application.Terminate;
end.