首页 > 代码库 > 从记事本里导入工资数据到数据库的写法
从记事本里导入工资数据到数据库的写法
从记事本里导入工资数据到数据库的写法,
这种需要用的opendialog 要先添加这个组件;
1 procedure TForm3.N6Click(Sender: TObject); 2 var 3 KeFuAry: TArray<string>; 4 YueFen: string; 5 MyList: TStringList; 6 MyAdoq: TADOQuery; 7 I: Integer; 8 begin 9 MyList := TStringList.Create; 10 MyAdoq := TADOQuery.Create(nil); 11 try 12 MyAdoq.Connection := frmDataPool.ADOConnection1; 13 //获取月份 14 if not InputQuery(‘输入月份‘, ‘输入月份‘, YueFen) then 15 begin 16 ShowMessage(‘请输入月份‘); 17 Exit; 18 end; 19 //从剪切板取到数据 20 try 21 if OpenDialog1.Execute then 22 begin 23 MyList.Clear; 24 MyList.LoadFromFile(OpenDialog1.FileName); 25 end; 26 except 27 on E:EReadError do 28 ShowMessage(‘打开文件失败‘); 29 end; 30 31 //取出空值逐行读取 32 for I := 0 to MyList.Count - 1 do 33 begin 34 if (MyList[I] <> ‘‘) and (MyList[I] <> ‘工资汇总:‘) then 35 begin 36 KeFuAry := MyList[I].Replace(‘:‘, ‘,‘).Replace(‘(‘, ‘‘).Replace(‘)‘, ‘‘).Replace(‘基本工资‘, ‘‘).Replace(‘- 个人社保‘, ‘,‘).Replace(‘- 个人公积金‘,‘,‘). 37 Replace(‘+ 加班请假‘, ‘,‘).Replace(‘+ 销售提成‘, ‘,‘).Replace(‘+ 销售奖金‘,‘,‘).Replace(‘+ 积分奖金‘, ‘,‘).Replace(‘+ QQ群奖金‘, ‘,‘). 38 Replace(‘= ‘,‘,‘).Replace(‘ 元‘,‘‘).Split([‘,‘]); 39 40 //写入数据库 41 with MyAdoq do 42 begin 43 Close; 44 SQL.Text := ‘INSERT INTO 工资表(月份,姓名,基本工资,个人社保代缴,个人公积金代缴,加班请假,销售提成,销售奖金,售后积分奖金,QQ群等级奖金,工资总额) VALUES (‘+YueFen.QuotedString+‘,‘+KeFuAry[0].QuotedString+‘,‘+ 45 KeFuAry[1]+‘,-‘+KeFuAry[2]+‘,-‘+KeFuAry[3]+‘,‘+KeFuAry[4]+‘,‘+KeFuAry[5]+‘,‘+ 46 KeFuAry[6]+‘,‘+KeFuAry[7]+‘,‘+KeFuAry[8]+‘,‘+KeFuAry[9]+‘)‘; 47 ExecSQL; 48 end; 49 end; 50 51 //防止程序假死 52 Application.ProcessMessages; 53 end; 54 55 //刷新下显示 56 frmDataPool.qry工资表.Close; 57 frmDataPool.qry工资表.Open; 58 finally 59 MyList.Free; 60 MyAdoq.Free; 61 end; 62 end;
从记事本里导入工资数据到数据库的写法
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。