【delphi开源代码栏目提醒】：以下是网学会员为您推荐的delphi开源代码-CarType_Unit.pas，希望本篇文章对您学习有所帮助。

    unit CarType_Unit;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, TypeBase_Unit, StdCtrls, Mask, DBCtrls, Buttons, Grids, DBGrids,
      ExtCtrls, DB;
    
    type
      TfrmCarType = class(TfrmBaseType)
        procedure btnAddClick(Sender: TObject);
        procedure btnModfiyClick(Sender: TObject);
        procedure btnDelClick(Sender: TObject);
        procedure btnSaveClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      frmCarType: TfrmCarType;
    
    implementation
    
    uses ClientDM_Unit;
    
    {$R *.dfm}
    
    procedure TfrmCarType.btnAddClick(Sender: TObject);
    begin
      inherited;
      DM.cdsCarType.Insert;
      DM.cdsCarType.FieldByName('CarType').AsString := DM.SocketConn.AppServer.GetMaxID('CarType','CarType','1000');
    end;
    
    procedure TfrmCarType.btnModfiyClick(Sender: TObject);
    begin
      inherited;
      DM.cdsCarType.Edit;
    end;
    
    procedure TfrmCarType.btnDelClick(Sender: TObject);
    begin
      inherited;
      if Application.MessageBox('确定要删除吗?','提示',68) = IDNo then
        Exit;
      DM.cdsCarType.Delete;
      DM.cdsCarType.ApplyUpdates(0);
    end;
    
    procedure TfrmCarType.btnSaveClick(Sender: TObject);
    begin
      inherited;
      if DM.cdsCarType.State in [dsInsert,dsEdit] then
      begin
        DM.cdsCarType.Post;
        DM.cdsCarType.ApplyUpdates(0); 
      end;
    end;
    
    end.
    

上一篇：CarlosAboutForm.pas
下一篇：个人哪些方面的情况值得你在简历里做介绍？