Курсовой проект - Системний аналіз процесу обліку пацієнтів в медучному закладі
Подождите немного. Документ загружается.
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=6;
Colum.Columns[5].ColumnWidth:=5;
Colum.Columns[6].ColumnWidth:=12;
Colum:=XLApp.Workbooks[1].WorkSheets['Звіт'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clGreen;
Colum.Rows[1].Font.Size:=20;
Colum.Rows[1].Font.Italic:=true;
Sheet:=XLApp.Workbooks[1].WorkSheets['Звіт'];
index:=4;
DataModule4.TovaruTable.First;
index:=3;
for i:=0 to DataModule4.TovaruTable.RecordCount-1 do
begin
Sheet.Cells[index,1]:=DataModule4.TovaruTable.Fields.Fields[1].AsString;
Sheet.Cells[index,2]:=DataModule4.TovaruTable.Fields.Fields[2].AsString;
Sheet.Cells[index,3]:=DataModule4.TovaruTable.Fields.Fields[3].AsString;
Sheet.Cells[index,4]:=DataModule4.TovaruTable.Fields.Fields[4].AsString;
Sheet.Cells[index,5]:=DataModule4.TovaruTable.Fields.Fields[5].AsString;
Sheet.Cells[index,6]:=DataModule4.TovaruTable.Fields.Fields[6].AsString;
Inc(index);
DataModule4.TovaruTable.Next;
end;
end;
procedure TForm1.N41Click(Sender: TObject);
const
MenuColors: array[0..5] of TColor =(clBlack, clRed,
clGreen, clYellow, clBlue, clPurple);
begin
//Перейти в режим редактирования поля
DataModule4.TovaruTable.Edit;
//Заношу в поле Color выбранный цвет
DataModule4.TovaruTableColor.AsString:=
ColorToString(MenuColors[1]);
//Запомнить изменения
DataModule4.TovaruTable.Post;
end;
procedure TForm1.N15Click(Sender: TObject);
31
const
MenuColors: array[0..5] of TColor =(clBlack, clRed,
clGreen, clYellow, clBlue, clPurple);
begin
//Перейти в режим редактирования поля
DataModule4.TovaruTable.Edit;
//Заношу в поле Color выбранный цвет
DataModule4.TovaruTableColor.AsString:=
ColorToString(MenuColors[2]);
//Запомнить изменения
DataModule4.TovaruTable.Post;
end;
procedure TForm1.N16Click(Sender: TObject);
const
MenuColors: array[0..5] of TColor =(clBlack, clRed,
clGreen, clYellow, clBlue, clPurple);
begin
//Перейти в режим редактирования поля
DataModule4.TovaruTable.Edit;
//Заношу в поле Color выбранный цвет
DataModule4.TovaruTableColor.AsString:=
ColorToString(MenuColors[3]);
//Запомнить изменения
DataModule4.TovaruTable.Post;
end;
procedure TForm1.N13Click(Sender: TObject);
const
MenuColors: array[0..5] of TColor =(clBlack, clRed,
clGreen, clYellow, clBlue, clPurple);
begin
//Перейти в режим редактирования поля
DataModule4.TovaruTable.Edit;
//Заношу в поле Color выбранный цвет
DataModule4.TovaruTableColor.AsString:=
ColorToString(MenuColors[0]);
//Запомнить изменения
DataModule4.TovaruTable.Post;
end;
32
procedure TForm1.N17Click(Sender: TObject);
const
MenuColors: array[0..5] of TColor =(clBlack, clRed,
clGreen, clYellow, clBlue, clPurple);
begin
//Перейти в режим редактирования поля
DataModule4.TovaruTable.Edit;
//Заношу в поле Color выбранный цвет
DataModule4.TovaruTableColor.AsString:=
ColorToString(MenuColors[4]);
//Запомнить изменения
DataModule4.TovaruTable.Post;
end;
procedure TForm1.N22Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.N24Click(Sender: TObject);
begin
Pro_prog.ShowModal;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Case ComboBox1.ItemIndex of
0:
Begin
DataModule4.TovaruTable.Locate('ПІБ',Edit1.Text,[loCaseInsensitive,loPartialKey]);
end;
1:
Begin
DataModule4.TovaruTable.Locate('Діагноз',Edit1.Text,[loCaseInsensitive,loPartialKey]);
end;
2:
Begin
DataModule4.TovaruTable.Locate('Телефон',Edit1.Text,[loCaseInsensitive,loPartialKey]);
end;
3:
33
Begin
DataModule4.FindQuery1.Active:=false;
DataModule4.FindQuery1.Parameters.ParamByName('Tovaru').Value:=
Edit1.Text;
DataModule4.FindQuery1.Active:=true;
FindResultForm.ShowModal;
DataModule4.TovaruTable.Locate('Ціна',Edit1.Text,[loCaseInsensitive,loPartialKey]);
FindResultForm.ShowModal;
end;
//procedure TForm1.N25Click(Sender: TObject);
begin
Panel1.Visible:=true;
end;
//procedure TForm1.Image5Click(Sender: TObject);
begin
Panel1.Visible:=false;
end;
//procedure TForm1.Image4Click(Sender: TObject);
begin
Panel1.Visible:=false;
end;
//procedure TForm1.Image3Click(Sender: TObject);
begin
Panel1.Visible:=false;
end;
end;
procedure TForm1.N25Click(Sender: TObject);
begin
Panel1.Visible:=True;
end;
procedure TForm1.ScrenSaver1Click(Sender: TObject);
begin
SendMessage(Application.Handle,WM_SYSCOMMAND, SC_SCREENSAVE, 1);
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
34
begin
Label2.Visible:=false;
Label3.Visible:=true;
end;
procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label3.Visible:=true;
Label2.Visible:=false;
end;
procedure TForm1.Label3MouseLeave(Sender: TObject);
begin
Label2.Visible:=True;
Label3.Visible:=false;
end;
procedure TForm1.Button2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
//form1.TTovaru.IndexFieldNames:=Form1.DBGrid1.SelectedField.FieldName;
end;
//procedure TForm1.DBGrid1DblClick(Sender: TObject);
//begin
//For
//end;
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
Form7.Show;
end;
procedure TForm1.WebBrowser1Click(Sender: TObject);
begin
Form9.Show;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
35
q:=' **** Медичний заклад **** ';
end;
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
Case ComboBox2.ItemIndex of
0:
begin
if Length(FindEdit1.Text)>0 then
DataModule4.TovaruTable.Filtered:=true
else
DataModule4.TovaruTable.Filtered:=false;
DataModule4.TovaruTable.Filter:='ПІБ>'''+FindEdit1.Text+'''';
end;
1:
begin
if Length(FindEdit1.Text)>0 then
DataModule4.TovaruTable.Filtered:=true
else
DataModule4.TovaruTable.Filtered:=false;
DataModule4.TovaruTable.Filter:='Скарги>'''+FindEdit1.Text+'''';
end;
{2:
begin
if Length(FindEdit1.Text)>0 then
DataModule4.TovaruTable.Filtered:=true
else
DataModule4.TovaruTable.Filtered:=false;
DataModule4.TovaruTable.Filter:='Телефон>'''+FindEdit1.Text+'''';
end;
3:
begin
if Length(FindEdit1.Text)>0 then
DataModule4.TovaruTable.Filtered:=true
else
DataModule4.TovaruTable.Filtered:=false;
DataModule4.TovaruTable.Filter:='Ціна>'''+FindEdit1.Text+'''';
end;
5:
begin
if Length(FindEdit1.Text)>0 then
DataModule4.TovaruTable.Filtered:=true
else
36
DataModule4.TovaruTable.Filtered:=false;
DataModule4.TovaruTable.Filter:='Chiste>'''+FindEdit1.Text+'''';
end;}
end;
end;
procedure TForm1.N40Click(Sender: TObject);
begin
Panel1.Visible:=True;
end;
procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
if Application.MessageBox(PChar('Ви справді хочеш вийти '), 'Вихід з програми',
MB_OKCANCEL)=id_OK then
Close;
end;
procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
//DataModule4.TovaruTable.;
end;
procedure TForm1.SpeedButton10Click(Sender: TObject);
begin
Form9.Show;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
Application.Title:=q;
Form1.Caption:=q;
for i:=1to(Length(q)-1) do
q[i]:=Application.Title[i+1];
q[Length(q)]:=Application.Title[1];
end;
end.
37
unit Unit3;
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, jpeg, ExtCtrls, Buttons;
type
TForm3 = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
Image1: TImage;
GroupBox3: TGroupBox;
DBMemo1: TDBMemo;
BitBtn2: TBitBtn;
BitBtn1: TBitBtn;
BitBtn3: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit2;
{$R *.dfm}
38
procedure TForm3.BitBtn1Click(Sender: TObject);
begin //Змінити дані
Form3.DBEdit1.ReadOnly:=False;
Form3.DBEdit2.ReadOnly:=False;
Form3.DBMemo1.ReadOnly:=False;
end;
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
Form2.Table1.ApplyRange; //Зберегти зміни
Form2.Table1.Refresh;
Form3.Close; //Закрити 3 форму
Form3.DBEdit1.ReadOnly:=True;
Form3.DBEdit2.ReadOnly:=True;
Form3.DBMemo1.ReadOnly:=True;
end;
procedure TForm3.BitBtn3Click(Sender: TObject);
begin
Form2.Table1.ApplyRange; //Зберегти зміни в таблиці
unit Unit4;
Tpro_prog = class(TForm)
Image4: TImage;
Image8: TImage;
Label1: TLabel;
Label2: TLabel;
Animate1: TAnimate;
Label3: TLabel;
Label4: TLabel;
procedure Label3Click(Sender: TObject);
procedure Label4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
pro_prog: Tpro_prog;
implementation
39
{$R *.dfm}
procedure Tpro_prog.Label3Click(Sender: TObject);
begin
Close;
end;
procedure Tpro_prog.Label4Click(Sender: TObject);
begin
if Animate1.Active = False // в данный момент анимация не выводиться
then begin
Animate1.StartFrame:=1; // вывод с первого
Animate1.StopFrame:=Animate1.FrameCount; // по последний кадр
Animate1.Active:=True;
Label4.caption:='Стоп';
end
else // анимация отображается
begin
Animate1.Active:=False; // остановить отображение
Label4.caption:='Пуск';
end;
end;
end.
40