技术类2(delphi)

原创 2007年09月28日 17:05:00

procedure TfrmHrAdd.bbtnOkClick(Sender: TObject);
begin
if optType=0 then   //新增记录
      try
        with  dmHr   do
        begin
            if not adoTblHr.Active  then  adoTblHr.Open ;

            adoTblHr.Append; //追加记录
            adoTblHr.FieldByName('Person_No').AsString :=TrimRight(ledtPerson_No.Text);        // 编号
            adoTblHr.FieldByName('Person_Name').AsString :=TrimRight(ledtPerson_Name.Text);   // 姓名
            adoTblHr.FieldByName('Sex').AsString :=TrimRight(ledtSex.Text);                   // 性别
            adoTblHr.FieldByName('Birthday').AsString :=TrimRight(ledtBirthday.Text);         // 出生日期
            adoTblHr.FieldByName('Telephone').AsString :=TrimRight(ledtTelephone.Text);       // 联系电话
            adoTblHr.FieldByName('Dept_Code').AsString :=TrimRight(ledtDept_Code.Text);       //部门编号
            adoTblHr.FieldByName('Dept_Name').AsString :=TrimRight(ledtDept_Name.Text);       //部门名称
            adoTblHr.FieldByName('Card_Code').AsString :=TrimRight(ledtCard_Code.Text);       //卡号
            adoTblHr.FieldByName('State').AsString :=TrimRight(ledtState.Text);               //停职标识
            adoTblHr.FieldByName('Note').AsString :=TrimRight(ledtNote.Text);                 // 备注
            //adoTblHr.FieldByName('').AsString :=TrimRight(ledtPerson_No.Text);    //
            //adoTblHr.FieldByName('').AsString :=TrimRight(ledtPerson_No.Text);    //

            adoTblHr.Post; //提交

            showmessage('数据已成功保存!');
            end;
      except
          showmessage('数据保存失败,请检查数据录入是否正确!');
      end
else //修改记录
      try
        with  dmHr   do
        begin
            adoTblHr.Edit; //修改记录
            adoTblHr.FieldByName('Person_No').AsString :=TrimRight(ledtPerson_No.Text);        // 编号
            adoTblHr.FieldByName('Person_Name').AsString :=TrimRight(ledtPerson_Name.Text);   // 姓名
            adoTblHr.FieldByName('Sex').AsString :=TrimRight(ledtSex.Text);                   // 性别
            adoTblHr.FieldByName('Birthday').AsString :=TrimRight(ledtBirthday.Text);         // 出生日期
            adoTblHr.FieldByName('Telephone').AsString :=TrimRight(ledtTelephone.Text);       // 联系电话
            adoTblHr.FieldByName('Dept_Code').AsString :=TrimRight(ledtDept_Code.Text);       //部门编号
            adoTblHr.FieldByName('Dept_Name').AsString :=TrimRight(ledtDept_Name.Text);       //部门名称
            adoTblHr.FieldByName('Card_Code').AsString :=TrimRight(ledtCard_Code.Text);       //卡号
            adoTblHr.FieldByName('State').AsString :=TrimRight(ledtState.Text);               //停职标识
            adoTblHr.FieldByName('Note').AsString :=TrimRight(ledtNote.Text);                 // 备注
            //adoTblHr.FieldByName('').AsString :=TrimRight(ledtPerson_No.Text);    //
            //adoTblHr.FieldByName('').AsString :=TrimRight(ledtPerson_No.Text);    //

            adoTblHr.Post; //提交

            showmessage('数据已成功保存!');
            end;
      except
          showmessage('数据保存失败,请检查数据录入是否正确!');
      end;

 


end;

procedure TfrmHrAdd.FormShow(Sender: TObject);
begin
  if optType=0 then
    lblCaption.Caption :='新增人事资料'
  else
    begin
      lblCaption.Caption :='修改人事资料';
      ReadBill(Person_No) ;
    end;
end;

function TfrmHrAdd.ReadBill(const Person_No: string): boolean;
//修改时读入相关数据
begin
try
  with  dmHr   do
  begin
      if not adoTblHr.Active  then  adoTblHr.Open ;
      adoTblHr.Locate('Person_No',Person_No,[]);
      //当数据存在时读入数据
      if not (adoTblHr.Eof And adoTblHr.Bof )  then
        begin
          // showmessage('数据读入中...!');
          ledtPerson_No.Text:=Person_No;                                                    // 编号
          ledtPerson_No.ReadOnly :=true;  //设置成只读
          ledtPerson_Name.Text :=TrimRight(adoTblHr.FieldByName('Person_Name').AsString);   // 姓名
          ledtSex.Text :=TrimRight(adoTblHr.FieldByName('Sex').AsString);                   // 性别
          ledtBirthday.Text :=TrimRight(adoTblHr.FieldByName('Birthday').AsString);         // 出生日期
          ledtTelephone.Text :=TrimRight(adoTblHr.FieldByName('Telephone').AsString);       // 联系电话
          ledtDept_Code.Text :=TrimRight(adoTblHr.FieldByName('Dept_Code').AsString);       //部门编号
          ledtDept_Name.Text :=TrimRight(adoTblHr.FieldByName('Dept_Name').AsString);       //部门名称
          ledtCard_Code.Text :=TrimRight(adoTblHr.FieldByName('Card_Code').AsString);       //卡号
          ledtState.Text :=TrimRight(adoTblHr.FieldByName('State').AsString);               //停职标识
          ledtNote.Text :=TrimRight(adoTblHr.FieldByName('Note').AsString);                 // 备注
          exit;
        end
      else
        exit;

  end;
except
    showmessage('数据读入异常!');
    exit;
end;
   showmessage('数据读入异常!');

end;

procedure TfrmHrAdd.ClearText;
begin
  if optType=0 then     ledtPerson_No.Text:='';  // 编号
  ledtPerson_Name.Text :='';      // 姓名
  ledtSex.Text :='';              // 性别
  ledtBirthday.Text :='';         // 出生日期
  ledtTelephone.Text :='';       // 联系电话
  ledtDept_Code.Text :='';       //部门编号
  ledtDept_Name.Text :='';       //部门名称
  ledtCard_Code.Text :='';       //卡号
  ledtState.Text :='';           //停职标识
  ledtNote.Text :='';            // 备注
end;
 

2G技术类资料

  • 2012年10月01日 14:31
  • 39KB
  • 下载

【技术类】【ArcGIS对国产卫星的支持2:高分一号卫星】篇7、大规模影像管理

遥感图像数据是一个单位重要的资产,随着数据越来越多,如果想用得好,先得管得好。ArcGIS 10.0之后,提供了以镶嵌数据集(Mosaic Dataset,简称MD)为核心的大规模影像管理解决方案。该...

【技术类】【ArcGIS对国产卫星的支持2:高分一号卫星】篇11、将镶嵌数据集发布为切片地图服务

ArcGIS Online (www.arcgis.com)是一个面向全球用户的公有云GIS平台,是一种全新的GIS软件应用模式,为用户提供了按需的、安全的、可配置的GIS服务。       下例阐...

【技术类】【ArcGIS对国产卫星的支持】篇7:ArcGIS中Level2&Level3级影像产品的管理

提供两种方法实现校正后的多光谱与全色影像的管理:方法一为通过Table Type的方式管理影像数据;方法二为通过Layer图层的方式管理影像数据。推荐利用Table Type方式进行影像数据的管理,L...

Pixy CMUcam5技术类博文(2)

STM32F401 NUCLEO与pixy串口通信写法与讲解(HAL库开发) pixy直接接通串口原生坐标数据输出图 下划线为绿色的数据是波特率为19200的串口所接受到的pix...
  • xnq0523
  • xnq0523
  • 2017年05月30日 16:27
  • 629

【技术类】【ArcGIS对国产卫星的支持2:高分一号卫星】篇12、ArcGIS Online中使用影像服务

ArcGIS 10.2带来了新一代WebGIS应用模式,新模式将ArcGIS影像同云衔接的更加紧密。以WebGIS为中心,实现计算向数据端的移动,可以充分利用服务器端的计算能力和带宽,帮助我们实现各类...

【技术类】【遥感入门系列】2、遥感成像与遥感影像特征

遥感技术最基本的东西其实就是遥感图像,不管你是设计传感器,还是专注遥感的应用,都是围绕着图像来工作。离开图像来谈遥感,等同于画饼充饥。这部分内容包括:  遥感成像原理和基本概念 遥感...

【技术类】【ArcGIS对国产卫星的支持2:高分一号卫星】篇1、ArcGIS RasterType Extension for Chinese Satellites 2.0插件介绍

为了更好的服务于国产卫星用户,中国卫星插件推出2.0版本,增加了对高分一号卫星的支持。      1、插件下载说明:        地址待定。适用于ArcGIS 10.2或更高版本。       2...

【技术类】【ArcGIS对国产卫星的支持2:高分一号卫星】篇13、Web为中心的在线影像应用模式

WebGIS开创影像应用新模式,如今,我们不再仅仅借助桌面端实现遥感影像应用,通过构建在线应用模式可以充分利用数据中心的软硬件资源及带宽,同时可以实现多人共享协同的交互操作,高效的挖掘影像价值。 目...

【技术类】【ArcGIS对国产卫星的支持2:高分一号卫星】篇5、实时表观反射率产品生产

表观反射率就是指大气层顶的反射率,辐射定标的结果之一,又称视反射率。英文表示为:apparent reflectance (=地表反射率+大气反射率)       分发商提供的数据基本都是灰度值(D...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:技术类2(delphi)
举报原因:
原因补充:

(最多只允许输入30个字)