Tengo un fragmento de código Delphi, por favor dame una explicación detallada, gracias (intenta traducir cada oración al chino)
Unidad1
Interfaz
Propósito
Windows, Mensajes, SysUtils, Variantes, Clases, Gráficos, Controles,
Diálogo, DB, DBTables, Grid, DBGrids, StdCtrls, ExtCtrls
Tipo
{ Este es el párrafo donde se encuentra el control; está registrado, todos los espacios en la ventana se enumeran aquí}
TForm1 = class( TForm)
RadioGroup1: TRadioGroup;
RadioButton1: TRadioButton
RadioButton2: TRadioButton;
RadioButton3.TRadioButton;
Botón1: TButton;
Editar1: TEditar; TLabel;
DBGrid1: TDBGrid;
DataSource1: DataSource1: TDataSource.
Tabla1: TTable;
Tabla1EmpNo: TIntegerField;
Tabla1Apellido: TStringField
Tabla1Nombre: TStringField; > Table1PhoneExt: TStringField;
Table1PhoneExt:
Table1HireDate: TDateTimeField
Table1Salary:
procedimiento Button1Click(Remitente: TObject) ;
procedimiento Botón1Clic(Remitente: TObject);<
privado
{ Declaraciones privadas }
público
{ Declaraciones públicas }
end;
{Definir variables globales}
var
Form1.TForm1;
Comprobado: matriz [1..3] de booleano;
MinNo, MaxNo: entero
implementación
{$R *.Datos de primera línea;
MinNo:=Table1EmpNo.Value; //Asigna el número de la primera fila a la variable MinNo
end;
{RadioButton1Click event}
Procesar TForm1.RadioButton1Click(Muestra)RadioButton1Click(Remitente: TObject);
Iniciar
RadioButton1.Checked: RadioButton1.Click(Remitente: TObject);
Fin seleccionado: RadioButton3Click(Remitente: TObject);
comenzar
RadioButton3.Checked:=True;
Edit2.Enabled:=True; /TextBox2 se ha configurado como editable
Showmessage('El rango máximo de numeración es ' inttostr(MinNo) '~' inttostr(MaxNo) '; ¡Introdúzcalo por separado! ');
end;
{Evento de clic de control de botón}
procedimiento TForm1.Button1Click(Remitente: TObject);
comenzar
si (no RadioButton1. marcado) y (no RadioButton2.marcado) y (no RadioButton3. marcado) y (no RadioButton2.marcado) y (no RadioButton
n3. Marcado). Marcado) luego // Determinar si RadioButton1, 2, 3 colegas no están seleccionados
comenzar
showmessage('¡Seleccione el método de consulta!')) p> p>
Salir; // Salte directamente y ya no ejecute el siguiente código
end;
si RadioButton1.Checked entonces //si RadioButton1 está marcado p>
if Table1.FindKey([Edit1.Checked]) if Table1.FindKey([Edit1.Checked]) if Table1.FindKey([Edit1.Checked]) if Table1.FindKey([Edit1.Checked]) if Table1.FindKey([Edit1.Checked]))FindKey([Edit1 .Text]) luego //Si el estado seleccionado, el contenido del cuadro de texto 1 en los datos de la tabla encontrados, solicitará registro encontrado; de lo contrario, solicitará no encontrado p>
showmessage('¡Se ha encontrado el registro que desea consultar!') else
showmessage('¡Lo sentimos, no hay ningún registro para su consulta!'); > Si está marcado RadioButton2.
comenzar
// Igual que arriba, si se encuentra, solicite buscar el registro
Table1.FindNearest([Edit1.text ]);
showmessage('¡He encontrado el registro relevante!') )
end;
Si RadioButton3.Checked entonces
comenzar
// Igual que arriba, si se encuentra, solicita buscar el registro
Table1.FindNearest([Edit1.text]);
showmessage('Have encontró el registro relevante. Si se selecciona RadioButton3, busque datos entre los valores de TextBox1 y TextBox2 en la tabla
Table1.SetRange([[ Edit1.Text], [Edit2.Text]);
Edit2.Enabled: = False; //TextBox2 no es editable
end
end
end. >
Se recomienda que abra Delphi y escriba uno usted mismo. Lo obtendrá inmediatamente
.