unit1.pas

图书管理系统 简介 随着科学技术的飞速发展

  ADOQuery.Free;
end;

procedure TForm1.Button6Click(Sender: TObject);
var
  ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(self);
  ADOQuery.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                              extractfilepath(application.ExeName)+
                              'DATA\db_booksys.mdb;Persist Security Info=False';   //连接字符串
  ADOQuery.Close;
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.Add('update tab_bookinfo set book_name=:A,book_writer=:S,book_classid=:D,book_publishid=:F,book_pub_times=:G,book_version=:H,book_price=:J,book_information=:K where book_id=:L');
  ADOQuery.Parameters.ParamByName('A').Value:=Edit6.Text;
  ADOQuery.Parameters.ParamByName('S').Value:=Edit7.Text;
  ADOQuery.Parameters.ParamByName('D').Value:= str_bookclassid;
  ADOQuery.Parameters.ParamByName('F').Value:=str_bookpublishid;
  ADOQuery.Parameters.ParamByName('G').Value:=Edit8.Text;
  ADOQuery.Parameters.ParamByName('H').Value:=Edit9.Text;
  ADOQuery.Parameters.ParamByName('J').Value:=Edit10.Text;
  ADOQuery.Parameters.ParamByName('K').Value:=Edit11.Text;
  ADOQuery.Parameters.ParamByName('L').Value:=Edit5.Text;
  try
    ADOQuery.ExecSQL;
    MessageDlg('数据已成功更新！！', mtInformation, [mbYes], 0);
  except
    MessageDlg('操作失败！！', mtInformation, [mbYes],0);
  end;
  button6.Enabled:=false;
  button8.Enabled:=true;
  N5.Click;
  form1.book_refrish;
  ADOQuery.Free;
end;

procedure TForm1.Button7Click(Sender: TObject);
var
  ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(self);
  ADOQuery.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                              extractfilepath(application.ExeName)+
                              'DATA\db_booksys.mdb;Persist Security Info=False';   //连接字符串
  if edit12.Text='' then
  begin
    MessageDlg('请输入要删除的图书编号！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  if MessageDlg('你真的要删除这条记录吗？！！', mtInformation, [mbYes,mbNo],0)= mrYes then
  begin
    ADOQuery.Close;
    ADOQuery.SQL.Clear;
    ADOQuery.SQL.Add('delete from tab_bookinfo where book_id=:A');
    ADOQuery.Parameters.ParamByName('A').Value:= edit12.text;
    try
      ADOQuery.ExecSQL;
      MessageDlg('删除记录成功！！', mtInformation, [mbYes],0);
    except
      MessageDlg('操作失败！！', mtInformation, [mbYes],0);
    end;
  end;
  form1.book_refrish;
  ADOQuery.Free;
end;

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
  form_panel4Click();
  PageControl1.ActivePageIndex:=1;
end;

procedure TForm1.form_panel4Click();
begin
  Panel2.Align:=alBottom;          //设置PANEL的对齐方式
  Panel2.Cursor:=crHandPoint;      //设置鼠标效果
  Panel4.Cursor:=crDefault;        //设置鼠标效果
  ScrollBox1.Visible:=true;        //设置组件是否可见
  if form2.fm_bool then
  begin
    form2.Close;
  end;
end;

procedure TForm1.Button10Click(Sender: TObject);
var
  OpenDialog:TOpenDialog;
begin
  OpenDialog:=TOpenDialog.Create(self);
  opendialog.Title:='请选择照片';
  opendialog.Filter:='照片文件|*.bmp';
  if OpenDialog.Execute then
  begin
    //--------------闪屏的图片设置--------
    //如果不是位图则直接载入JPEG对象
    if OpenDialog.FileName<>'' then
    begin
      Pic_pub.LoadFromFile(OpenDialog.FileName);
      image2.Picture.Assign(Pic_pub.Bitmap);
      image2.stretch:=true;
      panel5.Caption:='有';
    end;
  end;
  OpenDialog.Free;
end;
//设置窗体为不可拖动
procedure TForm1.Panel3UnDock(Sender: TObject; Client: TControl;
  NewTarget: TWinControl; var Allow: Boolean);
begin
   if newtarget<>sender then
      ALLOW:=FALSE
   else
      Allow:=true;//设置窗体为不可拖动
end;
//员工信息添加
procedure TForm1.Button9Click(Sender: TObject);
var
  ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(self);
  ADOQuery.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                              extractfilepath(application.ExeName)+
                              'DATA\db_booksys.mdb;Persist Security Info=False';   //连接字符串
//-----系统容错---------
  if edit14.Text='' then
  begin
    MessageDlg('员工姓名不能为空！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  if edit15.Text='' then
  begin
    MessageDlg('员工年龄不能为空！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  if edit16.Text='' then
  begin
    MessageDlg('员工出生日期不能为空！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  if edit17.Text='' then
  begin
    MessageDlg('员工家庭住址不能为空！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  if Combobox3.Text='默认' then
  begin
    MessageDlg('请选择性别！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
//---------添加操作----=-----
  ADOQuery.Close;
  ADOQuery.SQL.Clear;
  if Pic_pub.Bitmap.HandleAllocated=false then  //没有照片时的员工添加
  begin
    ADOQuery.SQL.Add('insert into tab_empinfo (employer_id,emp_name,emp_sex,emp_age,emp_birthday,emp_address,emp_comeday) values (:A,:S,:D,:F,:G,:H,:J)');
    ADOQuery.Parameters.ParamByName('A').Value:=Edit13.Text;
    ADOQuery.Parameters.ParamByName('S').Value:=Edit14.Text;
    ADOQuery.Parameters.ParamByName('D').Value:=Combobox3.Text;
    ADOQuery.Parameters.ParamByName('F').Value:=Edit15.Text;
    ADOQuery.Parameters.ParamByName('G').Value:=Edit16.Text;
    ADOQuery.Parameters.ParamByName('H').Value:=Edit17.Text;
    ADOQuery.Parameters.ParamByName('J').Value:=Edit18.Text;
  end
  else
  begin                                          //有照片时的员工添加
    ADOQuery.SQL.Add('insert into tab_empinfo (employer_id,emp_name,emp_sex,emp_age,emp_birthday,emp_address,emp_comeday,emp_photo) values (:A,:S,:D,:F,:G,:H,:J,:K)');
    ADOQuery.Parameters.ParamByName('A').Value:=Edit13.Text;
    ADOQuery.Parameters.ParamByName('S').Value:=Edit14.Text;
    ADOQuery.Parameters.ParamByName('D').Value:=Combobox3.Text;
    ADOQuery.Parameters.ParamByName('F').Value:=Edit15.Text;
    ADOQuery.Parameters.ParamByName('G').Value:=Edit16.Text;
    ADOQuery.Parameters.ParamByName('H').Value:=Edit17.Text;
    ADOQuery.Parameters.ParamByName('J').Value:=Edit18.Text;
    ADOQuery.Parameters.ParamByName('K').Assign(Pic_pub);
  end;
  try
    ADOQuery.ExecSQL;
    MessageDlg('员工添加成功！！', mtInformation, [mbYes],0);
    Pic_pub:=nil;
  except
    MessageDlg('操作失败！！', mtInformation, [mbYes],0);
  end;
  image2.Picture:=nil;
  panel5.Caption:='没有照片';
  form1.emp_refrish;
  N10.Click;
  ADOQuery.Free;
end;

procedure TForm1.N10Click(Sender: TObject);
var
  ADOQuery:TADOQuery;
begin
  form_panel4Click();
  emp_YN_null;
  form1.pas_refrish;
  PageControl1.ActivePageIndex:=4;
  ADOQuery:=TADOQuery.Create(self);
  ADOQuery.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                              extractfilepath(application.ExeName)+
                              'DATA\db_booksys.mdb;Persist Security Info=False';   //连接字符串
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.Add('select employer_id from tab_empinfo');
  ADOQuery.Open;
  ADOQuery.Last;
  edit13.Text:= Myjiami.db_idtoadd(ADOQuery.FieldValues['employer_id'],10);
  edit18.Text:= formatdatetime('yyyy/mm/dd',now);
  edit13.Enabled:=false;
  edit18.Enabled:=false;
  edit14.Enabled:=true;
  edit15.Enabled:=true;
  edit16.Enabled:=true;
  edit17.Enabled:=true;
  edit19.Enabled:=false;
  combobox3.Enabled:=true;
  button9.Enabled:=true;
  button10.Enabled:=true;
  button11.Enabled:=false;
  button12.Enabled:=false;
  button13.Enabled:=false;
  form1.emp_refrish;
  ADOQuery.Free;
end;
//设置组件只读
procedure TForm1.ComboBox3KeyPress(Sender: TObject; var Key: Char);
begin
  key:=#0;
end;
//员工查询
procedure TForm1.Button13Click(Sender: TObject);
var
  ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(SELF);
  ADOQuery.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                              extractfilepath(application.ExeName)+
                              'DATA\db_booksys.mdb;Persist Security Info=False';   //连接字符串
  ADOQuery.Close;
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.Add('select * from tab_empinfo where employer_id=:A');
  ADOQuery.Parameters.ParamByName('A').Value:=edit13.Text;
  ADOQuery.Open;
  if ADOQuery.RecordCount>0 then
  begin
    edit13.Text:=ADOQuery.FieldValues['employer_id'];
    edit14.Text:=ADOQuery.FieldValues['emp_name'];
    Combobox3.Text:=ADOQuery.FieldValues['emp_sex'];
    edit15.Text:=ADOQuery.FieldValues['emp_age'];
    edit16.Text:=ADOQuery.FieldValues['emp_birthday'];
    edit17.Text:=ADOQuery.FieldValues['emp_address'];
    edit18.Text:=ADOQuery.FieldValues['emp_comeday'];
    Pic_pub.Assign(ADOQuery.FieldByName('emp_photo'));
    if Pic_pub.Bitmap.HandleAllocated=true then //判断PIC_PUB是否有图片
    begin
      image2.Picture.Assign(Pic_pub.Bitmap);
      image2.Stretch:=true;
    end
    else
    begin
      image2.Picture:=nil;
      Pic_pub.Bitmap:=nil;
    end;
  end
  else
  begin
    MessageDlg('没有这个员工的记录！！', mtInformation, [mbYes],0);
  end;
  edit13.Enabled:=false;
  edit14.Enabled:=true;
  edit15.Enabled:=true;
  edit16.Enabled:=true;
  edit17.Enabled:=true;
  button11.Enabled:=true;
  button13.Enabled:=false;
  combobox3.Enabled:=true;
  button10.Enabled:=true;
  button13.Enabled:=false;
  ADOQuery.Free;
end;

procedure TForm1.Button11Click(Sender: TObject);
var
  ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(SELF);
  ADOQuery.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                              extractfilepath(application.ExeName)+
                              'DATA\db_booksys.mdb;Persist Security Info=False';   //连接字符串
//--------系统容错-------
  if edit14.Text='' then
  begin
    MessageDlg('员工姓名不能为空！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  if edit15.Text='' then
  begin
    MessageDlg('员工年龄不能为空！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  if edit16.Text='' then
  begin
    MessageDlg('员工出生日期不能为空！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  if edit17.Text='' then
  begin
    MessageDlg('员工家庭住址不能为空！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  if Combobox3.Text='默认' then
  begin
    MessageDlg('请选择性别！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
//----------记录是否存在-----
  ADOQuery.Close;
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.Add('select * from tab_empinfo where employer_id=:A');
  ADOQuery.Parameters.ParamByName('A').Value:=edit13.Text;
  ADOQuery.Open;
  if  ADOQuery.RecordCount<=0 then
  begin
    MessageDlg('记录不存在无法更新！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
//----------更新操作----------
  ADOQuery.Close;
  ADOQuery.SQL.Clear;
  if Pic_pub.Bitmap.HandleAllocated=false then  //没有照片时的更新
  begin
    ADOQuery.SQL.Add('update tab_empinfo set emp_name=:S,emp_sex=:D,emp_age=:F,emp_address=:G where employer_id=:A');
    ADOQuery.Parameters.ParamByName('S').Value:=edit14.Text;
    ADOQuery.Parameters.ParamByName('D').Value:=combobox3.Text;
    ADOQuery.Parameters.ParamByName('F').Value:=edit15.Text;
    ADOQuery.Parameters.ParamByName('G').Value:=edit17.Text;
    ADOQuery.Parameters.ParamByName('A').Value:=edit13.Text;
  end
  else
  begin                                         //有照片时的更新
    ADOQuery.SQL.Add('update tab_empinfo set emp_name=:S,emp_sex=:D,emp_age=:F,emp_address=:G,emp_photo=:H where employer_id=:A');
    ADOQuery.Parameters.ParamByName('S').Value:=edit14.Text;
    ADOQuery.Parameters.ParamByName('D').Value:=combobox3.Text;
    ADOQuery.Parameters.ParamByName('F').Value:=edit15.Text;
    ADOQuery.Parameters.ParamByName('G').Value:=edit17.Text;
    ADOQuery.Parameters.ParamByName('H').Assign(pic_pub);
    ADOQuery.Parameters.ParamByName('A').Value:=edit13.Text;
  end;
  try
    ADOQuery.ExecSQL;
    MessageDlg('员工更新成功！！', mtInformation, [mbYes],0);
    panel5.Caption:='没有照片';
    Pic_pub.Bitmap:=nil;
  except
    MessageDlg('操作失败！！', mtInformation, [mbYes],0);
  end;
  form1.emp_refrish;
  N11.Click;
  ADOQuery.Free;
end;
//删除员工操作
procedure TForm1.Button12Click(Sender: TObject);
var
  ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(SELF);
  ADOQuery.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                              extractfilepath(application.ExeName)+
                              'DATA\db_booksys.mdb;Persist Security Info=False';   //连接字符串
  if edit19.Text='' then
  begin
    MessageDlg('请输入要删除的员工编号！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  ADOQuery.Close;
  ADOQuery.SQL.Clear;