To highbury(海布里) ,就是这个意思,跟楼主的题是驴唇不对马嘴, To lvgolden(妈的,程序又出错了!) 你又出错了吧。你是要楼主改造DBDateTimePicker啊。有一种控件可以搞定,如ehlib,你可以在DateTimePicker前加一个checkBox,如果打上勾了就上DateTimpicker的Enabled为true,否则不处理。 嘻嘻,楼主我打杂去了。希望你早日搞定
set @day=(select (convert(varchar(10), GETDATE())) ) set @riqi=(substring(@day,7,10)+'-' +substring(@day,1,2)+'-'+substring(@day,4,5) ) set @StateMainId=((select isnull(max(StateMainid),'1000000000') from TT_statemain) +1 ) @riqi+@StateMainID 参考看一下,就知道了
再问一个问题,要清空 DateTimePicker 里面的值怎么做啊,
//不过库中是日期字段的能清空
什么意思啊??
var Sql,tmpStr,fmtStr: String;
tmpInt,numLen: Integer;
Begin
SqL := ' Select max(' + DBField + ') mMax from ' + DBName;
sql := sql + ' where ' + DBField + ' like ' + sep + Headchar + '%' + sep;
if qryPublic.Active then qryPublic.Close;
qryPublic.sql.clear;
qryPublic.sql.add(SQL);
qryPublic.Open;
numLen := SerialNoLength - length(HeadChar); //序列号中数字的长度
if qryPublic.FieldByName('mMax').asstring <> '' then
Begin
tmpStr := qryPublic.fieldbyname('mMax').asstring;
tmpInt := StrtoInt(copy(tmpStr,length(HeadChar) + 1,SerialNoLength)) + 1;
fmtStr := '%' + inttostr(numlen) + 'd';
tmpStr := Format(fmtStr,[tmpInt]);
while pos(' ',tmpStr) > 0 do tmpStr[Pos(' ', tmpStr)] := '0';
Result := HeadChar + tmpStr;
End
else
Result := HeadChar + RepeatChar('0',numLen - 1) + '1';
qryPublic.Close;
End;
hmily1688(刘涛--公司里面打杂的) 的意思可能是你能将数据库里存date的字段处理一下,使其存为空的
To lvgolden(妈的,程序又出错了!)
你又出错了吧。你是要楼主改造DBDateTimePicker啊。有一种控件可以搞定,如ehlib,你可以在DateTimePicker前加一个checkBox,如果打上勾了就上DateTimpicker的Enabled为true,否则不处理。
嘻嘻,楼主我打杂去了。希望你早日搞定
set @riqi=(substring(@day,7,10)+'-' +substring(@day,1,2)+'-'+substring(@day,4,5) )
set @StateMainId=((select isnull(max(StateMainid),'1000000000') from TT_statemain) +1 ) @riqi+@StateMainID
参考看一下,就知道了