【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-EduAdminUnit.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit EduAdminUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, TabNotBk, StdCtrls, ExtCtrls, Grids, DBGrids,
Mask,EduAdminClass, Buttons;
type
TEduAdminMainForm = class(TForm)
Panel1: TPanel;
StatusBar1: TStatusBar;
Panel2: TPanel;
Shape1: TShape;
Shape3: TShape;
Shape4: TShape;
Shape5: TShape;
Shape6: TShape;
Shape7: TShape;
PageControl1: TPageControl;
tbsClass: TTabSheet;
GroupBox1: TGroupBox;
Splitter1: TSplitter;
Panel3: TPanel;
GroupBox3: TGroupBox;
DBGrid1: TDBGrid;
Panel4: TPanel;
GroupBox2: TGroupBox;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
edYear: TEdit;
edDepname: TEdit;
edClassName: TEdit;
edLeader: TEdit;
Shape8: TShape;
Shape9: TShape;
Shape10: TShape;
Shape11: TShape;
tbsCourse: TTabSheet;
tbsAccount: TTabSheet;
tbsSCourse: TTabSheet;
tbsSScore: TTabSheet;
gbCourse: TGroupBox;
Panel5: TPanel;
Splitter2: TSplitter;
Panel6: TPanel;
GroupBox4: TGroupBox;
GroupBox5: TGroupBox;
gridCourse: TDBGrid;
Label1: TLabel;
edCourseCode: TEdit;
Label2: TLabel;
edCourseName: TEdit;
Label3: TLabel;
edCourseCredit: TEdit;
Label4: TLabel;
edCoursePeriod: TEdit;
Label10: TLabel;
edTeacher: TEdit;
memNote: TMemo;
bevResetCourse: TBevel;
Shape12: TShape;
Shape13: TShape;
Shape14: TShape;
Shape15: TShape;
Shape16: TShape;
Shape17: TShape;
Shape18: TShape;
GroupBox6: TGroupBox;
Panel7: TPanel;
Splitter3: TSplitter;
Panel8: TPanel;
GroupBox7: TGroupBox;
accountGrid: TDBGrid;
Panel9: TPanel;
Label11: TLabel;
Label12: TLabel;
gbNewAccount: TGroupBox;
Label13: TLabel;
edAccountName: TEdit;
Label14: TLabel;
Label15: TLabel;
cbAccountRight: TComboBox;
Label16: TLabel;
Shape19: TShape;
Shape20: TShape;
Shape21: TShape;
Shape22: TShape;
Panel10: TPanel;
GroupBox9: TGroupBox;
gridSearchCourse: TDBGrid;
Splitter4: TSplitter;
GroupBox10: TGroupBox;
GroupBox11: TGroupBox;
Panel11: TPanel;
Label17: TLabel;
edKey: TEdit;
Label18: TLabel;
edSCourseCodes: TEdit;
Label19: TLabel;
cbSCredit: TComboBox;
edSCredit: TEdit;
Label20: TLabel;
cbSPeriod: TComboBox;
edSPeriod: TEdit;
Shape23: TShape;
Shape24: TShape;
Shape25: TShape;
Shape26: TShape;
Panel12: TPanel;
GroupBox12: TGroupBox;
DBGrid5: TDBGrid;
GroupBox13: TGroupBox;
GroupBox14: TGroupBox;
Panel13: TPanel;
Label22: TLabel;
edSCourseCode: TEdit;
Label23: TLabel;
edSStudyNo: TEdit;
GroupBox15: TGroupBox;
Panel14: TPanel;
Shape28: TShape;
Shape29: TShape;
Shape31: TShape;
Splitter5: TSplitter;
edConfirmPassword: TMaskEdit;
edPassword: TMaskEdit;
edOldPassword: TMaskEdit;
edNewPassword: TMaskEdit;
Shape33: TShape;
Label9: TLabel;
cbCourseType: TComboBox;
Label24: TLabel;
edCourseDep: TEdit;
spbtCourse: TSpeedButton;
sbptAccount: TSpeedButton;
spbtCourseSearch: TSpeedButton;
sbptScoreSearch: TSpeedButton;
spbtClass: TSpeedButton;
spbtCoursePlan: TSpeedButton;
spbtModifyCourse: TSpeedButton;
spbtDelCourse: TSpeedButton;
spbtAgreeCourse: TSpeedButton;
spbtResetCourse: TSpeedButton;
spbtNewClass: TSpeedButton;
spbtModifyClass: TSpeedButton;
spbtDelClass: TSpeedButton;
spbtResetClass: TSpeedButton;
spbtModifyPassword: TSpeedButton;
spbtNewAccount: TSpeedButton;
spbtDelAccout: TSpeedButton;
spbtResetAccount: TSpeedButton;
spbtSearchCourse: TSpeedButton;
sbptResetCourse: TSpeedButton;
sbptPrintCourse: TSpeedButton;
spbtSearchScore: TSpeedButton;
spbtResetScore: TSpeedButton;
procedure FormShow(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure tbsAccountShow(Sender: TObject);
procedure gridCourseCellClick(Column: TColumn);
procedure tbsSCourseShow(Sender: TObject);
procedure spbtCourseClick(Sender: TObject);
procedure sbptAccountClick(Sender: TObject);
procedure spbtCourseSearchClick(Sender: TObject);
procedure sbptScoreSearchClick(Sender: TObject);
procedure spbtClassClick(Sender: TObject);
procedure spbtCoursePlanClick(Sender: TObject);
procedure spbtModifyCourseClick(Sender: TObject);
procedure spbtDelCourseClick(Sender: TObject);
procedure spbtAgreeCourseClick(Sender: TObject);
procedure spbtResetCourseClick(Sender: TObject);
procedure spbtNewClassClick(Sender: TObject);
procedure spbtModifyClassClick(Sender: TObject);
procedure spbtDelClassClick(Sender: TObject);
procedure spbtResetClassClick(Sender: TObject);
procedure spbtModifyPasswordClick(Sender: TObject);
procedure spbtNewAccountClick(Sender: TObject);
procedure spbtDelAccoutClick(Sender: TObject);
procedure spbtResetAccountClick(Sender: TObject);
procedure spbtSearchCourseClick(Sender: TObject);
procedure sbptResetCourseClick(Sender: TObject);
procedure sbptPrintCourseClick(Sender: TObject);
procedure spbtResetScoreClick(Sender: TObject);
procedure spbtSearchScoreClick(Sender: TObject);
private
{ Private declarations }
public
procedure InitialDB();
procedure zeroClassInput();
procedure zeroAccountInput();
procedure OffTableActive();
procedure zeroCourseInput();
procedure zeroInputCondition();
procedure zeroInputScoreCondition;
end;
var
EduAdminMainForm: TEduAdminMainForm;
implementation
uses RestoreAndBackupMain,PrintPreviewMain,LoginMain,EduAdminDBModuleMain;
{$R *.dfm}
procedure TEduAdminMainForm.FormShow(Sender: TObject);
begin
if LoginMainForm.ShowModal = mrOk then
begin
LoginMainForm.Close;
InitialDB();
end
else
begin
loginMainForm.close;
EduAdminMainForm.Close;
end;
end;
procedure TeduAdminMainForm.InitialDB();
begin
OffTableActive();
EduAdminDBDataModule.ClassTable.TableName :='ClassTable';
EduAdminDBDataModule.ClassTable.Active :=true;
EduAdminDBDataModule.ClassTable.FieldByName('StudyYear').DisplayLabel :='学期';
EduAdminDBDataModule.ClassTable.FieldByName('Department').DisplayLabel :='系名';
EduAdminDBDataModule.ClassTable.FieldByName('ClassName').DisplayLabel :='班级';
EduAdminDBDataModule.ClassTable.FieldByName('ClassLeader').DisplayLabel :='负责人';
EduAdminDBDataModule.CourseTable.TableName :='CourseTable';
EduAdminDBDataModule.CourseTable.Active :=true;
EduAdminDBDataModule.CourseTable.FieldByName('CourseCode').DisplayLabel :='课程代码';
EduAdminDBDataModule.CourseTable.FieldByName('CourseName').DisplayLabel :='课程名称';
EduAdminDBDataModule.CourseTable.FieldByName('Credit').DisplayLabel :='学分';
EduAdminDBDataModule.CourseTable.FieldByName('Period').DisplayLabel :='学时';
EduAdminDBDataModule.Cou
上一篇:
EduAdminDBModuleMain.pas
下一篇:
让我掉下眼泪的