unitxg.~pas

档案管理系统dephi.rar是用dephi编写的档案管理系统,整个系统详细演示了档案管理的整个流程对大家熟悉和学习档案管理很有帮助,同时对dephi的学习者也是非常有利的.

unit Unitxg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SUIImagePanel, ExtCtrls, SUIForm, SUIButton, SUIEdit,unitcomm,DB,ADODB,
  Mask, DBCtrls, SUIDBCtrls;

type
  TForm3 = class(TForm)
    suiForm1: TsuiForm;
    suiImagePanel1: TsuiImagePanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    yh_name: TsuiDBEdit;
    mm: TsuiEdit;
    qq: TsuiEdit;
    procedure suiButton2Click(Sender: TObject);
    procedure formshow(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure formclose(Sender: TObject; var Action: TCloseAction);

    
  private
     myDataSet:TADODataSet;
     myDatasource:TDatasource;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}
uses
    Unitok;

procedure TForm3.suiButton2Click(Sender: TObject);
begin
     close;
end;




procedure TForm3.formshow(Sender: TObject);
begin
     myDataset:=TADODataset.Create(self);
     myDatasource:=TDatasource.Create(self);
     myDataset.Connection:=ADOConn;
     myDatasource.DataSet:=myDataset;

     myDataset.CommandText:='select yh_name,mm from yh where yh_name='''+username+'''';
     myDataset.Active:=true;

     yh_name.DataSource:=myDatasource;
     yh_name.DataField:=myDAtaset.Fields[0].FieldName;
     mm.Clear;
     qq.Clear;

end;

procedure TForm3.suiButton1Click(Sender: TObject);
var
    myQuery:TADOQuery;
    frm7:TForm7;
begin
     myQuery:=TADOQuery.Create(self);
     myQuery.Connection:=ADOConn;
     if mm.Text <> qq.Text then
     begin
           showmessage('您的新密码与确认密码不一致,请重新输入!');
           mm.Clear;
           qq.Clear;
     end
     else
          try
             if mm.Text <> '' then
             begin
                  myQuery.SQL.Add('update yh set mm='''+mm.Text+''' where yh_name='''+username+'''');
                  myQuery.ExecSQL;
                  myQuery.Close;
                  myQuery.Free;
                  frm7:=TForm7.Create(self);
                  self.Hide;
                  frm7.ShowModal;
                  frm7.Free;
                  self.Close;
             end
             else
                  self.Close;
          except
                showmessage('新密码格式错误,请确认您的新密码字符数在6~10之内!');
          end;

end;

procedure TForm3.formclose(Sender: TObject; var Action: TCloseAction);
begin
     myDataSet.Close;
     myDataSet.Free;
     myDataSource.Free;

end;

end.