unit wen1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, DB, ADODB, StdCtrls, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Image5: TImage;
ADOConnection1: TADOConnection;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
Image6: TImage;
Label6: TLabel;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
Label5: TLabel;
Image7: TImage;
Label7: TLabel;
Image8: TImage;
Label8: TLabel;
procedure Image6Click(Sender: TObject);
procedure Label6Click(Sender: TObject);
procedure Image1Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure Label2Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure Label3Click(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure Image4Click(Sender: TObject);
procedure Label4Click(Sender: TObject);
procedure Image5Click(Sender: TObject);
procedure Label5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure Label7Click(Sender: TObject);
procedure Image7Click(Sender: TObject);
procedure Label8Click(Sender: TObject);
procedure Image8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses nh, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit10, Unit9, Unit11,
Unit12, Unit13, Unit14;
{$R *.dfm}
uj5u.com熱心網友回復：
對project，clean、save all、builduj5u.com熱心網友回復：
提示的意思是wen單元遞回地參考了它自己檢查 uses 節， 看是否包含直接或間接的回圈參考
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/27778.html
標籤：VCL組件開發及應用
上一篇：資料庫面試題