АРМ дежурного воспитателя

РефератПомощь в написанииУзнать стоимостьмоей работы

Рисунок 2. Таблица dat после заполнения данными Формы Рисунок 3. Главная форма программы «Тизме». ADOQuery1.SQL.Add ('UPDATE dat SET Жума = '''+combobox3.Text+''', Ишемби = '''+combobox3.Text+''' where Классы=:p1 and Тобу =:p2'); Таблицы База данных АРМ дежурного воспитателя включает в себя следующую таблицу. ADOQuery1.SQL.Add (memo1.Text+' where Классы=:p1 and Тобу=:p2 and Ишемби="Кетпейт… Читать ещё >

АРМ дежурного воспитателя (реферат, курсовая, диплом, контрольная)

В данной курсовой работе разработана база данных Автоматизированное рабочее место дежурного воспитателя в Таласского мужского лицея «Манас Ата-Себат» .

1.1.1. Таблицы База данных АРМ дежурного воспитателя включает в себя следующую таблицу.

· Dat.

Рисунок 1. Таблица date.

Рисунок 2. Таблица dat после заполнения данными Формы Рисунок 3. Главная форма программы «Тизме» .

Рисунок 4. Редактирование одного класса.

Рисунок 5. Окно добавления нового ученика.

Рисунок 6. Окно редактирования ФИО и класса.

Рисунок 7. Панель управления.

Рисунок 8. Кнопки манипулирования данными.

Рисунок 9. Отчет 1.

Рисунок 10. Отчет 2.

Рисунок 11. Отчет 3.

Рисунок 12. Шкала для изменения размера шрифта.

Рисунок 13. Окно о программе Код программы.

unit main;

interface.

uses.

Winapi.Windows, Winapi. Messages, System. SysUtils, System. Variants, System. Classes, Vcl. Graphics,.

Vcl.Controls, Vcl. Forms, Vcl. Dialogs, Vcl. ExtCtrls, Vcl. StdCtrls, Data. DB,.

Vcl.Grids, Vcl. DBGrids, Data.Win.ADODB, frxClass, frxDBSet, frxExportImage,.

frxExportRTF, frxExportPDF, System. ImageList, Vcl. ImgList, sSkinManager, acPNG,.

Vcl.Menus, Vcl. ComCtrls;

type.

TForm1 = class (TForm).

Panel1: TPanel;

Panel3: TPanel;

GroupBox1: TGroupBox;

CheckBox1: TCheckBox;

Button1: TButton;

ADOConnection1: TADOConnection;

DBGrid1: TDBGrid;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

frxPDFExport1: TfrxPDFExport;

frxRTFExport1: TfrxRTFExport;

frxJPEGExport1: TfrxJPEGExport;

GroupBox2: TGroupBox;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

ImageList1: TImageList;

DataSource1: TDataSource;

GroupBox4: TGroupBox;

Memo1: TMemo;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

ADOQuery1: TADOQuery;

ADOQuery1id: TAutoIncField;

ADOQuery1Классы: TWideStringField;

ADOQuery1Тобу: TWideStringField;

ADOQuery1Атыж?н?: TWideStringField;

ADOQuery1Жума: TWideStringField;

ADOQuery1Ишемби: TWideStringField;

ADOQuery1Колу1: TStringField;

ADOQuery1Сааты1: TStringField;

ADOQuery1Колу2: TStringField;

ADOQuery1Сааты2: TStringField;

Label1: TLabel;

frxDBDataset1: TfrxDBDataset;

frxReport1: TfrxReport;

sSkinManager1: TsSkinManager;

Button6: TButton;

Button7: TButton;

GroupBox3: TGroupBox;

RadioButton4: TRadioButton;

RadioButton5: TRadioButton;

RadioButton6: TRadioButton;

frxReport2: TfrxReport;

PopupMenu1: TPopupMenu;

R1: TMenuItem; хранение информация программный обеспечение.

N1: TMenuItem;

N2: TMenuItem;

ComboBox3: TComboBox;

Label2: TLabel;

N3: TMenuItem;

CheckBox2: TCheckBox;

frxReport3: TfrxReport;

TrackBar1: TTrackBar;

procedure Button3Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure CheckBox1Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button6Click (Sender: TObject);

procedure Button7Click (Sender: TObject);

procedure DBGrid1DblClick (Sender: TObject);

procedure FormShow (Sender: TObject);

procedure frxReport1GetValue (const VarName: string; var Value: Variant);

procedure R1Click (Sender: TObject);

procedure N1Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure ComboBox3Change (Sender: TObject);

procedure ComboBox3MouseLeave (Sender: TObject);

procedure TrackBar1Change (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form1: TForm1;

implementation.

{$R *.dfm}.

uses addandedit, gitkal, ABOUT;

procedure TForm1. Button1Click (Sender: TObject);

begin.

if radiobutton6. Checked=true then.

begin.

if radiobutton1. Checked=true then.

begin.

if checkbox2. Checked=true then.

frxReport2.ShowReport ().

else.

frxReport3.ShowReport ();

end.

else.

frxReport1.ShowReport ();

end.

else.

begin.

if checkbox2. Checked=true then.

frxReport2.ShowReport ().

else.

frxReport3.ShowReport ();

end;

procedure TForm1. Button2Click (Sender: TObject);

begin.

Form2.ShowModal;

end;

procedure TForm1. Button3Click (Sender: TObject);

begin.

ADOQuery1.Delete;

ADOQuery1.Refresh;

CheckBox1.OnClick (sender);

end;

procedure TForm1. Button4Click (Sender: TObject);

begin.

ADOQuery1.Append;

Form3.ShowModal;

end;

procedure TForm1. Button5Click (Sender: TObject);

begin.

Form3.ShowModal;

end;

procedure TForm1. Button6Click (Sender: TObject);

begin.

aboutbox.ShowModal;

end;

procedure TForm1. Button7Click (Sender: TObject);

begin.

close;

end;

procedure TForm1. CheckBox1Click (Sender: TObject);

begin.

if checkbox1. Checked=true then.

begin.

combobox1.Enabled:=false;

combobox2.Enabled:=false;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

if radiobutton1. Checked=true then.

begin.

if radiobutton4. Checked=true then.

begin.

ADOQuery1Жума.Visible:=true;

ADOQuery1Ишемби.Visible:=false;

ADOQuery1.SQL.Add (memo1.Text+' where Жума="Кетпейт" order by Классы, Тобу');

end;

if radiobutton5. Checked=true then.

begin.

ADOQuery1Жума.Visible:=false;

ADOQuery1Ишемби.Visible:=true;

ADOQuery1.SQL.Add (memo1.Text+' where Ишемби="Кетпейт" order by Классы, Тобу');

end;

if radiobutton6. Checked=true then.

begin.

ADOQuery1Жума.Visible:=true;

ADOQuery1Ишемби.Visible:=true;

ADOQuery1.SQL.Add (memo1.Text+' where Жума="Кетпейт" or Ишемби="Кетпейт" order by Классы, Тобу');

end;

if radiobutton2. Checked=true then.

begin.

if radiobutton4. Checked=true then.

begin.

ADOQuery1Жума.Visible:=true;

ADOQuery1Ишемби.Visible:=false;

ADOQuery1.SQL.Add (memo1.Text+' where Жума="Кетет" order by Классы, Тобу');

end;

if radiobutton5. Checked=true then.

begin.

ADOQuery1Жума.Visible:=false;

ADOQuery1Ишемби.Visible:=true;

ADOQuery1.SQL.Add (memo1.Text+' where Ишемби="Кетет" order by Классы, Тобу');

end;

if radiobutton6. Checked=true then.

begin.

ADOQuery1Жума.Visible:=true;

ADOQuery1Ишемби.Visible:=true;

ADOQuery1.SQL.Add (memo1.Text+' where Ишемби="Кетет" or Жума="Кетет" order by Классы, Тобу');

end;

if radiobutton3. Checked=true then.

begin.

ADOQuery1.SQL.Add (Memo1.Text+' order by Классы, Тобу');

end;

ADOQuery1.Active:=true;

ADOQuery1.ExecSQL;

label1.Caption:='Окуучулардын саны: '+ADOQuery1.RecordCount.ToString ();

end;

if checkbox1. Checked=false then.

begin.

combobox1.Enabled:=true;

combobox2.Enabled:=true;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

if radiobutton1. Checked=true then.

begin.

if radiobutton4. Checked=true then.

begin.

ADOQuery1Жума.Visible:=true;

ADOQuery1Ишемби.Visible:=false;

ADOQuery1.SQL.Add (memo1.Text+' where Классы=:p1 and Тобу=:p2 and Жума="Кетпейт" order by Классы, Тобу');

end;

if radiobutton5. Checked=true then.

begin.

ADOQuery1Жума.Visible:=false;

ADOQuery1Ишемби.Visible:=true;

ADOQuery1.SQL.Add (memo1.Text+' where Классы=:p1 and Тобу=:p2 and Ишемби="Кетпейт" order by Классы, Тобу');

end;

if radiobutton6. Checked=true then.

begin.

ADOQuery1Жума.Visible:=true;

ADOQuery1Ишемби.Visible:=true;

ADOQuery1.SQL.Add (memo1.Text+' where Классы=:p1 and Тобу=:p2 and Жума="Кетпейт" or Классы=:p1 and Тобу=:p2 and Ишемби="Кетпейт" order by Классы, Тобу');

end;

if radiobutton2. Checked=true then.

begin.

if radiobutton4. Checked=true then.

begin.

ADOQuery1Жума.Visible:=true;

ADOQuery1Ишемби.Visible:=false;

ADOQuery1.SQL.Add (memo1.Text+' where Классы=:p1 and Тобу=:p2 and Жума="Кетет" order by Классы, Тобу');

end;

if radiobutton5. Checked=true then.

begin.

ADOQuery1Жума.Visible:=false;

ADOQuery1Ишемби.Visible:=true;

ADOQuery1.SQL.Add (memo1.Text+' where Классы=:p1 and Тобу=:p2 and Ишемби="Кетет" order by Классы, Тобу');

end;

if radiobutton6. Checked=true then.

begin.

ADOQuery1Жума.Visible:=true;

ADOQuery1Ишемби.Visible:=true;

ADOQuery1.SQL.Add (memo1.Text+' where Классы=:p1 and Тобу=:p2 and Ишемби="Кетет" or Классы=:p1 and Тобу=:p2 and Жума="Кетет" order by Классы, Тобу');

end;

if radiobutton3. Checked=true then.

ADOQuery1.SQL.Add (memo1.Text+'where Классы=:p1 and Тобу=:p2 order by Классы, Тобу');

ADOQuery1.Parameters.ParamByName ('p1').Value:=ComboBox1.Text;

ADOQuery1.Parameters.ParamByName ('p2').Value:=ComboBox2.Text;

ADOQuery1.Active:=true;

ADOQuery1.ExecSQL;

label1.Caption:='Окуучулардын саны: '+ADOQuery1.RecordCount.ToString ();

end;

procedure TForm1. ComboBox3Change (Sender: TObject);

var stxt, stxt1: string;

begin.

if Checkbox1. Checked=true then.

begin.

if radiobutton3. Checked=true then.

begin.

stxt:=adoquery1.SQL.Text;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

if radiobutton4. Checked=true then.

ADOQuery1.SQL.Add ('UPDATE dat SET Жума = '''+combobox3.Text+'''');

if radiobutton5. Checked=true then.

ADOQuery1.SQL.Add ('UPDATE dat SET Ишемби = '''+combobox3.Text+'''');

if radiobutton6. Checked=true then.

ADOQuery1.SQL.Add ('UPDATE dat SET Жума = '''+combobox3.Text+''', Ишемби = '''+combobox3.Text+'''');

ADOQuery1.ExecSQL;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add (stxt);

ADOQuery1.Open;

end.

else.

showmessage ('К?рс?т?лс?н тобунан баарын тандап, кайра аракет кылы? ыз!');

end.

else.

begin.

if radiobutton3. Checked=true then.

begin.

stxt1:=adoquery1.SQL.Text;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

if radiobutton4. Checked=true then.

ADOQuery1.SQL.Add ('UPDATE dat SET Жума = '''+combobox3.Text+''' where Классы=:p1 and Тобу=:p2');

if radiobutton5. Checked=true then.

ADOQuery1.SQL.Add ('UPDATE dat SET Ишемби = '''+combobox3.Text+''' where Классы=:p1 and Тобу=:p2');

if radiobutton6. Checked=true then.

ADOQuery1.SQL.Add ('UPDATE dat SET Жума = '''+combobox3.Text+''', Ишемби = '''+combobox3.Text+''' where Классы=:p1 and Тобу =:p2');

ADOQuery1.Parameters.ParamByName ('p1').Value:=ComboBox1.Text;

ADOQuery1.Parameters.ParamByName ('p2').Value:=ComboBox2.Text;

ADOQuery1.ExecSQL;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add (stxt1);

ADOQuery1.Open;

end.

else.

showmessage ('К?рс?т?лс?н тобунан баарын тандап, кайра аракет кылы? ыз!');

end;

checkbox1.OnClick (Sender);

end;

procedure TForm1. ComboBox3MouseLeave (Sender: TObject);

begin.

ComboBox3.Text:='';

end;

procedure TForm1. DBGrid1DblClick (Sender: TObject);

begin.

Form2.ShowModal;

end;

procedure TForm1. FormShow (Sender: TObject);

begin.

label1.Caption:='Окуучулардын саны: '+ADOQuery1.RecordCount.ToString ();

trackbar1.Position:=DBGrid1.Font.Size;

end;

procedure TForm1. frxReport1GetValue (const VarName: string; var Value: Variant);

begin.

if CompareText (VarName, 'My Variable 1') = 0 then.

begin.

if checkbox1. Checked=true then.

Value := 'Баардык класстар';

if checkbox1. Checked=false then.

Value:=combobox1.Text+'-'+combobox2.Text+' классы';

end;

if CompareText (VarName, 'My Variable 2') = 0 then.

begin.

if radiobutton4. Checked=true then.

Value:=radiobutton4.Caption;

if radiobutton5. Checked=true then.

Value:=radiobutton5.Caption;

if radiobutton6. Checked=true then.

Value:=radiobutton6.Caption;

end;

if CompareText (VarName, 'My Variable 3') = 0 then.

begin.

if radiobutton1. Checked=true then.

Value:=radiobutton1.Caption;

if radiobutton2. Checked=true then.

Value:=radiobutton2.Caption;

if radiobutton3. Checked=true then.

Value:=radiobutton3.Caption;

end;

if CompareText (VarName, 'My Variable 4') = 0 then.

Value:='Жума, Ишемби';

end;

procedure TForm1. N1Click (Sender: TObject);

begin.

Form3.ShowModal;

end;

procedure TForm1. N2Click (Sender: TObject);

begin.

ADOQuery1.Delete;

ADOQuery1.Refresh;

end;

procedure TForm1. R1Click (Sender: TObject);

begin.

Form2.ShowModal;

end;

procedure TForm1. TrackBar1Change (Sender: TObject);

begin.

DBGrid1.Font.Size:=trackbar1.Position;

end;

end.

Показать весь текст

Заполнить форму текущей работой