说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

源文件,修改??

编辑:说三道四文库 发布时间:2017-12-14 01:03
HTML文档下载 WORD文档下载 PDF文档下载
var
num:integer;
begin
dbgrid2.Visible:=false;
//显示当前日期应该继续的单号
dtp_cgrq.Date:=NOW;
with adoq_csh do
  begin
      close;
      sql.clear;
      sql.Add('select distinct pjh from tbl_cgxx where rq='''+datetostr(dtp_cgrq.date)+'''');
      open;
      if RecordCount=0 then
        begin
            edt_cgdh.Text:='C'+formatdatetime('yyyymmdd',now)+'001';
        end;
      if recordCount<>0 then
        begin
            num:=recordcount;
            if (length(inttostr(num))=1) and (num<>9)then
                begin
                        edt_cgdh.Text:='C'+formatdatetime('yyyymmdd',now)+'00'+inttostr(num+1);
                end;
            if num=9 then
                begin
                        edt_cgdh.Text:='C'+formatdatetime('yyyymmdd',now)+'0'+inttostr(num+1);
                end;
            if (length(inttostr(num))=2) and (num<>99) then
                begin
                        edt_cgdh.Text:='C'+formatdatetime('yyyymmdd',now)+'0'+inttostr(num+1);
                end;
            if num=99 then
                begin
                        edt_cgdh.Text:='C'+formatdatetime('yyyymmdd',now)+inttostr(num+1);
                end;
            if (length(inttostr(num))=3) and (num<>999) then
                begin
                        edt_cgdh.Text:='C'+formatdatetime('yyyymmdd',now)+inttostr(num+1);
                end;
           { if num=999 then
                begin
                        showmessage('单号已经超过了一天应该开的单数了,很抱歉,如果有需要请与软件开发商联系!');
                        edt_cgdh.Text:='';
                        exit;
                end;      }
        end;
  end;
//窗体创建后,dbgrid1的显示
with adoq_add do
  begin
     close;
     sql.Clear;
     {sql.Add('insert into ##cglsb values('''+trim(edt_cgdh.text)+''','''+trim(edt_gysbh.text)+''','''+trim(edt_gysmc.text)+''','''+trim(edt_hpdh.text)+''','''+trim(edt_hpmc.Text)+''','+edt_cgdj.Text+','+edt_cgsl.Text+','+'0'+','''+trim(edt_rhckbh.text)+''','''+trim(edt_rhck.Text)+''')');
     //showmessage('insert into ##cglsb values('''+trim(edt_cgdh.text)+''','''+trim(edt_gysbh.text)+''','''+trim(edt_gysmc.text)+''','''+trim(edt_hpdh.text)+''','+edt_cgdj.Text+','+edt_cgsl.Text+','+'0'+','''+trim(edt_rhckbh.text)+''','''+trim(edt_rhck.Text)+''')');
     execsql;
     close;
     sql.Clear;
    sql.Add('select gysmc as 供应商名称,##cglsb.hpdh as 货品编号,hpmc as 货品名称,cgdj as 预采购单价,cgsl as 预采购数量,ckmc as 预入货仓库 from ##cglsb,tbl_hpxx,tbl_gysxx,tbl_ckxx ');
     sql.Add(' where ##cglsb.gysbh=tbl_gysxx.gysbh and ##cglsb.hpdh=tbl_hpxx.hpdh and ##cglsb.rhckbh=tbl_ckxx.ckbh'); }
     sql.Add('select gysbh as 供应商编号,gysmc as 供应商名称,hpdh as 货品编号,hpmc as 货品名称,cgdj as 预采购单价,cgsl as 预采购数量,rhckbh as 仓库编号,rhckmc as 仓库名称 from ##cglsb');
     open;
  end;
  //窗体创建后,第一个获得焦点的对象
edt_czy.SetFocus;
贴的代码太长了!
欢迎与我探讨问题,我的E-Mail: guangbowang@yahoo.com.cn
先做一个取数据库服务器时间的函数,如GETSERVERDATE。(如果单机版则不必)
with adoq_csh do
  begin
      close;
      sql.clear;
      sql.Add('select distinct pjh from tbl_cgxx where rq=convert(varchar(10),getdate(),20))');
      open;
      if RecordCount=0 then
        begin
            edt_cgdh.Text:='C'+formatdatetime('yyyymmdd',now)+'001';
        end;
      if recordCount<>0 then
        begin
            //查询一次单号最大值(省略)dhLength
//再判断是否为999
            case dhLength of
            1:edit1.Text:=日期+'00'+inttostr(strtoint(fieldvalues['dh'])+1);
            2:edit1.Text:=日期+'0'+inttostr(strtoint(fieldvalues['dh'])+1);
            3:edit1.Text:=日期+inttostr(strtoint(fieldvalues['dh'])+1);
         end;
      else =99
        edt_cgdh.Text:='';
                        exit;
                end;      }
        end;
  end;
大概就这样,临时表我不明白情况/
先做一个取数据库服务器时间的函数,如GETSERVERDATE。(如果单机版则不必)
with adoq_csh do
  begin
      close;
      sql.clear;
      sql.Add('select distinct pjh from tbl_cgxx where rq=convert(varchar(10),getdate(),20))');
      open;
      if RecordCount=0 then
        begin
            edt_cgdh.Text:='C'+formatdatetime('yyyymmdd',now)+'001';
        end;
      if recordCount<>0 then
        begin
            //查询一次单号最大值(省略)dhLength
//再判断是否为999
            case dhLength of
            1:edit1.Text:=日期+'00'+inttostr(strtoint(fieldvalues['dh'])+1);
            2:edit1.Text:=日期+'0'+inttostr(strtoint(fieldvalues['dh'])+1);
            3:edit1.Text:=日期+inttostr(strtoint(fieldvalues['dh'])+1);
         end;
      else =99
        edt_cgdh.Text:='';
                        exit;
                end;      }
        end;
  end;
大概就这样,临时表我不明白情况/
先做一个取数据库服务器时间的函数,如GETSERVERDATE。(如果单机版则不必)
with adoq_csh do
  begin
      close;
      sql.clear;
      sql.Add('select distinct pjh from tbl_cgxx where rq=convert(varchar(10),getdate(),20))');
      open;
      if RecordCount=0 then
        begin
            edt_cgdh.Text:='C'+formatdatetime('yyyymmdd',now)+'001';
        end;
      if recordCount<>0 then
        begin
            //查询一次单号最大值(省略)dhLength
//再判断是否为999
            case dhLength of
            1:edit1.Text:=日期+'00'+inttostr(strtoint(fieldvalues['dh'])+1);
            2:edit1.Text:=日期+'0'+inttostr(strtoint(fieldvalues['dh'])+1);
            3:edit1.Text:=日期+inttostr(strtoint(fieldvalues['dh'])+1);
         end;
      else =99
        edt_cgdh.Text:='';
                        exit;
                end;      }
        end;
  end;
大概就这样,临时表我不明白情况/
ShareSDK针对Unity发布社交化组件 2014 CocoaChina开发者大会将公布触控奖学金等高校合作计划 中低端智能手机热销,未来市场或主打价格战 Facebook开源flint:一个用D语言编写的C++静态代码分析器 AMD携手BlueStacks,下半年推出零售版双操作系统 历时6年 Github发布基于Web的桌面文本编辑器:Atom Ratchet:构建移动应用原型,新版支持Android 13个最狂帅炫酷的前沿科技研究项目 打动面试官的五大技能 乐视TV和NBA签约三年互联网电视版权 首度披露大屏运营策略 支撑4.5亿活跃用户的WhatsApp架构概览 免费使用Windows?微软推Windows 8.1 with Bing实验项目 C/C++开发者必不可少的15款编译器+IDE Amazon推荐,Facebook追踪,大数据时代的“狗仔队” NewSQL登场,NuoDB告诉你未来数据库什么样 2014 Unity亚洲开发者大会&#183;中国站:技术课程全面解析 与其坐以待毙不如主动出击 软件如何避免惨遭淘汰 一周消息树:程序员想找好工作?那就学好Linux! 移动周报:开发者必须了解的10大跨平台工具 一周热点:领先Google 150年的数据可视化及WhatsApp架构解析 R语言为Hadoop注入统计血脉 海外游戏市场:Google与“开心农场”谈破局 2014年2月操作系统份额:Windows仍在增长 Win 7以47.31%稳居第一 2014年2月份浏览器份额:IE 8仍全球最受欢迎,Firefox跌破18%大关 跨平台2D游戏引擎V-Play:3天开发一款原生游戏 Appery.io:无编程经验,自己也能DIY移动应用 SAP携手Xamarin和Service2Media 提供移动应用开发框架 8个超实用的jQuery技巧攻略 美国国防部战略:大规模、分布式,构建数字化防御体系 针对小白的Python入门教程——Python使用说明书 耗资460亿美元,天价Olympic上广受诟病的监控和4G 请高手帮忙 有什么好的VC打包工具吗? 请问如何让程序自动运行?并且如何取消程序的自动运行? 两个问题求助~~~~~~~~~~~~~~~~~~~~ 关于同一台计算机两个id的邮件配置问题 在一个datawindow中放了多个button,如何针对每一个Button进行编程? 派生类的三种继承方式 高薪诚聘 C# 程序员 一个有关失效率的问题,请大侠们指点! sun的j2ee sdk 1.3.1不能在2000server上运行?? [黑色幽默]唉 难道这就是IT人的未来? 几个项目开发问题,有经验者请进。 關於用vb取sybase數據的問題 如何实现呢?请教各位高手,高高手。。。 急。死。问一下UDP的写的一个NETICQ的使用方法.在线等 初学JSP,在用JavaBean创建了一个数据库连接的程序,但是在JSP中用<jsp:useBean>使用JavaBean时出现了问题。 我是新手,一个工程换目录了需要改哪些地方? listview控件网格的高度如何设置啊? 请问TFORM 中的onActivate 事件是在什么时候触发 help 关于菜单 為什麼服務器中的NETLOGON(用戶登錄)服務老是出現錯誤呢? 我的PIII 667 现在启动时自检为333E,然后进入CMOS,提示CPU频率不对,这是什么原因? 分不多了,帮我看看这个短小超难的SQL怎么写 unsigned char * 和 object pascal 中的什么是等价的?pchar 是无符号的么? 那位大哥帮看看 这句为什么总编译不过去 xiexie trectangle类型为什么总说我没有定义?在线等…… 为何收不到邮件的BODY部分? platform builder platform 时出错 有关SQLJ的问题 有谁可以提供几个关天isa server的好认坛? 在计划任务中编写t_sql语句的字符长度限制问题! JAVA 图形化编程如何控制组件的大小和位置!!! 如何用ASP上传文件到数据库、读取并下载? 100分求教我的ActiveForm出现access violation at address...的问题(急急急) 最真诚的祝福大力和璇玑! 控制文件损坏,恢复是碰到了难点--ora-00600错误。怎么办??? 请问WebBrowser对象在弹出式窗口中是不是不能用? 关于CListCtrl的一个问题 多个cpp可以有多个main吗? 怎么样在不同分辨率下显示同一网页不变形? 卡拉OK厅中的男人和女人们(zt) 怎么在一个接口中调用另外一个接口 大力过来 帮忙! 论坛里有保留cookies的功能,但是有些用户说cookies保存不了 大家好!我有问题很急呀!!! 哪个函数可以打开多个文件? 大家请进来说说吧,用什么软件编辑jsp和javascript能测试出网页中提示的:完成,但网页上有错误,这种错误所在的行和具体的什么错误。 关于在课件项目中应用XML的问题,回复心得或相关链接都有赠分 多个附件上传和下载 VB.NET中樹是怎樣展開 AABC的成语有哪些如:翩翩起舞 激昂在古汉语是什么意思 读了上下五千年中的孙膑的故事,我想到了名言: 激昂婉转的意思 激昂文字什么意思 高亢激昂的意思 短一点 英语翻译这是一个书名。请问如何翻译了 希望能简短的 modern quality system approach是什么意思那个approach怎么翻 古文翻译:蹈死不顾,亦易故哉 蹈死不顾的 顾 货运大伯看上女老板 对方老公出马救急朴槿惠:日本就历史问题道歉前不与安倍博尔特自爆在北京拒吃中餐 吃了100俄罗斯总统向大连外国语大学校长颁发普“世纪审判”遭闹场 穆尔西高喊“我是俄新反恐法:恐怖分子亲友将“连坐”杭州推广能随时调节亮度的路灯杭州凤起立交两边50个停车泊位取消(桐乡获批旅游综合改革试点 先行先试旅考试在即 韩国学生家长跪拜祈福【高清浙医二院去年有60多个医生因用药不合中国残奥代表团出征里约(组图)柯洁晋级决赛阿森纳补强锋线后卫巴萨大手引援 皇马按兵不动鲁尼:2018年退出英格兰队大战前,梅西受伤美媒:美多家研究所造黑客入侵 怀疑与克里木儿童成长基金启动暨公益舞台剧《中国“金花”齐绽放至少赢三球“抗韩”,苦练两利器美女导师爱上我桃花笑《行尸天下冒牌男友很腹黑风间传说撞上帅哥靓女心酸等着爱武仙让我守护你我的女孩请君宠爱我契约天使恶魔郎灵岩旅游方洞旅游水立方旅游鸟巢旅游798艺术区旅游西单旅游南锣鼓巷旅游故宫旅游天安门广场旅游北京大学旅游意式风情街旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘