editer.~pas

来自「delphi自动出题系统源代码,有兴趣的可以来看看！」· ~PAS 代码 · 共 64 行

unit editer;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, DBCtrls, Mask, Db, DBTables;

type
  Tediteform = class(TForm)
    DataSource1: TDataSource;
    Table1: TTable;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBMemo1: TDBMemo;
    DBNavigator1: TDBNavigator;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    SpeedButton1: TSpeedButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  editeform: Tediteform;

implementation

uses main;

{$R *.DFM}

procedure Tediteform.BitBtn1Click(Sender: TObject);
begin
       close;
       mainform.show;
end;





procedure Tediteform.SpeedButton1Click(Sender: TObject);
begin
       close;
       mainform.show;
end;

end.