【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供checkinfo.pas参考，解决您在checkinfo.pas学习中工作中的难题，参考学习。

    unit checkinfo;
    interface
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Grids, DBGrids, ComCtrls, ExtCtrls, DB, ADODB, StdCtrls, DBCtrls,
      ExtDlgs;
    type
      TF_info = class(TForm)
        Panel1: TPanel;
        StatusBar1: TStatusBar;
        DBGrid1: TDBGrid;
        ADOQuery1: TADOQuery;
        Panel2: TPanel;
        PageControl1: TPageControl;
        TabSheet1: TTabSheet;
        TabSheet2: TTabSheet;
        TabSheet3: TTabSheet;
        Edit1: TEdit;
        Label1: TLabel;
        DataSource1: TDataSource;
        DBNavigator1: TDBNavigator;
        OpenPictureDialog1: TOpenPictureDialog;
        Panel3: TPanel;
        DBImage1: TDBImage;
        Label2: TLabel;
       
        procedure TabSheet1Show(Sender: TObject);
        procedure Edit1Change(Sender: TObject);
        procedure DBImage1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    var
      F_info: TF_info;
    implementation
    uses UnitDM;
    {$R *.dfm}
    procedure TF_info.Edit1Change(Sender: TObject);
    var
    TN:string;
    begin
      with f_info.ADOQuery1 do
      begin
        close;
        sql.Clear;
        if f_info.PageControl1.ActivePageIndex=0 then
        TN:=' stu_info'
        else if f_info.PageControl1.ActivePageIndex=1 then
        tn:=' teacherinfo'
        else
        tn:=' Credit';
        sql.Add('select * from '+tn+' where name like :name');
        parameters.ParamByName('name').Value:='%'+trim(edit1.Text)+'%';
        open;
      end;
    end;
    procedure TF_info.TabSheet1Show(Sender: TObject);
    var
    TN:string;
    begin
      with f_info.ADOQuery1 do
      begin
        close;
        sql.Clear;
        if sender= tabsheet1 then
        begin
        TN:=' stu_info';
        panel3.Visible:=true;
        dbimage1.DataField:='photo';
        end
        else if  sender= tabsheet2 then
        begin
        tn:=' teacherinfo';
        dbimage1.DataField:='';
        panel3.Visible:=false;
        end
        else
        begin
        tn:=' Credit';
        panel3.Visible:=false;
        dbimage1.DataField:='';
        end;
        sql.Add('select * from '+tn+' where name like :name');
        parameters.ParamByName('name').Value:='%'+trim(edit1.Text)+'%';
        open;
      end;
    end;
    procedure TF_info.DBImage1Click(Sender: TObject);
    begin
      if openpicturedialog1.Execute then
      begin
      Adoquery1.Edit;
      TblobField(Adoquery1.FieldByName('photo')).loadfromfile(OpenPictureDialog1.FileName);
      adoQuery1.Post;
      end;
    end;
    end.
    
    

上一篇：DlgKeyMessageDlg.cpp
下一篇：恋沫