uzycl.~pas

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

  end;

  if TQuery(DataSet).FieldByName('SFZH').isNULL then
  begin
    gfShowError('请输入身份证号');
    Abort;
  end;

  if edtSFZH.Text <> edtSFZH_2.Text then
  begin
    gfShowError('身份证号不一致，是否有错？');
    Abort;
  end;

  if edtBZJE.Text <> edtBZJE_2.Text then
  begin
    gfShowError('发放金额不一致，是否有错？');
    Abort;
  end;

  if edtZH.Text <> edtZH_2.Text then
  begin
    gfShowError('帐户不一致，是否有错？');
    Abort;
  end;

  if TQuery(DataSet).FieldByName('HDJE').isNULL then
  begin
    gfShowError('请输入核定金额');
    Abort;
  end;


  if TQuery(DataSet).FieldByName('FFFS').isNULL then
  begin
    gfShowError('请输入发放方式');
    Abort;
  end;

  if TQuery(DataSet).FieldByName('FFJGID').isNULL then
  begin
    gfShowError('请输入发放机构');
    Abort;
  end;

  if TQuery(DataSet).FieldByName('DJQK').isNULL then
  begin
    gfShowError('请输入定居情况');
    Abort;
  end;

  {
    if TQuery(DataSet).FieldByName('DZ').isNULL then
    begin
      gfShowError('请输入地址');
      Abort;
    end;
  }
  if TQuery(DataSet).FieldByName('BZJE').isNULL then
  begin
    gfShowError('请输入发放金额');
    Abort;
  end;

  if TQuery(DataSet).FieldByName('FFZQ').isNULL then
  begin
    gfShowError('请输入发放周期');
    Abort;
  end;

  if TQuery(DataSet).FieldByName('KSFFYF').isNULL then
  begin
    gfShowError('请输入开始发放月份');
    Abort;
  end;

  TQuery(DataSet).FieldByName('FFJE').AsCurrency :=
    TQuery(DataSet).FieldByName('BZJE').AsCurrency;

  TQuery(DataSet).FieldByName('LJFFJE').AsCurrency :=
    0;

  if Trim(edtDWDM.Text) = '' then
  begin
    gfShowError('请输入正确的单位代码或组代码');
    edtDWDM.SetFocus;
    Abort;
  end;

  with TQuery.Create(Self) do
  try
    DataBaseName := dfmMain.dbsMain.DataBaseName;
    SQL.Add('SELECT dwid_ff,ssdwid FROM tff_dwxx where dwdm=''' +
      Trim(edtDWDM.Text) + '''');
    Open;
    if RecordCount <> 0 then
    begin
      TQuery(DataSet).FieldByName('DWID_FF').AsString :=
        FieldByName('dwid_ff').AsString;
      TQuery(DataSet).FieldByName('ssdwid').AsString :=
        FieldByName('ssdwid').AsString;
    end
    else
    begin
      gfShowError('请输入正确的单位代码或组代码');
      edtDWDM.SetFocus;
      Abort;
    end;
  finally
    Free;
  end;

  if Trim(edtDQDM.Text) = '' then
  begin
    gfShowError('请输入正确的地区代码');
    edtDQDM.SetFocus;
    Abort;
  end;

  with TQuery.Create(Self) do
  try
    DataBaseName := dfmMain.dbsMain.DataBaseName;
    SQL.Add('SELECT dm,mc FROM txzqh where dm=''' +
      Trim(edtDQDM.Text) + '''');
    Open;
    if RecordCount <> 0 then
    begin
      edtDQMC.Text := FieldByName('mc').AsString;
    end
    else
    begin
      gfShowError('请输入正确的地区代码');
      edtDQDM.SetFocus;
      Abort;
    end;
  finally
    Free;
  end;

  //检查是否重
  with TQuery.Create(Self) do
  try
    DatabaseName := dfmMain.dbsMain.DatabaseName;
    SQL.Add('select nvl(hrdd,''空'') "hrdd",nvl(dz,''空'') "dz",nvl(yzbm,''空'') "yzbm",');
    SQL.Add('nvl(zh,''空'') "zh",nvl(khh,''空'') "khh" from tff_ryxx');
    SQL.Add('where xm=''' +
      qryRYXX.FieldByName('xm').AsString + '''');
    SQL.Add(' and sfzh = ''' + qryRYXX.FieldByName('sfzh').AsString + '''');
    Open;
    if RecordCount <> 0 then
    begin
      //显示重复记录
      strShow := '';
      while not eof do
      begin
        strShow := strShow + #13;
        strShow := strShow + '帐户:' + #9 + FieldByName('zh').AsString + #13;
        strShow := strShow + '开户行:' + #9 + FieldByName('khh').AsString + #13;
        strShow := strShow + '汇入地点:' + #9 + FieldByName('hrdd').AsString +
          #13;
        strShow := strShow + '地址:' + #9 + FieldByName('dz').AsString + #13;
        strShow := strShow + '邮政编码:' + #9 + FieldByName('yzbm').AsString +
          #13;
        strShow := strShow + #13;

        Next;
      end;
      if gfShowQuestion(PChar('已有相同姓名和身份证号的记录有' +
        IntToStr(RecordCount) + '条' + #13 + strShow + '是否提交当前记录？')) <>
        ID_OK then
        Abort;
    end;
  finally
    Free;
  end;
end;

procedure TfrmZYCL.qryDQFLAfterInsert(DataSet: TDataSet);
begin
  TQuery(DataSet).FieldByName('RYID_FF').AsString :=
    qryRYXX.FieldByName('RYID_FF').AsString;
end;

procedure TfrmZYCL.qryDQFLAfterPost(DataSet: TDataSet);
begin
  TQuery(DataSet).ApplyUpdates;
  TQuery(DataSet).CommitUpdates;
end;

procedure TfrmZYCL.btnNewClick(Sender: TObject);
begin
  qryRYXX.Insert;
  edtSFZH_2.Text := '';
end;

procedure TfrmZYCL.btnSaveClick(Sender: TObject);
begin
  dfmMain.dbsMain.StartTransaction;
  try
    with TQuery.Create(Self) do
    try
      DataBaseName := dfmMain.dbsMain.DatabaseName;
      SQL.Add('SELECT * FROM tff_rydqxx');
      SQL.Add('WHERE ryid_ff='''
        + qryRYXX.FieldByName('ryid_ff').AsString
        + '''');
      Open;
      if RecordCount <> 0 then
      begin
        Close;
        SQL.Clear;
        SQL.Add('update tff_rydqxx');
        SQL.Add('set dm=''' + Trim(edtDQDM.Text) +
          ''',mc=''' + Trim(edtDQMC.Text) +
          '''');
        SQL.Add('where ryid_ff=''' + qryRYXX.FieldByName('ryid_ff').AsString +
          '''');
      end
      else
      begin
        Close;
        SQL.Clear;
        SQL.Add('INSERT INTO tff_rydqxx(ryid_ff,dm,mc)');
        SQL.Add('Values(''' + qryRYXX.FieldByName('ryid_ff').AsString +
          ''',''' + Trim(edtDQDM.Text) + ''',''' + Trim(edtDQMC.Text) +
          ''')');
      end;
      ExecSQL;
    finally
      Free;
    end;

    qryRYXX.Post;
    dfmMain.dbsMain.Commit;
  except
    dfmMain.dbsMain.Rollback;
  end;

end;

procedure TfrmZYCL.Button2Click(Sender: TObject);
begin
  qryRYXX.Cancel;
end;

procedure TfrmZYCL.edtDQDMExit(Sender: TObject);
begin
  with TQuery.Create(Self) do
  try
    DataBaseName := dfmMain.dbsMain.DataBaseName;
    SQL.Add('SELECT dm,mc FROM txzqh where dm=''' +
      Trim(edtDQDM.Text) + '''');
    Open;
    if RecordCount <> 0 then
    begin
      edtDQMC.Text := FieldByName('mc').AsString;
    end
  finally
    Free;
  end;
end;

procedure TfrmZYCL.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    SelectNext(ActiveControl as tWinControl, True, True);
    Key := #0;
  end;

end;

procedure TfrmZYCL.qryRYXXAfterCancel(DataSet: TDataSet);
begin
  edtSFZH_2.Text := '';
  edtBZJE_2.Text := '';
  edtZH_2.Text := '';
end;

end.