unitzz.~pas

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

unit Unitzz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUIForm,Unitcomm,DB,ADODB, SUIPageControl,
  SUITabControl, SUIButton, StdCtrls, SUIComboBox, SUIImagePanel, SUIEdit,
  DBCtrls, SUIDBCtrls, Grids, DBGrids;

type
  TForm11 = class(TForm)
    suiForm1: TsuiForm;
    suiPageControl1: TsuiPageControl;
    suiTabSheet1: TsuiTabSheet;
    suiTabSheet2: TsuiTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    m_q: TsuiComboBox;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    suiImagePanel1: TsuiImagePanel;
    m_name: TsuiEdit;
    suiImagePanel2: TsuiImagePanel;
    b_sm: TsuiEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    b_name: TsuiEdit;
    b_lend: TsuiEdit;
    b_back: TsuiEdit;
    suiButton3: TsuiButton;
    suiButton5: TsuiButton;
    suiImagePanel3: TsuiImagePanel;
    suiTabSheet3: TsuiTabSheet;
    suiImagePanel4: TsuiImagePanel;
    del: TsuiDBGrid;
    Label6: TLabel;
    suiButton4: TsuiButton;
    suiButton6: TsuiButton;
    procedure suiButton2Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton5Click(Sender: TObject);
    procedure suiButton3Click(Sender: TObject);
    procedure suiImagePanel3Click(Sender: TObject);
    procedure suiButton4Click(Sender: TObject);
    procedure suiButton6Click(Sender: TObject);
    procedure formshow(Sender: TObject);
    procedure deldbiclick(Sender: TObject);
    procedure b_lendChange(Sender: TObject);
    procedure b_backChange(Sender: TObject);
  private

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation

{$R *.dfm}
uses
    Unitdel1;

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

procedure TForm11.suiButton1Click(Sender: TObject);
var
    myQuery:TADOQuery;
begin
     myQuery:=TADOQuery.Create(self);
     myQuery.Connection:=ADOCOnn;
     myQuery.SQL.Add('insert magazine(m_name,m_q) values (?,?)');
     myQuery.Parameters[0].Value:=m_name.Text;
     myQuery.Parameters[1].Value:=m_q.Text;
     myQuery.ExecSQL;
     myQuery.Free;
     showmessage('恭喜您，新杂志信息录入成功!');
end;

procedure TForm11.suiButton5Click(Sender: TObject);
begin
     close;
end;

procedure TForm11.suiButton3Click(Sender: TObject);
var
    ZQuery:TADOQuery;
begin
     ZQuery:=TADOQuery.Create(self);
     ZQuery.Connection:=ADOConn;
     ZQuery.SQL.Add('insert lendm(b_name,b_lend,b_sm) values (?,?,?)');
     ZQuery.Parameters[0].Value:=b_name.Text;
     ZQuery.Parameters[1].Value:=b_lend.Text;
     ZQuery.Parameters[2].Value:=b_sm.Text;
     ZQuery.ExecSQL;
     ZQuery.Free;
     showmessage('借阅成功!');

end;

procedure TForm11.suiImagePanel3Click(Sender: TObject);
var
    askDataset:TADODataset;
begin
    askDataset:=TADODAtaset.Create(self);
    askDataset.Connection:=ADOConn;
    askDataset.CommandText:='select b_name,b_sm,b_lend from lendm where b_name='''+b_name.Text+''' and b_sm='''+b_sm.Text+'''';
    askDataset.Active:=true;
    b_lend.Text:=askDataset.Fields[2].AsString;
    askDataset.Close;
    
end;

procedure TForm11.suiButton4Click(Sender: TObject);
begin
     close;
end;

procedure TForm11.suiButton6Click(Sender: TObject);
var
     gQuery:TADOQuery;
begin
     gQuery:=TADOQuery.Create(self);
     gQuery.Connection:=ADOCOnn;
     gQuery.SQL.Add('update lendm set b_back='''+b_back.Text+'''');
     gQuery.ExecSQL;
     gQuery.Free;
     showmessage('归还信息录入成功!');

end;

procedure TForm11.formshow(Sender: TObject);
var
    myDataset:TADODataset;
    myDAtasource:TDatasource;
begin
     myDataset:=TADODataset.Create(self);
     myDataset.Connection:=ADOConn;
     myDatasource:=TDAtasource.Create(self);
     myDatasource.DataSet:=myDataset;
     del.DataSource:=myDatasource;
     myDataset.CommandText:='select * from lendm';
     myDataset.Active:=true;
end;
procedure TForm11.deldbiclick(Sender: TObject);
var
    frm12:TForm12;
begin
     frm12:=TForm12.Create(self);
     frm12.Tid:=del.Fields[0].AsString;
     frm12.ShowModal;
     frm12.Free;
     self.Close;

end;

procedure TForm11.b_lendChange(Sender: TObject);
begin
      b_lend.Text:=FormatDAtetime('YYYY-MM-DD',Now);
end;

procedure TForm11.b_backChange(Sender: TObject);
begin
     b_back.Text:=FormatDatetime('YYYY-MM-DD');
end;

end.