Red de conocimiento informático - Espacio del host - Tengo un fragmento de código Delphi, por favor dame una explicación detallada, gracias (intenta traducir cada oración al chino)

Tengo un fragmento de código Delphi, por favor dame una explicación detallada, gracias (intenta traducir cada oración al chino)

{Generar código automáticamente para crear tablas}

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>

Salir; // Salte directamente y ya no ejecute el siguiente código

end;

si RadioButton1.Checked entonces //si RadioButton1 está marcado

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

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

.