unit15.~pas

DELPHI7.0+SQL2005环境下开发 2008年8月假期所写

unit Unit15;
//-------员工查询----//
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, Mask, StdCtrls, ComCtrls, ToolWin, ImgList;

type
  Tfrm_c_yg = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Memo1: TMemo;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    ComboBox1: TComboBox;
    MaskEdit1: TMaskEdit;
    Edit5: TEdit;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ComboBox2: TComboBox;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ImageList1: TImageList;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2Change(Sender: TObject);
    procedure editvalue;
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_c_yg: Tfrm_c_yg;

implementation

uses Unit13;

{$R *.dfm}
//-----------------显示数据涵数--------------//
procedure Tfrm_c_yg.editvalue;
begin
  with data1.ADO_yggl do
  begin
    combobox2.Text := fieldbyname('num').Value;
    edit2.Text := fieldbyname('name').Value;
    combobox1.Text := fieldbyname('sex').Value;
    edit3.Text := fieldbyname('phone').Value;
    MaskEdit1.Text := fieldbyname('birthday').Value;
    edit4.Text := fieldbyname('mobile').Value;
    edit5.Text := fieldbyname('address').Value;
    memo1.Text := fieldbyname('bz').Value;
  end;
end;
//-------------读取数据-----------------//
procedure Tfrm_c_yg.DBGrid1CellClick(Column: TColumn);
begin
{
  with data1.ADO_yggl do
  begin
    combobox2.Text := fieldbyname('num').Value;
    edit2.Text := fieldbyname('name').Value;
    combobox1.Text := fieldbyname('sex').Value;
    edit3.Text := fieldbyname('phone').Value;
    MaskEdit1.Text := fieldbyname('birthday').Value;
    edit4.Text := fieldbyname('mobile').Value;
    edit5.Text := fieldbyname('address').Value;
    memo1.Text := fieldbyname('bz').Value;
  end;
}
  if dbgrid1.DataSource.DataSet<>nil then
    if dbgrid1.DataSource.DataSet.RecordCount>0 then
      editvalue;
end;
//------------------更新数据----------------//
procedure Tfrm_c_yg.FormCreate(Sender: TObject);
begin
  with data1.ADO_yggl do
    begin
      close;
      sql.Clear;
      sql.Add('select * from 员工管理');
      open;
    end;
  while not data1.ADO_yggl.Eof do
   begin
      combobox2.Items.Add(data1.ADO_yggl.FieldByName('num').Value);
      data1.ADO_yggl.Next;
   end;
end;
//----------------------输入限制------------------//
procedure Tfrm_c_yg.combobox2KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9',#8])then
begin
  key:=#0;
  application.MessageBox('员工号只能为数字','提示',64);
end;
end;
//--------------选择-------------//
procedure Tfrm_c_yg.ComboBox2Change(Sender: TObject);
begin
with data1.ADO_yggl do
  begin
    close;
    sql.Clear;
    sql.Add('select * from 员工管理 where num='''+combobox2.text+'''');
    open;
  end;
edit2.Text:=data1.ADO_yggl.FieldByName('name').Value;
edit3.Text:=data1.ADO_yggl.FieldByName('phone').Value;
edit4.Text:=data1.ADO_yggl.FieldByName('mobile').Value;
edit5.Text:=data1.ADO_yggl.FieldByName('address').Value;
memo1.Text:=data1.ADO_yggl.FieldByName('bz').Value;
Maskedit1.Text:=data1.ADO_yggl.FieldByName('birthday').Value;
combobox1.Text:=data1.ADO_yggl.FieldByName('sex').Value;
end;
//----------------------修改-------------//
procedure Tfrm_c_yg.ToolButton1Click(Sender: TObject);
begin
try
  with data1.ADO_yggl do
    begin
      edit;
      fieldbyname('num').Value:=trim(combobox2.Text);
      fieldbyname('name').Value:=trim(edit2.Text);
      fieldbyname('sex').Value:=trim(combobox1.Text);
      fieldbyname('phone').Value:=trim(edit3.Text);
      fieldbyname('birthday').Value:=trim(MaskEdit1.Text);
      fieldbyname('mobile').Value:=trim(edit4.Text);
      fieldbyname('address').Value:=trim(edit5.Text);
      fieldbyname('bz').Value:=trim(memo1.Text);
      post;
    end;
  application.MessageBox('修改成功','提示',64);
except
  application.MessageBox('修改失败','提示',64);
end;
end;
//--------------删除------------------//
procedure Tfrm_c_yg.ToolButton3Click(Sender: TObject);
begin
  if messagebox(self.Handle,'真的要删除吗？','提示',mb_yesno+mb_iconquestion)=idyes then
     data1.ADO_yggl.Delete;
end;
//-------------------------显示全部---------------//
procedure Tfrm_c_yg.ToolButton5Click(Sender: TObject);
begin
    with data1.ADO_yggl do
    begin
      close;
      sql.Clear;
      sql.Add('select * from 员工管理');
      open;
    end;
end;
//----------------------退出------------------//
procedure Tfrm_c_yg.ToolButton7Click(Sender: TObject);
begin
  close;
end;

end.