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

    unit CustUnit;
    
    interface
    uses
      DB, ADODB, DataModule;
    type
      TCust = class(TObject)
      private
        FADOCust: TADODataSet;
        FCustRecord: TCustRecord;
        function Checkeed: Boolean;
      public
        property CustRecord: TCustRecord read FCustRecord;
        procedure New;
        procedure Edit;
        procedure Delete;
        procedure Next;
        procedure Prior;
        procedure Save(CustRecord: TCustRecord);
        constructor Create;
        procedure SetCustRecord;
      end;
    implementation
    
    { TCust }
    
    function TCust.Checkeed: Boolean;
    begin
      Result := False;
      if FADOCust.Active then
        Result := True;
    end;
    
    constructor TCust.Create;
    begin
      FADOCust := DataModule2.ADOCust;
      if Assigned(FADOCust.Connection) then
        if FADOCust.CommandText <> '' then
        begin
          FADOCust.Active := False;
          FADOCust.Active := True;
        end;
    end;
    
    procedure TCust.Delete;
    begin
      if Checkeed then
        if not FADOCust.IsEmpty then
          FADOCust.Delete;
    end;
    
    procedure TCust.Edit;
    begin
      if Checkeed then
        FADOCust.Edit;
    end;
    
    procedure TCust.New;
    begin
      if Checkeed then
        FADOCust.Append;
    end;
    
    procedure TCust.Next;
    begin
      FADOCust.Next;
      SetCustRecord;
    end;
    
    procedure TCust.Prior;
    begin
      FADOCust.Prior;
      SetCustRecord;
    end;
    
    procedure TCust.Save(CustRecord: TCustRecord);
    begin
      if Checkeed then
      begin
        if (FADOCust.State = dsInsert) or (FADOCust.State = dsedit) then
          with FADOCust do
          begin
            FieldByName('CustName').AsString := CustRecord.CustName;
            FieldByName('Lead').AsString := CustRecord.Lead;
            FieldByName('Address').AsString := CustRecord.Address;
            FieldByName('Phone1').AsString := CustRecord.Phone1;
            FieldByName('Phone2').AsString := CustRecord.Phone2;
            FieldByName('Fax').AsString := CustRecord.Fax;
            FieldByName('Email').AsString := CustRecord.Email;
            FieldByName('NetAddr').AsString := CustRecord.NetAddr;
            FieldByName('Note').AsString := CustRecord.Note;
            Post;
          end;
      end;
    end;
    
    procedure TCust.SetCustRecord;
    begin
      with FCustRecord do
      begin
        CustNo := FADOCust.FieldByName('CustNo').AsInteger;
        CustName := FADOCust.FieldByName('CustName').AsString;
        Lead := FADOCust.FieldByName('Lead').AsString;
        Address := FADOCust.FieldByName('Address').AsString;
        Phone1 := FADOCust.FieldByName('Phone1').AsString;
        Phone2 := FADOCust.FieldByName('Phone2').AsString;
        Fax := FADOCust.FieldByName('Fax').AsString;
        Email := FADOCust.FieldByName('Email').AsString;
        NetAddr := FADOCust.FieldByName('NetAddr').AsString;
        Note := FADOCust.FieldByName('Note').AsString;
      end;
    end;
    
    end.
    
    

上一篇：DrawMenuDlg.cpp
下一篇：那些令你为之触动的好句子，感慨万分