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

    unit U_yp;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, Buttons, ExtCtrls, Mask;
    
    type
      Tfrm_yp = class(TForm)
        Panel1: TPanel;
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Label4: TLabel;
        Label5: TLabel;
        Label6: TLabel;
        Label7: TLabel;
        Label8: TLabel;
        Label9: TLabel;
        Label10: TLabel;
        Label11: TLabel;
        Label12: TLabel;
        Label13: TLabel;
        Label14: TLabel;
        Label15: TLabel;
        Edit1: TEdit;
        Edit2: TEdit;
        Edit6: TEdit;
        Edit7: TEdit;
        Edit8: TEdit;
        Edit9: TEdit;
        Edit10: TEdit;
        Edit11: TEdit;
        Edit12: TEdit;
        Memo1: TMemo;
        Memo2: TMemo;
        BitBtn1: TBitBtn;
        BitBtn2: TBitBtn;
        BitBtn3: TBitBtn;
        BitBtn4: TBitBtn;
        BitBtn5: TBitBtn;
        BitBtn6: TBitBtn;
        BitBtn7: TBitBtn;
        MaskEdit1: TMaskEdit;
        ComboBox1: TComboBox;
        ComboBox2: TComboBox;
        ComboBox3: TComboBox;
        procedure BitBtn1Click(Sender: TObject);
        procedure BitBtn2Click(Sender: TObject);
        procedure BitBtn3Click(Sender: TObject);
        procedure BitBtn4Click(Sender: TObject);
        procedure editclear;
        procedure BitBtn6Click(Sender: TObject);
        procedure BitBtn5Click(Sender: TObject);
        procedure FormShow(Sender: TObject);
        procedure BitBtn7Click(Sender: TObject);
        procedure Edit1Change(Sender: TObject);
        procedure Edit2Change(Sender: TObject);
        procedure Edit3Change(Sender: TObject);
        procedure Edit4Change(Sender: TObject);
        procedure Edit6Change(Sender: TObject);
        procedure Edit7Change(Sender: TObject);
        procedure Edit8Change(Sender: TObject);
        procedure Edit9Change(Sender: TObject);
        procedure Edit10Change(Sender: TObject);
        procedure Edit11Change(Sender: TObject);
        procedure Memo1Change(Sender: TObject);
        procedure Edit12Change(Sender: TObject);
        procedure Edit13Change(Sender: TObject);
        procedure editvalue;
        procedure Edit1KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Edit2KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure MaskEdit1KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Edit6KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Edit8KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Edit9KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Edit10KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Edit11KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Edit12KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure ComboBox3KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Memo1KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Memo2KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Edit7KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
      
    var
      frm_yp: Tfrm_yp;
    
    implementation
    
    uses U_data, U_xygdj, U_ypll, U_main;
    
    {$R *.dfm}
    
    procedure Tfrm_yp.editvalue;
    begin
    Edit1.Text:=data1.yp.FieldByName('编号').Value;
    Edit2.Text:=data1.yp.FieldByName('').Value;
    combobox2.Text:=data1.yp.FieldByName('性别').Value;
    combobox1.Text:=data1.yp.FieldByName('民族').Value;
    MaskEdit1.Text:=data1.yp.FieldByName('出生日期').Value;
    Edit6.Text:=data1.yp.FieldByName('联系电话').Value;
    Edit7.Text:=data1.yp.FieldByName('电子信箱').Value;
    Edit8.Text:=data1.yp.FieldByName('特长').Value;
    Edit9.Text:=da