Разработка программного продукта

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

Image1: TImage;

DBGrid1: TDBGrid;

DBLookupComboBox1: TDBLookupComboBox;

procedure N4Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure DBLookupComboBox1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

procedure DBLookupComboBox1MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

Form19: TForm19;

Unit1, DataModule, Unit4, ydalenie_prakt, prakt_append, Prakt_edit,

Registr;

{$R *.dfm}

TForm19.N4Click(Sender: TObject);

close;

Form1.Visible:=true;

Form29.Visible:=false;;

TForm19.FormClose(Sender: TObject; var Action: TCloseAction);

Form1.Visible:=true;

Form29.Visible:=false;;

TForm19.DBLookupComboBox1Click(Sender: TObject);

DM.dsetlesson.Active:=false;

DM.dsetlesson.ParamByName('par').AsInteger:=DBLookupComboBox1.KeyValue;

DM.dsetlesson.Active:=true;

Form19.DBGrid1.Refresh;

DM.dsetPrakt.Active:=false;.dsetPrakt.ParamByName('parametr').AsInteger:=DBLookupComboBox1.KeyValue;

DM.dsetPrakt.Active:=true;

Form19.DBGrid1.Refresh;;

TForm19.N1Click(Sender: TObject);Length(Form19.DBLookupComboBox1.Text)=0 then

begin

ShowMessage('Вы не выбрали тему!');

Form21.Visible:=false;

end

begin

Form21.Visible:=true;

Form19.Visible:=false;

end;;

TForm19.N2Click(Sender: TObject);

r:integer;

if Length(Form19.DBLookupComboBox1.Text)=0 then

begin

r:=MessageDlg('Вы не выбрали тему!',mtConfirmation,[mbOk],0);

end

else

begin

Form20.Visible:=true;

end;;

TForm19.N3Click(Sender: TObject);Length(Form19.DBLookupComboBox1.Text)=0 then

begin

ShowMessage('Вы не выбрали тему!');

end

begin

Form22.Visible:=true;

Form19.Visible:=false;

end;;

TForm19.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

// Красим нечетные строки

IF TDBGrid(Sender).DataSource.DataSet.RecNo mod 2 = 1

Then TDBGrid(Sender).Canvas.Brush.Color:= clMoneyGreen;

// Восстанавливаем выделение текущей позиции курсора

IF gdSelected IN State Then

Begin

TDBGrid(Sender).Canvas.Brush.Color:= clHighLight;

TDBGrid(Sender).Canvas.Font.Color := clHighLightText;

End;

// Просим GRID перерисоваться самому

TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);;

TForm19.DBLookupComboBox1MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

DM.dsetTema.FetchAll;;

end.

//Форма для темы урока

unit Tema;

interface

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, DBGrids, Menus, ExtCtrls, DBCtrls, jpeg,

Buttons;

TForm5 = class(TForm)

DBGrid1: TDBGrid;

MainMenu1: TMainMenu;

N1: TMenuItem;

DBNavigator1: TDBNavigator;

Image1: TImage;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

BitBtn1: TBitBtn;

procedure N1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

procedure N4Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

Form5: TForm5;

DataModule, Unit1, Registr;

{$R *.dfm}

TForm5.N1Click(Sender: TObject);

DM.dsetTema.Append;;

TForm5.FormClose(Sender: TObject; var Action: TCloseAction);

Form1.Visible:=true;

Form29.Visible:=false;;

TForm5.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

// Красим нечетные строки

IF TDBGrid(Sender).DataSource.DataSet.RecNo mod 2 = 1

Then TDBGrid(Sender).Canvas.Brush.Color:=RGB($CC,$CC,$99);

// Восстанавливаем выделение текущей позиции курсора

IF gdSelected IN State Then

Begin

TDBGrid(Sender).Canvas.Brush.Color:= clHighLight;

TDBGrid(Sender).Canvas.Font.Color := clHighLightText;

End;

// Просим GRID перерисоваться самому

TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);;

TForm5.N4Click(Sender: TObject);

close;

Form1.Visible:=true;

Form29.Visible:=false;;

TForm5.N2Click(Sender: TObject);

DM.dsetTema. Delete;;

TForm5.N3Click(Sender: TObject);

DM.dsetTema. Edit;;

TForm5.BitBtn1Click(Sender: TObject);

DM.dsetTema.Refresh;;

.

//DataModuleDataModule;

SysUtils, Classes, IBDatabase, DB, IBCustomDataSet;

TDM = class(TDataModule)

dbDiplom: TIBDatabase;

trDiplom: TIBTransaction;

dsetTema: TIBDataSet;

dsTema: TDataSource;

dsetLesson: TIBDataSet;

dsLesson: TDataSource;

dsetTemaID: TIntegerField;

dsetTemaNAME_LESSON: TIBStringField;

dsetPodtema: TIBDataSet;

dsPodtema: TDataSource;

dsetLessonID: TIntegerField;

dsetLessonID_TEMA_LESSON: TIntegerField;

dsetLessonTHEORY: TIBStringField;

dsetLessonPICTURE1: TBlobField;

dsetLessonPODTEMA: TIBStringField;

dsetLessonID_TYPE_LESSON: TSmallintField;

dsetLessonPICTURE2: TBlobField;

dsetPodtemaID: TIntegerField;

dsetPodtemaID_TEMA_LESSON: TIntegerField;

dsetPodtemaTHEORY: TIBStringField;

dsetPodtemaPICTURE1: TBlobField;

dsetPodtemaPODTEMA: TIBStringField;

dsetPodtemaID_TYPE_LESSON: TSmallintField;

dsetPodtemaPICTURE2: TBlobField;

dsLessonPupil: TDataSource;

dsetLessonPupil: TIBDataSet;

dsetLessonPupilID: TIntegerField;

dsetLessonPupilID_TEMA_LESSON: TIntegerField;

dsetLessonPupilTHEORY: TIBStringField;

dsetLessonPupilPICTURE1: TBlobField;

dsetLessonPupilPODTEMA: TIBStringField;

dsetLessonPupilID_TYPE_LESSON: TSmallintField;

dsetLessonPupilPICTURE2: TBlobField;

dsPrakt: TDataSource;

dsetPrakt: TIBDataSet;

dsetPraktID: TIntegerField;

dsetPraktID_TEMA_LESSON: TIntegerField;

dsetPraktNAME_PRAKT: TIBStringField;

dsetPraktTHEORY_PRAKT: TIBStringField;

dsetPraktPICTURE1_PRAKT: TBlobField;

dsetPraktPICTURE2_PRAKT: TBlobField;

dsRegistr: TDataSource;

dsetRegistr: TIBDataSet;

dsetRegistrID: TIntegerField;

dsetRegistrLOGIN: TIBStringField;

dsetRegistrPASS: TIBStringField;

procedure DataModuleCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

DM: TDM;

IdUser:smallint;

{$R *.dfm}

TDM.DataModuleCreate(Sender: TObject);

DM.dbDiplom.Connected:=True;

DM.trDiplom.Active:=True;

DM.dsetTema.Active:=True;

DM.dsetlesson.Active:=True;

DM.dsetPodtema.Active:=True;

DM.dsetLessonPupil.Active:=True;

DM.dsetPrakt.Active:=True;

DM.dsetRegistr.Active:=true;

;

end.

//Форма для изменения данных Практических

unit Prakt_edit;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, DBCtrls, Grids, DBGrids, Mask, ExtDlgs, jpeg,

ExtCtrls;

TForm22 = class(TForm)

DBEdit1: TDBEdit;

DBGrid1: TDBGrid;

DBMemo1: TDBMemo;

DBImage1: TDBImage;

DBImage2: TDBImage;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

OpenPictureDialog1: TOpenPictureDialog;

Image1: TImage;

procedure FormActivate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure DBImage1Click(Sender: TObject);

procedure DBImage2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

Form22: TForm22;

DataModule, Prakticheskie;

 

• Назад
• 1
• 2
• 3
• 4
• 5
• 6
• 7
• 8
• 9
• Далее