dodoc.txt

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

delete:
  if Application.MessageBox('您确定要删除当前记录吗？','提示',MB_OKCANCEL + MB_DEFBUTTON2)=IdOk then
   if Query1.RecordCount>0 then
  begin
    Query1.Delete;
  end;
//
save:
 try
  if (Query1.Modified) or (Query1.State in [dsinsert,dsEdit]) then
     begin
     if datetimepicker1.checked=true then
      begin
      query1.FieldByName('birthday').asdatetime:=datetimepicker1.DateTime ;
      end
      else
      begin
      query1.FieldByName('birthday').asstring:='';
      end;
      query1.fieldbyname('name').asstring:=dbedit1.text;
      query1.fieldbyname('sex').asstring :=ComboBox1.text;
      query1.fieldbyname('job').asstring :=DBEdit2.text  ;
      query1.fieldbyname('phone').asstring :=DBEdit3.text ;
      query1.fieldbyname('zonename').asstring:=DBEdit4.text ;
      query1.fieldbyname('bz').asstring:= DBMemo1.text ;
      Query1.Post;
      query1.Close;
      query1.Open;
     end;
  except
    showmessage('请检查日期输入格式是否正确');
    Query1.Cancel;
  end;

    with Query1 do
   begin
     close;
     sql.Clear;
     sql.Add('select * from employee');
     open;
   end;
end;
//////
query1afterpost:
   query1.RequestLive:=true;
   query1.Close;
   query1.Open;
//////
query1afterscroll:
with query1 do
  begin
     if FieldbyName('birthday').Asstring='' then
      begin
      DateTimePicker1.Checked:=false
      end
      else
      begin
      DateTimePicker1.DateTime:=FieldbyName('birthday').AsDateTime;
      DateTimePicker1.Checked:=true;
      end;
      dbedit1.text:=fieldbyname('name').asstring;
      ComboBox1.text:=fieldbyname('sex').asstring;
      DBEdit2.text  :=fieldbyname('job').asstring;
      DBEdit3.text :=fieldbyname('phone').asstring;
      DBEdit4.text :=fieldbyname('zonename').asstring;
      DBMemo1.text :=fieldbyname('bz').asstring;
      
  end;
////
query:
var
strsql:string;
begin
  inherited;
  strsql:='';
  if dbedit1.text<>'' then
  begin
  strsql:=' and name like ''%'+dbedit1.text+'%''';
  end;
  query1.Close;
  query1.RequestLive:=false;
  query1.SQL.Clear;
  query1.SQL.text:='select * from employee  where 1=1 '+ strsql;
  query1.Open;
  BitBtn1.Enabled:=false;
  BitBtn2.Enabled:=false;
  BitBtn4.Enabled:=false;
  BitBtn5.Enabled:=false;
  BitBtn3.Enabled:=false;
  BitBtn6.Enabled:=false;
end;
///////
刷新:
  query1.Close;
   query1.SQL.text:='select * from employee';
   query1.RequestLive:=true;
   query1.Open;