Traducción del código del reproductor espacial

{Generar código de formulario automáticamente}

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.