2024年6月13日发(作者：单于英慧)
unit MainForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ActnList, Menus, XPMan;
type
TMainFrm = class(TForm)
MainMenu1: TMainMenu;
ActionList1: TActionList;
F1: TMenuItem;
N1: TMenuItem;
ExtAct: TAction;
KeChengAct: TAction;
YuanXiAct: TAction;
XueNianAct: TAction;
CanShuAct: TAction;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
XPManifest1: TXPManifest;
procedure ExtActExecute(Sender: TObject);
procedure KeChengActExecute(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainFrm: TMainFrm;
implementation
uses KeChengForm;
{$R *.dfm}
procedure Execute(Sender: TObject);
begin
Close;
end;
procedure gActExecute(Sender: TObject);
begin
if not Assigned(KeChengFrm) then
1
KeChengFrm := (Application);
;
end;
end.
USE [SData]
GO
/****** Object: Table [dbo].[参数表] Script Date: 04/15/2011 08:06:23 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo].[参数表](
[参数编号] [varchar](50) NOT NULL,
[参数名称] [varchar](50) NULL,
[参数内容] [varchar](50) NULL,
[备注] [varchar](50) NULL,
CONSTRAINT [PK_参数表] PRIMARY KEY CLUSTERED
(
[参数编号] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF,
ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]
GO
USE [SData]
GO
/****** Object: Table [dbo].[成绩表] Script Date: 04/15/2011 08:06:49 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo].[成绩表](
[课程编号] [varchar](50) NULL,
[学年学期] [varchar](50) NULL,
[学号] [varchar](50) NULL,
[成绩] [decimal](18, 2) NULL
) ON [PRIMARY]
IGNORE_DUP_KEY = OFF,
2
2024年6月13日发(作者：单于英慧)
unit MainForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ActnList, Menus, XPMan;
type
TMainFrm = class(TForm)
MainMenu1: TMainMenu;
ActionList1: TActionList;
F1: TMenuItem;
N1: TMenuItem;
ExtAct: TAction;
KeChengAct: TAction;
YuanXiAct: TAction;
XueNianAct: TAction;
CanShuAct: TAction;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
XPManifest1: TXPManifest;
procedure ExtActExecute(Sender: TObject);
procedure KeChengActExecute(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainFrm: TMainFrm;
implementation
uses KeChengForm;
{$R *.dfm}
procedure Execute(Sender: TObject);
begin
Close;
end;
procedure gActExecute(Sender: TObject);
begin
if not Assigned(KeChengFrm) then
1
KeChengFrm := (Application);
;
end;
end.
USE [SData]
GO
/****** Object: Table [dbo].[参数表] Script Date: 04/15/2011 08:06:23 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo].[参数表](
[参数编号] [varchar](50) NOT NULL,
[参数名称] [varchar](50) NULL,
[参数内容] [varchar](50) NULL,
[备注] [varchar](50) NULL,
CONSTRAINT [PK_参数表] PRIMARY KEY CLUSTERED
(
[参数编号] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF,
ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]
GO
USE [SData]
GO
/****** Object: Table [dbo].[成绩表] Script Date: 04/15/2011 08:06:49 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo].[成绩表](
[课程编号] [varchar](50) NULL,
[学年学期] [varchar](50) NULL,
[学号] [varchar](50) NULL,
[成绩] [decimal](18, 2) NULL
) ON [PRIMARY]
IGNORE_DUP_KEY = OFF,
2