unit1.pas

来自「涉及到系部工作的各个环节」· PAS 代码 · 共 81 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, DB, ADODB;


type
  TForm_xjgl = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N4: TMenuItem;
    ADOConnection1: TADOConnection;
    N2: TMenuItem;

    procedure FormShow(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N2Click(Sender: TObject);





  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_xjgl: TForm_xjgl;
  //f_dagl:form2;

implementation

uses Unit2,unit3;







{$R *.dfm}



procedure TForm_xjgl.FormShow(Sender: TObject);
begin
    { if self.ADOConnection1.Close();
     try
       self.ADOConnection1.Open;
     except
       showmessage('数据库连接失败');
end;}
end;









procedure TForm_xjgl.N4Click(Sender: TObject);
begin
form_dagl.ShowModal();
end;

procedure TForm_xjgl.N2Click(Sender: TObject);
begin
Form_xjbd.ShowModal();
end;

end.