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

    unit main_sjwh_zwwhform;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      Db, DBTables, StdCtrls, Grids, DBGrids, DBCtrls, Buttons, ExtCtrls;
    
    type
      Tmain_sjwh_zwwh = class(TForm)
        Panel1: TPanel;
        Label1: TLabel;
        Panel2: TPanel;
        SpeedButton1: TSpeedButton;
        SpeedButton2: TSpeedButton;
        SpeedButton3: TSpeedButton;
        SpeedButton4: TSpeedButton;
        SpeedButton5: TSpeedButton;
        SpeedButton6: TSpeedButton;
        DBNavigator1: TDBNavigator;
        DBGrid1: TDBGrid;
        Edit1: TEdit;
        Table1: TTable;
        DataSource1: TDataSource;
        procedure SpeedButton1Click(Sender: TObject);
        procedure SpeedButton2Click(Sender: TObject);
        procedure SpeedButton3Click(Sender: TObject);
        procedure SpeedButton4Click(Sender: TObject);
        procedure SpeedButton5Click(Sender: TObject);
        procedure SpeedButton6Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      main_sjwh_zwwh: Tmain_sjwh_zwwh;
    
    implementation
    
    {$R *.DFM}
    
    procedure Tmain_sjwh_zwwh.SpeedButton1Click(Sender: TObject);
    begin
       label1.Enabled:=true;
      edit1.Enabled:=true;
      edit1.SetFocus;
      table1.Append;
    end;
    
    procedure Tmain_sjwh_zwwh.SpeedButton2Click(Sender: TObject);
    begin
      if messagebox(main_sjwh_zwwh.Handle,'确定要删除本条记录吗？','请确认',mb_okcancel)=idok then
        begin
          table1.delete;
        end;
    end;
    
    procedure Tmain_sjwh_zwwh.SpeedButton3Click(Sender: TObject);
    begin
       table1.edit;
     label1.Enabled:=true;
     edit1.Enabled:=true;
     edit1.Text:=table1.Fields[0].value;
     edit1.SetFocus;
    end;
    
    procedure Tmain_sjwh_zwwh.SpeedButton4Click(Sender: TObject);
    begin
      table1.Fields[0].Value:=edit1.Text;
      table1.Post;
      edit1.Text:='';
      label1.Enabled:=false;
      edit1.Enabled:=false;
    end;
    
    procedure Tmain_sjwh_zwwh.SpeedButton5Click(Sender: TObject);
    begin
        table1.cancel;
      edit1.Text:='';
      label1.Enabled:=false;
      edit1.Enabled:=false;
    end;
    
    procedure Tmain_sjwh_zwwh.SpeedButton6Click(Sender: TObject);
    begin
      close;
    end;
    
    end.
    

上一篇：main_sjwh_zcwhform.pas
下一篇：哈弗F7 VS名爵HS，谁更懂得年轻人的心？