chazhaoyuxiugai.~pas

有不足之处请指出

unit chazhaoyuxiugai;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, DB, Grids, DBGrids, DBTables, StdCtrls, ExtCtrls,
  Buttons, DBCtrls, QRCtrls, QuickRpt;

type
  TchazhaoyuxiugaiForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Panel1: TPanel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    banjiTable: TTable;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Splitter1: TSplitter;
    BitBtn1: TBitBtn;
    studentQuery: TQuery;
    banjiTableBianhao: TStringField;
    banjiTableMingcheng: TStringField;
    banjiTableNansheng: TIntegerField;
    banjiTableNvsheng: TIntegerField;
    studentQueryXuehao: TStringField;
    studentQueryXingming: TStringField;
    studentQueryXingbie: TStringField;
    studentQueryBanji: TStringField;
    studentQueryChushengnianyue: TStringField;
    studentQueryJiguan: TStringField;
    studentQueryFumuxingming: TStringField;
    studentQueryLianxidianhua: TStringField;
    studentQueryXianzhuzhi: TStringField;
    Panel2: TPanel;
    Label10: TLabel;
    Edit8: TEdit;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    ComboBox2: TComboBox;
    Label5: TLabel;
    ComboBox3: TComboBox;
    Label6: TLabel;
    Edit3: TEdit;
    Label7: TLabel;
    Edit4: TEdit;
    Label8: TLabel;
    Edit5: TEdit;
    Label9: TLabel;
    Edit6: TEdit;
    Label11: TLabel;
    Edit7: TEdit;
    XueshengQuery: TQuery;
    XueshengQueryXuehao: TStringField;
    XueshengQueryXingming: TStringField;
    XueshengQueryXingbie: TStringField;
    XueshengQueryBanji: TStringField;
    XueshengQueryChushengnianyue: TStringField;
    XueshengQueryJiguan: TStringField;
    XueshengQueryFumuxingming: TStringField;
    XueshengQueryLianxidianhua: TStringField;
    XueshengQueryXianzhuzhi: TStringField;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button1: TButton;
    Panel3: TPanel;
    DBGrid2: TDBGrid;
    Splitter2: TSplitter;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    Edit9: TEdit;
    DataSource2: TDataSource;
    classesTable: TTable;
    classesTableBianhao: TStringField;
    classesTableMingcheng: TStringField;
    classesTableNansheng: TIntegerField;
    classesTableNvsheng: TIntegerField;
    Panel4: TPanel;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    BitBtn2: TBitBtn;
    Button8: TButton;
    QuickRep1: TQuickRep;
    QRBand1: TQRBand;
    QRBand2: TQRBand;
    QRBand3: TQRBand;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel1: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    QRDBText8: TQRDBText;
    QRDBText9: TQRDBText;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox1Select(Sender: TObject);
    procedure Edit8Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  chazhaoyuxiugaiForm: TchazhaoyuxiugaiForm;
  qx:string;

implementation

uses shezhixianshixianmu;

{$R *.dfm}

procedure TchazhaoyuxiugaiForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
Action:=caFree;
end;

procedure TchazhaoyuxiugaiForm.BitBtn1Click(Sender: TObject);
begin
   shezhixianshixianmuForm.Show;
end;

procedure TchazhaoyuxiugaiForm.ComboBox1Select(Sender: TObject);
begin
  studentQuery.Close;
  studentQuery.Params.Clear ;
  studentQuery.SQL.Clear ;
  studentQuery.Params.CreateParam(ftstring,'bj',ptinput).AsString :=ComboBox1.Text ;
  studentQuery.SQL.Add('select * from students where banji=:bj;');
  studentQuery.ExecSQL ;
  studentQuery.Open;

end;

procedure TchazhaoyuxiugaiForm.Edit8Change(Sender: TObject);
begin
  if length(Edit8.Text)=8 then
     begin
       Button1.Enabled :=True;
       Button1.SetFocus ;
       Button1.Focused ;
     end;
end;

procedure TchazhaoyuxiugaiForm.Button1Click(Sender: TObject);
begin
if length(Edit8.Text)<8 then
  begin
    messagedlg('学号必须是8位数',mtWarning,[mbOk],0);
    Edit8.SetFocus ;
    exit;
  end;
XueshengQuery.Close;
XueshengQuery.Params.Clear ;
XueshengQuery.SQL.Clear ;
XueshengQuery.Params.CreateParam(ftstring,'xh',ptinput).AsString:=Edit8.Text ;
XueshengQuery.SQL.Add('Select * from students where Xuehao=:xh;');
XueshengQuery.ExecSQL ;
XueshengQuery.Open ;
if XueshengQuery.RecordCount =1 then
   begin
     Edit1.Text :=XueshengQueryXuehao.Value ;
     Edit2.Text :=XueshengQueryXingming.Value ;
     ComboBox2.Text :=XueshengQueryXingbie.Value ;
     ComboBox3.Text :=XueshengQueryBanji.Value ;
     Edit3.Text :=XueshengQueryChushengnianyue.Value ;
     Edit4.Text :=XueshengQueryJiguan.Value ;
     Edit5.Text :=XueshengQueryFumuxingming.Value ;
     Edit6.Text :=XueshengQueryLianxidianhua.Value ;
     Edit7.Text :=XueshengQueryXianzhuzhi.Value ;
     Edit1.SetFocus ;
     Edit1.Focused ;
     Button2.Enabled :=true;
     Button4.Enabled :=true;
   end
else
  begin
  messagebeep(1);
  MessageDlg('学号为'+Edit8.text+'的学生档案信息没有找到!可能是该学号不存在!',mtWarning,[mbOk],0);
  Edit8.Clear ;
  Edit8.SetFocus ;
  Edit8.Focused ;
  end;
XueshengQuery.Close ;
end;

procedure TchazhaoyuxiugaiForm.Button3Click(Sender: TObject);
begin
close;
end;

procedure TchazhaoyuxiugaiForm.Button2Click(Sender: TObject);
begin
   if qx='普通用户' then
     begin
       messageDlg('你不是高级用户或管理员，无权执行本项操作！',mtWarning,[mbOk],0);
       exit;
     end;
   if (length(Edit1.Text)=0) or (length(Edit2.Text)=0) then
      begin
        MessageDlg('必要信息"学号"或"姓名"填写不全！',mtWarning,[mbOk],0);
        exit;
      end;
   if MessageDlg('确认要修改学号为 '+Edit1.Text +' 的档案信息吗?',mtConfirmation,[mbYes,mbNo],0)=mrNo then
     exit
  else
  begin
   XueshengQuery.close;
   XueshengQuery.Params.Clear ;
   XueshengQuery.SQL.Clear ;
   XueshengQuery.Params.CreateParam(ftstring,'xh',ptinput).AsString :=Edit1.Text ;
   XueshengQuery.Params.CreateParam(ftstring,'xm',ptinput).AsString :=Edit2.Text ;
   XueshengQuery.Params.CreateParam(ftstring,'xb',ptinput).AsString :=ComboBox2.Text ;
   XueshengQuery.Params.CreateParam(ftstring,'bj',ptinput).AsString :=ComboBox3.Text ;
   XueshengQuery.Params.CreateParam(ftstring,'csny',ptinput).AsString :=Edit3.Text ;
   XueshengQuery.Params.CreateParam(ftstring,'jg',ptinput).AsString :=Edit4.Text ;
   XueshengQuery.Params.CreateParam(ftstring,'fmxm',ptinput).AsString :=Edit5.Text ;
   XueshengQuery.Params.CreateParam(ftstring,'lxdh',ptinput).AsString :=Edit6.Text ;
   XueshengQuery.Params.CreateParam(ftstring,'xzz',ptinput).AsString :=Edit7.Text ;
   XueshengQuery.Params.CreateParam(ftstring,'xh2',ptinput).AsString :=Edit8.Text ;
   XueShengQuery.SQL.Add('update students set Xuehao=:xh,Xingming=:xm,Xingbie=:xb,Banji=:bj,Chushengnianyue=:csny,Jiguan=:jg,Fumuxingming=:fmxm,Lianxidianhua=:lxdh,Xianzhuzhi=:xzz where xuehao=:xh2');