cmainunit.pas

实例4学院信息管理系统 - RAR 档案文件

unit CMainUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids, Db, ComCtrls, Tabnotbk, Menus, ActnList,
  StdActns;

type
  TMainForm = class(TForm)
    MainMenuMain: TMainMenu;
    ZengJia: TMenuItem;
    XiuGai: TMenuItem;
    N3: TMenuItem;
    KeCheng: TMenuItem;
    N5: TMenuItem;
    ChengJi: TMenuItem;
    TuiChu: TMenuItem;
    ActionListMain: TActionList;
    OnClose: TAction;
    S_Add: TAction;
    S_MD: TAction;
    S_Course: TAction;
    S_Grade: TAction;
    XiTong: TMenuItem;
    SYS_Year: TAction;
    XueYuan: TMenuItem;
    //procedure Button1Click(Sender: TObject);
    procedure OnCloseExecute(Sender: TObject);
    procedure S_AddExecute(Sender: TObject);
    procedure S_MDExecute(Sender: TObject);
    procedure S_CourseExecute(Sender: TObject);
    procedure S_GradeExecute(Sender: TObject);
    procedure SYS_YearExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}
uses CDMUnit,
     S_AddUnit,
     S_MDUnit,
     S_CourseUnit,
     S_GradeUnit,
     SYS_YearUnit;


{procedure TMainForm.Button1Click(Sender: TObject);
begin
  {}
  //CDM.ClientDataSet1.CommandText:='Select * from syspramtb';
  //CDM.DCOMConnection1.Connected:=not CDM.DCOMConnection1.Connected;
 { with CDM.ClientDataSetPram do
  begin
    Close;
    CommandText:='Select * from syspramtb';
    Open;
{
    StringGrid1.ColCount:=RecordCount;
    First;
    for i:=0 to RecordCount-1 do
    begin
      tfylx.Add(FieldByName('FYLX').AsString);
      StringGrid1.Cells[i,0]:=FieldByName('FYMC').AsString;
      Next;
    end;
 }
{  end;
end; }

procedure TMainForm.OnCloseExecute(Sender: TObject);
begin
  {退出}
  Close;
end;

procedure TMainForm.S_AddExecute(Sender: TObject);
var fo:TS_AddForm;
begin
  {增加学员}
  Try
    fo:=TS_AddForm.Create(Self);
    fo.ShowModal;
  Finally
    fo.Free;
  End;
end;

procedure TMainForm.S_MDExecute(Sender: TObject);
var fo:TS_MDForm;
begin
  {修改学员基本信息}
  Try
    fo:=TS_MDForm.Create(Self);
    fo.ShowModal;
  Finally
    fo.Free;
  End;
end;

procedure TMainForm.S_CourseExecute(Sender: TObject);
var fo:TS_CourseForm;
begin
  {学员课程信息}
  Try
    fo:=TS_CourseForm.Create(Self);
    fo.ShowModal;
  Finally
    fo.Free;
  End;
end;

procedure TMainForm.S_GradeExecute(Sender: TObject);
var fo:TS_GradeForm;
begin
  {学员课程成绩}
  Try
    fo:=TS_GradeForm.Create(Self);
    fo.ShowModal;
  Finally
    fo.Free;
  End;
end;

procedure TMainForm.SYS_YearExecute(Sender: TObject);
var fo:TSYS_YearForm;
begin
  {修改系统年度参数}
  Try
{  with CDM.ClientDataSetYear do
  begin
    Close;
    CommandText:='Select * from syspramtb';
    Open;
  end;}
    fo:=TSYS_YearForm.Create(Self);
    fo.ShowModal;
  Finally
    fo.Free;
  End;
end;

end.