L&G.J

摘要： CREATE Function GetBFBin(@tempRYDM VarChar(8),@tempType TinyInt)Returns Char(510)As Begin Declare @tempBin VarBinary(255),@tempStr VarChar(510) Select @tempBin=(Case @tempType When 0 Then LOGIN_PASS... 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject);var i:string; j:integer; m:string;var year,month,day:word; ym,yy,yb,ye:string; //yy前一年开始日期 ym前一年结束日期 yb前一年开始月日 ye前一年结束日begin//MessageBox(Handle,PChar(int... 阅读全文