user.pas

一个图书批发商的通用软件

unit User;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,data,DB, ADODB, dxExEdtr, dxCntner, dxTL, dxDBCtrl,
  dxDBGrid, dxBar, dxBarExtItems, StdCtrls, Buttons, ExtCtrls, dxDBTLCl,
  dxGrClms;

type
  TfrUser = class(TForm)
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    dxBarManager1: TdxBarManager;
    dxBarLargeButton1: TdxBarLargeButton;
    dxBarLargeButton2: TdxBarLargeButton;
    dxBarLargeButton3: TdxBarLargeButton;
    dxBarLargeButton4: TdxBarLargeButton;
    dxBarLargeButton5: TdxBarLargeButton;
    Panel1: TPanel;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1NnitName: TdxDBGridColumn;
    dxDBGrid1NnitAddress: TdxDBGridColumn;
    dxDBGrid1NnitTel: TdxDBGridColumn;
    dxDBGrid1NnitPo: TdxDBGridColumn;
    dxDBGrid1Used: TdxDBGridCheckColumn;
    procedure dxBarLargeButton4Click(Sender: TObject);
    procedure dxBarLargeButton2Click(Sender: TObject);
    procedure dxBarLargeButton3Click(Sender: TObject);
    procedure dxBarLargeButton1Click(Sender: TObject);
    procedure ADOQuery1AfterScroll(DataSet: TDataSet);
    procedure ADOQuery1AfterPost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure ShowUser;
implementation

{$R *.dfm}
procedure ShowUser;
begin
  with TfrUser.Create(nil) do
  try
    showmodal;
  finally
    free;
  end;
end;
procedure TfrUser.dxBarLargeButton4Click(Sender: TObject);
begin
  close;
end;

procedure TfrUser.dxBarLargeButton2Click(Sender: TObject);
begin
  if ADOQuery1.State in dseditmodes then ADOQuery1.Post;
 // dxdbgrid1.OptionsView:=[edgoBandHeaderWidth,edgoUseBitmap];
end;

procedure TfrUser.dxBarLargeButton3Click(Sender: TObject);
begin
  ADOQuery1.Delete;
end;

procedure TfrUser.dxBarLargeButton1Click(Sender: TObject);
begin
  //dxdbgrid1.OptionsView:=[edgoBandHeaderWidth,edgoUseBitmap];
  ADOQuery1.Append;
end;

procedure TfrUser.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
 // if not (ADOQuery1.State in dseditmodes) then
 // dxdbgrid1.OptionsView:=[edgoBandHeaderWidth,edgoRowSelect,edgoUseBitmap];
end;

procedure TfrUser.ADOQuery1AfterPost(DataSet: TDataSet);
begin
   //sysname,sysaddress,systl,syspo:string;
  //系统名称 系统地址 系统电话 系统邮编
  ADOQuery1.Locate('Used',true,[loCaseInsensitive]);
  sysname:=ADOQuery1.fieldbyname('NnitName').AsString;
  sysaddress:=ADOQuery1.fieldbyname('NnitAddress').AsString;
  systl:=ADOQuery1.fieldbyname('NnitTel').AsString;
  syspo:=ADOQuery1.fieldbyname('NnitPo').AsString;
  
end;

end.