Fakhrulhilal Maktum

My Personal Blog

[fakhrulhilal]

Doa, antara kebutuhan dan keinginan

Salah satu kesalahan orang ketika berdoa adalah dia meminta hasil (akibat) bukan apa yang sedang dia usahakan (sebab). Padahal bisa saja hasil yang kita minta bukanlah sesuatu yang kita butuhkan, bisa saja itu cuma keinginan kita belaka. Sedangkan jika kita meminta kelancaran dari apa yang sedang kita usahakan, tentunya kita akan belajar banyak ketika kita sedang berjuang dan pastinya kita akan benar-benar tahu apa yang kita butuhkan, bukan sekedar yang kita inginkan. #MTGW #TodayLearning

[bolshchikov-blog]

So, Google IO/14 is over. One of its main themes in web sphere was mobile. Mobile first. It’s growing. 1/3 of web sites visitors come from there.

Google pushes web platform and mobile forward by introducing polymer, web components, service workers, caring about mobile performance. One...

[fakhrulhilal]

Interesting post about chrome dev tools. Now, mobile web development will be more interesting. I hope selenium supports this feature so we can create automation for mobile UI test.

[fakhrulhilal]

T-SQL VB.NET POCO Generator

Do you prefer to use Code First (POCO) than Model First (EDMX) when using Entity Framework? Writing POCO classess may waste your time. So why we don’t simplyfiy our work? Instead, use this T-SQL script to generate POCO classes. This's code snippet will generate VB.NET code, if you're looking for C# version, then try my previous post

/* ----- CONFIGURATION ----- */ declare @table varchar(max), --table name @enableAnnotation bit; --show data annotation? set @table = 'TableName'; set @enableAnnotation = 1; /* ----- END OF CONFIGURATION ----- */ declare @column varchar(max), @length int, @type varchar(max), @isNullable bit, @pocoType varchar(max), @attribute varchar(max), @poco varchar(max), @linebreak char(2), @enter char(1), @tab char(1), @totalPK int, @indexPK int, @isPK bit, @isFirstRow bit, @identitySeed bigint, @identityIncrement int; declare @identities table(ColumnName varchar(max), Seed bigint, Increment int); declare @primaryKeys table(ColumnName varchar(max)); set @enter = char(13); set @tab = char(9); set @linebreak = @enter + @tab; set @isFirstRow = 1; set nocount on; --find all primary key insert into @primaryKeys(ColumnName) select ccu.COLUMN_NAME from INFORMATION_SCHEMA.TABLE_CONSTRAINTS tc join INFORMATION_SCHEMA.CONSTRAINT_COLUMN_USAGE ccu on tc.CONSTRAINT_NAME = ccu.CONSTRAINT_NAME where tc.CONSTRAINT_TYPE = 'Primary Key' and tc.TABLE_NAME = @table; select @totalPK = count('') from @primaryKeys; set @indexPK = 0; --find all identity columns insert into @identities(ColumnName, Seed, Increment) select id.name, cast(id.seed_value as bigint), cast(id.increment_value as int) from sys.identity_columns as id inner join sys.objects as so on object_name(id.object_id)=so.name where so.type='u' and so.name = @table and id.is_identity = 1 declare cursorPoco cursor fast_forward for select COLUMN_NAME ColumnName, CHARACTER_MAXIMUM_LENGTH, DATA_TYPE, case IS_NULLABLE when 'YES' then 1 when 'NO' then 0 else null end IsNullable from information_schema.columns where TABLE_NAME = @table; if (@enableAnnotation = 1) print '<Table("' + @table + '")>'; print 'Public Class ' + @table; open cursorPoco; fetch cursorPoco into @column, @length, @type, @isNullable; while @@FETCH_STATUS = 0 begin set @pocoType = ''; set @poco = 'Public Property '; set @isPK = 0; set @identitySeed = null; set @identityIncrement = null; if (@isFirstRow = 1) begin set @attribute = @tab; set @isFirstRow = 0; end else begin set @attribute = @linebreak; end --determine wether column is primary key or not if exists (select 1 from @primaryKeys where ColumnName = @column) begin set @attribute = @attribute + '<Key()>' + @linebreak; set @isPK = 1; end if (@isPK = 1 and @totalPK > 1) begin set @attribute = @attribute + '<Column("' + @column + '", Order = ' + cast(@indexPK as varchar) + ')>' + @linebreak; set @indexPK = @indexPK + 1; end else set @attribute = @attribute + '<Column("' + @column + '")>' + @linebreak; --determine wether column is identity or not select top 1 @identitySeed = Seed, @identityIncrement = Increment from @identities where ColumnName = @column; if (@identityIncrement is not null and @identitySeed is not null) begin set @attribute = @attribute + '<DatabaseGenerated(DatabaseGeneratedOption.Identity)>' + @linebreak; end if (@type in ('varchar', 'nvarchar', 'char', 'nchar', 'text', 'ntext')) begin set @pocoType = 'String'; if (@length is not null and @length > 0) set @attribute = @attribute + '<MaxLength(' + cast(@length as varchar) + ')>' + @linebreak; if (@isNullable = 0) set @attribute = @attribute + '<Required>' + @linebreak; if (@type in ('ntext', 'text')) set @attribute = @attribute + '<DataType(DataType.MultilineText)>' + @linebreak; end else begin if (@type = 'int') set @pocoType = 'Int32'; else if (@type = 'bigint') set @pocoType = 'Int64'; else if (@type = 'tinyint') set @pocoType = 'Int16'; else if (@type in ('date', 'datetime', 'time')) begin set @pocoType = 'System.DateTime'; if (@type = 'date') set @attribute = @attribute + '<DataType(DataType.Date)>' + @linebreak; else if (@type = 'time') set @attribute = @attribute + '<DataType(DataType.Time)>' + @linebreak; end else if (@type = 'bit') set @pocoType = 'Boolean'; else if (@type in ('decimal', 'money', 'numeric', 'smallmoney')) begin set @pocoType = 'Decimal'; if (@type in ('money', 'smallmoney')) set @attribute = @attribute + '<DataType(DataType.Currency)>' + @linebreak; end else set @pocoType = @type; if (@isNullable = 1) set @pocoType = 'System.Nullable(Of ' + @pocoType + ')'; end if (@enableAnnotation = 1) set @poco = @attribute + @poco + @column + ' As ' + @pocoType; else set @poco = @tab + @poco + @column + ' As ' + @pocoType; print @poco; fetch cursorPoco into @column, @length, @type, @isNullable; end close cursorPoco; deallocate cursorPoco; print 'End Class'; set nocount off;

[fakhrulhilal]

Life is easy unless you make it hard

Fakhrulhilal Maktum Comparing wordpress that I used for blogging last years, with this tumbler I'm using now, it's so easier to use now. As we know, WordPress is the most popular blogging engine. At the first creation, WordPress was used for blogging. But now, many people use it for many purposes, for example, monitizing. So these people write article so carefully, to gain popularity in the SEO war. Unfortunately, there are many people who are more focused on gaining popularity than writing usefull article. We may now see human unreadable articles in the internet which is more concerned on SEO friendly than human friendly. But today, I found this tumbler much simpler than I had used previously. Most importantly, I've already found the basic functionalities that I need. So I can focus on writing beautifull article, and of course, human readable is more important than machine readable (SEO friendly). There're more option for blogging engine. I prefer to choose simpler one but keep me comfortable rather than complex one but make me hard to maintain. So why don't you make life easier now?

[fakhrulhilal]

T-SQL C# POCO Generator

Do you prefer to use Code First (POCO) than Model First (EDMX) when using Entity Framework? Writing POCO classess may waste your time. So why we don't simplyfiy our work? Instead, use this T-SQL script to generate POCO classes.

/* ----- CONFIGURATION ----- */ declare @table varchar(max), --table name @enableAnnotation bit; --show data annotation? set @table = 'TableName'; set @enableAnnotation = 1; /* ----- END OF CONFIGURATION ----- */ declare @column varchar(max), @length int, @type varchar(max), @isNullable bit, @pocoType varchar(max), @attribute varchar(max), @poco varchar(max), @linebreak char(2), @enter char(1), @tab char(1), @totalPK int, @indexPK int, @isPK bit, @isFirstRow bit, @identitySeed bigint, @identityIncrement int; declare @identities table(ColumnName varchar(max), Seed bigint, Increment int); declare @primaryKeys table(ColumnName varchar(max)); set @enter = char(13); set @tab = char(9); set @linebreak = @enter + @tab; set @isFirstRow = 1; set nocount on; --find all primary key insert into @primaryKeys(ColumnName) select ccu.COLUMN_NAME from INFORMATION_SCHEMA.TABLE_CONSTRAINTS tc join INFORMATION_SCHEMA.CONSTRAINT_COLUMN_USAGE ccu on tc.CONSTRAINT_NAME = ccu.CONSTRAINT_NAME where tc.CONSTRAINT_TYPE = 'Primary Key' and tc.TABLE_NAME = @table; select @totalPK = count('') from @primaryKeys; set @indexPK = 0; --find all identity columns insert into @identities(ColumnName, Seed, Increment) select id.name, cast(id.seed_value as bigint), cast(id.increment_value as int) from sys.identity_columns as id inner join sys.objects as so on object_name(id.object_id)=so.name where so.type='u' and so.name = @table and id.is_identity = 1 declare cursorPoco cursor fast_forward for select COLUMN_NAME ColumnName, CHARACTER_MAXIMUM_LENGTH, DATA_TYPE, case IS_NULLABLE when 'YES' then 1 when 'NO' then 0 else null end IsNullable from information_schema.columns where TABLE_NAME = @table; if (@enableAnnotation = 1) print '[Table("' + @table + '")]'; print 'public class ' + @table; print '{'; open cursorPoco; fetch cursorPoco into @column, @length, @type, @isNullable; while @@FETCH_STATUS = 0 begin set @pocoType = ''; set @poco = 'public '; set @isPK = 0; set @identitySeed = null; set @identityIncrement = null; if (@isFirstRow = 1) begin set @attribute = @tab; set @isFirstRow = 0; end else begin set @attribute = @linebreak; end --determine wether column is primary key or not if exists (select 1 from @primaryKeys where ColumnName = @column) begin set @attribute = @attribute + '[Key]' + @linebreak; set @isPK = 1; end if (@isPK = 1 and @totalPK > 1) begin set @attribute = @attribute + '[Column("' + @column + '", Order = ' + cast(@indexPK as varchar) + ')]' + @linebreak; set @indexPK = @indexPK + 1; end else set @attribute = @attribute + '[Column("' + @column + '")]' + @linebreak; --determine wether column is identity or not select top 1 @identitySeed = Seed, @identityIncrement = Increment from @identities where ColumnName = @column; if (@identityIncrement is not null and @identitySeed is not null) begin set @attribute = @attribute + '[DatabaseGenerated(DatabaseGeneratedOption.Identity)]' + @linebreak; end if (@type in ('varchar', 'nvarchar', 'char', 'nchar', 'text', 'ntext')) begin set @pocoType = 'string'; if (@length is not null and @length > 0) set @attribute = @attribute + '[MaxLength(' + cast(@length as varchar) + ')]' + @linebreak; if (@isNullable = 0) set @attribute = @attribute + '[Required]' + @linebreak; if (@type in ('ntext', 'text')) set @attribute = @attribute + '[DataType(DataType.MultilineText)]' + @linebreak; end else begin if (@type = 'bigint') set @pocoType = 'long'; else if (@type = 'tinyint') set @pocoType = 'short'; else if (@type in ('date', 'datetime', 'time')) begin set @pocoType = 'System.DateTime'; if (@type = 'date') set @attribute = @attribute + '[DataType(DataType.Date)]' + @linebreak; else if (@type = 'time') set @attribute = @attribute + '[DataType(DataType.Time)]' + @linebreak; end else if (@type = 'bit') set @pocoType = 'bool'; else if (@type in ('decimal', 'money', 'numeric', 'smallmoney')) begin set @pocoType = 'decimal'; if (@type in ('money', 'smallmoney')) set @attribute = @attribute + '[DataType(DataType.Currency)]' + @linebreak; end else set @pocoType = @type; if (@isNullable = 1) set @pocoType = @pocoType + '?'; end if (@enableAnnotation = 1) set @poco = @attribute + @poco + @pocoType + ' ' + @column + ' { get; set; }'; else set @poco = @tab + @poco + @pocoType + ' ' + @column + ' { get; set; }'; print @poco; fetch cursorPoco into @column, @length, @type, @isNullable; end close cursorPoco; deallocate cursorPoco; print '}'; set nocount off;

Here's our table for testing:

and here's our generated C# code:

Changelog: 2014-01-04

Added configuration to enable/disable data annotation

[fakhrulhilal]

T-SQL Patch Template

This is template for generating manual T-SQL patch. Use this as tracking of database changes.

/*==============================================================*/ /* Table: Mst_Table */ /*==============================================================*/ --drop create table if exists (select 1 from sys.sysreferences r join sys.sysobjects o on (o.id = r.constid and o.type = 'F') where r.fkeyid = object_id('Mst_Table') and o.name = 'FK_Table_Target') alter table Mst_Table drop constraint FK_Table_Agent; go if exists (select 1 from sysobjects where id = object_id('Mst_Table') and type = 'U') drop table Mst_Table; go create table Mst_Table( Id bigint identity(-9223372036854775808,1) not null, PeriodNumber int null, PeriodMonth int not null, PeriodYear int not null, CreatedTime datetime not null default(getdate()), CreatedBy nvarchar(50) not null default(N'SYSTEM'), ModifiedTime datetime null, ModifiedBy nvarchar(50) null constraint PK_Mst_Table primary key clustered ( Id asc )with (pad_index = off, statistics_norecompute = off, ignore_dup_key = off, allow_row_locks = on, allow_page_locks = on) on [primary]) on [primary] GO alter table Mst_Table with nocheck add constraint FK_Table_Target foreign key(AgentId) references Mst_Target (Id) GO alter table Mst_Table nocheck constraint FK_Table_Agent go /*==============================================================*/ /* Table: Mst_Table */ /*==============================================================*/ --create index if not exists (select 1 from sys.indexes where name = 'Idx_Table' and object_id = object_id(N'Mst_Table')) --drop index Idx_Table on Mst_Table; create nonclustered index Idx_Table ON Mst_Table ( Code ASC, [Status] ASC )with (pad_index = off, statistics_norecompute = off, sort_in_tempdb = off, ignore_dup_key = off, drop_existing = off, online = off, allow_row_locks = on, allow_page_locks = on) on [primary] go /*==============================================================*/ /* Table: Mst_Table */ /*==============================================================*/ --CUD kolom if not exists (select 1 from sys.columns where Name = N'ColumnName' and Object_ID = Object_ID(N'Mst_Table')) alter table Mst_Table add ColumnName int null; go if exists (select 1 from sys.columns where Name = N'OldColumnName' and Object_ID = Object_ID(N'Mst_Table')) exec sp_rename @objname='Mst_Table.OldColumnName', @newname='NewColumnName', @objtype='COLUMN'; go if exists (select 1 from sys.columns where Name = N'ColumnName' and Object_ID = Object_ID(N'Mst_Table')) alter table Mst_Table alter column ColumnName decimal(20,5) null; if exists (select 1 from sys.columns where Name = N'ColumnName' and Object_ID = Object_ID(N'Mst_Table')) alter table Mst_Table drop column ColumnName; /*==============================================================*/ /* Type: TUserDefinedType */ /*==============================================================*/ if TYPE_ID('TUserDefinedType') is not null drop type TUserDefinedType; go -- user defined table/scalar type create type TUserDefinedType as table ( Id int null, Code nvarchar(max) null, Name varchar(max) null, Quantity int null, Total decimal(20,5) null ) go /*==============================================================*/ /* SP: SP_Mod_ModuleName */ -- Implementation of...... /*==============================================================*/ if exists (select 1 from sys.objects where object_id = OBJECT_ID(N'SP_Mod_ModuleName') and type in (N'P', N'PC')) drop procedure SP_Mod_ModuleName; go create procedure SP_Mod_ModuleName as begin select 1; end

[fakhrulhilal]

SNS vs Blog

Klo 2 tahun lalu wordpress, blogger populer buat ajang sharing, sekarang apa masih bisa? Sedangkan kebutuhan sekarang cuman share status doank, itupun ga penting banget. Sejak facebook, twitter populer, blog sebagai tempat sharing sudah mulai jarang dipakai untuk kepentingan pribadi. Apalagi semenjak penggunaan mobile lebih mendominasi daripada desktop, malah menjadikan blog terkesan ribet. Mungkin yang butuh tempat untuk artikel panjang masih membutuhkan blog. Mungkin yang mencari penghasilan lewat iklan juga masih membutuhkan blog. So, how about you? This's my first post on thumblr.