student.pas

大二时做的

unit student;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, Grids, DBGrids, ExtCtrls, DBCtrls, Mask,
  DBTables, ExtDlgs, jpeg, ADODB;

type
  TF_student = class(TForm)
    DataSource1: TDataSource;
    DBEdit1: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label8: TLabel;
    DBEdit3: TDBEdit;
    DBEdit6: TDBEdit;
    DBGrid1: TDBGrid;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    DBEdit4: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBImage1: TDBImage;
    OpenPictureDialog1: TOpenPictureDialog;
    Panel1: TPanel;
    Btnqry: TButton;
    Cmbdepart: TComboBox;
    Label10: TLabel;
    Label11: TLabel;
    Cmbclass: TComboBox;
    Label12: TLabel;
    Edname: TEdit;
    Btnadd: TButton;
    Btnedt: TButton;
    Btndlt: TButton;
    Btnsav: TButton;
    Btnimport: TButton;
    ADOQe: TADOQuery;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    ADOQryStu: TADOQuery;
    ADOQryStustudentno: TStringField;
    ADOQryStuname: TStringField;
    ADOQryStusex: TStringField;
    ADOQryStubirthday: TDateTimeField;
    ADOQryStudepart: TStringField;
    ADOQryStuenteryear: TIntegerField;
    ADOQryStuclassno: TStringField;
    ADOQryStuspecialty: TStringField;
    ADOQryStuphoto: TBlobField;
    ADOQryStupassword: TStringField;
    ADOQryStuID: TAutoIncField;
    Image1: TImage;
    ADOTable1: TADOTable;
    DataSource2: TDataSource;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure CmbdepartChange(Sender: TObject);
    procedure BtnqryClick(Sender: TObject);
    procedure BtnaddClick(Sender: TObject);
    procedure BtnedtClick(Sender: TObject);
    procedure BtndltClick(Sender: TObject);
    procedure BtnsavClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_student: TF_student;

implementation

uses dlgaddstu;

{$R *.dfm}

procedure TF_student.BitBtn1Click(Sender: TObject);
begin
     F_student.close ;
end;

procedure TF_student.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     Action := caFree;
end;

procedure TF_student.Button1Click(Sender: TObject);
var graphic1:TGraphic;
begin

   if OpenPictureDialog1.Execute then
   begin
    graphic1:=TGraphic.Create;
     graphic1.loadfromfile(OpenPictureDialog1.filename);

    //image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
   // dbimage1.Picture :=  image1.Picture;
   adoQryStu.edit;
   adoQryStu.fieldbyname('photo').Assign(graphic1) ;
    adoQryStu.Post;
      adotable1.edit;
      adotable1.fieldbyname('photo').Assign(image1.Picture) ;
     adotable1.Post;
     graphic1.Free ;
    end;
end;


procedure TF_student.CmbdepartChange(Sender: TObject);
begin
    cmbclass.Items.Clear ;
    cmbclass.Items.Add('全部');
    adoqe.SQL.Clear ;
    adoqe.sql.Add('select classno from class where depart='''+Cmbdepart.Text +''' ');
    adoqe.Open;

    while not adoqe.Eof do
    begin
    cmbclass.Items.Add(adoqe.fieldbyname('classno').AsString );
    adoqe.Next ;
    end;
end;

procedure TF_student.BtnqryClick(Sender: TObject);
var sqlstr:string;
begin
     sqlstr:='select * from student where name like ''%'+edname.text+'%'' ';
     if cmbdepart.text<>'全部' then
     sqlstr:=sqlstr+' and depart='''+cmbdepart.text+'''  '   ;
     if cmbclass.text<>'全部' then
     sqlstr:=sqlstr+' and classno='''+cmbclass.text+'''  '   ;
     adoQryStu.sql.Clear ;
     adoQryStu.SQL.Add(sqlstr);
     adoQryStu.Open ;

end;

procedure TF_student.BtnaddClick(Sender: TObject);
begin
   dlg_addstu.showmodal;
   adoQryStu.active:=false ;
   adoQryStu.active:=true ;
end;

procedure TF_student.BtnedtClick(Sender: TObject);
begin
      adoQryStu.Edit ;
end;

procedure TF_student.BtndltClick(Sender: TObject);
begin
    if MessageDlg('是否确定要删除信息?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    adoQryStu.Delete  ;
end;

procedure TF_student.BtnsavClick(Sender: TObject);
begin

        adoQryStu.Post ;
end;

end.