input.pas

delphi编写的联合管理程序,很不错的哦

unit input;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, XPMenu, jpeg,db;

type
  Tfrminput = class(TForm)
    GroupBox1: TGroupBox;
    Image1: TImage;
    btnok: TButton;
    btncancel: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    edname: TEdit;
    cmbsex: TComboBox;
    edtold: TEdit;
    edtaddress: TEdit;
    edtphone: TEdit;
    edtmovephone: TEdit;
    edtemail: TEdit;
    edtqq: TEdit;
    cmbconnect: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure btnokClick(Sender: TObject);
    procedure btncancelClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frminput: Tfrminput;
  //result:boolean;
implementation

uses datacont;

{$R *.dfm}

procedure Tfrminput.FormCreate(Sender: TObject);
begin
cmbsex.Items.Add('男');
cmbsex.Items.Add('女');
cmbconnect.Items.Add('亲戚');
cmbconnect.Items.Add('同学');
cmbconnect.Items.Add('同事');
end;

procedure Tfrminput.FormActivate(Sender: TObject);
begin
edname.SetFocus ;
end;
//判断是否输入了完整的记录函数
function isempty1(sender:tobject):boolean;
begin
if (sender is tedit) then
    if trim((sender as tedit).Text)=''then
        begin
        result:=false;
        showmessage('请输入完整的记录');
        (sender as tedit).SetFocus ;
        exit;
        end;
    if (sender is tcombobox) then    
    if trim((sender as tcombobox).Text)=''then
        begin
        result:=false;
        showmessage('请输入完整的记录');
        (sender as tcombobox).SetFocus ;
        exit;
        end;
    result:=true;
end;
procedure Tfrminput.btnokClick(Sender: TObject);
begin
with dataconnect.adoqrycomm do
begin
close;
sql.Clear ;
sql.Add('select * from comm1');
open; //执行打开数据库
if not(isempty1(edname) and isempty1(cmbsex) and isempty1(edtphone)) then
begin
showmessage('存在空记录,请输入完整!');
cancel;
end
else
begin
//添加新的资料
append;
fieldbyname('姓名').AsString :=trim(edname.Text );
fieldbyname('性别').AsString:=trim(cmbsex.Text );
fieldbyname('年龄').AsString:=trim(edtold.Text );
fieldbyname('住址').AsString:=trim(edtaddress.Text );
fieldbyname('联系电话').AsString:=trim(edtphone.Text );
fieldbyname('手机').AsString:=trim(edtmovephone.Text );
fieldbyname('电子邮箱').AsString:=trim(edtemail.Text );
fieldbyname('QQ号码').AsString:=trim(edtqq.Text );
fieldbyname('关系').AsString:=trim(cmbconnect.Text );
//异常处理
try
     if messagedlg('请确认输入的数据无误，然后写入数据库！',mtconfirmation,[mbYes,mbNO],0)=mryes then
        begin
        post;
        cmbconnect.Text :='';
        cmbsex.Text :='';
        edname.Text :='';
        edtaddress.Text :='';
        edtemail.Text :='';
        edtmovephone.Text :='';
        edtold.Text :='';
        edtphone.Text :='';
        edtqq.Text :='';
        end
     else
       begin
       showmessage('操作已取消，请重新输入');
       cancel;
       exit;
       end;
     except
     on edatabaseerror do
     end;
end;
end;
end;
procedure Tfrminput.btncancelClick(Sender: TObject);
begin
close;
end;

procedure Tfrminput.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then
close;
end;

end.