【delphi开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-mrjbzl.pas的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    unit mrjbzl;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Menus, Grids, DBGrids, DB, DBTables, StdCtrls, ExtCtrls,
      ADODB, DBCtrls,jpeg;
    
    type
      Tmrjbzl_Form = class(TForm)
        GroupBox1: TGroupBox;
        Panel1: TPanel;
        xm_LEdit: TLabeledEdit;
        Button1: TButton;
        Button2: TButton;
        PopupMenu1: TPopupMenu;
        DBGrid1: TDBGrid;
        N1: TMenuItem;
        N2: TMenuItem;
        N3: TMenuItem;
        Image1: TImage;
        Image2: TImage;
        procedure DBGrid1CellClick(Column: TColumn);
        procedure Button2Click(Sender: TObject);
        procedure Button1Click(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure FormShow(Sender: TObject);
        procedure N1Click(Sender: TObject);
        procedure N2Click(Sender: TObject);
        procedure N3Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      mrjbzl_Form: Tmrjbzl_Form;
    
    implementation
    
    {$R *.dfm}
     uses main, tjmrjbzl;
    procedure Tmrjbzl_Form.DBGrid1CellClick(Column: TColumn);
    var
      pjpg:tjpegimage;
      pic:TMemoryStream;
    begin
     if not Main_Form.ADOQuery1.FieldByName('tp').IsNull then
      begin
        Image2.Visible :=True;
        pjpg:=tjpegimage.Create;
        pic:=TMemoryStream.Create;
    try
          TBlobField(Main_Form.ADOQuery1.FieldByName('tp')).savetoStream(pic);
          pic.position:=0;
          pjpg.LoadFromStream(pic);
          Image2.Picture.Bitmap.Assign(pjpg);
        finally
          pic.Free;
          pjpg.free;
        end;
      end
    else
        Image2.Visible :=False;
    
    end;
    
    procedure Tmrjbzl_Form.Button2Click(Sender: TObject);
    begin
      xm_LEdit.Text:='';
      Button1Click(Sender);
    end;
    
    procedure Tmrjbzl_Form.Button1Click(Sender: TObject);
    var
      vxm,sqlstr:string;
      n:integer;
      pjpg:tjpegimage;
      pic:TMemoryStream;
    begin
      vxm:=Trim(xm_LEdit.Text);
      sqlstr:='select BH AS 编号,XM AS ,ZI AS 字,HAO AS 号,XB AS 性别,ZC AS 职称,CSNY AS 出生年月,'+
      'JG AS 籍贯,ND AS 年代,ZZ AS 著作, '+
      'GJ AS 国籍,tp from mingren ' ;
      if Length(vxm)<>0 then
      begin   //有输入,模糊查询
        vxm:='%'+vxm+'%';
        sqlstr:=sqlstr+'where(xm like '''+vxm+''')';
      end;
      Main_Form.AddSQL(sqlstr,n);
      if n>0 then
      begin
        N1.Enabled:=True;
        if not Main_Form.ADOQuery1.FieldByName('tp').IsNull then
        begin
          Image2.Visible :=True;
          pjpg:=tjpegimage.Create;
          pic:=TMemoryStream.Create;
          try
            TBlobField(Main_Form.ADOQuery1.FieldByName('tp')).savetoStream(pic);
            pic.position:=0;
            pjpg.LoadFromStream(pic);
            Image2.Picture.Bitmap.Assign(pjpg);
          finally
            pic.Free;
            pjpg.free;
          end;
        end
        else
          Image2.Visible :=False;
      end
      else
        N1.Enabled:=False;
    end;
    
    procedure Tmrjbzl_Form.FormClose(Sender: TObject;
      var Action: TCloseAction);
    begin
      main_form.mainMenu1.Items.Items[0].Visible:=True;
      main_form.Yhqx(Main_form.dlname);
      //Main_Form.N10.Enabled:=True;
      Action:=caFree;
    end;
    
    procedure Tmrjbzl_Form.FormShow(Sender: TObject);
    begin
      Image1.Picture:=Main_Form.Image3.Picture;
      DBGrid1.Cursor:=1;
      Button1Click(Sender);
      xm_LEdit.cursor:=18;
      button1.Cursor:=13;
      button2.Cursor:=13;
    end;
    
    procedure Tmrjbzl_Form.N1Click(Sender: TObject);
    begin
      mrjbzl_Form.Tag:=0;
      Application.CreateForm(Ttjmrjbzl_Form,tjmrjbzl_Form);
      tjmrjbzl_form.show;
      Main_Form.Pingbi();
    end;
    
    procedure Tmrjbzl_Form.N2Click(Sender: TObject);
    begin
      mrjbzl_Form.Tag:=1;
      Application.CreateForm(Ttjmrjbzl_Form,tjmrjbzl_Form);
      tjmrjbzl_form.show;
      Main_Form.Pingbi();
    end;
    
    procedure Tmrjbzl_Form.N3Click(Sender: TObject);
    var
      vjlh,vxm,sqlstr:string;
    begin
      vxm:=main_Form.ADOQuery1.FieldByName('').AsString;
      Main_Form.MyMessageBox('确实要删除"'+vxm+'"名人数据？',2,'yesno');
      if not Main_Form.dhkmk then  exit;
      sqlstr:='delete from mingren where (xm='''+vxm+''')';
      with main_Form.ADOQuery1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add(sqlstr);
        ExecSQL;
      end;
      xm_LEdit.Text:='';
      Button1Click(Sender);
    end;
    
    end.