api.txt

实现短信的收发应用非常的方便,系统很小直接使用不需安装

try
shellexecute(handle,'open','xsglhelp.doc',nil,nil,SW_SHOW);
except
application.messagebox('您可能没有装office工具或文件丢失!','提示', mb_ok);
end;

Application.MessageBox('确定要删除当前合同的信息吗？',
            '警告',MB_OKCANCEL + MB_DEFBUTTON2) = IDOK

if Application.MessageBox('确定要删除当前合同的信息吗？',
            '警告',MB_OKCANCEL + MB_DEFBUTTON2) = IDOK then
    begin
     if qrycompact.RecordCount<>0  then
      with qrycompact do
        begin
         qrycompact.Delete ;
        end;
    // MessageBox(0,'无法删除合同信息！','错误！',MB_OK + MB_DEFBUTTON1);
    end;

procedure Tframcompact.DataSource1StateChange(Sender: TObject);
begin
  inherited;
  Case DataSource1.State of
  dsInactive:
         begin
            bitadd.Enabled:=false;
            bitdel.Enabled:=false;
            Bitedit.Enabled:=false;
            bitcancel.Enabled:=false;
            bitsure.Enabled:=false;
            BitBtn1.Enabled:=true;
         end;
  dsBrowse:
         begin
            bitadd.Enabled:=true;
            bitdel.Enabled:=true;
            Bitedit.Enabled:=true;
            bitcancel.Enabled:=false;
            bitsure.Enabled:=false;
            BitBtn1.Enabled:=true;
         end;
  dsEdit:
         begin
            bitadd.Enabled:=false;
            bitdel.Enabled:=false;
            Bitedit.Enabled:=false;
            bitcancel.Enabled:=true;
            bitsure.Enabled:=true;
            BitBtn1.Enabled:=true;
         end;
  dsInsert:
         begin
            bitadd.Enabled:=false;
            bitdel.Enabled:=false;
            Bitedit.Enabled:=false;
            bitcancel.Enabled:=true;
            bitsure.Enabled:=true;
            BitBtn1.Enabled:=true;
         end;
  end;
end;