2011年9月5日
TSelect
摘要： unit uSelect;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, FindDM, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons, DB;type TSelect = class(TForm) TFindFrames1: TFindFrames; DBGrid1: TDBGrid; Panel1: TPanel; BitBtn1: TBitBtn; BitBtn2: TBitBtn; DataSour 阅读全文
posted @ 2011-09-05 21:31 delphi中间件 阅读(274) 评论(0) 推荐(0)
TFindFrames
摘要： unit FindDM;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ExtCtrls, jpeg;type TFindFrames = class(TFrame) edtValue: TEdit; cbFields: TComboBox; Label1: TLabel; Label2: TLabel; Timer: TTimer; procedure edtValueChange(Sender: TObject); 阅读全文
posted @ 2011-09-05 21:30 delphi中间件 阅读(186) 评论(0) 推荐(0)