Разработка программного средства "Портфолио педагога"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
;: TWideStringField;: TWideStringField;_NagradaOtr_Nagrada: TAutoIncField;_NagradaID_Anketa: TIntegerField;_NagradaKem_Wyd: TWideStringField;_NagradaGorod: TWideStringField;_NagradaGod: TWideStringField;_NagradaDrugoe: TWideStringField;_MatID_Avtor_Mat: TAutoIncField;_MatID_Anketa: TIntegerField;_MatProgram: TBooleanField;_MatMetod: TBooleanField;_MatPublic: TBooleanField;_MatPechat: TBooleanField;_MatElect_Res: TBooleanField;: TWideStringField;_Konc: TWideStringField;_UchID_Res_Uch: TAutoIncField;_UchID_Anketa: TIntegerField;_UchPred_Olimp: TBooleanField;_UchPred_Olimp_Ur: TWideStringField;_UchKonkurs: TBooleanField;_UchKonkurs_Ur: TWideStringField;_UchNpk: TBooleanField;_UchNpk_Ur: TWideStringField;_VneurID_Res_Vneur: TAutoIncField;_VneurID_Anketa: TIntegerField;_VneurKonkurs: TBooleanField;_VneurKonkurs_Ur: TWideStringField;_VneurKoncert: TBooleanField;_VneurKoncert_Ur: TWideStringField;_VneurVystav: TBooleanField;_VneurVystav_Ur: TWideStringField;_VneurTurnir: TBooleanField;_VneurTurnir_Ur: TWideStringField;_VneurSorevn: TBooleanField;_VneurSorevn_Ur: TWideStringField;: TStringField;: TADOQuery;: TAutoIncField;: TIntegerField;: TIntegerField;: TStringField;
{ Private declarations }
{ Public declarations };: TDM;
{$R *.dfm}.Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, Buttons, ComCtrls, StdCtrls, Grids, DBGrids, ExtDlgs;= class(TForm): TPageControl;: TTabSheet;: TTabSheet;: TLabel;: TEdit;: TDateTimePicker;: TLabel;: TListBox;: TLabel;: TSpeedButton;: TSpeedButton;: TComboBox;: TButton;: TEdit;: TLabel;: TComboBox;: TLabel;: TLabel;: TComboBox;: TListBox;: TComboBox;: TButton;: TSpeedButton;: TSpeedButton;: TLabel;: TEdit;: TUpDown;: TLabel;: TEdit;: TLabel;: TUpDown;: TLabel;: TEdit;: TDateTimePicker;: TLabel;: TTabSheet;: TPageControl;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TPanel;: TDBGrid;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TDBGrid;: TPanel;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TDBGrid;: TPanel;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TDBGrid;: TPanel;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TDBGrid;: TPanel;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TTabSheet;: TEdit;: TLabel;: TLabel;: TEdit;: TLabel;: TLabel;: TComboBox;: TPageControl;: TTabSheet;: TTabSheet;: TCheckBox;: TListBox;: TSpeedButton;: TSpeedButton;: TComboBox;: TLabel;: TLabel;: TOpenPictureDialog;: TListBox;: TSpeedButton;: TSpeedButton;: TComboBox;: TLabel;: TCheckBox;: TListBox;: TSpeedButton;: TSpeedButton;: TComboBox;: TLabel;: TCheckBox;: TLabel;: TLabel;: TCheckBox;: TComboBox;: TListBox;: TCheckBox;: TComboBox;: TListBox;: TComboBox;: TListBox: TLabel;: TLabel;: TLabel;: TSpeedButton;: TSpeedButton;: TLabel;: TSpeedButton;: TSpeedButton;: TLabel;: TLabel;: TSpeedButton;: TSpeedButton;: TTabSheet;: TCheckBox;: TLabel;: TComboBox;: TListBox;: TLabel;: TSpeedButton;: TSpeedButton;: TCheckBox;: TLabel;: TComboBox;: TListBox;: TSpeedButton;: TSpeedButton;: TLabel;: TTabSheet;: TCheckBox;: TListBox;: TSpeedButton;: TSpeedButton;: TListBox;: TCheckBox;: TListBox;: TCheckBox;: TListBox;: TCheckBox;: TListBox;: TCheckBox;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TDateTimePicker;: TLabel;: TButton;: TButton;: TStringGrid;FormActivate(Sender: TObject);SpeedButton2Click(Sender: TObject);SpeedButton3Click(Sender: TObject);Button1Click(Sender: TObject);SpeedButton1Click(Sender: TObject);SpeedButton4Click(Sender: TObject);Button2Click(Sender: TObject);Edit3KeyPress(Sender: TObject; var Key: Char);SpeedButton6Click(Sender: TObject);SpeedButton7Click(Sender: TObject);SpeedButton5Click(Sender: TObject);SpeedButton8Click(Sender: TObject);SpeedButton10Click(Sender: TObject);SpeedButton9Click(Sender: TObject);SpeedButton12Click(Sender: TObject);SpeedButton13Click(Sender: TObject);SpeedButton11Click(Sender: TObject);SpeedButton17Click(Sender: TObject);SpeedButton19Click(Sender: TObject);SpeedButton18Click(Sender: TObject);SpeedButton14Click(Sender: TObject);SpeedButton16Click(Sender: TObject);SpeedButton15Click(Sender: TObject);CheckBox1Click(Sender: TObject);SpeedButton20Click(Sender: TObject);SpeedButton21Click(Sender: TObject);CheckBox2Click(Sender: TObject);SpeedButton23Click(Sender: TObject);SpeedButton25Click(Sender: TObject);SpeedButton22Click(Sender: TObject);SpeedButton24Click(Sender: TObject);CheckBox3Click(Sender: TObject);SpeedButton31Click(Sender: TObject);SpeedButton30Click(Sender: TObject);SpeedButton28Click(Sender: TObject);SpeedButton29Click(Sender: TObject);SpeedButton27Click(Sender: TObject);SpeedButton26Click(Sender: TObject);CheckBox6Click(Sender: TObject);CheckBox5Click(Sender: TObject);CheckBox4Click(Sender: TObject);SpeedButton32Click(Sender: TObject);SpeedButton34Click(Sender: TObject);SpeedButton33Click(Sender: TObject);SpeedButton35Click(Sender: TObject);CheckBox7Click(Sender: TObject);CheckBox8Click(Sender: TObject);SpeedButton36Click(Sender: TObject);SpeedButton37Click(Sender: TObject);SpeedButton38Click(Sender: TObject);SpeedButton40Click(Sender: TObject);SpeedButton44Click(Sender: TObject);SpeedButton46Click(Sender: TObject);SpeedButton39Click(Sender: TObject);SpeedButton41Click(Sender: TObject);SpeedButton45Click(Sender: TObject);SpeedButton47Click(Sender: TObject);CheckBox9Click(Sender: TObject);CheckBox10Click(Sender: TObject);CheckBox11Click(Sender: TObject);CheckBox12Click(Sender: TObject);CheckBox13Click(Sender: TObject);FormCloseQuery(Sender: TObject; var CanClose: Boolean);Button3Click(Sender: TObject);Button4Click(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);
{ Private declarations }
{ Public declarations };: TMain;:string;MyRemoveDir(sDir : String) : Boolean;Unit1, Unit2, Unit4, Unit5, Unit6, Unit7, Unit10, Unit11;
{$R *.dfm}TMain.FormActivate(Sender: TObject);
var:integer;
//заполняем выпадающий список образований
ComboBox1.Items.Clear;.Obraz.First;not DM.Obraz.Eof do.Items.Add(DM.ObrazName.Value);.Obraz.Next;;.ItemIndex:=0;
//заполняем выпадающий список диiиплин.Items.Clear;
DM.Disc.First;not DM.Disc.Eof do.Items.Add(DM.DiscName.Value);.Disc.Next;;.ItemIndex:=0;.Items.Clear;i:=1950 to 2012 do.Items.Add(IntToStr(i));.ItemIndex:=20;;TMain.SpeedButton2Click(Sender: TObject);:integer;i:=0 to ListBox1.Items.Count-1 doListBox1.Items[i]=ComboBox1.Text then
begin(Образование уже есть в списке!);
exit;;.Items.Add(ComboBox1.Text);;TMain.SpeedButton3Click(Sender: TObject);.Items.Delete(ListBox1.ItemIndex);;TMain.Button1Click(Sender: TObject);:string;:=inputbox(Добавление образования,
Введите образование:,);nm= then exit;
//проверяем есть ли такое образование в таблице
DM.Obraz.First;not DM.Obraz.Eof doDM.ObrazName.Value=nm then
begin
ShowMessage(Такое образование уже существует!);
exit;
end;.Obraz.Next;
end;
//добавляем образование.Obraz.Append;
DM.ObrazName.Value:=nm;.Obraz.Post;(Self);;TMain.SpeedButton1Click(Sender: TObject);:integer;i:=0 to ListBox2.Items.Count-1 doListBox2.Items[i]=ComboBox5.Text then
begin(Диiиплина уже есть в списке!);
exit;;.Items.Add(ComboBox5.Text);;TMain.SpeedButton4Click(Sender: TObject);.Items.Delete(ListBox2.ItemIndex);;TMain.Button2Click(Sender: TObject);:string;:=inputbox(Добавление диiиплины,
Введите диiиплину:,);nm= then exit;
//проверяем есть ли такое образование в таблице
DM.Disc.First;not DM.Disc.Eof doDM.DiscName.Value=nm then
begin(Такая диiиплина уже существует!);
exit;;.Disc.Next;
end;
//добавляем образование.Disc.Append;
DM.DiscName.Value:=nm;.Disc.Post;(Self);;TMain.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
//ограничение на ввод - только цифры
if not (key in[0,1,2,3,4,5,6,7,8,char(8),9]) then key:=#0;;TMain.SpeedButton6Click(Sender: TObject);.Caption:=Добавление гос награды;.Tag:=0;.Edit1.Text:=;.Edit2.Text:=;.Memo1.Text:=;.ShowModal;;TMain.SpeedButton7Click(Sender: TObject);
//если нет записей выходимDM.Nagrada.RecordCount=0 then exit;.Caption:=Изменение гос награды;.Tag:=1;.Edit1.Text:=DM.NagradaKem_Vydana.Value;.Edit2.Text:=DM.NagradaGorod.Value;.ComboBox1.Text:=Dm.NagradaGod.Value;.Memo1.Text:=DM.NagradaDrugoe.Value;.ShowModal;;TMain.SpeedButton5Click(Sender: TObject);
//если нет записей выходимDM.Nagrada.RecordCount=0 then exit;
if messagedlg(Вы действительно хотите удалить гос награду №
+inttostr(DM.NagradaID_Nagrada.value)+?
,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin.Nagrada.Delete;;;TMain.SpeedButton8Click(Sender: TObject);
//если нет записей выходимDM.Otr_Nagrada.RecordCount=0 then exit;
if messagedlg(Вы действительно хотите удалить отр награду №
+inttostr(DM.Otr_NagradaOtr_Nagrada.value)+?
,Mtconfirmation, [