【delphi开源代码栏目提醒】：本文主要为网学会员提供DormSet_Unit.pas，希望对需要DormSet_Unit.pas网友有所帮助，学习一下!

    unit DormSet_Unit;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DictionaryBase_Unit, StdCtrls, Buttons, DBCtrls, Mask, Grids,
      DBGrids, ExtCtrls, DB, Menus, StdActns, ActnList;
    
    type
      TfrmDormSet = class(TfrmDictionaryBase)
        DataDorm: TDataSource;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure FormCreate(Sender: TObject);
        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
      frmDormSet: TfrmDormSet;
    
    implementation
    uses
      Common_Unit, DM_Unit;
    {$R *.dfm}
    
    procedure TfrmDormSet.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
      inherited;
      frmDormSet :=nil;
    end;
    
    procedure TfrmDormSet.FormCreate(Sender: TObject);
    var
      SQL : string;
    begin
      inherited;
      SQL :='Select * From DormInfo';
      DataDorm.DataSet := SQLDataSet(SQL,DM.ADOConn);   //连接数据库
    end;
    
    procedure TfrmDormSet.btnAddClick(Sender: TObject);
    var
      SQLMaxID, MaxID: string;
    begin
      inherited;
      DataDorm.DataSet.Insert;
      SQLMaxID := 'SELECT Max(DormID) as DormID FROM DormInfo';    //搜索最大的编号
      MaxID := SQLDataSet(SQLMaxID,DM.ADOConn).FieldByName('DormID').AsString;
      if MaxID = '' then
        MaxID := MaxID + '2007001'
      else
        MaxID := IntToStr(StrToInt(MaxID) + 1 );
      txtID.Caption := MaxID;
      DataDorm.DataSet.FieldByName('DormID').AsString := MaxID;
    
    end;
    
    procedure TfrmDormSet.btnDelClick(Sender: TObject);
    begin
      inherited;
      if Application.MessageBox('确定要删除此条记录?','提示',68) = IDNo then
        Exit;
      DataDorm.DataSet.Delete;
    end;
    
    procedure TfrmDormSet.btnSaveClick(Sender: TObject);
    begin
      inherited;
      if DataDorm.State in [dsInsert,dsEdit] then          //判断状态,只有在添加或是修改的时候才能保存信息
        DataDorm.DataSet.Post;
    end;
    
    procedure TfrmDormSet.btnModifyClick(Sender: TObject);
    begin
      inherited;
      DataDorm.DataSet.Edit;
    end;
    
    procedure TfrmDormSet.btnCancelClick(Sender: TObject);
    begin
      inherited;
      DataDorm.DataSet.Cancel;
    end;
    
    end.
    

上一篇：DormManager_Unit.pas
下一篇：项目上钢结构工程的运营管理