unit gkxxunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  Tgkxxfrm = class(TForm)
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    ComboBox3: TComboBox;
    Edit19: TEdit;
    Edit20: TEdit;
    Edit21: TEdit;
    Edit22: TEdit;
    Edit23: TEdit;
    Edit24: TEdit;
    Edit25: TEdit;
    Edit26: TEdit;
    Edit27: TEdit;
    Edit28: TEdit;
    Edit29: TEdit;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    Edit4: TEdit;
    Label4: TLabel;
    Panel1: TPanel;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Button1: TButton;
    procedure ComboBox3Change(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit19KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gkxxfrm: Tgkxxfrm;

implementation

uses datadomule;

{$R *.dfm}

procedure Tgkxxfrm.ComboBox3Change(Sender: TObject);
begin
if combobox3.text='3+X' then
begin

edit23.Color:=cl3DLight;
edit24.Color:=cl3DLight;
edit25.Color:=cl3DLight;
edit26.Color:=cl3DLight;
edit27.Color:=cl3DLight;
edit28.Color:=cl3DLight;
edit23.Enabled:=false;
edit24.Enabled:=false;
edit25.Enabled:=false;
edit26.Enabled:=false;
edit27.Enabled:=false;
edit28.Enabled:=false;


edit23.Clear ;
edit24.Clear ;
edit25.Clear ;
edit26.Clear ;
edit27.Clear ;
edit28.Clear ;
end;
if combobox3.text='普通高考方式' then
 begin

edit23.Color:=clWindow;
edit24.Color:=clWindow;
edit25.Color:=clWindow;
edit26.Color:=clWindow;
edit27.Color:=clWindow;
edit28.Color:=clWindow;
edit23.Enabled:=true;
edit24.Enabled:=true;
edit25.Enabled:=true;
edit26.Enabled:=true;
edit27.Enabled:=true;
edit28.Enabled:=true;

edit22.Clear ;
end;
end;

procedure Tgkxxfrm.Edit1Exit(Sender: TObject);
begin
with DataModule1.qry_gkxx do
begin
close;
sql.clear;
sql.add('select * from rxqk where xsxh_id=:id');
parambyname('id').asstring:=edit1.text;
open;
if recordcount>0 then
begin
application.MessageBox('該學生的成績已經存在!','提示',mb_ok+mb_iconinformation);
edit1.Clear ;
exit;
end;




close;
sql.clear;
sql.add('select * from xsmc where xsxh_id=:id');
parambyname('id').asstring:=edit1.text;
open;
if recordcount>0 then
begin
edit2.Text:=fieldbyname('xh00').asstring;
edit3.Text:=fieldbyname('bjh0').asstring;
edit4.text:=fieldbyname('bdzh').asstring;
edit5.Text:=fieldbyname('zyh0').asstring;
edit6.text:=fieldbyname('xm00').asstring;
end;
end;
end;

procedure Tgkxxfrm.Button1Click(Sender: TObject);
begin

if (edit1.text='') or (combobox3.Text='') then
begin
application.MessageBox('請輸入完整信息!','提示',mb_ok+mb_iconinformation);
exit;
end;


with datamodule1.qry_gkxx do
begin
close;
sql.clear;
sql.add('select * from rxqk') ;
open;
edit;
append;
fields[0].asstring:=edit1.text;
fields[1].asstring:=edit2.text;
fields[2].asstring:=edit5.text;
fields[3].asstring:=edit3.text;
fields[4].asstring:=edit4.text;
fields[5].asstring:=edit6.text;
fields[6].asstring:=edit26.text;
fields[7].asstring:=edit19.text;
fields[8].asstring:=edit20.text;
fields[9].asstring:=edit23.text;
fields[10].asstring:=edit24.text;
fields[11].asstring:=edit28.text;
fields[12].asstring:=edit21.text;
fields[13].asstring:=edit25.text;
fields[14].asstring:=edit27.text;
fields[15].asstring:=edit22.text;
fields[16].asstring:=edit29.text;
post;
application.MessageBox('該同學高考成績已成功保存！','提示',mb_ok+mb_iconinformation);
edit1.Clear;
edit19.Clear;
edit20.Clear;
edit21.Clear;
edit22.Clear;
edit23.Clear;
edit24.Clear;
edit25.Clear;
edit26.Clear;
edit27.Clear;
edit28.Clear;
edit29.Clear;

end;
end;



procedure Tgkxxfrm.Edit19KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['0'..'9',#8,#13,#46]) then
begin
 key:=#0;
end;

if key=#13 then
selectnext (activecontrol,true,true);
end;

procedure Tgkxxfrm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
selectnext (activecontrol,true,true);
end;

end.