【delphi开源代码栏目提醒】：网学会员鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“frmSDataSave.pas”一文，供大家参考学习

    unit frmSDataSave;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ExtCtrls, StdCtrls, Grids, DBGrids;
    
    type
      TMakeSalaryForm = class(TForm)
        panChild: TPanel;
        cmdClose: TButton;
        Button1: TButton;
        cboRecordType: TComboBox;
        Button2: TButton;
        procedure cmdCloseClick(Sender: TObject);
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      MakeSalaryForm: TMakeSalaryForm;
    
    implementation
    
    uses mdDataBases;
    
    {$R *.dfm}
    
    procedure TMakeSalaryForm.cmdCloseClick(Sender: TObject);
    begin
      panChild.Parent := MakeSalaryForm;
      MakeSalaryForm.Close;
    end;
    
    procedure TMakeSalaryForm.FormCreate(Sender: TObject);
    begin
        dmDataSource.MakeSalaryTable;
    end;
    
    end.