admin

[系统应用] 程序初始化设置

//设定日期格式,如果出错,则退出!

SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SSHORTDATE,pchar('yyyy-MM-dd'));


try

  if StrToDateTime('2000-01-01 12:12:12')>now then close;

except

  Application.Terminate;

end;


hint:=GetCurrentDir+'\';



以下为mysql数据库初始化

  try

    mqdbc.Disconnect;

    mqdbc.Connect;

    zqry1.SQL.Text:= 'set names gbk';

    zqry1.ExecSQL;

  except

      Application.MessageBox('Cant To Connect MySql Server! ' + #13#10 +

        '连接数据库失败,请检查网络设置!', '网络故障', MB_OK + MB_ICONSTOP +

        MB_TOPMOST);

      Form1.Show;

  end;


#1楼
发帖时间:1月前   |   查看数:0   |   回复数:0
游客组