机器Coding For WinForm
declare @objname varchar(90)='AutoProjectModel'
declare @modelns varchar(90)='ACL.Models'
declare @dpclsname varchar(200)='ACL.UPDExtDataProvider'--model数据提供类名
declare @datamodel varchar(90)='ext_' +@objname
declare @clsname varchar(90)=replace(@datamodel,'ext_','')+'Model'
declare @modelname varchar(90)='自动化项目模块'
--type 0:注释,1:访问方法,2:model,3:dataprovider,4:viewmodel,5:codebehind,6:ListViewUI,7:DatagridUI,8读存储过程,9写存储过程
create table #(myfd varchar(max))
declare @readprocname varchar(90)='',@writeprocname varchar(90)=''
set @readprocname='wp_getPager_'+@objname+'_ds'
set @writeprocname='wp_'+@objname+'_change'
insert into #(myfd)
select '//****************************************datagrid列绑定*****************************************'
insert into #(myfd)
select 'dgModlist.Columns["cl'+ name+'"].DataPropertyName = "'+name+'";'
from syscolumns a,information_schema.columns b
where a.name=b.COLUMN_NAME
and b.TABLE_NAME=@datamodel and object_name(id)=@datamodel
insert into #(myfd)
select '//****************************************form codebehind 新增*****************************************'
declare @fbstr varchar(max) =''
set @fbstr+=char(10)+'public ProjectReg(int ID){'
+char(10)+'InitializeComponent();'
+char(10)+'_ID = ID;'
+char(10)+'if (_ID > 0)'
+char(10)+'InitView();'
+char(10)+'}'
+char(10)+'List<'+@modelns+'.'+@clsname+'> _Models; '
+char(10)+'private void InitView(){'
+char(10)+'_Models = '+@modelns+'.'+@clsname+'.PopObjectList(_ID, "", "");'
+char(10)+'if (_Models.Count > 0) {'
+char(10)+@clsname+' model = _Models[0];'
select @fbstr+= char(10)+ '_'+name+'=model.'+name+';'
from syscolumns a where object_name(id)=@datamodel
select @fbstr+=char(10)+'}}'
select @fbstr+=char(10)+'string _'+a.name+' { get { return txt'+Name+'.Text.Trim(); }set { txt'+Name+'.Text=value; } }'
from syscolumns a where object_name(id)=@datamodel
set @fbstr+=char(10)+'private void btnsave_Click(object sender, EventArgs e){'
set @fbstr+=char(10)+@clsname +' model =new '+@clsname+'();'
select @fbstr+=char(10)+'model.'+name+'=_'+name+';'
from syscolumns a where object_name(id)=@datamodel
set @fbstr+=char(10)+'HandleMsg msg='+@clsname+'.'+@objname+'Change(model);'
set @fbstr+=char(10)+'MessageBox.Show(msg.Msg);'
set @fbstr+=char(10)+'}'
insert into #(myfd) values(@fbstr)
insert into #(myfd)
select '//****************************************'+@clsname+'*****************************************'
declare @modelstr varchar(max)
select @modelstr='using System;'
+char(10)+'using System.Collections.Generic;'
+char(10)+'using System.Data; '
+char(10)+'using System.Runtime.Serialization;'
+char(10)+'using System.Text;'
select @modelstr+=char(10)+'namespace '+@modelns+char(10)+'{'+char(10)+'public class '+@clsname+''+CHAR(10)+'{'
select @modelstr+=char(10)+'public string Action{get;set;}'
select @modelstr+=char(10)+'public '+
case when b.data_type='datetime' then 'string'
when b.data_type='nvarchar' then 'string'
when b.data_type='varchar' then 'string'
when b.data_type='uniqueidentifier' then 'string'
when b.data_type='money' then 'double'
when b.data_type='bit' then 'int'
when b.DATA_TYPE='smallint' then 'int'
when b.DATA_TYPE='int' OR b.DATA_TYPE='bigint' then 'int'
when b.DATA_TYPE='decimal' then 'double'
else b.DATA_TYPE end+ ' '+
name+'{get;set;}'
+'' from syscolumns a,information_schema.columns b
where a.name=b.COLUMN_NAME
and b.TABLE_NAME=@datamodel and object_name(id)=@datamodel
select @modelstr+=char(10)+'public '+@clsname+'() { }'
select @modelstr+=char(10)+'public '+@clsname+'(DataRow dr) { '
select @modelstr+=char(10)+
case when b.data_type='datetime' OR b.data_type='date' then 'if(!Convert.IsDBNull(dr["'+name+'"]))'
+'this.'+name+'= Convert.ToDateTime(dr["'+name+'"]).ToString("yyyy-MM-dd hh:mm:ss");'
+'else this.'+name +'="";'
when b.data_type='nvarchar' or b.data_type='varchar' or b.data_type='uniqueidentifier' then 'this.'+name+'=dr["'+name+'"].ToString();'
when b.data_type='money' or b.DATA_TYPE='decimal' then
'if (Convert.IsDBNull(dr["'+name+'"]))'+char(10)+
'this.'+name+'=0;'+char(10)+
'else '+
'this.'+name+'=Convert.ToDouble(dr["'+name+'"]);'
when b.data_type='bit' or b.DATA_TYPE='smallint' or b.DATA_TYPE='int' then
'if (Convert.IsDBNull(dr["'+name+'"]))'+char(10)+
'this.'+name+'=0;'+char(10)+
'else '+
'this.'+name+'=Convert.ToInt32(dr["'+name+'"]);'
else '' end
from syscolumns a,information_schema.columns b
where a.name=b.COLUMN_NAME
and b.TABLE_NAME=@datamodel and object_name(id)=@datamodel
select @modelstr+=char(10)+'this.Action="编 辑";'
select @modelstr+=char(10)+'}'
+char(10)+'public static HandleMsg '+@objname+'Change('+@clsname+' model) {'
+char(10)+'Dictionary<string, object> dir = new Dictionary<string, object>();'
select @modelstr+=char(10)+'dir.Add("@'+name +'", model.'+name+');'
from syscolumns a where object_name(id)=@datamodel
select @modelstr+=char(10)+'DataTable dt = '+@dpclsname+'.'+@objname+'Change(dir);'
+char(10)+'HandleMsg msg = new HandleMsg(dt);'
+char(10)+'return msg;'
+char(10)+'}'
select @modelstr+=char(10)+'public static List<'+@clsname+'> PopObjectList(string parm, string userno)'
+char(10)+'{'
+char(10)+'Dictionary<string, object> dir = new Dictionary<string, object>();'
+char(10)+'dir.Add("@parm", parm);'
+char(10)+'dir.Add("@userno", userno);'
+char(10)+'DataTable dt = '+@dpclsname+'.Get'+@clsname+'List(dir);'+char(10)+
' List<'+@clsname+'> list = new List<'+@clsname+'>();'+char(10)+
' foreach (DataRow dr in dt.Rows)'+char(10)+
' {'+char(10)+
' list.Add(new '+@clsname+'(dr));'+char(10)+
' }'+char(10)+
' return list;'+char(10)+
' }}}'
insert into #(myfd)
select @modelstr
print @modelstr
insert into #(myfd)
select '//****************************************DATA Provider*****************************************'
declare @dpstr varchar(max)=''
select @dpstr+=char(10)+'public static DataTable Get'+@clsname+'List(Dictionary<string, object> parms){'
+char(10)+ 'DataTable dt = _DataProvider.ExecStoreProcedureForGettingTable(parms, "'+@readprocname+'");'
+char(10)+'return dt;'
+char(10)+'} '+char(10)
select @dpstr+=char(10)+'public static DataTable '+@objname+'Change(Dictionary<string, object> parms){'
select @dpstr+=char(10)+'DataTable dt = _DataProvider.ExecStoreProcedureForGettingTable(parms, "'+@writeprocname+'");'
select @dpstr+=char(10)+'return dt;}'
INSERT into #(myfd)values(@dpstr)
--**********************************输出WPF数据UI**************************************
SELECT --CAST(CASE WHEN ISNULL(g.[value],'')='' THEN a.name ELSE g.[value] END AS VARCHAR) +CHAR(10)
'<GridViewColumn Header="' + CAST(CASE WHEN ISNULL(g.[value],'')='' THEN a.name ELSE g.[value] END AS VARCHAR)
+'" Width="100" CellTemplateSelector="{x:Null}">'+CHAR(10)
+'<GridViewColumn.CellTemplate>'+CHAR(10)
+'<DataTemplate>'+CHAR(10)
+'<DockPanel LastChildFill="True">'+CHAR(10)
+'<Rectangle DockPanel.Dock="Right" Fill="#BABABE" Width="1" ></Rectangle>'+CHAR(10)
+'<TextBlock DockPanel.Dock="Left" Text="{Binding ID}" Width="100" HorizontalAlignment="Left"></TextBlock>'+CHAR(10)
+'</DockPanel>'+CHAR(10)
+'</DataTemplate>'+CHAR(10)
+'</GridViewColumn.CellTemplate>'+CHAR(10)
+'</GridViewColumn>'+CHAR(10)
---- (case when a.colorder=1 then d.name else '' end) 表名,
FROM syscolumns a left join systypes b
on a.xtype=b.xusertype
inner join sysobjects d
on a.id=d.id and d.name<>'dtproperties'
left join sys.extended_properties g
on a.id=g.major_id AND a.colid = g.minor_id
WHERE d.[name] =@datamodel --你要查看的表名,注释掉,查看当前数据库所有表的字段信息
order by a.id,a.colorder
insert into #(myfd)values('
--***********************************************读取数据存储过程************************************************')
--***********************************************读取数据存储过程**************************************************
declare @fields varchar(max)='',@sqlstr varchar(max)='',@orderfields varchar(90)=''
select @fields=stuff((select ','+name from syscolumns
where object_name(id)=''+@datamodel+'' order by colorder for xml path('')),1,1,'')
select top 1 @orderfields=name from syscolumns where object_name(id)=''+@datamodel+'' order by colorder
set @sqlstr+='--'+convert(varchar(10),getdate(),120)+''
+char(10)+'--读取'+@modelname+''
+char(10)+'--'+@readprocname+' @parm='''''
+char(10)+'create PROC '+@readprocname+''
+char(10)+'@id INT=-1,'
+char(10)+'@parm nvarchar(90)='''', '
+char(10)+'@userno VARCHAR(20)='''','
+char(10)+'@isvalid INT =-1,'
+char(10)+'@sortfields nvarchar(100)='''','
+char(10)+'@pageindex int=1,'
+char(10)+'@pagesize int=500'
+char(10)+'AS'
+char(10)+'begin '
+char(10)+'--******************************************数据准备**************************************'
+char(10)+'--*******************************************变量定义***************************************'
+char(10)+'--构建执行脚本'
+char(10)+'declare @sql nvarchar(1800)='''','
+char(10)+'--存储对象'
+char(10)+'@tablename NVARCHAR(50)='''+@datamodel+''','
+char(10)+'--返回字段'
+char(10)+'@returnfields nvarchar(1000)='''','
+char(10)+'--where 条件'
+char(10)+'@where nvarchar(200)='' where 1=1'','
+char(10)+'--上次查询数量'
+char(10)+'@lastcount int =-1 '
+char(10)+'--计算前面查询的数据总数'
+char(10)+'set @lastcount=(@pageindex-1)*@pagesize'
+char(10)+'if @lastcount<0 set @lastcount=0'
+char(10)+'--判断排序字段'
+char(10)+'if @sortfields='''''
+char(10)+'set @sortfields='''+@orderfields+''''
+char(10)+'--*******************************************返回字段设定*****************************************'
+char(10)+'--select stuff((select '',''+name from syscolumns '
+char(10)+'--where object_name(id)=''ext_AutoRunRegister'' order by colorder for xml path('''')),1,1,'''')'
+char(10)+'set @returnfields='''+@fields+''''
+char(10)+'--*******************************************由条件构建Where***************************************'
+char(10)+'if @id<>-1'
+char(10)+'set @where+='' and id =''+CAST(@id AS VARCHAR)'
+char(10)+'if @userno<>'''''
+char(10)+'set @where+='' and userno like ''''%''+@userno+''%'''''''
+char(10)+'--*******************************************由条件构建SQL***************************************'
+char(10)+'set @sql='''
+char(10)+'declare @lastmaxid int=0,@total int'
+char(10)+'--缓存的临时表,并创建检索rowID'
+char(10)+'if object_id(''''tempdb..#t'''') is not null'
+char(10)+' drop table #t'
+char(10)+'select row_number() over (order by ''+@sortfields+'') rowid, * into #t from ''+@tablename'
+char(10)+'set @sql += @where'
+char(10)+'--获取按照执行排序,前面查询的数据的最大ID'
+char(10)+'set @sql +='' select top ''+cast(@lastcount as nvarchar)+'' @lastmaxid=max(rowid) from #t'''
+char(10)+'set @sql+= '' group by rowid'''
+char(10)+'--获取符合条件的数据总数'
+char(10)+'set @sql+='' select @total=count(*) from #t'''
+char(10)+'--**********************************************构造执行返回结果的SQL*****************************************'
+char(10)+'set @sql+='' select '''
+char(10)+'if @pagesize>0'
+char(10)+' set @sql+=''top ''+cast(@pagesize as nvarchar) '
+char(10)+' set @sql+='' rowid '''
+char(10)+' if @returnfields<>'''''
+char(10)+' begin'
+char(10)+' set @sql+='',''+@returnfields '
+char(10)+' end '
+char(10)+' set @sql+='' from #t where rowid>@lastmaxid order by rowid'''
+char(10)+'set @sql+='' select @total total,''+cast(@pagesize as nvarchar)+'' pagesize,''+cast(@pageindex as nvarchar)+'' pageindex'''
+char(10)+'set @sql+='' if object_id(''''tempdb..#t'''') is not null'
+char(10)+' drop table #t'''
+char(10)+'set @sql+='' if object_id(''''tempdb..#x'''') is not null'
+char(10)+' drop table #x'''
+char(10)+'exec(@sql) '
+char(10)+'END'
insert into #(myfd)
select @sqlstr
insert into #(myfd)values('
--***********************************************写入数据存储过程************************************************')
--***********************************************写入数据存储过程**************************************************
declare
@yesUpdateCondition VARCHAR(300)='@id>0' --更新表时需要满足此条件
,@tbcols VARCHAR(2000)=''
,@tbcolsp VARCHAR(2000)=''
,@tbcolspv VARCHAR(2000)=''
,@space VARCHAR(10)=' '
SELECT @tbcols= stuff((select ','+name from syscolumns
where object_name(id)=@datamodel order by colorder for xml path('')),1,1,'')
SELECT @tbcolsp= stuff((select ',@'+name from syscolumns
where object_name(id)=@datamodel order by colorder for xml path('')),1,1,'')
SELECT @tbcolspv= stuff((select ','+name+'=@'+name from syscolumns
where object_name(id)=@datamodel order by colorder for xml path('')),1,1,'')
create table #w(id INT IDENTITY(1,1),myfd varchar(500))
insert into #w(myfd)
SELECT 'create proc '+@writeprocname
insert into #w(myfd)
SELECT '@'+ a.name+' '+
CASE when b.data_type='datetime' OR b.data_type='date' then 'datetime=''1900-01-01'''
when b.data_type='nvarchar' OR b.data_type='varchar' then 'nvarchar('+CAST(a.length AS VARCHAR)+')='''''
when b.data_type='uniqueidentifier' then 'varchar('+CAST(a.length AS VARCHAR)+')='''''
when b.data_type='money' then 'money=0'
when b.data_type='bit' then 'smallint=0'
when b.DATA_TYPE='smallint' then 'smallint=0'
when b.DATA_TYPE='int' then 'int=0'
when b.DATA_TYPE='decimal' then 'decimal(18,4)=0'
else b.DATA_TYPE end+ ','
FROM syscolumns a,information_schema.columns b
where a.name=b.COLUMN_NAME
and b.TABLE_NAME=@datamodel and object_name(id)=@datamodel
UPDATE #w SET myfd=REPLACE(myfd,',','') WHERE id=@@ROWCOUNT+1
insert into #w(myfd)
select 'as'
insert into #w(myfd)
select 'SET XACT_ABORT on'
insert into #w(myfd)
select 'begin tran'
insert into #w(myfd)
select ' begin try'
insert into #w(myfd)
select @space+' '+'declare @count int,@msg varchar(200)='''''
INSERT INTO #w(myfd)
SELECT @space+' if('+@yesUpdateCondition+') '
INSERT INTO #w(myfd)
SELECT @space+' begin'
INSERT INTO #w(myfd)
SELECT @space+@space+' update '+@datamodel+' set '+@tbcolspv
INSERT INTO #w(myfd)
SELECT @space+@space+' where ID=@ID'
INSERT INTO #w(myfd)
SELECT @space+@space+' select @count=@@rowcount '
INSERT INTO #w(myfd)
SELECT @space+' end '
INSERT INTO #w(myfd)
SELECT @space+' else '
INSERT INTO #w(myfd)
SELECT @space+' begin '
INSERT INTO #w(myfd)
SELECT @space+@space+' insert into '+@datamodel+'('+@tbcols+')'
INSERT INTO #w(myfd)
SELECT @space+@space+' select '+@tbcolsp
INSERT INTO #w(myfd)
SELECT @space+@space+' select @count=@@rowcount '
INSERT INTO #w(myfd)
SELECT @space+' end '
INSERT INTO #w(myfd)
SELECT @space+' select @count tcount,case when @count>0 then ''执行成功'' else ''执行失败'' end msg '
INSERT INTO #w(myfd)
SELECT @space+' commit tran '
INSERT INTO #w(myfd)
SELECT ' end try'
INSERT INTO #w(myfd)
SELECT ' begin catch '
INSERT INTO #w(myfd)
SELECT @space+' select @msg=error_message() '
INSERT INTO #w(myfd)
SELECT @space+' select 0 tcount,@msg msg'
INSERT INTO #w(myfd)
SELECT @space+' rollback tran '
INSERT INTO #w(myfd)
SELECT ' end catch'
select * from #
select * from #w
drop table #w
drop table #
机器Coding For WinForm的更多相关文章
- 机器Coding For WPF
declare @modelcode varchar(90)='AutoProjectType'declare @ns varchar(90)='WpfApplication'declare @dat ...
- BIT祝威博客汇总(Blog Index)
+BIT祝威+悄悄在此留下版了个权的信息说: 关于硬件(Hardware) <穿越计算机的迷雾>笔记 继电器是如何成为CPU的(1) 继电器是如何成为CPU的(2) 关于操作系统(Oper ...
- DevExpress 学习使用之 LookUpEdit
我的机器上,Winform 控件中的 LookUp 有1+3 种,在我们国家也被称为 4 种,你们那儿呢? 这 1+3 种 LookUpEdit 分别是 LookUpEdit.GridLookUpEd ...
- Coding theano under remote ubuntu server from local Mac (在本地mac机器上,写、跑、调试、看-远程ubuntu上的theano代码)
本人是奇葩,最近鼓捣了一套在mac上coding远程ubuntu上的theano代码的东东,记之以期造福后人. Overview: 下图是我的编程环境和网络环境 我期望能在本地mac机器上对远程的ub ...
- 显示器分辨率不同,部分winform控件在其他机器上显示不全
在开发机器上效果如下: 而到其他电脑上效果如下: 解决办法: 将窗体的AutoScaleMode属性设置为None,尝试一下,应该可以了. 关于AutoScaleMode的属性,可以参考 http:/ ...
- 使用 .NET WinForm 开发所见即所得的 IDE 开发环境,实现不写代码直接生成应用程序
直接切入正题,这是我09年到11年左右业余时间编写的项目,最初的想法很简单,做一个能拖拖拽拽就直接生成应用程序的工具,不用写代码,把能想到的业务操作全部封装起来,通过配置的方式把这些业务操作组织起来运 ...
- [bigdata] 使用Redis队列来实现与机器无关的Job提交与执行 (python实现)
用例场景: 定时从远程多台机器上下载文件存入HDFS中.一开始采用shell 一对一的方式实现,但对于由于网络或者其他原因造成下载失败的任务无法进行重试,且如果某台agent机器down机,将导致它对 ...
- C# winform安装部署(转载)
c# winform 程序打包部署 核心总结: 1.建议在完成的要打包的项目外,另建解决方案建立安装部署项目(而不是在同一个解决方案内新建),在解决方案上右击-〉添加-〉现有项目-〉选择你要打包的项目 ...
- 一句话知识:如何解决winform自动缩放产生的布局问题.
转自http://www.cnblogs.com/KenBlove/articles/1281823.html有时候你会发现本来好好的WinForm程序在别的机器上显示的尺寸就不对了.这些问题主要发生 ...
随机推荐
- 【转帖】Mysql多维数据仓库指南 第一篇 第1章
Mysql多维数据仓库指南 第一篇基本原理 章节列表: 第1章:基本组成 第2章:维度历史 第3章:维度可加性 第4章:维度查询 本篇概述 你将运用关系数据库来实施一个维度数据仓库.事实表和维表这两 ...
- WebSphere集群环境修改IHS端口号的方法 分类: WebSphere 2015-08-06 13:41 14人阅读 评论(0) 收藏
参考资料:http://wenku.baidu.com/link?url=E9BkuEjJ16i9lg7l91L0-xhKCYkHV0mAnlwAeSlDCFM4TjZyk4ZVxmUu64BGd4F ...
- Core Animation 动画的使用:关键帧动画、基础动画、动画组
首先让我们了解下什么是 Core Animation,Core Animation 为核心动画,他为图形渲染和动画提供了基础.使用核心动画,我们只需要设置起点.终点.关键帧等一些参数,剩下的工作核心动 ...
- docker中,如何将镜像保存为tar文件或者将镜像保存为文件,将tar文件导入到docker中
需求说明: 在实际使用docker的过程中,比如某些机器不能上网,恰巧需要某些docker镜像,一般可以采用在能上网的机器上,pull下来基础镜像,然后将docker 镜像保存为文件,在不能上网的机器 ...
- [Node.js] 00 - Where do we put Node.js
Ref: 前后端分离的思考与实践(五篇软文) 其实就是在吹淘宝自己的Midway-ModelProxy架构. 第一篇 起因 为了提升开发效率,前后端分离的需求越来越被重视, 同一份数据接口,我们可以定 ...
- sklearn数据预处理
一.standardization 之所以标准化的原因是,如果数据集中的某个特征的取值不服从标准的正太分布,则性能就会变得很差 ①函数scale提供了快速和简单的方法在单个数组形式的数据集上来执行标准 ...
- cube-ui修改按钮颜色
首先,当我们按照脚手架一步一步创建完项目以后 $ vue init cube-ui/cube-template projectname $ sudo npm install $ npm start 主 ...
- Django之ORM那些相关操作
一般操作 看专业的官网文档,做专业的程序员! 必知必会13条 <1> all(): 查询所有结果 <2> filter(**kwargs): 它包含了与所给筛选条件相匹配的对象 ...
- sshpass 配置密码登录ssh
tar -zxvf sshpass-1.06.tar.gzcd sshpass-1.06./configuremake && make install sshpass -p userp ...
- Linux 查看进程运行的完整路径方法
通过ps及top命令查看进程信息时,只能查到相对路径,查不到的进程的详细信息,如绝对路径等. 这时,我们需要通过以下的方法来查看进程的详细信息: Linux在启动一个进程时,系统会在/proc下创建一 ...