Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/
Upload File :
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/datacal.sct

�VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentaTop = 193
Left = 322
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
cursorcursorCursor2Dataenvironment�Top = 18
Left = 37
Height = 139
Width = 200
Alias = "employee"
Database = ..\..\data\testdata.dbc
CursorSource = "employee"
Name = "Cursor2"
22frmsolution..\solution.vcxformFrmsolution1�Height = 272
Width = 297
DoCreate = .T.
Caption = "Add a Data-Bound Calendar"
Visible = .T.
HelpContextID = 1231595
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 240
C_solutions1.Left = 48
C_solutions1.Height = 14
C_solutions1.Width = 16
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 240
Behindscenes1.Left = 11
Behindscenes1.TabIndex = 13
Behindscenes1.ZOrderSet = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 60
Shape2.Width = 276
Shape2.ZOrderSet = 3
Shape2.Name = "Shape2"
Label1.Caption = "You can enhance data entry of Date fields by providing a nice data bound ActiveX Calendar Control."
Label1.Height = 41
Label1.Left = 24
Label1.Top = 24
Label1.Width = 252
Label1.TabIndex = 14
Label1.ZOrderSet = 4
Label1.Name = "Label1"
Label4.TabIndex = 16
Label4.ZOrderSet = 6
Label4.Name = "Label4"
Cmdclose1.Top = 240
Cmdclose1.Left = 216
Cmdclose1.TabIndex = 15
Cmdclose1.ZOrderSet = 8
Cmdclose1.Name = "Cmdclose1"
_nav2buttons..\..\..\ffc\_table.vcx	container
_nav2buttons1Frmsolution1RTop = 78
Left = 210
TabIndex = 12
Name = "_nav2buttons1"
cmgNav.Command1.Top = 5
cmgNav.Command1.Left = 5
cmgNav.Command1.Name = "Command1"
cmgNav.Command2.Top = 5
cmgNav.Command2.Left = 32
cmgNav.Command2.Name = "Command2"
cmgNav.BackStyle = 0
cmgNav.BorderStyle = 0
cmgNav.Name = "cmgNav"
cusTableNav.Name = "cusTableNav"
textboxtextbox	txtEmp_idFrmsolution1�Comment = "Unique numeric Employee ID."
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "employee.emp_id"
Height = 23
Left = 84
ReadOnly = .T.
TabIndex = 2
Top = 84
Width = 53
Name = "txtEmp_id"
labellabel	lblEmp_idFrmsolution1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
BackStyle = 0
Caption = "Emp_id"
Left = 13
Top = 88
Width = 35
TabIndex = 1
Name = "lblEmp_id"
textboxtextboxtxtLast_nameFrmsolution1�Comment = ""
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "employee.last_name"
Height = 23
Left = 84
ReadOnly = .T.
TabIndex = 4
Top = 112
Width = 156
Name = "txtLast_name"
labellabellblLast_nameFrmsolution1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
BackStyle = 0
Caption = "Last_name"
Left = 13
Top = 116
Width = 52
TabIndex = 3
Name = "lblLast_name"
textboxtextbox
txtFirst_nameFrmsolution1�Comment = ""
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "employee.first_name"
Height = 23
Left = 84
ReadOnly = .T.
TabIndex = 6
Top = 140
Width = 84
Name = "txtFirst_name"
labellabel
lblFirst_nameFrmsolution1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
BackStyle = 0
Caption = "First_name"
Left = 13
Top = 144
Width = 51
TabIndex = 5
Name = "lblFirst_name"
textboxtextboxtxtTitleFrmsolution1�Comment = ""
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "employee.title"
Height = 23
Left = 84
ReadOnly = .T.
TabIndex = 8
Top = 168
Width = 156
Name = "txtTitle"
labellabellblTitleFrmsolution1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
BackStyle = 0
Caption = "Title"
Left = 13
Top = 172
Width = 20
TabIndex = 7
Name = "lblTitle"
textboxtextbox
txtBirth_dateFrmsolution1�Comment = ""
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "employee.birth_date"
Height = 23
Left = 84
TabIndex = 10
Top = 196
Width = 72
Name = "txtBirth_date"
labellabel
lblBirth_dateFrmsolution1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
BackStyle = 0
Caption = "Birth_date"
Left = 13
Top = 200
Width = 48
TabIndex = 9
Name = "lblBirth_date"

commandbutton
commandbuttonCommand1Frmsolution1�Top = 196
Left = 174
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Calendar..."
TabIndex = 11
Name = "Command1"
5PROCEDURE Click
#DEFINE C_CALCAPTION_LOC	"Data Calendar"
oCalForm = Create('form')
oCalForm.NewObject("oleCalendar","_olecalendar",HOME()+"FFC\_datetime.vcx")
WITH oCalForm.oleCalendar
	.date_column = "employee.birth_date"
	.RefreshDisplay()
	.BackColor = THISFORM.BackColor
	.Visible = .T.
ENDWITH
WITH oCalForm
	.AutoCenter = .T.
	.BorderStyle = 2
	.MaxButton = .F.
	.MinButton = .F.
	.Height = oCalForm.oleCalendar.Height
	.Width = oCalForm.oleCalendar.Width
	.Caption = C_CALCAPTION_LOC
ENDWITH

oCalForm.Show(1)
THISFORM.Refresh
ENDPROC
�� ���W%9rH�UVT��C�form�N��B��C�oleCalendar�_olecalendarC�Q�FFC\_datetime.vcx������������!T���employee.birth_date����C���T������T��a����
�����5�T��a��T�	����T�
�-��T��-��T�������T�
����
��T���
Data Calendar������C�����
����UOCALFORM	NEWOBJECTOLECALENDARDATE_COLUMNREFRESHDISPLAY	BACKCOLORTHISFORMVISIBLE
AUTOCENTERBORDERSTYLE	MAXBUTTON	MINBUTTONHEIGHTWIDTHCAPTIONSHOWREFRESHClick,��1B!��A�����AA�A�1*)�kArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 9, 6, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0