main_xjgl_xjll_xjkpform.~pas

校园综合管理系统

unit main_xjgl_xjll_xjkpform;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, StdCtrls, DBCtrls, Mask, ExtCtrls, Buttons, ExtDlgs;

type
  Tmain_xjgl_xjll_xjkp = class(TForm)
    Panel4: TPanel;
    Label8: TLabel;
    DBComboBox2: TDBComboBox;
    Panel2: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    DBEdit4: TDBEdit;
    DBComboBox1: TDBComboBox;
    Panel3: TPanel;
    DBImage1: TDBImage;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Panel11: TPanel;
    Panel10: TPanel;
    Panel12: TPanel;
    Button10: TButton;
    Button11: TButton;
    Panel13: TPanel;
    Panel14: TPanel;
    DBEdit3: TDBEdit;
    DBMemo1: TDBMemo;
    DataSource1: TDataSource;
    Table1: TTable;
    Table4: TTable;
    xm: TDBComboBox;
    yj: TDBComboBox;
    bj: TDBComboBox;
    zy: TDBComboBox;
    mz: TDBComboBox;
    Panel1: TPanel;
    SpeedButton4: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton5: TSpeedButton;
    OpenPictureDialog1: TOpenPictureDialog;
    procedure FormShow(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure mzKeyPress(Sender: TObject; var Key: Char);
    procedure xmKeyPress(Sender: TObject; var Key: Char);
    procedure yjKeyPress(Sender: TObject; var Key: Char);
    procedure bjKeyPress(Sender: TObject; var Key: Char);
    procedure zyKeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBMemo1KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main_xjgl_xjll_xjkp: Tmain_xjgl_xjll_xjkp;

implementation

uses printform;

{$R *.DFM}

procedure Tmain_xjgl_xjll_xjkp.FormShow(Sender: TObject);
var
  i:integer;
begin
     table4.open;
       xm.DropDownCount:=table4.RecordCount;
      table4.First;
      for i:=1 to table4.RecordCount do
       begin
        xm.Items.Add(table4.Fields[0].value);
        table4.Next;
      end;
        table4.close;
        table4.TableName:='yj';
        table4.TableType:=ttparadox;
        table4.open;
        yj.DropDownCount:=table4.RecordCount;
      for i:=1 to table4.RecordCount do
       begin
        yj.Items.Add(table4.Fields[0].value);
        table4.Next;
       end;

       table4.close;
        table4.TableName:='bj';
        table4.TableType:=ttparadox;
        table4.open;
        bj.DropDownCount:=table4.RecordCount;
      for i:=1 to table4.RecordCount do
       begin
        bj.Items.Add(table4.Fields[1].value);
        table4.Next;
       end;
        table4.close;
        table4.TableName:='zy';
        table4.TableType:=ttparadox;
        table4.open;
        zy.DropDownCount:=table4.RecordCount;
      for i:=1 to table4.RecordCount do
       begin
        zy.Items.Add(table4.Fields[0].value);
        table4.Next;
       end;
        table4.close;
        table4.TableName:='mz';
        table4.TableType:=ttparadox;
        table4.open;
        mz.DropDownCount:=table4.RecordCount;
      for i:=1 to table4.RecordCount do
       begin
        mz.Items.Add(table4.Fields[0].value);
        table4.Next;
       end;
      table4.close;
      table1.open;
end;

procedure Tmain_xjgl_xjll_xjkp.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
     key:=#0;
     dbedit2.SetFocus;
    end;
end;

procedure Tmain_xjgl_xjll_xjkp.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
     key:=#0;
     dbcombobox1.SetFocus;
    end;
end;

procedure Tmain_xjgl_xjll_xjkp.DBComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
     key:=#0;
     dbedit4.SetFocus;
    end;
end;

procedure Tmain_xjgl_xjll_xjkp.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
    begin
     key:=#0;
     mz.SetFocus;
    end;
end;

procedure Tmain_xjgl_xjll_xjkp.mzKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
     key:=#0;
     xm.SetFocus;
    end;
end;

procedure Tmain_xjgl_xjll_xjkp.xmKeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
    begin
     key:=#0;
     yj.SetFocus;
    end;
end;

procedure Tmain_xjgl_xjll_xjkp.yjKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
     key:=#0;
     bj.SetFocus;
    end;
end;

procedure Tmain_xjgl_xjll_xjkp.bjKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
     key:=#0;
     zy.SetFocus;
    end;
end;

procedure Tmain_xjgl_xjll_xjkp.zyKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
     key:=#0;
     dbcombobox2.SetFocus;
    end;
end;

procedure Tmain_xjgl_xjll_xjkp.DBComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
     key:=#0;
     dbedit3.SetFocus;
    end;
end;

procedure Tmain_xjgl_xjll_xjkp.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
     key:=#0;
     dbmemo1.SetFocus;
    end;
end;

procedure Tmain_xjgl_xjll_xjkp.DBMemo1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
     key:=#0;
     dbedit1.SetFocus;
    end;
end;

procedure Tmain_xjgl_xjll_xjkp.SpeedButton4Click(Sender: TObject);
begin
  close;
end;

procedure Tmain_xjgl_xjll_xjkp.SpeedButton1Click(Sender: TObject);
begin
  table1.edit;
end;

procedure Tmain_xjgl_xjll_xjkp.SpeedButton2Click(Sender: TObject);
begin
  table1.Post;
end;

procedure Tmain_xjgl_xjll_xjkp.SpeedButton3Click(Sender: TObject);
begin
  table1.cancel;
end;

procedure Tmain_xjgl_xjll_xjkp.SpeedButton5Click(Sender: TObject);
begin
  prints.Table2.Filtered:=false;
  prints.Table2.Filter:='学生编号='+''''+dbedit1.Text+'''';
  prints.table2.Filtered:=true;
  prints.ShowModal;
end;

procedure Tmain_xjgl_xjll_xjkp.Button10Click(Sender: TObject);
begin
  table1.edit;
   if OpenPictureDialog1.Execute then
    begin
     dbimage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    end; 
end;

procedure Tmain_xjgl_xjll_xjkp.Button11Click(Sender: TObject);
begin
  dbimage1.Picture:=nil;
end;

procedure Tmain_xjgl_xjll_xjkp.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  table1.close;
end;

end.