manufacture.pas

delphi自动出题系统源代码,有兴趣的可以来看看！

unit manufacture;

interface

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

type
  Tmanufactureform = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DataSource1: TDataSource;
    Table1: TTable;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBMemo1: TDBMemo;
    DataSource2: TDataSource;
    Table2: TTable;
    DataSource3: TDataSource;
    Table3: TTable;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    procedure Button1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  manufactureform: Tmanufactureform;

implementation

uses main, inquire;

{$R *.DFM}

procedure Tmanufactureform.Button1Click(Sender: TObject);
begin
   manufactureform.Table1.First;
end;

procedure Tmanufactureform.BitBtn2Click(Sender: TObject);
begin
   manufactureform.Table1.Prior;
end;

procedure Tmanufactureform.BitBtn3Click(Sender: TObject);
begin
   manufactureform.Table1.Next;
end;

procedure Tmanufactureform.Button2Click(Sender: TObject);
begin
   manufactureform.Table1.Last;
end;

procedure Tmanufactureform.BitBtn1Click(Sender: TObject);
begin
   close;
   mainform.show;
end;

procedure Tmanufactureform.Button3Click(Sender: TObject);
begin
    with table2 do
       if table2.FindKey([dbedit1.text])=true then
       begin
         messagedlg('试卷中已包括'+dbedit1.text+'编号的试题！！',mtwarning,[mbOK],0);
       end
       else
          begin
          table2.Append;
          table2['试题编号']:=dbedit1.Text;
          table2['试题类型']:=dbedit3.text;
          table2['所属章节']:=dbedit2.Text;
          table2['试题难度']:=dbedit4.Text;
          table2['试题内容']:=dbmemo1.Text;
          table2['试题序号']:=4;
          table2['使用时间']:=now;
          table2.Post;

       end;
      with table3 do
      if table3.FindKey([dbedit1.text])=true  then
        messagedlg('时间表中已包括'+dbedit1.text+'编号的试题!!',mtwarning,[mbOK],0)
       else
         begin
         table3.Append;
         table3['试题编号']:=dbedit1.Text;
         table3['使用时间']:=now;
         table3['试题序号']:=4;
         end;
end;

procedure Tmanufactureform.BitBtn4Click(Sender: TObject);
begin
    inquireform.show;
    manufactureform.Hide;
end;

procedure Tmanufactureform.SpeedButton2Click(Sender: TObject);
begin
   close;

end;

procedure Tmanufactureform.SpeedButton1Click(Sender: TObject);
begin
    with table2 do
       if table2.FindKey([dbedit1.text])=true then
       begin
         messagedlg('试卷中已包括'+dbedit1.text+'编号的试题！！',mtwarning,[mbOK],0);
       end
       else
          begin
          table2.Append;
          table2['试题编号']:=dbedit1.Text;
          table2['试题类型']:=dbedit3.text;
          table2['所属章节']:=dbedit2.Text;
          table2['试题难度']:=dbedit4.Text;
          table2['试题内容']:=dbmemo1.Text;
          table2['试题序号']:=4;
          table2['使用时间']:=now;
          table2.Post;

       end;
      with table3 do
      if table3.FindKey([dbedit1.text])=true  then
        messagedlg('时间表中已包括'+dbedit1.text+'编号的试题!!',mtwarning,[mbOK],0)
       else
         begin
         table3.Append;
         table3['试题编号']:=dbedit1.Text;
         table3['使用时间']:=now;
         table3['试题序号']:=4;
         end;
end;

procedure Tmanufactureform.SpeedButton3Click(Sender: TObject);
begin
  manufactureform.Table1.First;
end;

procedure Tmanufactureform.SpeedButton4Click(Sender: TObject);
begin
   manufactureform.Table1.Prior;
end;

procedure Tmanufactureform.SpeedButton5Click(Sender: TObject);
begin
   manufactureform.Table1.Next;
end;

procedure Tmanufactureform.SpeedButton6Click(Sender: TObject);
begin
   manufactureform.Table1.Last;
end;

procedure Tmanufactureform.SpeedButton7Click(Sender: TObject);
begin
   inquireform.show;
    manufactureform.Hide;
end;

end.