?? untschool.pas
字號:
unit untSchool;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, untBaseMD, Menus, ImgList, DB, ADODB, Grids, DBGrids, StdCtrls,
Buttons, ExtCtrls, jpeg, ComCtrls, ToolWin;
type
TfrmSchool = class(TfrmBaseMD)
adsSingleiAutoID: TAutoIncField;
adsSingleName: TStringField;
adsDetailiAutoID: TAutoIncField;
adsDetailSchoolID: TIntegerField;
adsDetailClassYear: TStringField;
adsDetailName: TStringField;
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
protected
procedure InsRecord; override;
procedure EditRecord; override;
public
{ Public declarations }
end;
var
frmSchool: TfrmSchool;
implementation
uses UntSchoolSet, untDM, untGlobalVar;
{$R *.dfm}
procedure TfrmSchool.EditRecord;
begin
inherited;
if SetSchool(adsSingle, omModi) then
adsDetail.Requery()
else if adsSingle.State in [dsInsert, dsEdit] then
adsSingle.Cancel;
end;
procedure TfrmSchool.FormDestroy(Sender: TObject);
begin
inherited;
frmSchool := nil;
end;
procedure TfrmSchool.InsRecord;
begin
inherited;
{ if SetSchool(adsSingle, omNew) then
adsDetail.Requery()
else if adsSingle.State in [dsInsert, dsEdit] then
adsSingle.Cancel; }
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -