【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-CustSeek.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit CustSeek;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Grids, DBGrids, StdCtrls, DB, ADODB, DataModule;
type
TCustSeekForm = class(TForm)
DBGrid1: TDBGrid;
Panel1: TPanel;
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
ADOCustSeek: TADODataSet;
DS: TDataSource;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
CustSeekForm: TCustSeekForm;
implementation
{$R *.dfm}
procedure TCustSeekForm.FormCreate(Sender: TObject);
begin
with ADOCustSeek do
begin
Active := False;
Connection := DataModule1.ADOConnection1;
Active := True;
end;
end;
initialization
RegisterClass(TCustSeekForm);
finalization
UnRegisterClass(TCustSeekForm);
end.
上一篇:
DrawMenu.cpp
下一篇:
上市公司会计信息披露中印象管理行为研究(上)