Разработка информационной системы по регистрации абитуриентов в учебном заведении
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
,1] = ' ') and (Form1.StringGrid1.Cells[1,1]= ' ') and (Form1.StringGrid1.Cells[2,1] = ' ') and (Form1.StringGrid1.Cells[3,1]= ' ') and (Form1.StringGrid1.Cells[4,1] = ' ') then
begin
//Происходит считывание из таблицы находящийся на форме Система
//регистрации абитуриентов в учебном заведении в таблицу формы Балы //абитуриентов
Form1.StringGrid1.Cells[0,1]:=Form5.StringGrid1.Cells[0,1];.StringGrid1.Cells[1,1]:=Form5.StringGrid1.Cells[1,1];.StringGrid1.Cells[2,1]:=Form5.StringGrid1.Cells[2,1];.StringGrid1.Cells[3,1]:=Form5.StringGrid1.Cells[3,1];(Form5.StringGrid1.Cells[9,1]) ' ' Then:=StrToInt(Form5.StringGrid1.Cells[13,i]);.StringGrid1.Cells[4,i]:=IntToStr(i1+i2+i3+i4+i5);.StringGrid1.RowCount:=j+1;:=Form1.StringGrid1.RowCount;;.Close;;;
Приложение 2
//Процедура позволяющая делать подсказкуTForm5.ShowHint(Sender: TObject);length(Application.Hint)>0 then.StatusBar1.SimplePanel:=True;.StatusBar1.SimplePanel:=False;.StatusBar1.SimplePanel:=False;;
Приложение 3
//Сохранение данныхTForm5.N3Click(Sender: TObject);: TextFile;, k: Integer;not SaveDialog1.Execute then exit;(f, SaveDialog1.FileName);(f);StringGrid1 do(f, ColCount);(f, RowCount);i := 0 to ColCount - 1 dok := 0 to RowCount - 1 do(F, Cells[i, k]);;(F);;
Приложение 4
//Все данные из таблицы экспортируются в Excel
procedure TForm5.N14Click(Sender: TObject);fontdialog1.Execute then.Font.Assign(fontdialog1.Font);;TForm5.N16Click(Sender: TObject);, WorkBook, Sheet,rows: Variant;,b,a1,b1 : integer;:=CreateOleObject('Excel.Application');.SheetsInNewWorkbook:=1;:=Excel.WorkBooks.Add;:=WorkBook.WorkSheets[1];:=StringGrid1.ColCount;:=0;:=WorkBook.WorkSheets[1].rows;.Rows[2].Font.bold:=true;.Rows[2].Font.Size:=12;a>a1 do:=StringGrid1.RowCount;:=0;b>b1 do.Cells[b1+2, a1+2]:=StringGrid1.Cells[a1, b1];:=b1+1;;:=a1+1;;.Cells.Columns.AutoFit;.Visible:=True;;
Приложение 5
//Открытие файловTForm5.N2Click(Sender: TObject);: TextFile;, i, k: Integer;: String;not OpenDialog1.Execute then exit;(f, OpenDialog1.FileName);(f);StringGrid1 do(f, iTmp);:= iTmp;(f, iTmp);:= iTmp;i := 0 to ColCount - 1 dok := 0 to RowCount - 1 do(f, strTemp);[i, k] := strTemp;;;(f);;
Приложение 6
//Добавление записей в таблицу
procedure er();
beginForm5.StringGrid1.Cells[0,1] = ' ' then:= Form5.StringGrid1.RowCount;.StringGrid1.Cells[0,1]:=form2.Edit1.Text;.StringGrid1.Cells[1,1]:=form2.Edit2.Text;
Form5.StringGrid1.Cells[2,1]:=form2.Edit3.Text;.StatusBar1.Panels[0].Text:=Form2.Edit1.Text + ' ' + Form2.Edit2.Text + ' ' + Form2.Edit3.Text + ' ' + 'добавлен в базу ';.StringGrid1.Cells[4,1]:=form2.MaskEdit1.Text;.StringGrid1.Cells[9,1]:=form13.Edit1.Text;.StringGrid1.Cells[13,1]:=form13.Edit2.Text;.StringGrid1.Cells[14,1]:=form13.Edit6.Text;
Form5.StringGrid1.Cells[16,1]:=form6.Edit1.Text;.StringGrid1.Cells[17,1]:=form6.Edit2.Text;.StringGrid1.Cells[18,1]:=form6.Edit3.Text;.StringGrid1.Cells[19,1]:=form6.Edit4.Text;.StringGrid1.Cells[20,1]:=form6.Edit5.Text;.StringGrid1.Cells[23,1]:=form8.Edit1.Text;.StringGrid1.Cells[24,1]:=form8.Edit3.Text;.StringGrid1.Cells[21,1]:=form8.Edit2.Text;.StringGrid1.Cells[22,1]:=form8.Edit4.Text;.StringGrid1.Cells[5,1]:=form12.Edit1.Text;.StringGrid1.Cells[6,1]:=form12.MaskEdit1.Text;.StringGrid1.Cells[7,1]:=form12.Edit2.Text;Form2.RadioButton1.Checked = True then.StringGrid1.Cells[8,1]:=Form2.RadioButton1.Caption.StringGrid1.Cells[8,1]:=Form2.RadioButton2.Caption;.StringGrid1.Cells[3,1]:=form13.Edit4.Text;.StringGrid1.Cells[0,1]:=form2.Edit1.Text;.StringGrid1.Cells[1,1]:=form2.Edit2.Text;.StringGrid1.Cells[2,1]:=form2.Edit3.Text;.StringGrid1.Cells[3,1]:=form13.Edit4.Text;.StringGrid1.Cells[4,1]:=form13.Edit5.Text;Form13.ComboBox1.Text = 'Физика' then.StringGrid1.Cells[10,i-1]:=Form13.Edit3.Text;Form13.ComboBox1.Text = 'Информатика' then
Form5.StringGrid1.Cells[11,i-1]:=Form13.Edit3.Text;Form13.ComboBox1.Text = 'История России' then.StringGrid1.Cells[12,i-1]:=Form13.Edit3.Text;Form4.CheckBox1.Checked = True then.StringGrid1.Cells[15,1]:=Form5.StringGrid1.Cells[15,1] + Form4.CheckBox1.Caption+ ';';Form4.CheckBox2.Checked = True then.StringGrid1.Cells[15,1]:=Form5.StringGrid1.Cells[15,1] + Form4.CheckBox2.Caption+ ';';Form4.CheckBox3.Checked = True then.StringGrid1.Cells[15,1]:=Form5.StringGrid1.Cells[15,1] + Form4.CheckBox3.Caption+ ';';Form4.CheckBox4.Checked = True then.StringGrid1.Cells[15,1]:=Form5.StringGrid1.Cells[15,1] + Form4.CheckBox4.Caption+ ';';Form4.CheckBox5.Checked = True then.StringGrid1.Cells[15,1]:=Form5.StringGrid1.Cells[15,1] + Form4.CheckBox5.Caption+ ';';.Edit1.Clear;.Edit2.Clear;.Edit3.Clear;.MaskEdit1.Clear;.Edit1.Clear;.Edit2.Clear;.Edit6.Clear;.Edit1.Clear;.Edit2.Clear;.Edit3.Clear;.Edit4.Clear;.Edit5.Clear;.Edit1.Clear;.Edit3.Clear;.Edit2.Clear;.Edit4.Clear;.Edit1.Clear;.MaskEdit1.Clear;.Edit2.Clear;.Close;;:= Form5.StringGrid1.RowCount;.StringGrid1.RowCount:= Form5.StringGrid1.RowCount+1;.StringGrid1.Cells[0,i]:=form2.Edit1.Text;.StringGrid1.Cells[1,i]:=form2.Edit2.Text;.StringGrid1.Cells[2,i]:=form2.Edit3.Text;.StatusBar1.Panels[0].Text:=Form2.Edit1.Text + ' ' + Form2.Edit2.Text + ' ' + Form2.Edit3.Text + ' ' + 'добавлен в базу ';.StringGrid1.Cells[4,i]:=form2.MaskEdit1.Text;.StringGrid1.Cells[9,i]:=form13.Edit1.Text;.StringGrid1.Cells[13,i]:=form13.Edit2.Text;.StringGrid1.Cells[14,i]:=form13.Edit6.Text;.StringGrid1.Cells[16,i]:=form6.Edit1.Text;.StringGrid1.Cells[17,i]:=form6.Edit2.Text;.StringGrid1.Cells[18,i]:=form6.Edit3.Text;.StringGrid1.Cells[19,i]:=form6.Edit4.Text;.StringGrid1.Cells[20,i]:=form6.Edit5.Text;.StringGrid1.Cells[23,i]:=form8.Edit1.Text;.StringGrid1.Cells[24,i]:=form8.Edit3.Text;.StringGrid1.Cells[21,i]:=form8.Edit2.Text;.StringGrid1.Cells[22,i]:=form8.Edit4.Text;.StringGrid1.Cells[5,i]:=form12.Edit1.Text;.StringGrid1.Cells[6,i]:=form12.MaskEdit1.Text;.StringGrid1.Cells[7,i]:=form12.Edit2.Text;Form2.RadioButton1.Checked = True then.StringGrid1.Cells[8,i]:=Form2.RadioButton1.Caption.StringGrid1.Cells[8,i]:=Form2.RadioButton2.Caption;.StringGrid1.Cells[3,i]:=form13.Edit4.Text;.StringGrid1.Cells[0,i]:=form2.Edit1.Text;.StringGrid1.Cells[1,i]:=form2.Edit2.Text;.StringGrid1.Cells[2,i]:=form2.Edit3.Text;.StringGrid1.Cells[3,i]:=form13.Edit4.Text;Form13.ComboBox1.Text = 'Физика' then.StringGrid1.Cells[10,i-1]:=Form13.Edit3.Text;Form13.ComboBox1.Text = 'Информатика' then.StringGrid1.Cells[11,i-1]:=Form13.Edit3.Text;Form13.ComboBox1.Text = 'История России' then.StringGrid1.Cells[12,i-1]:=Form13.Edit3.Text;Form4.CheckBox1.Checked = True then.StringGrid1.Cells[15,i-1]:=Form5.StringGrid1.Cells[15,i-1] + Form4.CheckBox1.Caption+ ';';Form4.CheckBox2.Checked = True then.StringGrid1.Cells[15,i-1]:=Form5.StringGrid1.Cells[15,i-1] + Form4.CheckBox2.Caption+ ';';Form4.CheckBox3.Checked = True then.StringGrid1.Cells[15,i-1]:=Form5.StringGrid1.Cells[15,i-1] + Form4.CheckBox3.Caption+ ';';Form4.CheckBox4.Checked = True then.StringGrid1.Cells[15,i-1]:=Form5.StringGrid1.Cells[15,i-1] + Form4.CheckBox4.Caption+ ';';Form4.CheckBox5.Checked = True then.StringGrid1.Cells[15,i-1]:=Form5.StringGrid1.Cells[15,i-1] + Form4.CheckBox5.Caption+ ';';.Edit1.Clear;.Edit2.Clear;.Edit3.Clear;.MaskEdit1.Clear;.Edit1.Clear;.Edit2.Clear;.Edit6.Clear;.Edit1.Clear;.Edit2.Clear;.Edit3.Clear;.Edit4.Clear;.Edit5.Clear;.Edit1.Clear;.Edit3.Clear;.Edit2.Clear;.Edit4.Clear;.Edit1.Clear;.MaskEdit1.Clear;
form12.Edit2.Clear;.Close;;
end;
Приложение 7
//поиск данных в таблице по заданным параметрам
procedure TForm14.Button1Click(Sender: TObject);, j : Integer;, Shablon1, Shablon2: String;:= Form14.Edit1.Text;:= Form14.Edit2.Text;:= Form14.Edit3.Text;Form5.StringGrid1 doj:= 1 to RowCount - 1 do(Cells[0,j] = Shablon) and (Cells[1,j] = Shablon1) and (Cells[2,j] = Shablon2)then.Show;.Caption:=Edit1.Text + ' ' + Edit2.Text + ' ' + Edit3.Text;.Edit1.Text:=Cells[0,j];.Edit2.Text:=Cells[1,j];.Edit3.Text:=Cells[2,j];.Edit4.Text:=Cells[3,j];.MaskEdit1.Text:=Cells[4,j];.Edit5.Text:=Cells[5,j];.MaskEdit2.Text:=Cells[6,j];.Edit6.Text:=Cells[7,j];.Edit7.Text:=Cells[8,j];.Edit8.Text:=Cells[9,j];.Edit9.Text:=Ce