运行界面:
代码:unit Unit3;
interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type
TFormAbout = class(TForm) Memo1: TMemo; Label1: TLabel; Label2: TLabel; Label3: TLabel; private
{ Private declarations } public
{ Public declarations } end; var
FormAbout: TFormAbout;
implementation
{$R *.dfm} end.
其他说明:主界面和信息录入查询视窗使用MDI设计。
相关推荐: