gbset.pas

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

unit GBset;

interface

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

type
  TfGBset = class(TForm)
    Panel1: TPanel;
    dangtype: TComboBox;
    Label1: TLabel;
    ListDantype: TListBox;
    Panel2: TPanel;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    Label4: TLabel;
    DaGui: TDBComboBox;
    DBEdit3: TDBEdit;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    Label6: TLabel;
    DBMemo1: TDBMemo;
    Label7: TLabel;
    DaStatus: TDBComboBox;
    Edittype: TRadioGroup;
    Label8: TLabel;
    DBEdit5: TDBEdit;
    Eok: TButton;
    Edelete: TButton;
    DBGrid1: TDBGrid;
    Cexit: TButton;
    CdDaEdit: TDataSource;
    Bevel1: TBevel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Action5Execute(Sender: TObject);
    procedure Action14Execute(Sender: TObject);
    procedure EdittypeClick(Sender: TObject);
    procedure CexitClick(Sender: TObject);
    procedure dangtypeChange(Sender: TObject);
    procedure EokClick(Sender: TObject);
    procedure EdeleteClick(Sender: TObject);
  private
    { Private declarations }
    procedure getGBset;
    procedure writeGB;
  public
    { Public declarations }
  end;

var
  fGBset: TfGBset;

implementation
uses dm,SqlStr;

{$R *.dfm}
procedure TfGBset.getGBset;
var
  GBIniFile : TIniFile;
  Path,HintStr:string;
  i:integer;
begin
  Path := ExtractFileDir(Application.ExeName);
  GBIniFile := TIniFile.Create(Path+'\Config.ini');
  For i:=0 To ComponentCount-1 do
  begin
    if Components[i] is Tedit then
    begin
       HintStr:=(Components[i] as Tedit).Hint;
       (Components[i] as Tedit).Text:=GBIniFile.ReadString('备用字段',HintStr,'');
    end;
  end;
end;

procedure TfGBset.writeGB;
var
  GBIniFile : TIniFile;
  Path,HintStr,ValueStr:string;
  i:integer;
begin
  Path := ExtractFileDir(Application.ExeName);
  GBIniFile := TIniFile.Create(Path+'\Config.ini');
  For i:=0 To ComponentCount-1 do
  begin
    if Components[i] is Tedit then
    begin
       HintStr:=(Components[i] as Tedit).Hint;
       ValueStr:=(Components[i] as Tedit).Text;
       if length(ValueStr)>0 then
       GBIniFile.WriteString('备用字段',HintStr,ValueStr);
    end;
  end;
end;
procedure TfGBset.FormCreate(Sender: TObject);
begin
  with fdm.DaEdit do
  begin
    close;
    Sql.Clear;
    Sql.Add('select * from view_FilesContent');
    open;
  end;
  DaGui.Items.Clear;
  with fdm do
  begin
    DaGuiId.close;
    DaGuiId.open;
    DaGuiId.first;
    while not DaGuiId.eof do
    begin
      DaGui.Items.Add(DaGuiId.fieldbyname('档案柜号').Asstring);
      DaGuiId.Next;
    end;
  end; 
  dangtype.Items.Clear;
  with fdm do
  begin
    Getfilecatory.close;
    Getfilecatory.open;
    Getfilecatory.first;
    while not Getfilecatory.eof do
    begin
      dangtype.Items.Add(Getfilecatory.fieldbyname('Cgname').Asstring);
      Getfilecatory.Next;
    end;
  end;
end;

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

procedure TfGBset.Action5Execute(Sender: TObject);
begin
  close;
end;

procedure TfGBset.Action14Execute(Sender: TObject);
begin
  writeGB;
end;

procedure TfGBset.EdittypeClick(Sender: TObject);
begin
  if Edittype.ItemIndex=0 then
     fdm.DaEdit.Edit
  else
     fdm.DaEdit.Append;
end;

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

procedure TfGBset.dangtypeChange(Sender: TObject);
begin
  ListDantype.Items.Clear;
  ListDantype.Items.Add(dangtype.Text);
  with fdm.DaEdit do
  begin
    close;
    Sql.Clear;
    Sql.Add(Format(GetDa,[Trim(dangtype.Text)]));
    open;
  end;
end;

procedure TfGBset.EokClick(Sender: TObject);
begin
  if Edittype.ItemIndex=0 then  //修改按钮被选中
  begin
    with fdm.ExecSql do
    begin
      close;
      Sql.clear;
      Sql.Add(Format(ExcUpdate,[DBEdit1.text,DBEdit2.text,dangtype.text,DaGui.text,DBEdit4.text,DBMemo1.text,DaStatus.text,DBEdit5.text]));
      ExecSql;
    end;
    //showmessage(Format(ExcUpdate,[DBEdit1.text,DBEdit2.text,Trim(dangtype.text),DaGui.text,DBEdit4.text,DBMemo1.text,DaStatus.text,DBEdit5.text]));
  end else begin              //添加按钮被选中
    with fdm.ExecSql do
    begin
      close;
      Sql.clear;
      Sql.Add(Format(InsertSql,[DBEdit1.text,DBEdit2.text,Trim(dangtype.text),DaGui.text,DBEdit4.text,DBMemo1.text,DaStatus.text,DBEdit5.text]));
      ExecSql;
    end;
    //showmessage(Format(InsertSql,[DBEdit1.text,DBEdit2.text,Trim(dangtype.text),DaGui.text,DBEdit4.text,DBMemo1.text,DaStatus.text,DBEdit5.text]));
  end;
  with fdm.DaEdit do //刷新界面
  begin
    close;
    Sql.Clear;
    Sql.Add(Format(GetDa,[Trim(dangtype.Text)]));
    open;
  end;
end;

procedure TfGBset.EdeleteClick(Sender: TObject);
begin
if MessageDlg('确实要删除该档案么？',mtCustom, [mbYes,mbNo], 0)=mrYes then
begin
  with fdm.ExecSql do
  begin
    close;
    Sql.Clear;
    Sql.Add(Format(DeleteSql,[DBEdit1.text]));
    ExecSql;
  end;
  with fdm.DaEdit do  //刷新
  begin
    close;
    Sql.Clear;
    Sql.Add('select * from view_FilesContent');
    open;
  end;
end;
end;

end.