?? unit8.pas
字號:
unit Unit8;
//優秀宿舍
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
Tfrm_yxss = class(TForm)
Label1: TLabel;
ComboBox1: TComboBox;
Label2: TLabel;
Edit1: TEdit;
Label3: TLabel;
Edit2: TEdit;
Label4: TLabel;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_yxss: Tfrm_yxss;
implementation
uses Unit13;
{$R *.dfm}
//--------------------評分添加------------------//
procedure Tfrm_yxss.FormCreate(Sender: TObject);
begin
with data1.ADO_public do
begin
close;
sql.Clear;
sql.Add('select 宿舍號 from 宿舍信息');
open;
end;
while Not Data1.ADO_public.Eof do
begin
ComboBox1.Items.Add(Data1.ADO_public.FieldByName('宿舍號').Value);
Data1.ADO_public.Next;
end;
end;
//------------------------評分添加---------------------//
procedure Tfrm_yxss.Button1Click(Sender: TObject);
begin
if combobox1.Text ='' then
begin
MessageBox(handle,'宿舍號不能為空!','警告',MB_OK+MB_ICONWARNING);
combobox1.SetFocus ;
exit;
end;
if edit1.Text = '' then
begin
MessageBox(handle,'評分不能為空!','警告',MB_OK+MB_ICONWARNING);
edit1.SetFocus ;
exit;
end;
try
with data1.ADO_mrqk do
begin
close;
sql.Clear;
sql.Add('insert 宿舍評分 values (:a,:b,:c,:d)');
parameters.ParamByName('a').Value:=trim(combobox1.Text);
parameters.ParamByName('b').Value:=trim(edit1.Text);
parameters.ParamByName('c').Value:=trim(edit2.Text);
parameters.ParamByName('d').Value:=trim(edit3.Text);
execsql;
end;
application.MessageBox('添加成功','提示',64);
except
application.MessageBox('失敗','提示',64)
end;
end;
//-----------------取消----------------------//
procedure Tfrm_yxss.Button2Click(Sender: TObject);
begin
close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -