xitong.pas

来自「一个初级的条码应用管理系统,应用于DT9」· PAS 代码 · 共 130 行

unit xitong;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, Buttons, ToolWin, ComCtrls, Grids, DBGrids, DB,
  ADODB;

type
  TFormxitong = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    ToolBar1: TToolBar;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    ToolBar2: TToolBar;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    procedure ComboBox1Change(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formxitong: TFormxitong;

implementation

uses datamodel;

{$R *.dfm}

procedure TFormxitong.ComboBox1Change(Sender: TObject);
  var
   str,temp:string;
begin

end;

procedure TFormxitong.N1Click(Sender: TObject);
begin
  close;
end;

procedure TFormxitong.BitBtn1Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from 用户');
  ADOQuery1.Open;
end;

procedure TFormxitong.BitBtn2Click(Sender: TObject);
begin
  DataSource1.DataSet.Prior;
end;

procedure TFormxitong.BitBtn3Click(Sender: TObject);
begin
  DataSource1.DataSet.Next;
end;

procedure TFormxitong.BitBtn4Click(Sender: TObject);
begin
  DataSource1.DataSet.Insert;
end;

procedure TFormxitong.BitBtn5Click(Sender: TObject);
begin
  DataSource1.DataSet.Delete;
end;

procedure TFormxitong.BitBtn6Click(Sender: TObject);
begin
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('select * from 权限清单');
  ADOQuery2.Open;
end;

procedure TFormxitong.BitBtn7Click(Sender: TObject);
begin
  DataSource2.DataSet.Prior;
end;

procedure TFormxitong.BitBtn8Click(Sender: TObject);
begin
  DataSource2.DataSet.Next;
end;

procedure TFormxitong.BitBtn9Click(Sender: TObject);
begin
  DataSource2.DataSet.Insert;
end;

procedure TFormxitong.BitBtn10Click(Sender: TObject);
begin
 DataSource2.DataSet.Delete;
end;

end.