rs_inunit.pas

来自「DELPHI 编写的人事管理系统,根据职工查询各种信息」· PAS 代码 · 共 144 行

unit RS_InUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, DBCtrls, OleCtnrs, StdCtrls, Mask, ExtCtrls, ExtDlgs;

type
  TRS_InForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Panel1: TPanel;
    Label8: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBMemo1: TDBMemo;
    Label3: TLabel;
    Label18: TLabel;
    Panel2: TPanel;
    DBNavigator1: TDBNavigator;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBImage1: TDBImage;
    OpenPictureDialog1: TOpenPictureDialog;
    ADOTable2: TADOTable;
    DBComboBox3: TDBComboBox;
    DBComboBox4: TDBComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBImage1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RS_InForm: TRS_InForm;

implementation
  uses Login_Unit;
{$R *.dfm}

procedure TRS_InForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ADOTable1.Edit;
ADoTable1.Post;

end;

procedure TRS_InForm.DBImage1Click(Sender: TObject);
begin
  self.ADOTable1.edit;
  if OpenPictureDialog1.Execute then
    begin
     dbimage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    end;
end;

procedure TRS_InForm.FormShow(Sender: TObject);
var
  i:integer;
begin
    self.ADOTable2.close;
    self.ADOTable2.TableName:='xzzw';
    self.ADOTable2.open;
    self.ADOTable2.First;
    with self.ADOTable2 do
      begin
        for i:=1 to self.ADOTable2.RecordCount do
            begin
               dbcombobox2.Items.Add(ADOTable2.Fields[0].value);
               self.ADOTable2.Next;
            end;
     end;
    ADOTable2.close;
    ADOTable2.TableName:='gzbm';
    ADOTable2.open;
    ADOTable2.First;
    for i:=1 to ADOTable2.RecordCount do
     begin
       dbcombobox1.Items.Add(ADOTable2.Fields[0].value);
       ADOTable2.Next;
     end;
    ADOTable2.close;
    ADOTable2.TableName:='jszc';
    ADOTable2.open;
    ADOTable2.First;
    for i:=1 to ADOTable2.RecordCount do
     begin
       dbcombobox4.Items.Add(ADOTable2.Fields[0].value);
       ADOTable2.Next;
     end;
    self.ADOTable1.open;
end;

procedure TRS_InForm.DBComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
    begin
     key:=#0;
     self.DBComboBox2.SetFocus;
    end;
end;

procedure TRS_InForm.DBComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
    begin
     key:=#0;
     self.DBEdit5.SetFocus;
    end;
end;

end.