unit4.~pas

一个很小的个人通讯录管理程序,ACCESS数据,要装XP控件,内符

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, DB, StdCtrls, Mask, DBCtrls, Buttons;

type
  TfUserMnt = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel1: TPanel;
    DataSource1: TDataSource;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    ComboBox1: TComboBox;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    Label1: TLabel;
    Label2: TLabel;
    StaticText8: TStaticText;
    StaticText9: TStaticText;
    StaticText10: TStaticText;
    StaticText11: TStaticText;
    StaticText12: TStaticText;
    StaticText13: TStaticText;
    DBEdit11: TDBEdit;
    DBComboBox3: TDBComboBox;
    DBEdit12: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBMemo1: TDBMemo;
    StaticText14: TStaticText;
    StaticText15: TStaticText;
    StaticText16: TStaticText;
    StaticText17: TStaticText;
    StaticText18: TStaticText;
    StaticText19: TStaticText;
    DBEdit14: TDBEdit;
    DBEdit13: TDBEdit;
    StaticText20: TStaticText;
    StaticText6: TStaticText;
    DBEdit1: TDBEdit;
    StaticText7: TStaticText;
    DBEdit6: TDBEdit;
    StaticText21: TStaticText;
    StaticText22: TStaticText;
    StaticText23: TStaticText;
    btnCan: TBitBtn;
    btnSav: TBitBtn;
    btnOK: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnCanClick(Sender: TObject);
    procedure btnSavClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox1Exit(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fUserMnt: TfUserMnt;

implementation

uses Unit2;

{$R *.dfm}

procedure TfUserMnt.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  fUserMnt:=nil;
  action:=cafree;
end;

//取消名片操作
procedure TfUserMnt.btnCanClick(Sender: TObject);
begin
  if Messagedlg('是否取消名片操作?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    DM.qLinkMan.Cancel;
    close;
  end;
end;

procedure TfUserMnt.btnSavClick(Sender: TObject);
begin
  try
    DM.qLinkMan.Post;
  except
    showmessage('保存名片信息出错，请查看名片姓名是否重复!');
    DM.qLinkMan.Cancel;
    close;
  end;
  showmessage('保存名片信息成功!');
  close;
end;

procedure TfUserMnt.FormCreate(Sender: TObject);
var
  ind : integer;
begin
  try
    with DM.qGroup do
    begin
      Close;
      sql.Clear;
      //获得分类表中的分类编号和分类名称
      Sql.Add('Select GroupID,GroupName from GroupTbl order by GroupID');
      Open;
      //从第一条记录开始操作
      first;
      //清除两个下拉列表框的内容
      Combobox1.Clear;
      DBCombobox1.Clear;
      ind := 0;
      while not eof do
      begin
        Combobox1.ItemIndex := ind;
        DBCombobox1.ItemIndex := ind;
        //在Combobox1中添加分类名称
        Combobox1.Items.Add(Fieldbyname('GroupName').Value);
        //在DBCombobox1中添加分类编号
        DBCombobox1.Items.Add(Fieldbyname('GroupID').Value);
        ind := ind + 1;
        next;
      end;
      //设置两个下拉列表框初始值
      Combobox1.ItemIndex := -1;
      DBCombobox1.ItemIndex := -1;
    end;
  except
    showmessage('添加分类信息失败！');
  end;
end;

procedure TfUserMnt.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex<>-1 then
begin
   DBCombobox1.ItemIndex:=ComboBox1.ItemIndex;
   DBCombobox1.Field.AsString:=DBCombobox1.Text;
end;
end;

procedure TfUserMnt.ComboBox1Exit(Sender: TObject);
begin
if trim(ComboBox1.Text)<>'' then
begin
  if ComboBox1.Items.IndexOf(trim(ComboBox1.Text))<>-1 then
  begin
   DBCombobox1.ItemIndex:=ComboBox1.ItemIndex;
   DBCombobox1.Field.AsString:=DBCombobox1.Text;
  end
  else
  begin
    showmessage('输入的分类名称不存在，请重新输入!');
    ComboBox1.SetFocus;
  end;
end;
end;

procedure TfUserMnt.btnOKClick(Sender: TObject);
begin
  Close;
end;

end.