basedata.pas

一个详细功能齐全的档案管理信息系统 跟大家分享一下。这是老师给的光盘里带的

unit basedata;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ActnList, ComCtrls, ToolWin, Grids, DBGrids,
  Inifiles, StdCtrls, ExtCtrls, Buttons, DB, Mask, DBCtrls, ExtDlgs;

type
  TfBaseData = class(TForm)
    Bevel1: TBevel;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edittype: TRadioGroup;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Eok: TButton;
    Edelete: TButton;
    DBGrid2: TDBGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Cexit: TButton;
    Label1: TLabel;
    CdAllBorrow: TDataSource;
    CdAllReturn: TDataSource;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure EdittypeClick(Sender: TObject);
    procedure EokClick(Sender: TObject);
    procedure EdeleteClick(Sender: TObject);
    procedure CexitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fBaseData: TfBaseData;

implementation
uses dm,SqlStr,Scanform;
{$R *.dfm}

procedure TfBaseData.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=cafree;
end;

procedure TfBaseData.FormCreate(Sender: TObject);
begin
   RefreshData(fdm.AllBorrow);
   RefreshData(fdm.AllReturn);
end;

procedure TfBaseData.EdittypeClick(Sender: TObject);
begin
  if Edittype.ItemIndex=1 then
  begin
    DBEdit1.Text:=fdm.AllReturn.fieldbyname('档案编号').AsString;
    DBEdit2.Text:=fdm.AllReturn.fieldbyname('档案名称').AsString;
    Edit1.Text:=fdm.AllReturn.fieldbyname('归还人').AsString;
    Edit2.Text:=fdm.AllReturn.fieldbyname('归还时间').AsString;
    Edit1.Enabled:=false;
    Edit2.Enabled:=false;
    Edit3.Text:=fdm.AllReturn.fieldbyname('备注').AsString;
  end else
  begin
    DBEdit1.Text:=fdm.AllBorrow.fieldbyname('档案编号').AsString;
    DBEdit2.Text:=fdm.AllBorrow.fieldbyname('档案名称').AsString;
    Edit1.Enabled:=true;
    Edit2.Enabled:=true;
    Edit1.Text:='';
    Edit2.Text:='';
    Edit3.Text:='';
  end;
end;

procedure TfBaseData.EokClick(Sender: TObject);
begin
  if Edittype.ItemIndex=1 then
  begin
    with fdm.ExecSql do
    begin
      close;
      Sql.Clear;
      Sql.Add(Format(UpdateFileReturn,[Edit1.text,Edit2.text,Edit3.text,DBEdit1.text]));
      ExecSql;
      showmessage('编辑成功!');
    end;
  end else
  begin
    with fdm.ForSelect do
    begin
      close;
      Sql.Clear;
      Sql.Add(Format(CheckStatus,[DBEdit1.text]));
      Open;
    end;
    if fdm.ForSelect.Fieldbyname('status').AsString='未借出' then
    begin
      showmessage('该档案未借出，不能归还!');
    end else
    begin
      with fdm.ExecSql do
      begin
        close;
        Sql.Clear;
        Sql.Add(Format(InsertReturn,[DBEdit1.text,Edit1.text,Edit2.text,Edit3.text]));
        ExecSql;
        Showmessage('归还操作成功');
      end;
      RefreshData(fdm.AllReturn);
    end;
  end;
end;

procedure TfBaseData.EdeleteClick(Sender: TObject);
begin
   with fdm.ExecSql do
   begin
     close;
     Sql.Clear;
     Sql.Add(Format(DeleteFReturn,[DBEdit1.text]));
     ExecSql;
     Showmessage('删除操作成功!');
   end;
   RefreshData(fdm.AllBorrow); //刷新界面
   RefreshData(fdm.AllReturn);
end;

procedure TfBaseData.CexitClick(Sender: TObject);
begin
  Close;
end;

end.