w_sjzd.pas

系统管理程序的源码

unit w_sjzd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, DB, DBTables;

type
  Tsjzd = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    DBGrid1: TDBGrid;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Query1: TQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sjzd: Tsjzd;

implementation

uses mydata;

{$R *.dfm}

procedure Tsjzd.Button1Click(Sender: TObject);
begin

data.tls.open;
data.tls.insert;

end;

procedure Tsjzd.Button2Click(Sender: TObject);
begin
data.tls.open;
data.tls.edit;

end;

procedure Tsjzd.Button3Click(Sender: TObject);
begin
sjzd.Close;
end;

procedure Tsjzd.Button4Click(Sender: TObject);
var
a:string;
begin
a:=data.tls.fieldbyname('课程').Value ;
if data.tls.Modified then
begin
data.tls.Post;
query1.SQL.Add('ALTER TABLE 学生成绩');
query1.SQL.add('add');
query1.SQL.Add(a);
query1.SQL.add('VARCHAR(10)');
query1.Active :=true;
end;
end;

procedure Tsjzd.Button5Click(Sender: TObject);
begin
if data.tls.Modified then
data.tls.Cancel ;

end;

procedure Tsjzd.Button6Click(Sender: TObject);
begin
data.tls.Edit;
 if messagedlg('是否真的要删除？',mtinformation,[mbyes,mbno],0)=mryes then
 begin
 data.tls.Delete;
 if data.tls.Modified then
 data.tls.Post;
 end
 else
 data.tls.Cancel ;
 end;

end.