开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
StreamDsForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

StreamDsForm.pas：源码内容
  1. unit StreamDsForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, Db, Grids, DBGrids, ExtCtrls, DBCtrls, MdDsStream, MdDsCustom;
  9. type
  10.   TForm1 = class(TForm)
  11.     DataSource1: TDataSource;
  12.     DBGrid1: TDBGrid;
  13.     Panel1: TPanel;
  14.     Button1: TButton;
  15.     CheckBox1: TCheckBox;
  16.     DBNavigator1: TDBNavigator;
  17.     Button2: TButton;
  18.     MdDataSetStream1Name: TStringField;
  19.     MdDataSetStream1Level: TIntegerField;
  20.     MdDataSetStream1BirthDate: TDateField;
  21.     MdDataSetStream1Stipend: TCurrencyField;
  22.     MdDataSetStream1Email: TStringField;
  23.     MdDataSetStream1Editor: TBooleanField;
  24.     MdDataSetStream1: TMdDataSetStream;
  25.     procedure Button1Click(Sender: TObject);
  26.     procedure CheckBox1Click(Sender: TObject);
  27.     procedure FormCreate(Sender: TObject);
  28.     procedure Button2Click(Sender: TObject);
  29.   private
  30.     { Private declarations }
  31.   public
  32.     { Public declarations }
  33.   end;
  35. var
  36.   Form1: TForm1;
  38. implementation
  40. {$R *.DFM}
  42. procedure TForm1.Button1Click(Sender: TObject);
  43. begin
  44.   MdDataSetStream1.CreateTable;
  45.   MdDataSetStream1.Open;
  46.   CheckBox1.Checked := MdDataSetStream1.Active;
  47. end;
  49. procedure TForm1.CheckBox1Click(Sender: TObject);
  50. begin
  51.   MdDataSetStream1.Active := CheckBox1.Checked;
  52. end;
  54. procedure TForm1.FormCreate(Sender: TObject);
  55. begin
  56.   MdDataSetStream1.TableName :=
  57.     ExtractFilePath (ParamStr (0)) + 'Contrib.dso';
  58. end;
  60. procedure TForm1.Button2Click(Sender: TObject);
  61. var
  62.   bm: TBookmarkStr;
  63. begin
  64.   bm := MdDataSetStream1.Bookmark;
  65.   MdDataSetStream1.First;
  66.   while not MdDataSetStream1.EOF do
  67.     MdDataSetStream1.Next;
  68.   MdDataSetStream1.Bookmark := bm;
  69. end;
  71. end.