?? qxgl_u.pas
字號(hào):
unit qxgl_u;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DBCtrls, ExtCtrls, Mask, DB, ADODB;
type
Tfrm_qxgl = class(TForm)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
ADOTable1userid: TWideStringField;
ADOTable1xm: TWideStringField;
ADOTable1xb: TWideStringField;
ADOTable1tel: TWideStringField;
ADOTable1sj: TWideStringField;
ADOTable1qq: TWideStringField;
ADOTable1email: TWideStringField;
ADOTable1dz: TWideStringField;
ADOTable1bz: TWideMemoField;
GroupBox1: TGroupBox;
Label1: TLabel;
DBEdit1: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
Label8: TLabel;
DBEdit8: TDBEdit;
Label9: TLabel;
DBEdit9: TDBEdit;
GroupBox2: TGroupBox;
Label10: TLabel;
DBMemo1: TDBMemo;
Panel1: TPanel;
DBNavigator1: TDBNavigator;
BitBtn1: TBitBtn;
ADOTable1password: TWideStringField;
Label13: TLabel;
Label22: TLabel;
Label21: TLabel;
Label20: TLabel;
Label19: TLabel;
Label18: TLabel;
Label17: TLabel;
Label16: TLabel;
Label15: TLabel;
Label14: TLabel;
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure ADOTable1BeforePost(DataSet: TDataSet);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_qxgl: Tfrm_qxgl;
implementation
uses sfsb_u;
{$R *.dfm}
procedure Tfrm_qxgl.ADOTable1BeforePost(DataSet: TDataSet);
begin
adotable1.FieldByName('password').AsString:='123';
end;
procedure Tfrm_qxgl.BitBtn1Click(Sender: TObject);
begin
if datasource1.DataSet.State=dsedit then
begin
if messagebox(0,'是否保存數(shù)據(jù)?','提示信息',mb_iconquestion+mb_yesno)=idyes then
datasource1.DataSet.Post
else
datasource1.DataSet.Cancel;
end;
self.close;
end;
procedure Tfrm_qxgl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
self.Free;
end;
procedure Tfrm_qxgl.FormCreate(Sender: TObject);
begin
adoconnection1.ConnectionString:=format(frm_sfsb.connstr,[frm_sfsb.dbfilename,'tjz929']);
if datasource1.DataSet.State=dsinactive then datasource1.DataSet.Open;
end;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -