unitaddinfo.pas

delphi做的名片管理软件

unit UnitAddInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids,
  ExtDlgs, Mask,TreeUtils, ImgList;

type
  TAddInfoFrm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Edit1: TEdit;
    Edit3: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit9: TEdit;
    Button1: TButton;
    Edit10: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Button3: TButton;
    Edit21: TEdit;
    Memo1: TMemo;
    Label20: TLabel;
    Edit20: TEdit;
    Edit23: TEdit;
    Label21: TLabel;
    Edit24: TEdit;
    SpeedButton1: TSpeedButton;
    ImageList1: TImageList;
    OpenPictureDialog1: TOpenPictureDialog;
    Button4: TButton;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    Edit22: TEdit;


    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    TreeUtil: TTreeUtils;
    procedure SaveData;
  end;

var
  AddInfoFrm: TAddInfoFrm;

implementation
uses UnitDataModule,UnitEdit;
{$R *.dfm}



procedure TAddInfoFrm.SaveData;
var
   strPID:string;
begin
   if Edit1.Text='' then
   begin
         showmessage('请输入联系人姓名');
         exit;
   end;
   DataModule1.ADOTable1.Open;
   try
    DataModule1.ADOTable1.Append;

    DataModule1.ADOTable1.FieldByName('pname').AsString:=Trim(Edit1.Text);
    DataModule1.ADOTable1.FieldByName('Caption').AsString:=Trim(Edit1.Text);
    DataModule1.ADOTable1.FieldByName('industry').AsString:=Trim(ComboBox2.Text);
    DataModule1.ADOTable1.FieldByName('handtel').AsString:=Trim(Edit3.Text);
    DataModule1.ADOTable1.FieldByName('duty').AsString:=Trim(ComboBox3.Text);
    DataModule1.ADOTable1.FieldByName('sex').AsString:=Trim(ComboBox1.Text);
    DataModule1.ADOTable1.FieldByName('age').AsInteger:=StrToInt(Trim(Edit6.Text));
    DataModule1.ADOTable1.FieldByName('PID').AsInteger:=StrToInt(trim(Edit7.Text));
    DataModule1.ADOTable1.FieldByName('email').AsString:=Trim(Edit8.Text);
    DataModule1.ADOTable1.FieldByName('cfax').AsString:=Edit9.Text;
    DataModule1.ADOTable1.FieldByName('address').AsString:=Edit10.Text;
    //DataModule1.ADOTable1.FieldByName('photo').AsString:=Edit11.Text;
    DataModule1.ADOTable1.FieldByName('cemail').AsString:=Edit12.Text;
    DataModule1.ADOTable1.FieldByName('ctel').AsString:=Edit13.Text;
    DataModule1.ADOTable1.FieldByName('company').AsString:=Edit14.Text;
    DataModule1.ADOTable1.FieldByName('ctax').AsString:=Edit15.Text;
    DataModule1.ADOTable1.FieldByName('power').AsString:=Edit16.Text;
    DataModule1.ADOTable1.FieldByName('office').AsString:=Edit17.Text;
    DataModule1.ADOTable1.FieldByName('cbank').AsString:=Edit18.Text;
    DataModule1.ADOTable1.FieldByName('ccode').AsString:=Edit19.Text;
    DataModule1.ADOTable1.FieldByName('memo2').AsString:=Edit20.Text;
    DataModule1.ADOTable1.FieldByName('memo3').AsString:=Edit22.Text;
    DataModule1.ADOTable1.FieldByName('hometel').AsString:=Edit24.Text;
    DataModule1.ADOTable1.FieldByName('area').AsString:=ComboBox4.Text;
    DataModule1.ADOTable1.FieldByName('memo1').AsString:=memo1.Text;
    DataModule1.ADOTable1.FieldByName('status').AsInteger:=1;

    DataModule1.ADOTable1.Post;
  except
  on e:exception do
    showmessage('error!');

  end;

end;

procedure TAddInfoFrm.Button3Click(Sender: TObject);
begin
    self.Close;
end;
procedure TAddInfoFrm.Button4Click(Sender: TObject);
begin
    self.SaveData;
end;
procedure TAddInfoFrm.Button1Click(Sender: TObject);
begin
     self.SaveData;
     self.Close;
end;

procedure TAddInfoFrm.SpeedButton1Click(Sender: TObject);
begin
     EditFrm:=TEditFrm.Create(self);
     EditFrm.TreeFill;//editFrm selfprocedure
     EditFrm.TreeView1.FullExpand; //editFrm selfprocedure
     EditFrm.ShowModal;
     EditFrm.Free;
end;

procedure TAddInfoFrm.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
     if Key=#13 then
     begin
          SelectNext(Sender as TWinControl, True, True);
     end else if (key<>#8) and (Key<#48) or (Key>#57) Then
     begin
          Key:='0';
     end;
end;

procedure TAddInfoFrm.FormShow(Sender: TObject);
begin
     Memo1.Text:='';
end;

end.