【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了bjUnit.pas提供大家参考,希望对大家有所帮助!
unit bjUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, DB, DBTables, Grids, DBGrids;
type
TBJForm = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Label3: TLabel;
Edit2: TEdit;
Label4: TLabel;
ComboBox1: TComboBox;
GroupBox1: TGroupBox;
Label5: TLabel;
Edit3: TEdit;
Label6: TLabel;
Edit4: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Bevel1: TBevel;
Bevel2: TBevel;
BitBtn3: TBitBtn;
Edit5: TEdit;
DBGrid1: TDBGrid;
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure ComboBox1Select(Sender: TObject);
procedure Edit1Exit(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
BJForm: TBJForm;
implementation
uses datamodule;
{$R *.dfm}
procedure TBJForm.BitBtn1Click(Sender: TObject);
var i:integer;
begin
if (edit1.text='') or (edit2.text='')
or (combobox1.text='') then
begin
MessageDlg('资料输入不全!', mtWarning, [mbOk], 0);
exit;
end;
datamodule1.table2.active:=true;
with datamodule1.table2 do
begin
append;
FieldValues['bjbh'] := trim(edit1.text);
FieldValues['bjmc'] := trim(edit2.text);
FieldValues['zydm'] := trim(combobox1.text);
FieldValues['sfje'] := trim(edit4.text);
FieldValues['bzr'] :=trim(edit5.text);
if radiobutton1.Checked then
FieldValues['xuezhi'] :=radiobutton1.caption;
if radiobutton2.Checked then
FieldValues['xuezhi'] :=radiobutton2.caption;
if radiobutton3.Checked then
FieldValues['xuezhi'] :=radiobutton3.caption;
Post;
end;
combobox1.Text :='';
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
showmessage('看看表中的数据输入对了吗?');
end;
procedure TBJForm.BitBtn3Click(Sender: TObject);
begin
bjform.Close;
end;
procedure TBJForm.BitBtn2Click(Sender: TObject);
begin
combobox1.Text :='';
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
end;
procedure TBJForm.FormShow(Sender: TObject);
var i:integer;
begin
Combobox1.Clear;
with datamodule1 do
begin
//添加专业代码列表
table8.Active :=true;
table8.first;
for i:=1 to table8.RecordCount do
begin
combobox1.Items.Add(table8.FieldValues['zydm']);
table8.Next;
end;
end;
end;
procedure TBJForm.ComboBox1Select(Sender: TObject);
begin
with datamodule1.table8 do
begin
if (combobox1.Text<>'') and (findkey([combobox1.Text])) then
begin
edit3.text:=FieldValues['zymc'];
bjform.Repaint;
end;
end;
end;
procedure TBJForm.Edit1Exit(Sender: TObject);
begin
with datamodule1.table2 do
begin
if (edit1.Text<>'') and (findkey([trim(edit1.text)])) then
messagedlg('该班级编号已存在!',mtwarning,[mbOk],0);
edit1.Text:='';
end;
end;
end.
上一篇:
frmbackup.frm
下一篇:
那些令你为之触动的好句子,感慨万分