【delphi开源代码栏目提醒】:本文主要为网学会员提供Frm_CrtlGrid.pas,希望对需要Frm_CrtlGrid.pas网友有所帮助,学习一下!
unit Frm_CrtlGrid;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBCtrls, Mask, dbcgrids, DB, ADODB, XPMan, ExtCtrls;
type
TFrmCtrlGrid = class(TForm)
ADOConne: TADOConnection;
ATable: TADOTable;
DSTable: TDataSource;
GBCtrlGrid: TGroupBox;
DBCGLIst: TDBCtrlGrid;
DBEID: TDBEdit;
DBEName: TDBEdit;
DBOld: TDBEdit;
DBPhone: TDBEdit;
DBEJoinDate: TDBEdit;
DBEPart: TDBEdit;
LbID: TLabel;
LbOld: TLabel;
LbPart: TLabel;
LbName: TLabel;
LbPhone: TLabel;
LbJoinDate: TLabel;
DBNBro: TDBNavigator;
BtnClose: TButton;
Bevel1: TBevel;
procedure BtnCloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmCtrlGrid: TFrmCtrlGrid;
implementation
{$R *.dfm}
procedure TFrmCtrlGrid.BtnCloseClick(Sender: TObject);
begin
Close;
end;
procedure TFrmCtrlGrid.FormCreate(Sender: TObject);
begin
AdoConne.Close;
AdoConne.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=
DelphiClassical200;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=MRDELPHI;Use Encryption for Data=False;';
AdoConne.Open;
Atable.Open;
end;
end.