unitnew.~pas

档案管理系统dephi.rar是用dephi编写的档案管理系统,整个系统详细演示了档案管理的整个流程对大家熟悉和学习档案管理很有帮助,同时对dephi的学习者也是非常有利的.

unit Unitnew;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUIForm, ComCtrls, SUIImagePanel,DB,ADODB,
  SUITabControl,Unitcomm, SUIPageControl,jpeg, StdCtrls, SUIEdit,
  SUIComboBox, SUIButton, ImgList, Grids, DBGrids, SUIDBCtrls, SUIMemo;
type
  TForm10 = class(TForm)
    suiForm1: TsuiForm;
    suiPageControl1: TsuiPageControl;
    suiPanel1: TsuiPanel;
    suiImagePanel1: TsuiImagePanel;
    book: TsuiDBGrid;
    suiPageControl2: TsuiPageControl;
    suiTabSheet1: TsuiTabSheet;
    suiTabSheet2: TsuiTabSheet;
    suiTabSheet3: TsuiTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    suiImagePanel2: TsuiImagePanel;
    book_type: TsuiComboBox;
    book_name: TsuiEdit;
    book_price: TsuiEdit;
    book_bh: TsuiEdit;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    suiImagePanel3: TsuiImagePanel;
    fl: TsuiComboBox;
    mz: TsuiEdit;
    jg: TsuiEdit;
    bh: TsuiEdit;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    bz: TsuiEdit;
    Label11: TLabel;
    Label12: TLabel;
    suiImagePanel4: TsuiImagePanel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    beizhu: TsuiEdit;
    lend_name: TsuiEdit;
    lend_people: TsuiEdit;
    time1: TDateTimePicker;
    suiButton3: TsuiButton;
    suiButton4: TsuiButton;
    suiImagePanel5: TsuiImagePanel;
    Label17: TLabel;
    Label18: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    back_bh: TsuiEdit;
    back_people: TsuiEdit;
    suiButton5: TsuiButton;
    suiButton6: TsuiButton;
    suiButton7: TsuiButton;
    jsm: TsuiEdit;
    jq: TsuiEdit;
    Label19: TLabel;
    Label22: TLabel;
    time2: TsuiEdit;
    Label23: TLabel;
    book_num: TsuiEdit;
    book_place: TsuiEdit;
    Label24: TLabel;
    Label25: TLabel;
    num: TsuiEdit;
    lend_bz: TLabel;
    Label26: TLabel;
    back_num: TsuiEdit;
    suiTabSheet4: TsuiTabSheet;
    Label27: TLabel;
    name: TsuiEdit;
    suiImagePanel6: TsuiImagePanel;
    find: TsuiDBGrid;
    suiButton8: TsuiButton;
    bb: TsuiComboBox;
    suiTabSheet5: TsuiTabSheet;
    Label28: TLabel;
    suiImagePanel7: TsuiImagePanel;
    suiButton9: TsuiButton;
    remeber: TsuiMemo;
    suiButton10: TsuiButton;
    procedure suiButton2Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton4Click(Sender: TObject);
    procedure suiButton3Click(Sender: TObject);
    procedure lend_nameChange(Sender: TObject);
    procedure suiButton6Click(Sender: TObject);
    procedure suiButton5Click(Sender: TObject);
    procedure suiButton7Click(Sender: TObject);
    procedure time2Change(Sender: TObject);
    procedure suiImagePanel6Click(Sender: TObject);
    procedure suiButton8Click(Sender: TObject);
    procedure suiButton9Click(Sender: TObject);
    procedure suiButton10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form10: TForm10;

implementation

{$R *.dfm}

procedure TForm10.suiButton2Click(Sender: TObject);
begin
    close;
end;

procedure TForm10.suiButton1Click(Sender: TObject);
var
    BQuery:TADOQuery;
    myDataset:TADODataset;
    myDatasource:TDatasource;
begin
     try
          if fl.Text='' then
            showmessage('新书类型为空，不能入馆!')
         else if mz.Text='' then
            showmessage('书名为空，不能入馆!')
          else if jg.Text='' then
           showmessage('书价为空，不能入馆!')
          else if bh.Text='' then
            showmessage('内部编号没有不能入馆!')
          else if book_num.Text='' then
            showmessage('数量为空，不能入馆!')
          else if book_place.Text='' then
            showmessage('出版商为空，不能入馆!')
         else
           begin
              BQuery:=TADOQuery.Create(self);
              BQuery.Connection:=ADOConn;
              BQuery.SQL.Add('insert book(book_type,book_bh,book_name,book_price,book_bz,book_num,book_place,book_stutas) values (?,?,?,?,?,?,?,'''+'在馆'+''')');
              BQuery.Parameters[0].Value:=fl.Text;
              BQuery.Parameters[1].Value:=bh.Text;
              BQuery.Parameters[2].Value:=mz.Text;
              BQuery.Parameters[3].Value:=jg.Text;
              BQuery.Parameters[4].Value:=bz.Text;
              BQuery.Parameters[5].Value:=book_num.Text;
              BQuery.Parameters[6].Value:=book_place.Text;
              BQuery.ExecSQL;
              BQuery.Free;
              showmessage('恭喜您,新书信息录入成功!');
              myDataset:=TADODataset.Create(self);
              myDataset.Connection:=ADOConn;
              myDatasource:=TDatasource.Create(self);
              myDataset.Connection:=ADOConn;
              myDatasource.DataSet:=myDataset;
              book.DataSource:=myDatasource;

              myDataset.CommandText:='select book_bh,book_type,book_name,book_price,book_bz,book_num,book_place,book_stutas from book';
              mydataset.Active:=true;
          end;
      except
           showmessage('您录入的数据格式有误，请确认后再录入!');
      end;
  end;
procedure TForm10.suiButton4Click(Sender: TObject);
begin
     close;
end;

procedure TForm10.suiButton3Click(Sender: TObject);
var
    LQuery:TADOQuery;
    NDataset:TADODataset;
    n1,n2,n:integer;
begin
      try
          if beizhu.Text='' then
            showmessage('借阅编号不能为空!')
          else if lend_people.Text='' then
           showmessage('借阅人不能为空!')
         else
           begin
              LQuery:=TADOQuery.Create(self);
              LQuery.Connection:=ADOConn;
              LQuery.SQL.Add('insert lend(lend_time,lend_people,lend_bh,lend_num,lend_bz) values (?,?,?,?,?)');
              LQuery.Parameters[2].Value:=beizhu.Text;
              LQuery.Parameters[1].Value:=lend_people.Text;
              LQuery.Parameters[0].Value:=time1.DateTime;
              LQuery.Parameters[3].Value:=num.Text;
              LQuery.Parameters[4].Value:=bb.Text;
              LQuery.ExecSQL;
              LQuery.SQL.Clear;
              {Dataset:=TADODataset.Create(self);
              NDataset.Connection:=ADOConn;
              NDataset.CommandText:='select book_num from book where book_bh='''+beizhu.Text+'''';
              NDataset.Active:=true;
              n1:=NDataset.Fields[0].AsInteger;
              n2:=strtoint(num.Text);
              n:=n1-n2;}
              LQuery.SQL.Add('update book set book_stutas='''+'借阅'+''' where book_bh='''+beizhu.Text+'''');
              LQuery.ExecSQL;
              LQuery.Free;
              showmessage('恭喜您，借阅成功!');
         end;
        except
           showmessage('您录入的数据格式有误，请确认后再录入!');
      end;
end;

procedure TForm10.lend_nameChange(Sender: TObject);
var
   myDataset:TADODAtaset;
begin
     myDataset:=TADODAtaset.Create(self);
     myDataset.Connection:=ADOCOnn;
     myDAtaset.CommandText:='select book_name from book where book_bh='''+beizhu.Text+'''';
     myDataset.Active:=true;
     lend_name.Text:=myDataset.Fields[0].AsString;
     myDataset.Close; 
end;

procedure TForm10.suiButton6Click(Sender: TObject);
begin
     close;
end;

procedure TForm10.suiButton5Click(Sender: TObject);
var
    myQuery:TADOQuery;
   NDataset:TADODataset;
    n1,n2,n:integer;
begin
       {n2:=strtoint(back_num.Text);
       NDataset:=TADODataset.Create(self);
       NDataset.Connection:=ADOConn;
       NDataset.CommandText:='select book_num from book where book_bh='''+back_bh.Text+'''';
       NDataset.Active:=true;
       n1:=NDataset.Fields[0].AsInteger;
       n:=n1+n2; }

       myQuery:=TADOQuery.Create(self);
       myQuery.Connection:=ADOCOnn;
       myQuery.SQL.Add('update lend set back_time='''+time2.Text+''' and lend_num='''+'0'+''' and lend_bz='''+'在馆'+''' where book_bh='''+back_bh.Text+'''');
       myQuery.ExecSQL;
       showmessage('谢谢合作!');
       myQuery.SQL.Clear;
       myQuery.SQL.Add('update book set book_stutas='''+'在馆'+''' where book_bh='''+back_bh.Text+'''');
       myQuery.ExecSQL;
       myQuery.Free;

end;

procedure TForm10.suiButton7Click(Sender: TObject);
var
   askDAtaset:TADODataset;
begin
   askDataset:=TADODAtaset.Create(self);
   askDAtaset.Connection:=ADOConn;
   askdataset.CommandText:='select book_name,lend_time,lend_num from lend,book where book_bh='''+back_bh.Text+''' and lend_bh='''+back_bh.Text+''' and lend_people='''+back_people.Text+'''';
   askDataset.Active:=true;
   jsm.Text:=askDataset.Fields[0].AsString;
   jq.Text:=askDataset.Fields[1].AsString;
   back_num.Text:=askDataset.Fields[2].AsString;
end;

procedure TForm10.time2Change(Sender: TObject);
begin
     time2.Text:=FormatDAtetime('YYYY-MM-DD',Now);
end;

procedure TForm10.suiImagePanel6Click(Sender: TObject);
var
    findDataset:TADODataset;
    findDatasource:TDatasource;
begin
     findDataset:=TADODAtaset.Create(self);
     findDataset.Connection:=ADOConn;
     findDatasource:=TDatasource.Create(self);
     findDatasource.DataSet:=findDAtaset;
     find.DataSource:=findDatasource;
     findDAtaset.CommandText:='select book_bh,book_name,book_stutas from book where book_name like ''%'+name.Text+'%''';
     findDataset.Active:=true;

end;

procedure TForm10.suiButton8Click(Sender: TObject);
begin
     close;
     
end;

procedure TForm10.suiButton9Click(Sender: TObject);
begin
     close;
end;

procedure TForm10.suiButton10Click(Sender: TObject);
var
   rQuery:TADOQuery;
begin
    rQuery:=TADOQuery.Create(self);
    rQuery.Connection:=ADOCOnn;
    rQuery.SQL.Add('insert remeber(r_bw) values ('''+remeber.Text+''')');
    rQuery.ExecSQL;
    rQuery.Close; 

end;

end.