📄 unit1.pas

📁 图书管理系统简介随着科学技术的飞速发展
💻 PAS
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
  ADOQuery.SQL.Add('select * from tab_empinfo where employer_id=:A');
  ADOQuery.Parameters.ParamByName('A').Value:=edit19.Text;
  ADOQuery.Open;
  if ADOQuery.RecordCount<=0 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_empinfo where employer_id=:A');
    ADOQuery.Parameters.ParamByName('A').Value:=edit19.Text;
    try
      ADOQuery.ExecSQL;
      MessageDlg('记录删除成功！！', mtInformation, [mbYes],0);
    except
      MessageDlg('操作失败！！', mtInformation, [mbYes],0);
    end;
  end;
  form1.emp_refrish;
  N12.Click;
  ADOQuery.Free;
end;

procedure TForm1.emp_YN_null;
begin
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  edit4.Text:='';
  edit5.Text:='';
  edit6.Text:='';
  edit7.Text:='';
  edit8.Text:='';
  edit9.Text:='';
  edit10.Text:='';
  edit11.Text:='无';
  edit12.Text:='';
  edit13.Text:='';
  edit14.Text:='';
  edit15.Text:='';
  edit16.Text:='';
  edit17.Text:='';
  edit18.Text:='';
  edit19.Text:='';
  edit20.Text:='';
  edit21.Text:='';
  edit22.Text:='';
  edit23.Text:='';
  edit24.Text:='';
  edit25.Text:='';
  edit26.Text:='';
  edit29.Text:='';
  edit32.Text:='';
  edit33.Text:='';
  edit34.Text:='';
  edit35.Text:='';
  edit29.Enabled:=false;
  edit30.Text:='';
  edit30.Enabled:=false;
  edit31.Text:='';
  edit31.Enabled:=false;
  button19.Enabled:=false;
  button20.Enabled:=false;
  button21.Enabled:=false;
  button22.Enabled:=false;
  combobox7.Text:='-----请选择查询类别-----';
  combobox7.Enabled:=false;
  Combobox1.Text:='默认';
  Combobox2.Text:='默认';
  Combobox3.Text:='默认';
  Combobox4.Text:='默认';
  Combobox5.Text:='-----请选择查询类别-----';
  Combobox6.Text:='-----请选择查询类别-----';
  edit27.Text:='';
  edit28.Text:='';
  image2.Picture:=nil;
  image3.Picture:=nil;
end;

procedure TForm1.Button15Click(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);
      image3.Picture.Assign(Pic_pub.Bitmap);
      image3.stretch:=true;
    end;
  end;
  OpenDialog.Free;
end;

procedure TForm1.Button14Click(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 edit21.Text='' then
  begin
    MessageDlg('客户姓名不能为空！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  if edit22.Text='' then
  begin
    MessageDlg('客户年龄不能为空！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  if edit23.Text='' then
  begin
    MessageDlg('客户出生日期不能为空！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  if edit24.Text='' then
  begin
    MessageDlg('客户家庭住址不能为空！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  if Combobox4.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_pasinfo (passenger_id,pas_name,pas_sex,pas_age,pas_birthday,pas_address,pas_comeday) values (:A,:S,:D,:F,:G,:H,:J)');
    ADOQuery.Parameters.ParamByName('A').Value:=Edit20.Text;
    ADOQuery.Parameters.ParamByName('S').Value:=Edit21.Text;
    ADOQuery.Parameters.ParamByName('D').Value:=Combobox4.Text;
    ADOQuery.Parameters.ParamByName('F').Value:=Edit22.Text;
    ADOQuery.Parameters.ParamByName('G').Value:=Edit23.Text;
    ADOQuery.Parameters.ParamByName('H').Value:=Edit24.Text;
    ADOQuery.Parameters.ParamByName('J').Value:=Edit25.Text;
  end
  else
  begin                                          //有照片时的员工添加
    ADOQuery.SQL.Add('insert into tab_pasinfo (passenger_id,pas_name,pas_sex,pas_age,pas_birthday,pas_address,pas_comeday,pas_photo) values (:A,:S,:D,:F,:G,:H,:J,:K)');
    ADOQuery.Parameters.ParamByName('A').Value:=Edit20.Text;
    ADOQuery.Parameters.ParamByName('S').Value:=Edit21.Text;
    ADOQuery.Parameters.ParamByName('D').Value:=Combobox4.Text;
    ADOQuery.Parameters.ParamByName('F').Value:=Edit22.Text;
    ADOQuery.Parameters.ParamByName('G').Value:=Edit23.Text;
    ADOQuery.Parameters.ParamByName('H').Value:=Edit24.Text;
    ADOQuery.Parameters.ParamByName('J').Value:=Edit25.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;
  panel6.Caption:='没有照片';
  form1.emp_refrish;
  N15.Click ;
  ADOQuery.Free;
end;

procedure TForm1.N15Click(Sender: TObject);
var
  ADOQuery:TADOQuery;
begin
  form_panel4Click();
  emp_YN_null;
  PageControl1.ActivePageIndex:=5;
  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 passenger_id from tab_pasinfo');
  ADOQuery.Open;
  ADOQuery.Last;
  edit20.Text:= Myjiami.db_idtoadd(ADOQuery.FieldValues['passenger_id'],10);
  edit25.Text:= formatdatetime('yyyy/mm/dd',now);
  edit20.Enabled:=false;
  edit25.Enabled:=false;
  edit21.Enabled:=true;
  edit22.Enabled:=true;
  edit23.Enabled:=true;
  edit24.Enabled:=true;
  combobox4.Enabled:=true;
  button14.Enabled:=true;
  button15.Enabled:=true;
  button16.Enabled:=false;
  button17.Enabled:=false;
  button18.Enabled:=false;
  edit26.Enabled:=false;
  form1.pas_refrish;
  ADOQuery.Free;
end;

procedure TForm1.Button16Click(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 edit21.Text='' then
  begin
    MessageDlg('客户姓名不能为空！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  if edit22.Text='' then
  begin
    MessageDlg('客户年龄不能为空！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  if edit23.Text='' then
  begin
    MessageDlg('客户出生日期不能为空！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  if edit24.Text='' then
  begin
    MessageDlg('客户家庭住址不能为空！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  if Combobox4.Text='默认' then
  begin
    MessageDlg('请选择性别！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
//----------记录是否存在-----
  ADOQuery.Close;
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.Add('select * from tab_pasinfo where passenger_id=:A');
  ADOQuery.Parameters.ParamByName('A').Value:=edit20.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_pasinfo set pas_name=:S,pas_sex=:D,pas_age=:F,pas_address=:G where passenger_id=:A');
    ADOQuery.Parameters.ParamByName('S').Value:=edit21.Text;
    ADOQuery.Parameters.ParamByName('D').Value:=combobox4.Text;
    ADOQuery.Parameters.ParamByName('F').Value:=edit22.Text;
    ADOQuery.Parameters.ParamByName('G').Value:=edit24.Text;
    ADOQuery.Parameters.ParamByName('A').Value:=edit20.Text;
  end
  else
  begin                                         //有照片时的更新
    ADOQuery.SQL.Add('update tab_pasinfo set pas_name=:S,pas_sex=:D,pas_age=:F,pas_address=:G,pas_photo=:H where passenger_id=:A');
    ADOQuery.Parameters.ParamByName('S').Value:=edit21.Text;
    ADOQuery.Parameters.ParamByName('D').Value:=combobox4.Text;
    ADOQuery.Parameters.ParamByName('F').Value:=edit22.Text;
    ADOQuery.Parameters.ParamByName('G').Value:=edit24.Text;
    ADOQuery.Parameters.ParamByName('H').Assign(pic_pub);
    ADOQuery.Parameters.ParamByName('A').Value:=edit20.Text;
  end;
  try
    ADOQuery.ExecSQL;
    MessageDlg('客户更新成功！！', mtInformation, [mbYes],0);
    panel5.Caption:='没有照片';
    Pic_pub.Bitmap:=nil;
  except
    MessageDlg('操作失败！！', mtInformation, [mbYes],0);
  end;
  form1.emp_refrish;
  N16.Click;
  ADOQuery.Free;
end;

procedure TForm1.Button17Click(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_pasinfo where passenger_id=:A');
  ADOQuery.Parameters.ParamByName('A').Value:=edit20.Text;
  ADOQuery.Open;
  if ADOQuery.RecordCount>0 then
  begin
    edit20.Text:=ADOQuery.FieldValues['passenger_id'];
    edit21.Text:=ADOQuery.FieldValues['pas_name'];
    Combobox4.Text:=ADOQuery.FieldValues['pas_sex'];
    edit22.Text:=ADOQuery.FieldValues['pas_age'];
    edit23.Text:=ADOQuery.FieldValues['pas_birthday'];
    edit24.Text:=ADOQuery.FieldValues['pas_address'];
    edit25.Text:=ADOQuery.FieldValues['pas_comeday'];
    Pic_pub.Assign(ADOQuery.FieldByName('pas_photo'));
    if Pic_pub.Bitmap.HandleAllocated=true then //判断PIC_PUB是否有图片
    begin
      image3.Picture.Assign(Pic_pub.Bitmap);
      image3.Stretch:=true;
    end
    else
    begin
      image3.Picture:=nil;
      Pic_pub.Bitmap:=nil;
    end;
  end
  else
  begin
    MessageDlg('没有这个客户的记录！！', mtInformation, [mbYes],0);
  end;
  edit20.Enabled:=false;
  edit21.Enabled:=true;
  edit22.Enabled:=true;
  edit23.Enabled:=true;
  edit24.Enabled:=true;
  combobox4.Enabled:=true;
  button14.Enabled:=false;
  button15.Enabled:=true;
  button16.Enabled:=true;
  button17.Enabled:=false;
  button18.Enabled:=false;
  edit26.Enabled:=false;
  ADOQuery.Free;
end;

procedure TForm1.Button18Click(Sender: TObject);
var
  ADOQuery:TADOQuery;
  str:string;
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 edit26.Text='' then
  begin
    MessageDlg('请输入要删除的客户编号！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  ADOQuery.Close;
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.Add('select * from tab_pasinfo where passenger_id=:A');
  ADOQuery.Parameters.ParamByName('A').Value:=trim(edit26.Text);
  ADOQuery.Open;
  if ADOQuery.RecordCount<=0 then
  begin
    MessageDlg('记录不存在！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  if MessageDlg('你真的要删除这个记录吗？！！', mtInformation, [mbYes,mbNo],0)=mrYes then
  begin
    ADOQuery.Close;
    ADOQuery.SQL.Cle
上一页 1 2 3 45
💿 文件大小 1646 K
👤 上传用户 lanyunhan
📂 所属分类教育系统应用
🏷️ 相关标签

#图书管理 #发展
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -