【delphi开源代码栏目提醒】:网学会员为需要delphi开源代码的朋友们搜集整理了uAddModuleDlg.pas相关资料,希望对各位网友有所帮助!
unit uAddModuleDlg;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, ExtCtrls, Grids, DBGridEh;
type
TAddModuleDlg = class(TForm)
adocAddModule: TADOConnection;
adotModuleSelect: TADOTable;
dsModule: TDataSource;
dbgehModule: TDBGridEh;
Panel1: TPanel;
btnOK: TButton;
btnCancel: TButton;
adotModuleSelectID: TIntegerField;
adotModuleSelectName: TWideStringField;
procedure dbgehModuleDblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
{$R *.dfm}
procedure TAddModuleDlg.dbgehModuleDblClick(Sender: TObject);
begin
ModalResult := mrOK;
end;
end.
上一篇:
Uaddmenoy.pas
下一篇:
哈弗F7 VS名爵HS,谁更懂得年轻人的心?