unit2.pas

涉及到系部工作的各个环节

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, ExtCtrls, ComCtrls, Menus, Grids,
  DBGrids, ADODB, Mask, DBCtrls;

type
  TForm_dagl = class(TForm)
    MainMenu1: TMainMenu;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel11: TPanel;
    Label28: TLabel;
    Label29: TLabel;
    Label31: TLabel;
    Label34: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    sex: TEdit;
    Label40: TLabel;
    SelectedField: TComboBox;
    Label51: TLabel;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Label2: TLabel;
    classno: TEdit;
    Button1: TButton;
    birthplace: TEdit;
    xsname: TEdit;
    Button2: TButton;
    Label6: TLabel;
    Label7: TLabel;
    father: TEdit;
    mother: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    mingzu: TEdit;
    phone: TEdit;
    Label1: TLabel;
    Button3: TButton;
    ADOQuery1ID: TIntegerField;
    ADOQuery1DSDesigner: TWideStringField;
    ADOQuery1DSDesigner2: TIntegerField;
    ADOQuery1DSDesigner3: TWideStringField;
    ADOQuery1DSDesigner4: TDateTimeField;
    ADOQuery1DSDesigner5: TWideStringField;
    ADOQuery1DSDesigner6: TWideStringField;
    ADOQuery1DSDesigner7: TWideStringField;
    ADOQuery1DSDesigner8: TStringField;
    ADOQuery1DSDesigner9: TStringField;
    ADOQuery1DSDesigner10: TWideStringField;
    ADOQuery1DSDesigner11: TDateTimeField;
    ADOQuery2: TADOQuery;
    age: TDBEdit;
    birthday: TDateTimePicker;
    intime: TDateTimePicker;
    xsno: TDBEdit;
    selectcontent: TDBEdit;
    procedure FormCreat(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure OnOk(Sender: TObject);
    procedure Button3Click(Sender: TObject);



   

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_dagl: TForm_dagl;
  sSql:String;


implementation
uses Unit1;
{$R *.dfm}

procedure TForm_dagl.FormCreat(Sender: TObject);
begin
     {self.ADOQuery1.Connection:=Form1.ADOConnection1;
     sSql:='SELECT * FROM STUDENT_DN';
     self.ADOQuery1.Close;
     self.ADOQuery1.SQL.Clear;
     self.ADOQuery1.SQL.Add(sSql); }

     try
       self.ADOQuery1.Open();
     except
       showmessage('数据库读取错误');
     end;
     self.selectcontent.Text:='';


end;

procedure TForm_dagl.Button2Click(Sender: TObject);
begin
    if Selectcontent.Text=''
    then
      showmessage('查询内容不能为空，请重新输入！');

    if SelectedField.Text='学生ID' then
      begin
       sSql:='select * from student_dn where 学生ID='''+Selectcontent.Text+'''';
       self.ADOQuery1.Close;
       self.ADOQuery1.SQL.Clear;
       self.ADOQuery1.SQL.Add(sSql);
      end
    else
      begin
       self.selectcontent.DataField:='姓名';
       sSql:='select * from student_dn where 学生ID='''+Selectcontent.Text+'''';
       self.ADOQuery1.Close;
       self.ADOQuery1.SQL.Clear;
       self.ADOQuery1.SQL.Add(sSql);
      end;



     try
       self.ADOQuery1.Open();
     except
       showmessage('数据库读取错误');
     end;

     end;


procedure TForm_dagl.OnOk(Sender: TObject);
begin

  if (self.birthplace.Text='') //or (self.birthday.='')
  or (self.father.Text='')or (self.mother.Text='')
  or (self.xsno.Text='')or (self.mingzu.Text='') or (self.xsname.Text='') or (self.classno.Text='')
  or (self.sex.Text='')or(self.age.Text='')//or(self.intime.Text='')
  or(self.phone.Text='')then
      begin
         showmessage('输入信息不能为空，请重新输入！');
         //self.birthday.
         self.birthplace.Text:='';
         self.father.Text:='';
         self.mother.Text:='';
         self.xsno.Text:='';
         self.xsname.Text:='';
         self.classno.Text:='';
         self.sex.Text:='';
         self.age.Text:='';
         //self.intime.Text:='';
         self.phone.Text:='';
         self.mingzu.Text:='';
         exit;
      end
  else
      begin
        if (sex.Text<>'男') and (sex.Text<>'女') then
        begin
           showmessage('性别只能输入男/女，请重新输入！');
           self.sex.Text:='';
        end
        else
        begin
            { ADOQuery2.First;
             while not ADOQuery2.Eof do
             begin
              if(self.father.Text=ADOQuery2.FieldByName('学生ID').AsString) then
                 begin
                   showmessage('您添加的用户已存在，请重新输入！');
                   self.father.Text:='';
                   self.father.SetFocus;
                   exit;
                 end;
              ADOQuery1.next;
             end; //end while
              }
                   self.ADOQuery2.Close;
                   self.ADOQuery2.SQL.Clear;
                   self.ADOQuery2.SQL.Add('select * from student_dn');
                   self.ADOQuery2. open();
                   ADOQuery2.First;
                   while not ADOQuery2.Eof do
                   begin
                     if(self.xsno.Text=ADOQuery2.FieldByName('学生ID').AsString) then
                        begin
                           showmessage('您添加的用户已存在，请重新输入！');
                           self.xsno.Text:='';
                           self.xsno.SetFocus;
                           exit;
                        end;
                     ADOQuery2.Next;
                   end;

                   //sSql:='insert into student_dn (学生ID,学生姓名,年龄,性别,生日,籍贯,民族,班级,父亲,母亲,联系方式,入校时间)values('''+self.xsno.Text+''','''+self.birthplace.Text+''','''+self.father.Text+''')';
                   self.ADOQuery2.Close;
                   self.ADOQuery2.SQL.Clear;
                   self.ADOQuery2.SQL.Add('insert into student_dn (学生ID,姓名,年龄,性别,出生日期,籍贯,民族,班级,父亲,母亲,联系方式,入校时间)');
                   self.ADOQuery2.SQL.Add('values(:A,:B,:C,:D,:E,:F,:G,:H,:I,:J,:K,:L)');
                   self.ADOQuery2.Parameters.ParamByName('A').Value:=strtoint(xsno.Text);
                   self.ADOQuery2.Parameters.ParamByName('B').Value:=xsname.Text;
                   self.ADOQuery2.Parameters.ParamByName('C').Value:=strtoint(age.Text);
                   self.ADOQuery2.Parameters.ParamByName('D').Value:=sex.Text;
                   self.ADOQuery2.Parameters.ParamByName('E').Value:=birthday.DateTime;
                   self.ADOQuery2.Parameters.ParamByName('F').Value:=birthplace.Text;
                   self.ADOQuery2.Parameters.ParamByName('G').Value:=mingzu.Text;
                   self.ADOQuery2.Parameters.ParamByName('H').Value:=classno.Text;
                   self.ADOQuery2.Parameters.ParamByName('I').Value:=father.Text;
                   self.ADOQuery2.Parameters.ParamByName('J').Value:=mother.Text;
                   self.ADOQuery2.Parameters.ParamByName('K').Value:=phone.Text;
                   self.ADOQuery2.Parameters.ParamByName('L').Value:=intime.DateTime;


                   try
                     self.ADOQuery2.ExecSQL;

                     showmessage('添加用户成功！');
                     self.birthplace.Text:='';
                     self.father.Text:='';
                     self.mother.Text:='';
                     self.xsno.Text:='';
                     self.xsname.Text:='';
                     self.classno.Text:='';
                     self.sex.Text:='';
                     self.age.Text:='';
                     self.phone.Text:='';
                     self.mingzu.Text:='';

                     self.ADOQuery1.Close;   //与dbgrid绑定的 用于动态更新显示dbgrid
                     self.ADOQuery1.SQL.Clear;
                     self.ADOQuery1.SQL.Add('select * from student_dn');
                     self.ADOQuery1. open();
                   except
                     showmessage('添加用户失败！');

                   end;
                   //self.Close;

        end;



      end;
end;







procedure TForm_dagl.Button3Click(Sender: TObject);
begin
 self.Close();
end;


end.