【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了,CollegeSet_Unit.pas,希望对大家有所帮助!
unit CollegeSet_Unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DictionaryBase_Unit, StdCtrls, Buttons, DBCtrls, Mask, Grids,
DBGrids, ExtCtrls, DB, DBActns, ActnList, Menus, StdActns;
type
TfrmCollegeSet = class(TfrmDictionaryBase)
DataCollege: TDataSource;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure btnAddClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure btnModifyClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmCollegeSet: TfrmCollegeSet;
implementation
uses
Common_Unit, DM_Unit;
{$R *.dfm}
procedure TfrmCollegeSet.FormCreate(Sender: TObject);
var
SQLGradeInfo: string;
begin
inherited;
SQLGradeInfo := 'Select * From GradeInfo';
DataCollege.DataSet := SQLDataSet(SQLGradeInfo,DM.ADOConn); //连接数据库
end;
procedure TfrmCollegeSet.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
frmCollegeSet := nil;
end;
procedure TfrmCollegeSet.btnAddClick(Sender: TObject);
var
SQLMaxID, MaxID: string;
begin
inherited;
DataCollege.DataSet.Insert;
SQLMaxID := 'SELECT Max(GradeID) as GradeID FROM GradeInfo'; //搜索最大的编号
MaxID := SQLDataSet(SQLMaxID,DM.ADOConn).FieldByName('GradeID').AsString;
if MaxID = '' then
MaxID := MaxID + '2007001'
else
MaxID := IntToStr(StrToInt(MaxID) + 1 );
txtID.Caption := MaxID;
DataCollege.DataSet.FieldByName('GradeID').AsString := MaxID;
end;
procedure TfrmCollegeSet.btnDelClick(Sender: TObject);
begin
inherited;
if Application.MessageBox('确定要删除此条记录?','提示',68) = IDNo then
Exit;
DataCollege.DataSet.Delete;
end;
procedure TfrmCollegeSet.btnSaveClick(Sender: TObject);
begin
inherited;
if DataCollege.State in [dsInsert,dsEdit] then //判断状态,只有在添加或是修改的时候才能保存信息
DataCollege.DataSet.Post;
end;
procedure TfrmCollegeSet.btnModifyClick(Sender: TObject);
begin
inherited;
DataCollege.DataSet.Edit;
end;
procedure TfrmCollegeSet.btnCancelClick(Sender: TObject);
begin
inherited;
DataCollege.DataSet.Cancel;
end;
end.