【delphi开源代码栏目提醒】：网学会员在delphi开源代码频道为大家收集整理了MarriageInfo_Unit.pas提供大家参考，希望对大家有所帮助!

    unit MarriageInfo_Unit;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, Mask, DBCtrls, ComCtrls, Buttons, ExtCtrls, Grids,
      DBGrids;
    
    type
      TfrmMarriageInfo = class(TForm)
        PageControl1: TPageControl;
        TabSheet1: TTabSheet;
        TabSheet2: TTabSheet;
        Panel1: TPanel;
        btnInsert: TBitBtn;
        btnSave: TBitBtn;
        btnDelete: TBitBtn;
        btnCancel: TBitBtn;
        BitBtn5: TBitBtn;
        btnLast: TBitBtn;
        btnFirst: TBitBtn;
        btnPrev: TBitBtn;
        btnNext: TBitBtn;
        Panel2: TPanel;
        BitBtn6: TBitBtn;
        BitBtn7: TBitBtn;
        BitBtn8: TBitBtn;
        BitBtn9: TBitBtn;
        GroupBox2: TGroupBox;
        Label5: TLabel;
        Label6: TLabel;
        DBEdit5: TDBEdit;
        DBComboBox1: TDBComboBox;
        GroupBox1: TGroupBox;
        Label1: TLabel;
        DBText1: TDBText;
        Label2: TLabel;
        SpeedButton1: TSpeedButton;
        Label4: TLabel;
        SpeedButton2: TSpeedButton;
        Label11: TLabel;
        edtIssueDate: TDBEdit;
        edtStayDate: TDBEdit;
        DBComboBox2: TDBComboBox;
        DBGrid1: TDBGrid;
        Label38: TLabel;
        Label39: TLabel;
        GroupBox3: TGroupBox;
        GroupBox4: TGroupBox;
        DBText2: TDBText;
        Label3: TLabel;
        Label36: TLabel;
        edtBirthday: TDBEdit;
        Label37: TLabel;
        DBEdit25: TDBEdit;
        Label40: TLabel;
        DBEdit28: TDBEdit;
        Label42: TLabel;
        DBEdit30: TDBEdit;
        Label43: TLabel;
        DBEdit31: TDBEdit;
        Label44: TLabel;
        DBEdit32: TDBEdit;
        Label46: TLabel;
        DBEdit34: TDBEdit;
        Label47: TLabel;
        DBEdit35: TDBEdit;
        Label48: TLabel;
        DBEdit36: TDBEdit;
        Label49: TLabel;
        DBEdit37: TDBEdit;
        Label50: TLabel;
        DBEdit38: TDBEdit;
        Label51: TLabel;
        DBEdit39: TDBEdit;
        Label52: TLabel;
        DBEdit40: TDBEdit;
        Label45: TLabel;
        Label53: TLabel;
        Label54: TLabel;
        DBEdit33: TDBEdit;
        DBEdit41: TDBEdit;
        DBEdit42: TDBEdit;
        DBEdit43: TDBEdit;
        Label55: TLabel;
        Label41: TLabel;
        DBEdit29: TDBEdit;
        DBEdit44: TDBEdit;
        Label56: TLabel;
        Label31: TLabel;
        DBComboBox3: TDBComboBox;
        SpeedButton3: TSpeedButton;
        Label59: TLabel;
        Label60: TLabel;
        Label61: TLabel;
        Label62: TLabel;
        Label63: TLabel;
        Label64: TLabel;
        Label65: TLabel;
        DBEdit47: TDBEdit;
        DBEdit48: TDBEdit;
        DBEdit49: TDBEdit;
        DBEdit50: TDBEdit;
        DBEdit51: TDBEdit;
        DBEdit52: TDBEdit;
        DBEdit53: TDBEdit;
        procedure BitBtn5Click(Sender: TObject);
        procedure btnInsertClick(Sender: TObject);
        procedure btnFirstClick(Sender: TObject);
        procedure btnPrevClick(Sender: TObject);
        procedure btnNextClick(Sender: TObject);
        procedure btnLastClick(Sender: TObject);
        procedure FormShow(Sender: TObject);
        procedure btnSaveClick(Sender: TObject);
        procedure btnDeleteClick(Sender: TObject);
        procedure btnCancelClick(Sender: TObject);
        procedure BitBtn6Click(Sender: TObject);
        procedure BitBtn7Click(Sender: TObject);
        procedure BitBtn8Click(Sender: TObject);
        procedure BitBtn9Click(Sender: TObject);
        procedure SpeedButton1Click(Sender: TObject);
        procedure SpeedButton2Click(Sender: TObject);
        procedure SpeedButton3Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      frmMarriageInfo: TfrmMarriageInfo;
    
    implementation
    
    uses DM_Unit, Main_Unit, SelectDate_Unit;
    
    {$R *.dfm}
    
    procedure TfrmMarriageInfo.BitBtn5Click(Sender: TObject);
    begin
      Close;
    end;
    
    procedure TfrmMarriageInfo.btnInsertClick(Sender: TObject);
    begin
      DM.DataSetInsert(DM.qryMarriageInfo);
    end;
    
    procedure TfrmMarriageInfo.btnFirstClick(Sender: TObject);
    begin
      DM.DataSetFirst(DM.qryMarriageInfo);
    end;
    
    procedure TfrmMarriageInfo.btnPrevClick(Sender: TObject);
    begin
      DM.DataSetPrev(DM.qryMarriageInfo);
    end;
    
    procedure TfrmMarriageInfo.btnNextClick(Sender: TObject);
    begin
      DM.DataSetNext(DM.qryMarriageInfo);
    end;
    
    procedure TfrmMarriageInfo.btnLastClick(Sender: TObject);
    begin
      DM.DataSetLast(DM.qryMarriageInfo);
    end;
    
    procedure TfrmMarriageInfo.FormShow(Sender: TObject);
    begin
      DM.qryMarriageInfo.Open;
      DM.qryFamilyInfo.Open;
    end;
    
    procedure TfrmMarriageInfo.btnSaveClick(Sender: TObject);
    begin
      DM.DataSetSave(DM.qryMarriageInfo);
    end;
    
    procedure TfrmMarriageInfo.btnDeleteClick(Sender: TObject);
    begin
      DM.DataSetDelete(DM.qryMarriageInfo);
    end;
    
    procedure TfrmMarriageInfo.btnCancelClick(Sender: TObject);
    begin
      DM.DataSetCancel(DM.qryMarriageInfo);
    end;
    
    procedure TfrmMarriageInfo.BitBtn6Click(Sender: TObject);
    begin
      DM.DataSetInsert(DM.qryFamilyInfo);
    end;
    
    procedure TfrmMarriageInfo.BitBtn7C