uffxtgl.pas

行业应急系统 包括: 应急系统（待遇核发） 发放系统 开发环境:Delphi5 (sp1)+ Oracle 8.05 MultiExport是一个可以将数据按指定字段倒出

{
*
* 添加一个单位对应表,将发放系统中的单位与应急系统单位进行对应
* 添加一个人员对应表，以应急系统中的人员为准

DROP TABLE TFF_DWDY CASCADE CONSTRAINTS ;

CREATE TABLE TFF_DWDY (
  FFDWID  CHAR (10)     NOT NULL,
  YJDWID  CHAR (10)     NOT NULL,
  CONSTRAINT PK_TFF_DWDY
  PRIMARY KEY ( YJDWID, FFDWID )
)

CREATE TABLE tff_rydy(
      ryid_ff VARCHAR2(10) NULL,
      dwid_ff VARCHAR2(10) NOT NULL,
      sfzh_ff VARCHAR2(18) NULL,
      xm_ff VARCHAR2(10)   NULL,
      ryid_yj VARCHAR2(10) NULL,
      dwid_yj VARCHAR2(10) NULL,
      sfzh_yj VARCHAR2(18) NULL,
      xm_yj VARCHAR2(10)   NULL,
      DYFS    NUMBER(1,0)  default 1,
   CONSTRAINT PK_TFF_RYDY
   PRIMARY KEY (RYID_FF,RYID_YJ)
)

*
*
*
}
unit uFFXTGL;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  uInputTemp, ExtCtrls, Menus, DBTables, Db, Wwdatsrc, Wwquery, ImgList,
  ActnList, wwSpeedButton, wwDBNavigator, wwclearpanel, ComCtrls, StdCtrls,
  Buttons, Grids, Wwdbigrd, Wwdbgrid, DBGridEh, PrnDbgeh;

type
  TfrmFFXTGL = class(TfrmInputTemp)
    Panel1: TPanel;
    Button1: TButton;
    qryDo: TQuery;
    PrintOut: TPrintDBGridEh;
    DBGridEh1: TDBGridEh;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnUnlinkClick(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    procedure pTreeRefresh;
  public
    { Public declarations }
  end;

var
  frmFFXTGL: TfrmFFXTGL;
  strDWID: string;
  strDWMC, strDWDM: string;
implementation

uses dMain, uCommon, uRep_Rydy;

{$R *.DFM}


procedure TfrmFFXTGL.pTreeRefresh;
var
  qryDWINFO: TQuery;
  //  i: Integer;
  RootNode: TTreeNode;
  ChildNode: TTreeNode;
begin
  TreeView1.Hide;

  qryDWINFO := TQuery.Create(Self);
  try
    qryDWINFO.DatabaseName := dfmMain.dbsMain.DatabaseName;

    //显示行业单位表
    TreeView1.Items.Clear;

    RootNode := TreeView1.Items.Add(nil, '民航');
    RootNode.ImageIndex := 0;
    RootNode.SelectedIndex := 1;

    //添加单位项
    qryDWINFO.SQL.Clear;
    qryDWINFO.SQL.Add('select D.dwmc,D.ssdwid,D.sshy,DM.DMMC,D.DWDM from tff_DWXX D,tDMB DM');
    qryDWINFO.SQL.Add('where D.sshy=DM.dm and DM.ZDBZ=''SSHY'' and DM.DMMC=''民航''');
    qryDWINFO.SQL.Add('and d.dwid_ff=d.ssdwid');
    qryDWINFO.SQL.Add('order by D.dwdm');
    qryDWINFO.Open;
    while not qryDWINFO.Eof do
    begin
      ChildNode := TreeView1.Items.AddChildObject(
        RootNode,
        '[' + qryDWINFO.FieldByName('DWDM').AsString + ']' +
        qryDWINFO.FieldByName('DWMC').AsString,
        Pointer(qryDWINFO.FieldByName('SSDWID').AsInteger));
      ChildNode.ImageIndex := 2;
      ChildNode.SelectedIndex := 3;

      qryDWINFO.Next;
    end;
    qryDWINFO.Close;


    RootNode := TreeView1.Items.Add(nil, '农行');
    RootNode.ImageIndex := 0;
    RootNode.SelectedIndex := 1;

    //添加单位项
    qryDWINFO.SQL.Clear;
    qryDWINFO.SQL.Add('select D.dwmc,D.ssdwid,D.sshy,DM.DMMC,D.DWDM from tff_DWXX D,tDMB DM');
    qryDWINFO.SQL.Add('where D.sshy=DM.dm and DM.ZDBZ=''SSHY'' and DM.DMMC=''农行''');
    qryDWINFO.SQL.Add('and d.dwid_ff=d.ssdwid');
    qryDWINFO.SQL.Add('order by D.dwdm');
    qryDWINFO.Open;
    while not qryDWINFO.Eof do
    begin
      ChildNode := TreeView1.Items.AddChildObject(
        RootNode,
        '[' + qryDWINFO.FieldByName('DWDM').AsString + ']' +
        qryDWINFO.FieldByName('DWMC').AsString,
        Pointer(qryDWINFO.FieldByName('SSDWID').AsInteger));
      ChildNode.ImageIndex := 2;
      ChildNode.SelectedIndex := 3;

      qryDWINFO.Next;
    end;
    qryDWINFO.Close;

    RootNode := TreeView1.Items.Add(nil, '交行');
    RootNode.ImageIndex := 0;
    RootNode.SelectedIndex := 1;

    //添加单位项
    qryDWINFO.SQL.Clear;
    qryDWINFO.SQL.Add('select D.dwmc,D.ssdwid,D.sshy,DM.DMMC,D.DWDM from tff_DWXX D,tDMB DM');
    qryDWINFO.SQL.Add('where D.sshy=DM.dm and DM.ZDBZ=''SSHY'' and DM.DMMC=''交行''');
    qryDWINFO.SQL.Add('and d.dwid_ff=d.ssdwid');
    qryDWINFO.SQL.Add('order by D.dwdm');
    qryDWINFO.Open;
    while not qryDWINFO.Eof do
    begin
      ChildNode := TreeView1.Items.AddChildObject(
        RootNode,
        '[' + qryDWINFO.FieldByName('DWDM').AsString + ']' +
        qryDWINFO.FieldByName('DWMC').AsString,
        Pointer(qryDWINFO.FieldByName('SSDWID').AsInteger));
      ChildNode.ImageIndex := 2;
      ChildNode.SelectedIndex := 3;

      qryDWINFO.Next;
    end;
    qryDWINFO.Close;


    RootNode := TreeView1.Items.Add(nil, '中保');
    RootNode.ImageIndex := 0;
    RootNode.SelectedIndex := 1;

    //添加单位项
    qryDWINFO.SQL.Clear;
    qryDWINFO.SQL.Add('select D.dwmc,D.ssdwid,D.sshy,DM.DMMC,D.DWDM from tff_DWXX D,tDMB DM');
    qryDWINFO.SQL.Add('where D.sshy=DM.dm and DM.ZDBZ=''SSHY'' and DM.DMMC=''中保''');
    qryDWINFO.SQL.Add('and d.dwid_ff=d.ssdwid');
    qryDWINFO.SQL.Add('order by D.dwdm');
    qryDWINFO.Open;
    while not qryDWINFO.Eof do
    begin
      ChildNode := TreeView1.Items.AddChildObject(
        RootNode,
        '[' + qryDWINFO.FieldByName('DWDM').AsString + ']' +
        qryDWINFO.FieldByName('DWMC').AsString,
        Pointer(qryDWINFO.FieldByName('SSDWID').AsInteger));
      ChildNode.ImageIndex := 2;
      ChildNode.SelectedIndex := 3;

      qryDWINFO.Next;
    end;
    qryDWINFO.Close;


    RootNode := TreeView1.Items.Add(nil, '石油');
    RootNode.ImageIndex := 0;
    RootNode.SelectedIndex := 1;

    //添加单位项
    qryDWINFO.SQL.Clear;
    qryDWINFO.SQL.Add('select D.dwmc,D.ssdwid,D.sshy,DM.DMMC,D.DWDM from tff_DWXX D,tDMB DM');
    qryDWINFO.SQL.Add('where D.sshy=DM.dm and DM.ZDBZ=''SSHY'' and DM.DMMC=''石油''');
    qryDWINFO.SQL.Add('and d.dwid_ff=d.ssdwid');
    qryDWINFO.SQL.Add('order by D.dwdm');
    qryDWINFO.Open;
    while not qryDWINFO.Eof do
    begin
      ChildNode := TreeView1.Items.AddChildObject(
        RootNode,
        '[' + qryDWINFO.FieldByName('DWDM').AsString + ']' +
        qryDWINFO.FieldByName('DWMC').AsString,
        Pointer(qryDWINFO.FieldByName('SSDWID').AsInteger));
      ChildNode.ImageIndex := 2;
      ChildNode.SelectedIndex := 3;

      qryDWINFO.Next;
    end;
    qryDWINFO.Close;

    RootNode := TreeView1.Items.Add(nil, '电力');
    RootNode.ImageIndex := 0;
    RootNode.SelectedIndex := 1;

    //添加单位项
    qryDWINFO.SQL.Clear;
    qryDWINFO.SQL.Add('select D.dwmc,D.ssdwid,D.sshy,DM.DMMC,D.DWDM from tff_DWXX D,tDMB DM');
    qryDWINFO.SQL.Add('where D.sshy=DM.dm and DM.ZDBZ=''SSHY'' and DM.DMMC=''电力''');
    qryDWINFO.SQL.Add('and d.dwid_ff=d.ssdwid');
    qryDWINFO.SQL.Add('order by D.dwdm');
    qryDWINFO.Open;
    while not qryDWINFO.Eof do
    begin
      ChildNode := TreeView1.Items.AddChildObject(
        RootNode,
        '[' + qryDWINFO.FieldByName('DWDM').AsString + ']' +
        qryDWINFO.FieldByName('DWMC').AsString,
        Pointer(qryDWINFO.FieldByName('SSDWID').AsInteger));
      ChildNode.ImageIndex := 2;
      ChildNode.SelectedIndex := 3;

      qryDWINFO.Next;
    end;
    qryDWINFO.Close;


    RootNode := TreeView1.Items.Add(nil, '建行');
    RootNode.ImageIndex := 0;
    RootNode.SelectedIndex := 1;
    //添加单位项
    qryDWINFO.SQL.Clear;
    qryDWINFO.SQL.Add('select D.dwmc,D.ssdwid,D.sshy,DM.DMMC,D.DWDM from tff_DWXX D,tDMB DM');
    qryDWINFO.SQL.Add('where D.sshy=DM.dm and DM.ZDBZ=''SSHY'' and DM.DMMC=''建行''');
    qryDWINFO.SQL.Add('and d.dwid_ff=d.ssdwid');
    qryDWINFO.SQL.Add('order by D.dwdm');
    qryDWINFO.Open;
    while not qryDWINFO.Eof do
    begin
      ChildNode := TreeView1.Items.AddChildObject(
        RootNode,
        '[' + qryDWINFO.FieldByName('DWDM').AsString + ']' +
        qryDWINFO.FieldByName('DWMC').AsString,
        Pointer(qryDWINFO.FieldByName('SSDWID').AsInteger));
      ChildNode.ImageIndex := 2;
      ChildNode.SelectedIndex := 3;

      qryDWINFO.Next;
    end;
    qryDWINFO.Close;

    RootNode := TreeView1.Items.Add(nil, '工行');
    RootNode.ImageIndex := 0;
    RootNode.SelectedIndex := 1;

    //添加单位项
    qryDWINFO.SQL.Clear;
    qryDWINFO.SQL.Add('select D.dwmc,D.ssdwid,D.sshy,DM.DMMC,D.DWDM from tff_DWXX D,tDMB DM');
    qryDWINFO.SQL.Add('where D.sshy=DM.dm and DM.ZDBZ=''SSHY'' and DM.DMMC=''工行''');
    qryDWINFO.SQL.Add('and d.dwid_ff=d.ssdwid');
    qryDWINFO.SQL.Add('order by D.dwdm');
    qryDWINFO.Open;
    while not qryDWINFO.Eof do
    begin
      ChildNode := TreeView1.Items.AddChildObject(
        RootNode,
        '[' + qryDWINFO.FieldByName('DWDM').AsString + ']' +
        qryDWINFO.FieldByName('DWMC').AsString,
        Pointer(qryDWINFO.FieldByName('SSDWID').AsInteger));
      ChildNode.ImageIndex := 2;
      ChildNode.SelectedIndex := 3;

      qryDWINFO.Next;
    end;
    qryDWINFO.Close;

    RootNode := TreeView1.Items.Add(nil, '交通');
    RootNode.ImageIndex := 0;
    RootNode.SelectedIndex := 1;

    //添加单位项
    qryDWINFO.SQL.Clear;
    qryDWINFO.SQL.Add('select D.dwmc,D.ssdwid,D.sshy,DM.DMMC,D.DWDM from tff_DWXX D,tDMB DM');
    qryDWINFO.SQL.Add('where D.sshy=DM.dm and DM.ZDBZ=''SSHY'' and DM.DMMC=''交通''');
    qryDWINFO.SQL.Add('and d.dwid_ff=d.ssdwid');
    qryDWINFO.SQL.Add('order by D.dwdm');
    qryDWINFO.Open;
    while not qryDWINFO.Eof do
    begin
      ChildNode := TreeView1.Items.AddChildObject(
        RootNode,
        '[' + qryDWINFO.FieldByName('DWDM').AsString + ']' +
        qryDWINFO.FieldByName('DWMC').AsString,
        Pointer(qryDWINFO.FieldByName('SSDWID').AsInteger));
      ChildNode.ImageIndex := 2;
      ChildNode.SelectedIndex := 3;

      qryDWINFO.Next;
    end;
    qryDWINFO.Close;

    RootNode := TreeView1.Items.Add(nil, '邮电');
    RootNode.ImageIndex := 0;
    RootNode.SelectedIndex := 1;

    //添加单位项
    qryDWINFO.SQL.Clear;
    qryDWINFO.SQL.Add('select D.dwmc,D.ssdwid,D.sshy,DM.DMMC,D.DWDM from tff_DWXX D,tDMB DM');
    qryDWINFO.SQL.Add('where D.sshy=DM.dm and DM.ZDBZ=''SSHY'' and DM.DMMC=''邮电''');
    qryDWINFO.SQL.Add('and d.dwid_ff=d.ssdwid');
    qryDWINFO.SQL.Add('order by D.dwdm');
    qryDWINFO.Open;
    while not qryDWINFO.Eof do