unitinfo.~pas

企业端数据申报系统：单位管理模块 单位查询. 业务申报模块 在线数据下载 在线数据上传 在线业务申核 申报业务查询 磁盘数据导出 磁盘数据导入 在线业务模块 在线业务

unit UnitInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BASEWIN, Mask, ToolEdit, fcCombo, fctreecombo, fcTreeView,
  StdCtrls, ExtCtrls, XPMenu, Menus, ActnList, ImgList, TFlatButtonUnit,
  ComCtrls,  TFlatEditUnit,typinfo;
const screenwidth=1024;
const screenheight=768;
type
  TUnitInfo_frm = class(Tbasewin_frm)
    Panel2: TPanel;
    Splitter1: TSplitter;
    Panel3: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label24: TLabel;
    ParentTreeView: TfcTreeView;
    Label11: TLabel;
    Label10: TLabel;
    Label12: TLabel;
    Label14: TLabel;
    Edit1: TFlatEdit;
    Edit2: TFlatEdit;
    Edit3: TFlatEdit;
    Edit4: TFlatEdit;
    Edit5: TFlatEdit;
    Edit7: TFlatEdit;
    Edit8: TFlatEdit;
    Edit9: TFlatEdit;
    Edit6: TFlatEdit;
    Edit16: TFlatEdit;
    Edit15: TFlatEdit;
    Edit14: TFlatEdit;
    Edit13: TFlatEdit;
    Edit12: TFlatEdit;
    Edit11: TFlatEdit;
    Edit10: TFlatEdit;
    procedure FormCreate(Sender: TObject);
    procedure ParentTreeViewClick(Sender: TObject);
  private
     procedure EmptyEdit;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UnitInfo_frm: TUnitInfo_frm;

implementation

uses datashare;

{$R *.dfm}

procedure TUnitInfo_frm.EmptyEdit ;
begin
    Edit1.Text :=''; Edit2.Text :=''; Edit3.Text :=''; Edit4.Text :=''; Edit5.Text :='';
    Edit6.Text :=''; Edit7.Text :=''; Edit8.Text :=''; Edit9.Text :=''; Edit10.Text:='';
    Edit11.Text:=''; Edit12.Text:=''; Edit13.Text:=''; Edit14.Text:=''; Edit15.Text:='';
    Edit16.Text:='';//Edit17.Text:=''; Edit18.Text:=''; Edit19.Text:=''; Edit20.Text:='';
end;

procedure TUnitInfo_frm.FormCreate(Sender: TObject);
var
  node,node1:Tfctreenode;
  i:integer;
begin
  inherited;
  EmptyEdit;
  //parenttreeview.Items.AddChildFirst(node,'BB');
  if not assigned(Datashare_frm) then DataShare_frm:=TDataShare_frm.Create(nil);
  if not DataShare_frm.Dbs.Connected then
     try
        DataShare_frm.Dbs.Connected:=true;
     except
       application.MessageBox('数据库连接异常!','恩普软件开',mb_iconerror+mb_ok);
       exit;
     end;
     
  with Datashare_frm.UnitInfo_Query  do
     begin
        //DatabaseName:=DataShare_frm.Dbs.DatabaseName ;
        close;
        sql.Clear ;
        sql.Add('select cpname,cpseno from sbdb_cparch where cpseno in (select distinct cmcpseno from sbdb_cparch)');
        prepare;
        open;
        node:=parenttreeview.GetNodeAt(0,0);
        if node=nil then
           begin
             node1:=parenttreeview.Items.AddChildFirst(node,Fieldbyname('cpname').AsString);
             if node1<>nil then Node1.StringData :=Fieldbyname('cpseno').AsString ;
             next;
           end;
        while not eof do
          begin
            node1:=parenttreeview.Items.AddChildFirst(node,Fieldbyname('cpname').AsString);
            if node1<>nil then Node1.StringData :=Fieldbyname('cpseno').AsString ;
            next;
          end;
        close;
     end;

    Scaled:=true;
   if screen.Width<>screenwidth then
   begin
     //height:=longint(height)*longint(screen.height) div screenheight;
     //width:=longint(width)*longint(screen.width) div screenwidth;
     scaleby(screen.Width,screenwidth);
     {for i:=0 to componentcount-1 do
     with components[i] do
     begin
       if GetPropInfo(ClassInfo, 'font') <> nil  then
        font.size := (screen.Width  DIV screenWidth) * font.size;
     end; }
     for i:=0 to self.ControlCount-1 do
     begin
       controls[i].Width:=longint(controls[i].Width)*longint(screen.width) div screenwidth;
       controls[i].Height:=longint(controls[i].Height)*longint(screen.height) div screenheight;
     end;
   end;
end;

procedure TUnitInfo_frm.ParentTreeViewClick(Sender: TObject);
var
  node,node1:Tfctreenode;
begin
  //inherited;
   node:=ParentTreeview.Selected ;
   if (node.Level=0) and (node<>nil) and (not node.HasChildren ) and (trim(node.StringData)<>'') then
      with DataShare_frm.Query1 do
        begin
          close;
          sql.Clear ;
          sql.Add('select  cpname,cpseno from sbdb_cparch where cmcpseno='+node.StringData);
          prepare;
          open;
          while not eof do
            begin
              node1:=parenttreeview.Items.AddChildFirst(node,Fieldbyname('cpname').AsString);
              if node1<>nil then node1.StringData:=Fieldbyname('cpseno').AsString ;
              next;
            end;
        end;
   if (node.Level=1) and (node<>nil) and (trim(node.StringData)<>'') then
      with DataShare_frm.Query2 do
        begin
         // EmptyEdit;
          close;
          sql.Clear ;                                              //E.dpname
          sql.Add('select regno,cpcode,cpname,zip,address,D.sbname,dpcode,B.ecname,C.atname,F.tdname ,taxno,chief,walla,walladept,watel,');
          sql.Add('opdate from sbdb_cparch A,sbdc_ecmode B ,sbdc_cpattr C ,sbdc_subj D , sbdc_trade F where cpseno='+node.StringData);
                                                                                        //sbdc_dept E ,
          sql.Add(' and A.eccode=B.eccode and A.atcode=C.atcode and A.sbcode=D.sbcode  and A.tdcode=F.tdcode ');
          prepare;                                                                   // and A.dpcode=E.dpcode
          open;

          Edit1.Text :=Fieldbyname('cpcode').AsString ;   Edit2.Text :=Fieldbyname('cpname').AsString ;
          Edit3.Text :=Fieldbyname('zip').AsString ;      Edit4.Text :=Fieldbyname('address').AsString ;
          Edit5.Text :=Fieldbyname('sbname').AsString ;   Edit6.Text :=Fieldbyname('dpcode').AsString ;
          Edit7.Text :=Fieldbyname('ecname').AsString ;   Edit8.Text :=Fieldbyname('tdname').AsString ;
          Edit9.Text :=Fieldbyname('tdname').AsString ;   Edit10.Text:=Fieldbyname('taxno').AsString ;
          Edit11.Text:=Fieldbyname('chief').AsString ;    Edit12.Text:=Fieldbyname('walla').AsString ;
          Edit13.Text:=Fieldbyname('walladept').AsString; Edit14.Text:=Fieldbyname('watel').AsString ;
          Edit15.Text:=Fieldbyname('opdate').AsString;    Edit16.Text:=Fieldbyname('regno').AsString ;
        end;
end;

end.