home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD 45 / SuperCD45.iso / talleres / delphi / td.pas < prev    next >
Pascal/Delphi Source File  |  1999-11-29  |  4KB  |  148 lines
  1. unit td;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   StdCtrls, Forms, DBCtrls, DB, DBTables, Mask, ExtCtrls, ComCtrls, Grids,
  8.   DBGrids, Dialogs;
  9.  
  10. type
  11.   TToDoForm = class(TForm)
  12.     Table1ItemNumber: TAutoIncField;
  13.     Table1Item: TStringField;
  14.     Table1Priority: TSmallintField;
  15.     Table1Type: TStringField;
  16.     Table1Dateentered: TDateField;
  17.     Table1Datedue: TDateField;
  18.     Table1Done: TBooleanField;
  19.     Table1Notes: TBlobField;
  20.     ScrollBox: TScrollBox;
  21.     Label1: TLabel;
  22.     EditItemNumber: TDBEdit;
  23.     Label2: TLabel;
  24.     EditItem: TDBEdit;
  25.     Label4: TLabel;
  26.     Label5: TLabel;
  27.     Label6: TLabel;
  28.     Label7: TLabel;
  29.     CheckBoxDone: TDBCheckBox;
  30.     Label8: TLabel;
  31.     DBNavigator: TDBNavigator;
  32.     Panel1: TPanel;
  33.     DataSource1: TDataSource;
  34.     Panel2: TPanel;
  35.     Table1: TTable;
  36.     DBRichEdit1: TDBRichEdit;
  37.     DTPDateEntered: TDateTimePicker;
  38.     DBRadioGroup1: TDBRadioGroup;
  39.     DBComboBox1: TDBComboBox;
  40.     DBGrid1: TDBGrid;
  41.     DTPDatedue: TDateTimePicker;
  42.     GroupBox1: TGroupBox;
  43.     ItemBtn: TButton;
  44.     DoneBtn: TButton;
  45.     PriorityBtn: TButton;
  46.     procedure FormCreate(Sender: TObject);
  47.     procedure DTPDateEnteredChange(Sender: TObject);
  48.     procedure DBRichEdit1KeyUp(Sender: TObject; var Key: Word;
  49.       Shift: TShiftState);
  50.     procedure ItemBtnClick(Sender: TObject);
  51.     procedure DoneBtnClick(Sender: TObject);
  52.     procedure EditDateenteredExit(Sender: TObject);
  53.     procedure DTPDatedueChange(Sender: TObject);
  54.     procedure Table1AfterScroll(DataSet: TDataSet);
  55.     procedure Table1AfterInsert(DataSet: TDataSet);
  56.     procedure PriorityBtnClick(Sender: TObject);
  57.   private
  58.     { private declarations }
  59.   public
  60.     { public declarations }
  61.   end;
  62.  
  63. var
  64.   ToDoForm: TToDoForm;
  65.  
  66. implementation
  67.  
  68. {$R *.DFM}
  69.  
  70. procedure TToDoForm.FormCreate(Sender: TObject);
  71. begin
  72.   Table1.Open;
  73. end;
  74.  
  75. procedure TToDoForm.DTPDateEnteredChange(Sender: TObject);
  76. begin
  77.     DataSource1.Edit;   // put into edit mode and assign the date
  78.     Table1Dateentered.Value := DTPDateEntered.Date;
  79. end;
  80.  
  81. procedure TToDoForm.DBRichEdit1KeyUp(Sender: TObject; var Key: Word;
  82.   Shift: TShiftState);
  83. begin
  84.    if (ssCtrl in Shift) and (Chr(Key) = 'B') then
  85.    with DBRichEdit1.SelAttributes do
  86.    begin
  87.       if fsBold in Style then
  88.          Style := Style - [fsBold]
  89.       else Style := Style+[fsBold];
  90.    end
  91.    else
  92.    if (ssCtrl in Shift) and (Chr(Key) = 'U') then
  93.    with DBRichEdit1.SelAttributes do
  94.    begin
  95.       if fsUnderline in Style then
  96.          Style := Style - [fsUnderline]
  97.       else Style := Style+[fsUnderline];
  98.    end
  99. end;
  100.  
  101. procedure TToDoForm.ItemBtnClick(Sender: TObject);
  102. begin
  103.    if Table1.IndexName = 'ItemIDX' then
  104.       Table1.IndexName := ''
  105.    else Table1.IndexName := 'ItemIDX';
  106. end;
  107.  
  108. procedure TToDoForm.DoneBtnClick(Sender: TObject);
  109. begin
  110.    if Table1.IndexName = 'DoneIDX' then
  111.       Table1.IndexName := ''
  112.    else Table1.IndexName := 'DoneIDX';
  113. end;
  114.  
  115. procedure TToDoForm.PriorityBtnClick(Sender: TObject);
  116. begin
  117.    if Table1.IndexName = 'PriorityIDX' then
  118.       Table1.IndexName := ''
  119.    else Table1.IndexName := 'PriorityIDX';
  120. end;
  121.  
  122. procedure TToDoForm.EditDateenteredExit(Sender: TObject);
  123. begin
  124.    DTPDateEntered.Date := Table1Dateentered.Value;
  125. end;
  126.  
  127. procedure TToDoForm.DTPDatedueChange(Sender: TObject);
  128. begin
  129.     DataSource1.Edit;   // put into edit mode and assign the date
  130.     Table1Datedue.Value := DTPDatedue.Date;
  131. end;
  132.  
  133. procedure TToDoForm.Table1AfterScroll(DataSet: TDataSet);
  134. begin
  135.    DTPDateEntered.Date := Table1Dateentered.Value;
  136.    DTPDateDue.Date := Table1Datedue.Value;
  137. end;
  138.  
  139. procedure TToDoForm.Table1AfterInsert(DataSet: TDataSet);
  140. begin
  141.    Table1Dateentered.Value := Now;
  142.    Table1Datedue.Value := Now;
  143.    Table1Priority.Value := 2;
  144. end;
  145.  
  146.  
  147. end.
  148.