operinfounit.pas

简单的进销存系统,包含登陆等界面,内容丰富,各种技巧,适合初学者

unit OperInfoUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, ComCtrls, Grids, DBGrids, ToolWin, ExtCtrls,
  ImgList, ADODB, StdCtrls, Mask, DBCtrls, Buttons;

type
  TOperInfoForm = class(TForm)
    PanelBkGnd: TPanel;
    ControlBar1: TControlBar;
    ToolBar1: TToolBar;
    TB_add: TToolButton;
    TB_EDIT: TToolButton;
    TB_DEL: TToolButton;
    ToolButton5: TToolButton;
    TB_refresh: TToolButton;
    TB_EXIT: TToolButton;
    DBG_BASSMESS: TDBGrid;
    DataSource: TDataSource;
    ImageList1: TImageList;
    ADOTable_data: TADOTable;
    Panel1: TPanel;
    E_ID: TDBEdit;
    Label2: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    btnOK: TBitBtn;
    DBNavigator1: TDBNavigator;
    btncancel: TBitBtn;
    E_name: TDBEdit;
    E_SEX: TDBEdit;
    E_memo: TDBEdit;
    C_Rights: TDBComboBox;
    E_PASSWORD: TDBEdit;
    procedure TB_addClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TB_EDITClick(Sender: TObject);
    procedure TB_DELClick(Sender: TObject);
    procedure TB_EXITClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure btncancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OperInfoForm: TOperInfoForm;

implementation

uses EditUserUnit, FunctionUnit, MainUnit, DMUnit;

{$R *.dfm}

procedure TOperInfoForm.TB_addClick(Sender: TObject);
begin
        adoTable_data.Append;
end;

procedure TOperInfoForm.FormCreate(Sender: TObject);
begin



  Adotable_data.Connection:=DM.ADOCon;
  Adotable_data.TableName:='SysUser';
  Adotable_data.Active:=true;
  self.Caption := Application.Title + ' - 操作员信息设置';

end;

procedure TOperInfoForm.TB_EDITClick(Sender: TObject);
begin
      adoTable_data.Edit;
end;

procedure TOperInfoForm.TB_DELClick(Sender: TObject);
begin
  adotable_data.Delete;
end;

procedure TOperInfoForm.TB_EXITClick(Sender: TObject);
begin
  Self.Close;
end;

procedure TOperInfoForm.btnOKClick(Sender: TObject);
begin
        adoTable_data.Post;
end;

procedure TOperInfoForm.btncancelClick(Sender: TObject);
begin
         adoTable_data.Cancel;
         close;
end;

end.