gsxxgl.~pas

用delphi编写的人事管理系统

unit gsxxgl;

interface

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

type
  TForm38 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    MaskEdit1: TMaskEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Panel3: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form38: TForm38;

implementation
  uses Dataa;
{$R *.dfm}

procedure TForm38.FormShow(Sender: TObject);
begin
  with Data3.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 公司信息表');
    Open;
  end;
  if Data3.ADOQuery1.RecordCount>0 then
  begin
    Edit1.Text := Data3.ADOQuery1.FieldByName('公司名称').Value;
    Edit2.Text := Data3.ADOQuery1.FieldByName('公司简称').Value;
    Edit3.Text := Data3.ADOQuery1.FieldByName('地址').Value;
    MaskEdit1.Text := Trim(Data3.ADOQuery1.FieldByName('电话').Value);
    Edit4.Text := Data3.ADOQuery1.FieldByName('邮政编码').Value;
    Edit5.Text := Data3.ADOQuery1.FieldByName('网址').Value;
    Edit6.Text := Data3.ADOQuery1.FieldByName('电子邮件').Value;
    Edit7.Text := Data3.ADOQuery1.FieldByName('总经理').Value;
  end;
end;

procedure TForm38.Edit1Change(Sender: TObject);
begin
  if (Trim(Edit1.Text)<>'')and(Trim(Edit2.Text)<>'')and(Trim(Edit3.Text)<>'')and
     (Trim(Edit4.Text)<>'')and(Trim(Edit5.Text)<>'')and(Trim(Edit6.Text)<>'')and
      (Trim(Edit7.Text)<>'')and(Trim(MaskEdit1.Text)<>'') then
    BitBtn1.Enabled := True
  else
    BitBtn1.Enabled := False;
end;

procedure TForm38.BitBtn1Click(Sender: TObject);
begin
  if Application.MessageBox('确实要修改公司信息吗？','提示',MB_YesNo)= ID_Yes then
  begin
    Data3.ADOConnection1.BeginTrans;
    Try
      Data3.ADOQuery1.Edit;
      Data3.ADOQuery1.FieldByName('公司名称').Value := Trim(Edit1.Text);
      Data3.ADOQuery1.FieldByName('公司简称').Value := Trim(Edit2.Text);
      Data3.ADOQuery1.FieldByName('地址').Value := Trim(Edit3.Text);
      Data3.ADOQuery1.FieldByName('电话').Value := Trim(MaskEdit1.Text);
      Data3.ADOQuery1.FieldByName('邮政编码').Value := Trim(Edit4.Text) ;
      Data3.ADOQuery1.FieldByName('网址').Value := Trim(Edit5.Text);
      Data3.ADOQuery1.FieldByName('电子邮件').Value := Trim(Edit6.Text);
      Data3.ADOQuery1.FieldByName('总经理').Value := Trim(Edit7.Text);
      Data3.ADOQuery1.Post;
      Data3.ADOConnection1.CommitTrans;
      BitBtn1.Enabled := False;
      Application.MessageBox('数据修改成功。','提示',64);
    Except
      Data3.ADOConnection1.RollbackTrans;
      Application.MessageBox('系统出错。','提示',64);
      Close;
    End;
  end
  else
    Self.OnShow(Sender);
end;

procedure TForm38.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clRed;
end;

procedure TForm38.BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clBlue;
end;

procedure TForm38.Edit4KeyPress(Sender: TObject; var Key: Char);
var
  i: Boolean;
begin
  i := (Key< #8)or(Key>#8)and(Key<#48)or(Key>#57);
  if i then
    Key := #0;
end;

end.