factype.pas

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

unit Factype;

interface

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

type
  TfFactype = class(TForm)
    Label1: TLabel;
    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;
    Cexit: TButton;
    CdAllDan: TDataSource;
    CdAllBrrow: TDataSource;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Bevel1: TBevel;
    procedure FormCreate(Sender: TObject);
    procedure EdittypeClick(Sender: TObject);
    procedure EokClick(Sender: TObject);
    procedure CexitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure EdeleteClick(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fFactype: TfFactype;

implementation
uses dm,SqlStr;

{$R *.dfm}

procedure TfFactype.FormCreate(Sender: TObject);
begin
RefreshData(fdm.AllDan);
RefreshData(fdm.AllBorrow);
end;

procedure TfFactype.EdittypeClick(Sender: TObject);
begin
  if Edittype.ItemIndex=1 then
  begin
    DBEdit1.Text:=fdm.AllBorrow.fieldbyname('档案编号').AsString;
    DBEdit2.Text:=fdm.AllBorrow.fieldbyname('档案名称').AsString;
    Edit1.Text:=fdm.AllBorrow.fieldbyname('借用人员').AsString;
    Edit1.Enabled:=false;
    Edit2.Text:=fdm.AllBorrow.fieldbyname('借用日期').AsString;
    Edit2.Enabled:=false;
    Edit3.Text:=fdm.AllBorrow.fieldbyname('备注').AsString;
  end else
  begin
    DBEdit1.Text:=fdm.AllDan.fieldbyname('档案编号').AsString;
    DBEdit2.Text:=fdm.AllDan.fieldbyname('名称').AsString;
    Edit1.Enabled:=true;
    Edit2.Enabled:=true;
    Edit1.Text:='';
    Edit2.Text:='';
    Edit3.Text:='';
  end;
end;

procedure TfFactype.EokClick(Sender: TObject);
begin
  if Edittype.ItemIndex=1 then
  begin
    with fdm.ExecSql do
    begin
      close;
      Sql.Clear;
      Sql.Add(Format(updateDb,[Edit1.text,Edit2.text,Edit3.text,DBEdit1.text]));
      ExecSql;
      showmessage('编辑成功!');
    end;
    RefreshData(fdm.AllBorrow);
  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(InsertBorrow,[DBEdit1.text,Edit1.text,Edit2.text,Edit3.text]));
        ExecSql;
        Showmessage('借出操作成功');
      end;
      RefreshData(fdm.AllBorrow);
    end;
  end;
end;

procedure TfFactype.CexitClick(Sender: TObject);
begin
  close;
end;

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

procedure TfFactype.EdeleteClick(Sender: TObject);
begin
with fdm.ForSelect do
begin
    close;
    Sql.Clear;
    Sql.Add(Format(CheckIfGu,[DBEdit1.text]));
    Open;
end;
if Trim(fdm.ForSelect.Fieldbyname('status').AsString)='未归还' then
begin
  Showmessage('该档案未归还，'#13'所以不能删除');
end else
begin
   with fdm.ExecSql do
   begin
     close;
     Sql.Clear;
     Sql.Add(Format(DeleteBorrow,[DBEdit1.text]));
     ExecSql;
     Showmessage('删除操作成功!');
   end;
end;
RefreshData(fdm.AllDan);
RefreshData(fdm.AllBorrow);
end;
procedure TfFactype.DBGrid2CellClick(Column: TColumn);
begin
   DBEdit1.Text:=fdm.AllBorrow.fieldbyname('档案编号').AsString;
   DBEdit2.Text:=fdm.AllBorrow.fieldbyname('档案编号').AsString;
   Edit1.Text:=fdm.AllBorrow.fieldbyname('借用人员').AsString;
   Edit2.Text:=fdm.AllBorrow.fieldbyname('借用日期').AsString;
   Edit3.Text:=fdm.AllBorrow.fieldbyname('备注').AsString;
end;

end.