dataunit.pas

人事管理系统 人事管理系统

unit dataunit;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tdataform = class(TDataModule)
    conn: TADOConnection;
    ZZquy: TADOQuery;
    zzdata: TDataSource;
    NTquy: TADOQuery;
    TYquy: TADOQuery;
    JSquy: TADOQuery;
    NTdata: TDataSource;
    TYdata: TDataSource;
    JSdata: TDataSource;
    CMD: TADOCommand;
    TXquy: TADOQuery;
    TXdata: TDataSource;
    selquy: TADOQuery;
    seldata: TDataSource;
    SearchData: TDataSource;
    SearchQuy: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
    procedure ZZquyAfterScroll(DataSet: TDataSet);
    procedure NTquyAfterScroll(DataSet: TDataSet);
    procedure TYquyAfterScroll(DataSet: TDataSet);
    procedure JSquyAfterScroll(DataSet: TDataSet);
    procedure TXquyAfterScroll(DataSet: TDataSet);
    procedure ZZquyBeforeScroll(DataSet: TDataSet);
    procedure selquyAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  dataform: Tdataform;

implementation

uses viewunit,barunit,editdwunit,MainUnit;

{$R *.dfm}

procedure Tdataform.DataModuleCreate(Sender: TObject);
begin
{   conn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Password=780914;Data Source='+
                            filepath+'data\rsgl.mdb'+
                            ';Persist Security Info=True'; }
   conn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                            filepath+'data\rsgl.mdb'+
                            ';Persist Security Info=False';
    conn.Connected:=true;
    zzquy.Open;
    ntquy.Open;
    tyquy.Open;
    txquy.Open;
    jsquy.Open;



end;

procedure Tdataform.ZZquyAfterScroll(DataSet: TDataSet);
var
  sel : integer;
begin
  if assigned(viewform) then
    begin
      sel := barform.FindIDIntree(barform.ZZTree, ZZquy.Fields.fieldbyname('main_id').AsInteger);
      if sel > -1 then barform.ZZTree.Items[sel].Selected := true;
      viewform.ZZView;
    end;
end;

procedure Tdataform.NTquyAfterScroll(DataSet: TDataSet);
var
  sel : integer;
begin
  if assigned(viewform) then
    begin
      viewform.NTView;
      sel := barform.FindIDIntree(barform.ntTree, ntquy.Fields.fieldbyname('main_id').AsInteger);
      if sel > -1 then barform.ntTree.Items[sel].Selected := true;
    end;

end;

procedure Tdataform.TYquyAfterScroll(DataSet: TDataSet);
var
  sel:integer;
begin
  if assigned(viewform) then
    begin
      viewform.TYView;
      sel := barform.FindIDIntree(barform.tyTree, tyquy.Fields.fieldbyname('main_id').AsInteger);
      if sel > -1 then barform.tyTree.Items[sel].Selected := true;
    end;
end;

procedure Tdataform.JSquyAfterScroll(DataSet: TDataSet);
var
  sel:integer;
begin
  if assigned(viewform) then
    begin
      viewform.JSView;
      sel := barform.FindIDIntree(barform.jsTree, jsquy.Fields.fieldbyname('main_id').AsInteger);
      if sel > -1 then barform.jsTree.Items[sel].Selected := true;
    end;

end;

procedure Tdataform.TXquyAfterScroll(DataSet: TDataSet);
var
  sel:integer;
begin
  if assigned(viewform) then
    begin
      viewform.TXView;
      sel := barform.FindIDIntree(barform.txTree, txquy.Fields.fieldbyname('main_id').AsInteger);
      if sel > -1 then barform.txTree.Items[sel].Selected := true;
    end;

end;

procedure Tdataform.ZZquyBeforeScroll(DataSet: TDataSet);
begin
  if assigned(viewform) and (viewform.name.Enabled) then viewform.CheckRecord;
end;

procedure Tdataform.selquyAfterScroll(DataSet: TDataSet);
begin
  if assigned(editdwform)and (editdwform.Tag = 0) then
    begin
      editdwform.DWIDedt.Text := selquy.Fields.fieldbyname('单位编号').AsString;
      editdwform.DWedt.text := selquy.Fields.fieldbyname('单位').AsString;
      editdwform.BMedt.Text := selquy.Fields.fieldbyname('部门').AsString;
    end;
end;

end.