psarchtortarch0.~pas

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

unit PsarchToRtarch0;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TFlatEditUnit, TFlatButtonUnit, TFlatComboBoxUnit,
  jpeg, ExtCtrls;

type
  TPsarchToRtarch0_frm = class(TForm)
    panel0: TPanel;
    Image2: TImage;
    Label147: TLabel;
    Label148: TLabel;
    Label2: TLabel;
    Label11: TLabel;
    FlatComboBox10: TFlatComboBox;
    FlatComboBox9: TFlatComboBox;
    FlatComboBox8: TFlatComboBox;
    GroupBox3: TGroupBox;
    FB_next: TFlatButton;
    FB_cancel: TFlatButton;
    FlatEdit1: TFlatEdit;
    FlatEdit2: TFlatEdit;
    procedure FB_cancelClick(Sender: TObject);
    procedure FB_nextClick(Sender: TObject);
    procedure FlatComboBox8Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PsarchToRtarch0_frm: TPsarchToRtarch0_frm;  
  psname,psseno,iscode:string;
implementation

uses datashare, LocalForRetireAccount, Main;

{$R *.dfm}

procedure TPsarchToRtarch0_frm.FB_cancelClick(Sender: TObject);
begin
  modalresult:=mrcancel;
end;

procedure TPsarchToRtarch0_frm.FB_nextClick(Sender: TObject);
begin
  if flatcombobox8.ItemIndex>=0 then
  begin
    psseno:=flatedit1.Text ;
    psname:=flatcombobox8.Items[flatcombobox8.itemindex];
    iscode:=flatedit2.Text ;
    modalresult:=mrok;
  end  else
    begin
      application.MessageBox('请选择在职人员','恩普软件',mb_iconwarning+mb_ok);
      flatcombobox8.SetFocus ;
      exit;
    end;
end;

procedure TPsarchToRtarch0_frm.FlatComboBox8Change(Sender: TObject);
begin
  flatedit1.Text :='';
  flatedit2.Text :='';
  if flatcombobox8.itemindex>=0 then
    begin
      flatedit1.Text :=flatcombobox9.Items[flatcombobox8.itemindex];
      flatedit2.Text :=flatcombobox10.Items[flatcombobox8.itemindex];
    end;
end;

procedure TPsarchToRtarch0_frm.FormCreate(Sender: TObject);
begin
  flatedit1.Text :='';
  flatedit2.Text :='';
  flatcombobox8.Text :='';
end;

procedure TPsarchToRtarch0_frm.FormActivate(Sender: TObject);
begin
  flatedit1.Text :='';
  flatedit2.Text :='';
  flatcombobox8.Text :='';
  delay(500);
  with Datashare_frm.Query11 do
    begin
      close;
      sql.Clear ;
      sql.Add('select psseno,psname,iscode from sbdb_psarch where cpseno=:p1 and (status<>3 and status<>4 and status<>5)');
      parambyname('p1').AsString :=LocalForRetireAccount_frm.Flatcombobox5.Items[LocalForRetireAccount_frm.Flatcombobox6.ItemIndex];
      prepare;
      open;
      first;
      flatcombobox8.Text :='';
      flatcombobox8.Items.Clear ;
      flatcombobox9.Items.Clear ;
      flatcombobox10.Items.Clear ;
      while not Datashare_frm.Query11.eof do
        begin
          flatcombobox8.Items.Add(fieldbyname('psname').AsString);
          flatcombobox9.Items.Add(fieldbyname('psseno').AsString);
          flatcombobox10.Items.Add(fieldbyname('iscode').AsString);
          Datashare_frm.Query11.next;
        end;
      close;
    end;
end;

end.