常用语句.txt

delphi的学习资料

▲SQL  Select

    SQL.Text:='Select HostNo,DsNo,sMeter From ArchUser A,IndexHost B Where A.UsNo<>''0'''
              +' And A.HostNo=B.HostNo';
    Open;


    SQL.Text:='Select * From ArchScatt Where Region In (Select Region From IndexHost)'
              +'Order By Region,UsNo';
    Open;
        // 倒排序       Order By Region,UsNo DESC     //正序 ASC


    SQL.Text:='Select HostNo,DsNo From ArchUser Where UsNo<>''0'' And HostNo In '
              +'(Select HostNo From ArchHost Where '+FiltA+')';


    SQL.Text:='Select Region From IndexHost Where Region In (Select Region From'
              +' ArchScatt) Order By Region';
    Open;










▲SQL  Insert
   SQL.Text:='Insert Into DefNote (Note,NoteTxt) Values(''0'',''无注解'')';
   ExecSQL;

▲SQL  Delete
   SQL.Text:='Delete From ArchHost Where HostNo='+HostNo;
   ExecSQL;


▲SQL  Update
   SQL.Text:='Update IniHost Set Success=''Y'', fLineRAM=''L'' Where HostNo='+HostNo;
   ExecSQL;


   SQL.Text:='Update ArchUser Set UsNo='+sUsNo+', mType='+smType+' Where HostNo='+HostNo+' And DsNo='+sDsNo;
   ExecSQL;


▲Create View vDat As Select * From DayDat


▲提示
   Application.MessageBox('还没有设定....！','  提示',MB_IconInformation+MB_OK);

   if Application.MessageBox('  您的确要重新设定吗？',
      '提示',MB_IconInformation+MB_YesNo+MB_DefButton2)=IDYes then

▲
   FormatFloat('#,##',SumVd);       // 整数加分节号
   FormatFloat('#,##0.000',pric/100)// 整数加分节号，小数3位。

▲运行.EXE 文件
    WinExec('F:\FREECELL.EXE',SW_SHOW);
    WinExec('E:\NOTEPAD.EXE  .\Help.txt',SW_SHOW);
  
▲浏览指定网页
    ShellExecute(handle,'open','http://www.163.com......',nil,nil,SW_ShowNormal);  


▲关闭.EXE程序      关闭”计算器”为例;
  Var HWndCalculator: HWnd;

  HWndCalculator:=Winprocs.FindWindow(nil, '计算器');  //查找存在的计算器窗口;
  if HwndCalculator <> 0 then
    SendMessage(HwndCalculator, WM_CLOSE, 0, 0);


▲动态建立元件
  var PnlHelp: TPanel;

  PnlHelp:=TPanel.Create(Self);
  with PnlHelp do
  begin
    Parent:=Self;
    Top:=70; Left:=90;  Height:=300; Width:=500;
    Caption:='12345';
    Visible:=T;
  //    BringToFront;
  //    Setfocus;
  //    Show();
  end;


  var btn1: TButton;

  btn1:=TButton.Create(fmForm1);
  with btn1 do
  begin
    Parent:=fmForm1;
    Top:=20;  Left:=80;	Height:=24;  Width:=50;
    Caption:='OK';
  end;


▲
 DateSeparator:='_';

 timFormat='yy-mmdd-hhmm';  //Data Time 通用格式
 _RdmTime:=FormatDateTime(timFormat,Now);    //Now : TDataTime   _RdmTime: String


▲Perform(WM_NextDLGCTL,0,0);
  Perform(WM_NextDLGCTL,1,0);