unitover.~pas

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

unit Unitover;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUIForm, StdCtrls, Grids, DBGrids, SUIDBCtrls,
  SUIButton,UnitComm,ADODB,DB, SUIImagePanel;
type
  TForm6 = class(TForm)
    suiForm1: TsuiForm;
    suiImagePanel1: TsuiImagePanel;
    nn: TsuiPanel;
    suiButton1: TsuiButton;
    Label1: TLabel;
    jj: TsuiDBGrid;
    procedure suiButton1Click(Sender: TObject);
    procedure formshow(Sender: TObject);
    procedure formclose(Sender: TObject; var Action: TCloseAction);
  private
         myDataSet:TADODataSet;
         myDataSource:TDataSource;
    { Private declarations }
  public
       d_name:string;
       d_spec:string;
       d_bh:string;
       d_type:string;
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.suiButton1Click(Sender: TObject);
begin
     close;
end;

procedure TForm6.formshow(Sender: TObject);
var
    str:string;
    tmpstr:string;
begin
     myDataSet:=TADODataSet.Create(self);
     myDataSource:=TDataSource.Create(self);
     myDataSet.Connection:=ADOConn;
     myDataSource.DataSet:=myDataSet;
     jj.DataSource:=myDatasource;

     myDataset.CommandText:='select d_type,d_spec,d_name,d_bh from record';
     str:='';
     tmpstr:=trim(d_type);
     if tmpstr <> '' then
         str:=str+' where record.d_type like''%'+tmpstr+'%''';

     tmpstr:=trim(d_spec);
     if tmpstr <> '' then
         str:=str+' and record.d_spec like''%'+tmpstr+'%''';

     tmpstr:=trim(d_name);
     if tmpstr <> '' then
         str:=str+' and record.d_name like''%'+tmpstr+'%''';

      tmpstr:=trim(d_bh);
     if tmpstr <> '' then
         str:=str+' and record.d_bh like''%'+tmpstr+'%''';

     myDataSet.CommandText:=myDataSet.CommandText + str;
     myDataSet.Active:=true;



end;

procedure TForm6.formclose(Sender: TObject; var Action: TCloseAction);
begin
     myDataSet:=TADODataSet.Create(self);
     myDataSource:=TDataSource.Create(self);
     myDataSet.Close;
     myDataSet.Free;
     myDataSource.Free;
end;

end.