unit1.pas

Navision ERP 极品补丁

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Panel3: TPanel;
    Panel4: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    DBComboBox1: TDBComboBox;
    DBGrid1: TDBGrid;
    ADOC2: TADOConnection;
    ygadoq: TADOQuery;
    ygds: TDataSource;
    Panel5: TPanel;
    Panel6: TPanel;
    DBGrid2: TDBGrid;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    bmadq: TADOQuery;
    bmds: TDataSource;
    BitBtn5: TBitBtn;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);
var i:integer;
begin
  pagecontrol1.Pages[0].TabVisible:=true;
  pagecontrol1.ActivePageIndex:=0;
  pagecontrol1.Pages[1].TabVisible:=false;
  dbcombobox1.Items.Free;
  bmadq.Close;
  bmadq.Open;
  bmadq.First;
  for i:=0 to bmadq.RecordCount-1 do
    begin
      dbcombobox1.Items.Add(bmadq.Fieldbyname('bmmc').AsString);
      bmadq.Next;
    end;
  dbcombobox1.ItemIndex:=0;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
  pagecontrol1.Pages[1].TabVisible:=true;
  pagecontrol1.ActivePageIndex:=1;
  pagecontrol1.Pages[0].TabVisible:=false;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if pagecontrol1.ActivePageIndex=0 then
    begin
      edit1.Text:='';
      edit2.Text:='';
      ygadoq.Close;
      ygadoq.Open;
      ygadoq.Append;
      ygadoq.FieldByName('userid').AsString:=trim(edit1.Text);
      ygadoq.FieldByName('username').AsString:=trim(edit2.Text);
      ygadoq.FieldByName('bmmc').AsString:=trim(dbcombobox1.Text);
      bmadq.Close;
      bmadq.SQL.Add('where bmmc=:a');
      bmadq.Parameters.ParamByName('a').Value:=trim(dbcombobox1.Text);
      bmadq.Open;
      ygadoq.FieldByName('bmid').AsString:=bmadq.Fieldbyname('bmid').AsString;
    end;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  if pagecontrol1.ActivePageIndex=0 then
    begin
      ygadoq.Post;
    end;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  if pagecontrol1.ActivePageIndex=0 then
    begin
      ygadoq.Edit;
      ygadoq.FieldByName('userid').AsString:=trim(edit1.Text);
      ygadoq.FieldByName('username').AsString:=trim(edit2.Text);
      ygadoq.FieldByName('bmmc').AsString:=trim(dbcombobox1.Text);
      bmadq.Close;
      bmadq.SQL.Add('where bmmc=:a');
      bmadq.Parameters.ParamByName('a').Value:=trim(dbcombobox1.Text);
      bmadq.Open;
      ygadoq.FieldByName('bmid').AsString:=bmadq.Fieldbyname('bmid').AsString;
      
    end;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
  ygadoq.Delete;
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
  ygadoq.Cancel;
end;

end.