【delphi开源代码栏目提醒】：以下是网学会员为您推荐的delphi开源代码-Frm_Number.pas，希望本篇文章对您学习有所帮助。

    unit Frm_Number;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, XPMan, ComCtrls, ToolWin, DB, ADODB, ExtCtrls, StdCtrls,JPEG;
    
    type
      TFrmNumber = class(TForm)
        GBxList: TGroupBox;
        ADOConn: TADOConnection;
        AQList: TADOQuery;
        ToolBar1: TToolBar;
        TBtnFirst: TToolButton;
        TBtnPrio: TToolButton;
        TBtnNext: TToolButton;
        TBtnLast: TToolButton;
        TBtnEdit: TToolButton;
        TBtnInsert: TToolButton;
        TBtnDelete: TToolButton;
        EDName: TEdit;
        EDNumber: TEdit;
        EdOld: TEdit;
        EdTelePhone: TEdit;
        CBxSex: TComboBox;
        CBXdePartMent: TComboBox;
        DTPJoinDate: TDateTimePicker;
        CBxMary: TComboBox;
        LBName: TLabel;
        LbOld: TLabel;
        LbMary: TLabel;
        LbPart: TLabel;
        LbNumber: TLabel;
        LbPhone: TLabel;
        LbSex: TLabel;
        LbDate: TLabel;
        Open: TOpenDialog;
        TBtnSave: TToolButton;
        btnClose: TButton;
        ASProc: TADOStoredProc;
        procedure FormCreate(Sender: TObject);
        procedure FormShow(Sender: TObject);
        procedure TBtnSaveClick(Sender: TObject);
        procedure TBtnFirstClick(Sender: TObject);
        procedure btnCloseClick(Sender: TObject);
      private
        ID:Integer;
        inorup:Boolean;
        dir:String;
        procedure MoveRecord(const Command:String);
        procedure openDB;
        procedure ShowField;
        Procedure setText(Ena,Clr:boolean);
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FrmNumber: TFrmNumber;
    
    implementation
    
    {$R *.dfm}
    Procedure TFrmNumber.ShowField;
    begin
    //
        with AQlist do
        if AQList.Active then
        begin
          EDName.Text:=FieldbYname('Name').AsString;
          EDNumber.Text:=FieldbYname('Number').AsString;
          EdOld.Text:=inttostr(FieldbYname('Old').AsInteger);
          EdTelePhone.Text:=FieldbYname('TelePhone').AsString;
          CBxSex.ItemIndex:=FieldbYname('Sex').AsInteger;
          CBXdePartMent.Text:=FieldbYname('dePartMent').AsString;
          DTPJoinDate.DateTime:=FieldbYname('JoinDate').AsDateTime;
          CBxMary.ItemIndex:=FieldbYname('Maried').AsInteger;
          id:=FieldByname('ID').AsInteger;
        end;
    end;
    
    procedure TFrmNumber.FormCreate(Sender: TObject);
    begin
      ADOConn.ConnectionString:='Provider=SQLOLEDB.1;Password="";Persist Security Info=True;User ID=sa;Initial Catalog=DelphiClassical200';
      ADOConn.Open;
    end;
    
    procedure TFrmNumber.openDB;
    begin
      With AQList do
      begin
        close;
        Sql.Clear;
        Sql.Add('select * from TB_Worker');
        open;
      end;
    end;
    
    procedure TFrmNumber.FormShow(Sender: TObject);
    begin
      openDB;
      ShowField;
    end;
    
    
    
    procedure TFrmNumber.TBtnSaveClick(Sender: TObject);
    begin
      if inorup then      //Editing
      begin
        with AQList do
        begin
          close;
          sql.Clear;
          AQlist.Prepared;
          sql.Add('Update TB_Worker set Name=:PName,Number=:PNumber,Old=:POld,TelePhone=:TelePhone,Sex=:PSex,dePartMent=:PdePartMent,Maried=:PMaried,joindate=:Joindate  where id=:Pid');
          parameters.ParamByName('PName').Value:=EDName.Text;
          parameters.ParamByName('PNumber').Value:=EDNumber.Text;
          parameters.ParamByName('POld').Value:=EdOld.Text;
          parameters.ParamByName('TelePhone').Value:=EdTelePhone.Text;
          parameters.ParamByName('PSex').Value:=CBxSex.ItemIndex;
          parameters.ParamByName('PdePartMent').Value:= CBXdePartMent.Text;
          parameters.ParamByName('PMaried').Value:= CBxMary.ItemIndex;
          parameters.ParamByName('PID').Value:=ID;
          parameters.ParamByName('joindate').Value:=DTPJoindate.Date;
          Execsql;
        end;
      end
      else
      begin                              //inserting
        with AQList do
        begin
          close;
          sql.Clear;
          AQlist.Prepared;
          sql.Add('insert into TB_Worker (Name,Number,Old,TelePhone,Sex,dePartMent,Maried) values(:PName,:PNumber,:POld,:TelePhone,:PSex,:PdePartMent,:PMaried)');
          parameters.ParamByName('PName').Value:=EDName.Text;
          parameters.ParamByName('PNumber').Value:=EDNumber.Text;
          parameters.ParamByName('POld').Value:=EdOld.Text;
          parameters.ParamByName('TelePhone').Value:=EdTelePhone.Text;
          parameters.ParamByName('PSex').Value:=CBxSex.ItemIndex;
          parameters.ParamByName('PdePartMent').Value:= CBXdePartMent.Text;
          parameters.ParamByName('PMaried').Value:= CBxMary.ItemIndex;
          Execsql;
        end;
    
      end;
    
      tbtnsave.Enabled:=false;
      opendb;
      showField;
      SetText(false,false);
      //
    end;
    
    procedure TFrmNumber.MoveRecord(const Command:String);
    begin
      if  AQlist.Active then
      case Command[1] of
       'F': AQlist.First;
       'P': AQlist.Prior;
       'N': AQList.Next;
       'L': AQList.Last;
       end;
       ShowField;
    end;
    
    Procedure TFrmNumber.setText(Ena,Clr:boolean);
    var
      i:integer;
    begin
      for i:=0 to GBxlist.Contro