个体登录;
接口引用
窗口, 显示, 制图, 窗体, 函数;类型
文本1: T文本;
文本2: T文本;
按钮1: T按钮;
按钮2: T按钮;
程序 按钮2点击时(发送到: TObject);
程序 按钮1点击时(发送到: TObject);
end;var
login窗口: Tlogin窗口;执行使用 Unit1, demo;{$R *.dfm}程序 Tlogin窗口.按钮2点击时(发送到: TObject);
开始
应用程序.终止;
如果 login窗口.关闭 那么
开始
应用程序.终止;
结束
不然的话
开始
main窗口.显示;
结束;
结束.
接口引用
窗口, 显示, 制图, 窗体, 函数;类型
文本1: T文本;
文本2: T文本;
按钮1: T按钮;
按钮2: T按钮;
程序 按钮2点击时(发送到: TObject);
程序 按钮1点击时(发送到: TObject);
end;var
login窗口: Tlogin窗口;执行使用 Unit1, demo;{$R *.dfm}程序 Tlogin窗口.按钮2点击时(发送到: TObject);
开始
应用程序.终止;
如果 login窗口.关闭 那么
开始
应用程序.终止;
结束
不然的话
开始
main窗口.显示;
结束;
结束.
happy new year!
happy new year!
happy new year!
happy new year!
happy new year!
happy new year!
happy new year!
happy new year!
happy new year!
应该是:
程序 类型登录窗口点按钮贰点击时『发送到:TObject』;
开始
应用程序点终止;
如果 登录窗口点关闭 那么
开始
应用程序点终止;
结束
不然的话
开始
主窗口点显示;
结束;
结束。