popmanage.pas

来自「delphi 生产管理系统 sql2000位后台数据库」· PAS 代码 · 共 57 行

unit popmanage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,StdCtrls, DB,ADODB;

type
  TFrm_popmanage = class(TForm)
    userid: TADOQuery;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    bsSkinButton3: TButton;
    bsSkinButton6: TButton;
    procedure bsSkinButton6Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_popmanage: TFrm_popmanage;

implementation

{$R *.dfm}

uses main,share,DM;

procedure TFrm_popmanage.bsSkinButton6Click(Sender: TObject);
begin
close;
end;

procedure TFrm_popmanage.FormShow(Sender: TObject);
begin
  tocombobox(combobox1,userid,'select * from userid order by name','name'); 
  combobox1.ItemIndex:=0;
end;

procedure TFrm_popmanage.bsSkinButton3Click(Sender: TObject);
begin
  runsql(userid,'select * from userid where name='''+combobox1.Text+'''','open');
  userid.Edit;
  userid.FieldValues['pop']:=combobox2.itemIndex;
  userid.Post;
  messagebox(handle,pchar('设置成功!'),'提示',64); 
end;

end.