main_xtsz_yhxxform.~pas

校园信息管理系统

unit main_xtsz_yhxxform;

interface

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

type
  Tmain_xtsz_yhxx = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Table1Names: TStringField;
    Table1Passwords: TStringField;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    DBNavigator1: TDBNavigator;
    SpeedButton5: TSpeedButton;
    Table1Jfgl: TBooleanField;
    Table1Dagl: TBooleanField;
    Table1Rsgl: TBooleanField;
    Table1Sjwh: TBooleanField;
    Table1Xtgn: TBooleanField;
    Table1Tjtb: TBooleanField;
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main_xtsz_yhxx: Tmain_xtsz_yhxx;

implementation

uses main_xtsz_yhqxform;

{$R *.DFM}

procedure Tmain_xtsz_yhxx.SpeedButton5Click(Sender: TObject);
begin
  close;
end;

procedure Tmain_xtsz_yhxx.SpeedButton1Click(Sender: TObject);
begin
  table1.Append;
  main_xtsz_yhqx.ShowModal;
end;

procedure Tmain_xtsz_yhxx.SpeedButton3Click(Sender: TObject);
begin
  main_xtsz_yhqx.DataSource1.DataSet:=table1;
  main_xtsz_yhqx.showmodal;
end;

procedure Tmain_xtsz_yhxx.DBGrid1DblClick(Sender: TObject);
begin
    table1.edit;
    main_xtsz_yhqx.ShowModal;
end;

procedure Tmain_xtsz_yhxx.SpeedButton4Click(Sender: TObject);
begin
  table1.edit;
  main_xtsz_yhqx.ShowModal;
end;

procedure Tmain_xtsz_yhxx.SpeedButton2Click(Sender: TObject);
begin
   if messagebox(main_xtsz_yhxx.Handle,'确定要删除本条记录吗？','请确认',mb_okcancel)=idok then
    begin
      table1.delete;
    end;
end;

end.