新建 文本文档.txt

来自「实现短信的收发应用非常的方便,系统很小直接使用不需安装」· 文本 代码 · 共 45 行

Procedure ClearForm(winname:Tform);
 var
 i:integer;
begin
   with winname do
   for I:=0 to ComponentCount-1 do
   begin
     if Components[i] is Tedit then
        (Components[i] as Tedit).Clear;
     if Components[i] is TMaskedit then
        (Components[i] as TMaskedit).Clear;
     if Components[i] is TMemo then
        (Components[i] as TMemo).Clear;
     if Components[i] is TComBoBox then
        (Components[i] as TComBoBox).Text:='';
   end;
end;

Function CheckEdit(Editstr:string;Info:string):Boolean;
begin
  if Editstr='' then
  begin
    MessageDlg(Info+'数据不能为空，请审核后输入正确数据！',mtConfirmation,[mbOK],0);
    Result:=true;
  end else Result:=false;
end;

Procedure GetValue(TName:TQuery;FieldName:string;SQLText:string;MyComBoBox:TComBoBox);
begin
  with TName do
  begin
    close;
    sql.Clear;
    sql.Text:=SqlText;
    ExecSql;
    Open;
  end;
  MycomBoBox.Items.Clear;
  while not TName.Eof do
  begin
   MyComBoBox.Items.Add(TName.FieldByName(FieldName).Asstring);
   TName.Next;
  end;
  TName.Close;
end;