quyupz.pas

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

unit quyupz;

interface

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

type
  Tfquyu = class(TForm)
    GroupBox1: TGroupBox;
    Ts: TTreeView;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    Edittype: TRadioGroup;
    CdDatatype: TDataSource;
    ConFirm: TButton;
    Cexit: TButton;
    DBEdit2: TDBEdit;
    Label8: TLabel;
    Bevel1: TBevel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure CexitClick(Sender: TObject);
    procedure TsChange(Sender: TObject; Node: TTreeNode);
    procedure EdittypeClick(Sender: TObject);
    procedure ConFirmClick(Sender: TObject);
  private
    { Private declarations }
    procedure expendts;
  public
    { Public declarations }
  end;

var
  fquyu: Tfquyu;
  procedure setreadonly(var parent:Tform;var state:Boolean);

implementation
uses dm,SqlStr;

{$R *.dfm}

procedure setreadonly(var parent:Tform;var state:Boolean);
var
i:integer;
begin
with parent do
begin
  for i:=0 to ComponentCount-1 do
  begin
    if (Components[i] is TDBEdit) then
    begin
    (Components[i] as TDBEdit).readonly:=state;
    end;
  end;
end;
end;
procedure Tfquyu.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=cafree;
end;

procedure Tfquyu.FormCreate(Sender: TObject);
begin
  with fdm.Datype do
  begin
    close;
    open;
  end;
  expendts;
end;

procedure Tfquyu.CexitClick(Sender: TObject);
begin
  close;
end;
procedure Tfquyu.expendts;
var
nodMnu,nodMnuSub:TTreenode;
begin
  Ts.Items.Clear;
  nodMnu := Ts.Items.add(Ts.topitem, '档案类别');
  with fdm do
  begin
    DatforTree.close;
    DatforTree.open;
    while not DatforTree.Eof do
    begin
      nodMnuSub:=Ts.Items.AddChild(nodMnu,DatforTree.fieldbyname('Cgname').AsString);
      DatforTree.Next;
    end;
  end;
  Ts.FullExpand;
end;

procedure Tfquyu.TsChange(Sender: TObject; Node: TTreeNode);
begin
  with fdm.Datype do
  begin
    close;
    open;
  end;
  if Node.text<>'档案类别' then
  fdm.Datype.Locate('Cgname',Node.Text,[]);
end;

procedure Tfquyu.EdittypeClick(Sender: TObject);
begin
  if Edittype.ItemIndex=0 then
  begin
     fdm.Datype.Edit;
     DBEdit1.Enabled:=false;
     DBEdit5.Enabled:=true;
     DBEdit6.Enabled:=true;
  end else
  begin
     fdm.Datype.Append;
     DBEdit1.Enabled:=true;
     DBEdit5.Enabled:=false;
     DBEdit6.Enabled:=false;
  end;
end;

procedure Tfquyu.ConFirmClick(Sender: TObject);
begin

 if Edittype.ItemIndex=0 then  //修改按钮被选中
  begin
    with fdm.ExecSql do
    begin
      close;
      Sql.clear;
      Sql.Add(Format(UpdateCategory,[DBEdit2.text,DBEdit3.text,DBEdit4.text,DBEdit5.text,DBEdit6.text,DBEdit7.text,DBEdit1.text]));
      ExecSql;
    end;
  end else begin              //添加按钮被选中
    with fdm.ExecSql do
    begin
      close;
      Sql.clear;
      Sql.Add(Format(InsertCategory,[DBEdit1.text,DBEdit2.text,DBEdit3.text,DBEdit4.text,DBEdit7.text]));
      ExecSql;
    end;
    Edittype.ItemIndex:=0
  end;
  expendts;
end;

end.