carkind.pas

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

unit CarKind;

interface

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

type
  TfCarkind = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    QueryType: TComboBox;
    Label2: TLabel;
    QueyText: TEdit;
    ExcQuery: TButton;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    QueryAll: TButton;
    Cexit: TButton;
    DsFileContent: TDataSource;
    DsFileBorrow: TDataSource;
    DsFileReturn: TDataSource;
    Bevel1: TBevel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure CexitClick(Sender: TObject);
    procedure ExcQueryClick(Sender: TObject);
    procedure QueryAllClick(Sender: TObject);
  private
    { Private declarations }
    procedure QueryData(var str:string);
  public
    { Public declarations }
  end;

var
  fCarKind: TfCarKind;

implementation
uses dm;

{$R *.dfm}

procedure TfCarkind.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TfCarkind.FormCreate(Sender: TObject);
begin
  RefreshData(fdm.FileContent);
  fdm.FilesB.Active:=true;
  fdm.FilesR.Active:=true;
end;

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

procedure TfCarkind.ExcQueryClick(Sender: TObject);
var
str:string;
begin
  str:= QueryType.Text;
  QueryData(str);
end;
procedure TfCarkind.QueryData(var str:string);
var
field:string;
begin
if str='编号' then
field:='档案编号'
else
field:=str;
  With fdm.FileContent do
  begin
    close;
    Sql.Clear;
    Sql.Add('select * from view_FilesContent where '+field+' like '''+QueyText.Text+''' ');
    Open;
  end;
  //showmessage('select * from view_FilesContent where '+field+' like '''+QueyText.Text+''' ');
end;


procedure TfCarkind.QueryAllClick(Sender: TObject);
begin
  With fdm.FileContent do
  begin
    close;
    Sql.Clear;
    Sql.Add('select * from view_FilesContent');
    Open;
  end;
end;

end.