unit4.pas

一个版本不错的仓库管理系统,可用毕业设计.使用delphi平台,sql数据库

unit Unit4;

interface

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

type
  Txueshengguanli = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    Panel1: TPanel;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    Panel5: TPanel;
    DBGrid3: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Panel4: TPanel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    Panel6: TPanel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    ADOTable1studentid: TWideStringField;
    ADOTable1studentname: TWideStringField;
    ADOTable1studentnum: TWideStringField;
    ADOTable1studentcollage: TWideStringField;
    ADOTable1studentclass: TWideStringField;
    ADOTable1studentage: TWideStringField;
    ADOTable1studentsex: TWideStringField;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    DBGrid2: TDBGrid;
    Panel8: TPanel;
    RadioButton1: TRadioButton;
    Edit13: TEdit;
    Button1: TButton;
    RadioButton2: TRadioButton;
    Edit14: TEdit;
    Panel7: TPanel;
    RadioButton3: TRadioButton;
    Edit8: TEdit;
    Button2: TButton;
    RadioButton4: TRadioButton;
    Edit9: TEdit;
    BitBtn8: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn9: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xueshengguanli: Txueshengguanli;

implementation

{$R *.dfm}

procedure Txueshengguanli.BitBtn1Click(Sender: TObject);
begin
 if dbedit15.Text='' then showmessage('请输入ID')
  else if dbedit16.Text='' then showmessage('请输入姓名')
    else  if dbedit17.Text =''then showmessage('请输入学号')
      else  if dbedit18.Text ='' then showmessage('请输入院系')
        else   if dbedit19.Text ='' then showmessage('请输入班级')
          else   if dbedit20.Text ='' then showmessage('请输入年龄')
          else
begin
 if messagedlg('确实要增加该学生？',mtInformation,[mbOK, mbCancel],0)=mrok then
    begin
          adotable1.Edit;
          adotable1.Append;
          adotable1.FieldByName('studentid').AsString:=dbedit15.Text;
          adotable1.FieldByName('studentname').AsString:=dbedit16.Text;
          adotable1.FieldByName('studentnum').AsString:=dbedit17.Text;
          adotable1.FieldByName('studentcollage').AsString:=dbedit18.Text;
          adotable1.FieldByName('studentclass').AsString:=dbedit19.Text;
          adotable1.FieldByName('studentage').AsString:=dbedit20.Text;
          adotable1.FieldByName('studentsex').AsString:=dbedit21.Text;
          adotable1.post;
          showmessage('添加成功');
          adotable1.Append;

    end
    else
    begin
     showmessage('添加失败');
     adotable1.Append;
    end;
end;
end;

procedure Txueshengguanli.BitBtn3Click(Sender: TObject);
begin
  adotable1.Edit;
  if messagedlg('确实要删除该学生？',mtWarning,[mbOK,mbCancel],0)=mrok then
    begin adotable1.Delete;
           showmessage('删除成功');
    end
    else
    begin
     showmessage('删除失败');
    end;
end;

procedure Txueshengguanli.TabSheet1Show(Sender: TObject);
begin
   adotable1.Append;
end;

procedure Txueshengguanli.TabSheet3Show(Sender: TObject);
begin
  edit1.Text:=adotable1.Fields[0].AsString;
  edit2.Text:=adotable1.Fields[1].AsString;
  edit3.Text:=adotable1.Fields[2].AsString;
  edit4.Text:=adotable1.Fields[3].AsString;
  edit5.Text:=adotable1.Fields[4].AsString;
  edit6.Text:=adotable1.Fields[5].AsString;
  edit7.Text:=adotable1.Fields[6].AsString;
  adotable1.Edit;

end;

procedure Txueshengguanli.DBGrid1CellClick(Column: TColumn);
begin
  edit1.Text:=adotable1.Fields[0].AsString;
  edit2.Text:=adotable1.Fields[1].AsString;
  edit3.Text:=adotable1.Fields[2].AsString;
  edit4.Text:=adotable1.Fields[3].AsString;
  edit5.Text:=adotable1.Fields[4].AsString;
  edit6.Text:=adotable1.Fields[5].AsString;
  edit7.Text:=adotable1.Fields[6].AsString;
end;

procedure Txueshengguanli.BitBtn5Click(Sender: TObject);
begin
  if edit1.Text='' then showmessage('请输入ID')
  else if edit2.Text='' then showmessage('请输入姓名')
    else  if edit3.Text =''then showmessage('请输入学号')
      else  if edit4.Text ='' then showmessage('请输入院系')
        else   if edit5.Text ='' then showmessage('请输入班级')
          else   if edit6.Text ='' then showmessage('请输入年龄')
          else
begin
  adotable1.edit;
  adotable1.Fields[0].AsString:=edit1.Text;
  adotable1.Fields[1].AsString:=edit2.Text;
  adotable1.Fields[2].AsString:=edit3.Text;
  adotable1.Fields[3].AsString:=edit4.Text;
  adotable1.Fields[4].AsString:=edit5.Text;
  adotable1.Fields[5].AsString:=edit6.Text;
  adotable1.Fields[6].AsString:=edit7.Text;
  adotable1.Post;
  showmessage('修改成功');
end;
end;

procedure Txueshengguanli.BitBtn6Click(Sender: TObject);
begin
  adotable1.Refresh;
end;

procedure Txueshengguanli.Button2Click(Sender: TObject);
begin
adotable1.Active:=true;
  if RadioButton3.Checked then

    if not adotable1.Locate('studentid',edit8.Text,[]) then
        begin
             showmessage('没有该同学，请重新输入');
             edit8.Text:='';
         end
     else
         begin
             adotable1.Locate('studentid',edit8.Text,[]);
             edit8.Text:='';
          end;



  if RadioButton4.Checked then
    if not adotable1.Locate('studentname',edit9.Text,[]) then
        begin
             showmessage('没有该同学，请重新输入');
             edit9.Text:='';
         end
     else
         begin
             adotable1.Locate('studentname',edit9.Text,[]);
             edit9.Text:='';
          end;



end;

procedure Txueshengguanli.Button1Click(Sender: TObject);
begin

adotable1.Active:=true;
  if RadioButton1.Checked then

    if not adotable1.Locate('studentid',edit13.Text,[]) then
        begin
             showmessage('没有该同学，请重新输入');
             edit13.Text:='';
         end
     else
         begin
             adotable1.Locate('studentid',edit13.Text,[]);
             edit13.Text:='';
             edit1.Text:=adotable1.Fields[0].AsString;
             edit2.Text:=adotable1.Fields[1].AsString;
             edit3.Text:=adotable1.Fields[2].AsString;
             edit4.Text:=adotable1.Fields[3].AsString;
             edit5.Text:=adotable1.Fields[4].AsString;
             edit5.Text:=adotable1.Fields[5].AsString;
             edit6.Text:=adotable1.Fields[6].AsString;
             edit7.Text:=adotable1.Fields[7].AsString;
          end;



  if RadioButton2.Checked then
    if not adotable1.Locate('studentname',edit14.Text,[]) then
        begin
             showmessage('没有该同学，请重新输入');
             edit14.Text:='';
         end
     else
         begin
             adotable1.Locate('studentname',edit14.Text,[]);
             edit14.Text:='';
             edit1.Text:=adotable1.Fields[0].AsString;
             edit2.Text:=adotable1.Fields[1].AsString;
             edit3.Text:=adotable1.Fields[2].AsString;
             edit4.Text:=adotable1.Fields[3].AsString;
             edit5.Text:=adotable1.Fields[4].AsString;
             edit5.Text:=adotable1.Fields[5].AsString;
             edit6.Text:=adotable1.Fields[6].AsString;
             edit7.Text:=adotable1.Fields[7].AsString;
          end;





  {

adotable1.Active:=true;
adotable1.Refresh;
 showmessage('jksdh sdhfsdhfsdfsdjkfsdlfshjkf');
  if RadioButton1.Checked then

    if not adotable1.Locate('studentid',edit13.Text,[]) then
        begin
             showmessage('没有该同学，请重新输入');
             edit13.Text:='';
         end
     else
         begin
             adotable1.Locate('studentid',edit13.Text,[]);
             edit1.Text:=adotable1.Fields[0].AsString;
             edit2.Text:=adotable1.Fields[1].AsString;
             edit3.Text:=adotable1.Fields[2].AsString;
             edit4.Text:=adotable1.Fields[3].AsString;
             edit5.Text:=adotable1.Fields[4].AsString;
             edit5.Text:=adotable1.Fields[5].AsString;
             edit6.Text:=adotable1.Fields[6].AsString;
             edit7.Text:=adotable1.Fields[7].AsString;
             edit13.Text:='';

          end;


  adotable1.Refresh;
  if RadioButton2.Checked then
    if not adotable1.Locate('studentname',edit14.Text,[]) then
        begin
             showmessage('没有该同学，请重新输入');
             edit14.Text:='';
         end
     else
         begin
             adotable1.Locate('studentname',edit14.Text,[]);
             edit1.Text:=adotable1.Fields[0].AsString;
             edit2.Text:=adotable1.Fields[1].AsString;
             edit3.Text:=adotable1.Fields[2].AsString;
             edit4.Text:=adotable1.Fields[3].AsString;
             edit5.Text:=adotable1.Fields[4].AsString;
             edit5.Text:=adotable1.Fields[5].AsString;
             edit6.Text:=adotable1.Fields[6].AsString;
             edit7.Text:=adotable1.Fields[7].AsString;
             edit14.Text:='';
          end;       }


               ////////图书信息修改选择

 { if RadioButton4.Checked then
    if not adotable1.Locate('bookname',edit16.Text,[]) then
        begin
             showmessage('没有这本书，请重新输入');
             edit16.Text:='';
         end
     else
         begin
             adotable1.Locate('bookname',edit16.Text,[]);
             edit9.Text:=adotable1.Fields[0].AsString;
             edit10.Text:=adotable1.Fields[1].AsString;
             edit11.Text:=adotable1.Fields[2].AsString;
             edit12.Text:=adotable1.Fields[3].AsString;
             edit16.Text:='';
          end;  }


end;

procedure Txueshengguanli.BitBtn9Click(Sender: TObject);
begin
  close;
end;

procedure Txueshengguanli.BitBtn7Click(Sender: TObject);
begin
close;
end;

procedure Txueshengguanli.BitBtn8Click(Sender: TObject);
begin
close;
end;

procedure Txueshengguanli.BitBtn2Click(Sender: TObject);
begin
   adotable1.Append;
end;

procedure Txueshengguanli.BitBtn4Click(Sender: TObject);
begin
adotable1.Refresh;
end;

end.