Unidad unidad 1;
Conexión
Uso
Ventana, mensaje, sistema, variable, clase, gráficos, controles, formularios,
cuadros de diálogo, bases de datos, tablas de datos, cuadrículas, cuadrículas de bases de datos, controles estándar y controles extendidos.
Tipo
{Esta parte es un control registrado, todos los espacios en la ventana se enumeran aquí. }
TForm1 = clase(TForm)
grupo de radio 1: TRadioGroup;
botón de opción 1: botón de opción
botón de opción; 2: botón de radio;
botón de radio 3: botón de radio;
botón 1: TButton;
editar 1: TEdit;
etiqueta 1: TLabel;
dbgrid 1: TDBGrid;
fuente de datos 1: fuente tdata;
tabla 1: TT capaz;
tabla 1 empno: TIntegerField;
tabla 1 apellido: TStringField;
tabla 1 nombre: tstring campo;
tabla 1 phoneext: TStringField;
tabla 1 fecha de contratación: TDateTimeField;
tabla 1 salario: TFloatField
edición 2: TEdit;
{Registro de evento espacial}< / p>
formulario de procedimiento crear(Remitente: al objeto);
Botón de opción Procedimiento 1 clic (Remitente: al objeto);
Botón de opción Procesar 2 clic (Remitente: al objeto) ;
botón de opción de procedimiento 3 clic (Remitente: para objetar);
Botón de programa 1 clic (Remitente: para objetar);
{Declaración privada}
Pública
{Declaración pública}
Fin;
{Definir variables globales}
Definir variables
forma 1: t forma 1;
Seleccionado: matriz [1..Boolean 3];
p>MinNo, MaxNo : entero;
Rendimiento
{$R *. dfm}
{Esto es lo que se hará antes de abrir el formulario, pero no hace nada. }
Programa TForm1. FormCreate(Remitente: al objeto);
Inicio
Segunda edición. enable:= False; //El cuadro de texto 2 es visible pero no se puede editar.
Tabla 1. Abrir; //Control de tabla
Tabla 1. FindLast//La última fila de datos de la tabla
MaxNo:=Table1EmpNo. Valor; //Dar el número de la última fila a la variable MaxNo
Tabla 1.
FindFirst//La primera fila de datos de la tabla
MinNo:=Table1EmpNo. Valor; //Da el número de la primera fila a la variable MinNo
End;
{El evento de clic del control del botón de opción 1}
Programa TForm1. RadioButton1Click(Remitente: al objeto);
Iniciar
Botón de opción 1. Seleccionado:=True; //El control RadioButton1 se establece en el estado seleccionado.
show message('number'El rango máximo es'inttostr(minno)'~'inttostr(maxno)); //El rango de solicitud de la ventana emergente es el MinNo asignado anteriormente a maxno, MaxNo, IntToStr es el tipo de cadena entera de conversión.
Fin;
{Igual que el botón de radio 1Click}
Programa TForm1. RadioButton2Click(remitente: al objeto);
Iniciar
Botón de opción 2. Seleccionado: = true;
mostrar mensaje(el rango máximo de ' número ' es ' inttostr(minno) ' ~ ' inttostr(maxno));
Fin
{Igual que el botón de opción 1Clic}
Procedimiento TForm1. RadioButton3Click(remitente: al objeto);
Iniciar
Botón de opción 3. Marcado:=Verdadero;
Segunda edición. enable:= True; //El cuadro de texto 2 está configurado en estado editable.
El rango máximo de Showmessage ('el número es' inttostr(minno) ' ~ 'inttostr(maxno) '; ¡ingrese por separado!');
{Evento de clic de control de botón}
Programa TForm1. Button1Click(Remitente: al objeto);
Iniciar
Si (no el botón de opción 1. seleccionado) y (no el botón de opción 2. seleccionado) y (no el botón de opción 2. seleccionado) Botón 3. Verificar) y luego // determinar si los colegas de RadioButton1, 2 y 3 no están seleccionados.
Inicio
Showmessage('¡Elija un método de consulta!'); //Indicaciones de la ventana emergente
Salir //Saltar directamente, lo siguiente; código No más ejecución.
Fin;
Si el botón de opción 1. marcado entonces//Si se selecciona el botón de radio 1,
Si la tabla 1. findkey ([edit1.text]] Luego //Si el contenido del cuadro de texto 1 se encuentra en los datos de la tabla, le indicará que se encontró el registro; de lo contrario, le indicará que no se encontró.
Showmessage('¡Se ha encontrado el registro que desea consultar! ') En caso contrario
Showmessage('¡Lo sentimos, no hay ningún registro que desee consultar!');
Si la radio el botón 2 está marcado
Inicio
//Igual que arriba, si se encuentra el mensaje, busque el registro
Tabla 1. buscar más cercano([editar). 1 . text]);
Showmessage( '¡Registros relacionados encontrados! ');
Fin;
Si el botón de opción 3 está marcado
Inicio
// Si se selecciona RadioButton3, busca datos en la tabla entre los valores de TextBox1 y TextBox2.
Tabla 1. SetRange([Editar1.Texto],[Segunda Edición.texto]);
Segunda Edición. habilitado:= Falso; //El cuadro de texto 2 no es editable.
Fin;
Fin
Fin.
Se recomienda abrir Delphi y escribir uno usted mismo, lo comprenderá pronto.