【delphi开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-fmMain.pas的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    unit fmMain;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, DB, StdCtrls;
    
    type
      TForm31 = class(TForm)
        dsBooks: TDataSource;
        DBNavigator1: TDBNavigator;
        DBGrid1: TDBGrid;
        btnCreateTable: TButton;
        btnDeleteTable: TButton;
        Button2: TButton;
        procedure Button2Click(Sender: TObject);
        procedure btnDeleteTableClick(Sender: TObject);
        procedure btnCreateTableClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form31: TForm31;
    
    implementation
    
    uses udmDemo;
    
    {$R *.dfm}
    
    procedure TForm31.btnCreateTableClick(Sender: TObject);
    begin
      dmRunDDL.sdsRunDDL.ExecSQL(False);
      dmRunDDL.sdsCreateIndex.ExecSQL(False);
      dmRunDDL.scdsQuery.Active := False;
      dmRunDDL.scdsQuery.DataSet.CommandText := 'Select * from MyEssays';
      dmRunDDL.scdsQuery.Active := True;
    end;
    
    procedure TForm31.btnDeleteTableClick(Sender: TObject);
    begin
      dmRunDDL.sdsDropTable.ExecSQL(False);
    end;
    
    procedure TForm31.Button2Click(Sender: TObject);
    begin
      dmRunDDL.sqlqData.ExecSQL(False);
      dmRunDDL.scdsQuery.Refresh;
    end;
    
    end.