?? unit6.pas
字號:
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, DB, ADODB;
type
TEditCourseForm = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Button1: TButton;
Button2: TButton;
DBEdit1: TDBEdit;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit6: TDBEdit;
ComboBox1: TComboBox;
ADOQuery2: TADOQuery;
ADOQuery3: TADOQuery;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
EditCourseForm: TEditCourseForm;
implementation
uses Unit1,Unit2, Unit5;
{$R *.dfm}
procedure TEditCourseForm.Button2Click(Sender: TObject);
begin
close;
end;
procedure TEditCourseForm.Button1Click(Sender: TObject);
begin
if (dbedit1.Text='') or (dbedit2.Text='') or (dbedit3.Text='') or (dbedit4.Text='')
or (dbedit6.Text='') then messagedlg(#10'請輸入完整的課程信息',mtwarning,[mbOk],0)
else begin
ADOQuery2.close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('update course set cno=:Pcno,cname=:Pcname,credit=:Pcredit,class=:Pclass,teacher=:Pteacher,kind=:Pkind where cno=:ccno');
ADOQuery2.Parameters.ParamByName('ccno').value:=ccno;
ADOQuery2.Parameters.ParamByName('Pcno').value:=DBEdit1.text;
ADOQuery2.Parameters.ParamByName('Pcname').value:=DBEdit3.text;
ADOQuery2.Parameters.ParamByName('Pcredit').value:=DBEdit2.text;
ADOQuery2.Parameters.ParamByName('Pclass').value:=DBEdit6.text;
ADOQuery2.Parameters.ParamByName('Pteacher').value:=DBEdit4.text;
ADOQuery2.Parameters.ParamByName('Pkind').value:=ComboBox1.Items[combobox1.itemindex];
//修改課程信息
if ADOQuery2.Parameters.ParamByName('Pkind').value=''
then messagedlg(#10'請選擇該課程性質!', mtwarning,[mbOk],0)
else begin
ADOQuery3.close; //核對是否已存在相同的課號
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add('select * from course where cno=:Pcno');
ADOQuery3.Parameters.ParamByName('Pcno').value:=dbedit1.text;
ADOQuery3.open;
if not ADOQuery3.Eof then
if (ccno=dbedit1.text) then
begin ADOQuery2.ExecSQL;
ManageForm.FormCreate(Sender);
ManageForm.EditEdit.Clear;
EditCourseForm.Close;
end
else
messagedlg(#10'該課號已存在,請核對輸入!', mtwarning,[mbOk],0)
else begin ADOQuery2.ExecSQL;
ManageForm.FormCreate(Sender);
ManageForm.EditEdit.Clear;
EditCourseForm.Close;
end
end;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -