Unit1.pas
上传用户:daoqigc
上传日期:2021-04-20
资源大小:2795k
文件大小:3k
源码类别:

RichEdit

开发平台:

Delphi

  1. {=============================} unit Unit1; {==================================}
  2. { Main properties were set at design time:                                     }
  3. { Table1.TableName           := 'SampleTable.db'; // Paradox table             }
  4. { Table1.ReadOnly            := False;                                         }
  5. { DataSource1.Dataset        := Table1;                                        }
  6. { DBNavigator1.DataSource    := DataSource1;                                   }
  7. { DBEdit1.DataSource         := DataSource1;                                   }
  8. { DBRichView1.DataSource     := DataSource1;                                   }
  9. { DBRichView1.Style          := RVStyle1;                                      }
  10. { DBEdit1.DataField          := 'Caption';  // Alphanumeric field              }
  11. { DBRichViewEdit1.DataField  := 'RVFField'; // Binary field                    }
  12. { nbEdit was removed from DBNavigator1.VisibleButtons (because of autoedit)    }
  13. {------------------------------------------------------------------------------}
  14. { Note: changes after last posting are not saved when exiting application.     }
  15. {==============================================================================}
  16. interface
  17. uses
  18.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  19.   ExtCtrls, DBCtrls, RVScroll, RichView, RVEdit, DBRV, RVStyle, DB,
  20.   DBTables, StdCtrls, Mask, Buttons;
  21. type
  22.   TForm1 = class(TForm)
  23.     Table1: TTable;
  24.     DataSource1: TDataSource;
  25.     RVStyle1: TRVStyle;
  26.     DBNavigator1: TDBNavigator;
  27.     Label1: TLabel;
  28.     Label2: TLabel;
  29.     DBEdit1: TDBEdit;
  30.     Label3: TLabel;
  31.     DBRichView1: TDBRichView;
  32.     Button1: TButton;
  33.     procedure FormCreate(Sender: TObject);
  34.     procedure DataSource1DataChange(Sender: TObject; Field: TField);
  35.     procedure Button1Click(Sender: TObject);
  36.   private
  37.     { Private declarations }
  38.     procedure UpdateStatusLabel;
  39.   public
  40.     { Public declarations }
  41.   end;
  42. var
  43.   Form1: TForm1;
  44. implementation
  45. uses Unit2;
  46. {$R *.DFM}
  47. procedure TForm1.FormCreate(Sender: TObject);
  48. begin
  49.   // Opening table...
  50.   Table1.DatabaseName := ExtractFilePath(Application.ExeName);
  51.   Table1.Open;
  52.   RVStyle1.TextStyles[1] := RVStyle1.TextStyles[0];
  53.   RVStyle1.TextStyles[1].Style := RVStyle1.TextStyles[1].Style+[fsBold];
  54. end;
  55. procedure TForm1.UpdateStatusLabel;
  56. begin
  57.   // where we are?
  58.   if Table1.RecordCount=0 then
  59.     Label3.Caption := '(empty)'
  60.   else if Table1.RecNo<1 then
  61.     Label3.Caption := '(new)'
  62.   else
  63.     Label3.Caption := Format('Record %d of %d', [Table1.RecNo, Table1.RecordCount]);
  64. end;
  65. procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
  66. begin
  67.   UpdateStatusLabel;
  68. end;
  69. procedure TForm1.Button1Click(Sender: TObject);
  70. begin
  71.   // See Unit2.pas
  72.   Form2.SetField('RVFField',Table1);
  73.   Form2.ShowModal;
  74. end;
  75. end.