jiben.pas

在Dephi中可执行 多多支持

unit JiBen;

interface

uses
  Windows, Messages, Classes, SysUtils, Graphics, Controls, StdCtrls, Forms,
  Dialogs, DBCtrls, DB, DBGrids, Grids, ExtCtrls;

type
  TFormJiBen = class(TForm)
    DBGridJiBen: TDBGrid;
    DBNavigatorJiBen: TDBNavigator;
    PanelNavigator: TPanel;
    PanelGrid: TPanel;
    procedure FormActivate(Sender: TObject);
    procedure DBGridJiBenDblClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FormJiBen: TFormJiBen;

implementation

{$R *.DFM}

uses DataModule, Login;

procedure TFormJiBen.FormActivate(Sender: TObject);
begin
   If Login.QuanXian='geren' Then
      Begin
      DataModuleKaoQin.TableJiBen.Close;
      DataModuleKaoQin.TableJiBen.Filtered:=True;
      DataModuleKaoQin.TableJiBen.Filter:='GongXuHao='+FormLogin.EditUser.Text;
      DataModuleKaoQin.TableJiBen.ReadOnly:=True;
      DataModuleKaoQin.TableJiBen.Open;
      End
   Else If Login.QuanXian='renshi' Then
      Begin
      DataModuleKaoQin.TableJiBen.Close;
      DataModuleKaoQin.TableJiBen.Filtered:=False;
      DataModuleKaoQin.TableJiBen.ReadOnly:=False;
      DataModuleKaoQin.TableJiBen.Open;
      End
   Else
       Application.Terminate;
end;

procedure TFormJiBen.DBGridJiBenDblClick(Sender: TObject);
Var GongHao:String;
begin
  GongHao:=DataModuleKaoQin.TableJiBen.FieldByName('GongXuHao').AsString;
  If DataModuleKaoQin.TableKaoQin.Active Then
  Begin
      DataModuleKaoQin.TableKaoQin.Edit;
      DataModuleKaoQin.TableKaoQin.FieldByName('GongXuHao').AsString:=GongHao;
      DataModuleKaoQin.TableKaoQin.Post;
  End;
  Close;    
end;

end.