imani1983
جمعه 28 خرداد 1389, 03:09 صبح
روش ساخت یک شماره انداز بر حسب تاریخ که از سمت چپ به ترتیب باشماره سال وماه وروز وعدد دورقمی مثل: 89032700 یا 89032701
من کد این شماره انداز را با دلفی نوشتم اگه دوستان دلفی وC# کار بتوانند تبدیلش کنند ممنون می شم;
:تشویق:
procedure TForm11.BitBtn6Click(Sender: TObject);
var
s1,s2,s3:string;
s:integer;
begin
// اینجا تاریخ سیستم را می گیرد
solardatepicker1.Text:=printnormal;
edit11.Text:=(copy(printnormal,9,2));
edit8.Text:=(copy(printnormal,6,2));
edit10.Text:=(copy(printnormal,3,2));
s:=strtoint(edit10.text+edit8.text+edit11.text);
with adodataset1 do
begin
close;
commandtext:='SELECT MAX(numpaziresh)AS maxs FROM visit_numeric where datapaziresh='+QuotedStr(printnormal);
open;
if (adodataset1.FieldValues['maxs']>null) then
edit7.Text:=inttostr(s)+copy(adodataset1.FieldValu es['maxs']+1,7,4);
if (adodataset1.FieldValues['maxs']=null) then
edit7.Text:=inttostr(s)+'0001';
end;
end;
از دوستان خوهش می کنم کمک کنند چون من قبلاً دلفی کار می کردم وC# رو تازه شروع کردم
من کد این شماره انداز را با دلفی نوشتم اگه دوستان دلفی وC# کار بتوانند تبدیلش کنند ممنون می شم;
:تشویق:
procedure TForm11.BitBtn6Click(Sender: TObject);
var
s1,s2,s3:string;
s:integer;
begin
// اینجا تاریخ سیستم را می گیرد
solardatepicker1.Text:=printnormal;
edit11.Text:=(copy(printnormal,9,2));
edit8.Text:=(copy(printnormal,6,2));
edit10.Text:=(copy(printnormal,3,2));
s:=strtoint(edit10.text+edit8.text+edit11.text);
with adodataset1 do
begin
close;
commandtext:='SELECT MAX(numpaziresh)AS maxs FROM visit_numeric where datapaziresh='+QuotedStr(printnormal);
open;
if (adodataset1.FieldValues['maxs']>null) then
edit7.Text:=inttostr(s)+copy(adodataset1.FieldValu es['maxs']+1,7,4);
if (adodataset1.FieldValues['maxs']=null) then
edit7.Text:=inttostr(s)+'0001';
end;
end;
از دوستان خوهش می کنم کمک کنند چون من قبلاً دلفی کار می کردم وC# رو تازه شروع کردم