【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了,bjkc.pas,希望对大家有所帮助!
unit bjkc;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TbjkcForm = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit3: TEdit;
Edit4: TEdit;
Edit2: TEdit;
ComboBox1: TComboBox;
Edit1: TEdit;
Label6: TLabel;
ComboBox2: TComboBox;
BitBtn1: TBitBtn;
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
bjkcForm: TbjkcForm;
implementation
uses datamodule;
{$R *.dfm}
procedure TbjkcForm.FormShow(Sender: TObject);
var i:integer;
begin
with datamodule1 do
begin
table9.Active :=true;
table9.first;
for i:=1 to table9.RecordCount do
begin
Combobox1.items.add(table9.FieldValues['kcmc']);
table9.Next;
end;
end;
end;
procedure TbjkcForm.BitBtn1Click(Sender: TObject);
begin
if (edit1.text='') or (combobox1.text='') or (edit2.Text='') or (combobox2.Text='') or (edit3.Text='') or (edit4.Text='') then
MessageDlg('资料输入不全!', mtWarning, [mbOk], 0)
else
with datamodule1.table5 do
begin
Open;
append;
FieldValues['bjbh'] := trim(edit1.text);
FieldValues['kcmc'] := trim(combobox1.text);
fieldvalues['xq']:=trim(combobox2.Text);
fieldvalues['jsxs']:=trim(edit2.Text);
fieldvalues['sjxs']:=trim(edit3.Text);
fieldvalues['jsjs']:=trim(edit4.Text);
Post;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
messagedlg('信息输入成功',mtinformation,[mbok],0);
end;
end;
end.
上一篇:
bjjz.pas
下一篇:
论班组长在企业管理中的重要作用