wzsz.pas

来自「一个仓库管理中的子系统－－采购子系统」· PAS 代码 · 共 143 行

unit wzsz;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls;

type
  TwzszForm = class(TForm)
    Panel1: TPanel;
    Label2: TLabel;
    wzidEdit: TEdit;
    Label3: TLabel;
    wzmcEdit: TEdit;
    Label4: TLabel;
    xhggEdit: TEdit;
    Panel2: TPanel;
    FirstButton: TSpeedButton;
    pirorButton: TSpeedButton;
    nextButton: TSpeedButton;
    lastButton: TSpeedButton;
    Panel3: TPanel;
    deleteBtn: TBitBtn;
    appendBtn: TBitBtn;
    OkBtn: TBitBtn;
    Label1: TLabel;
    cxBtn: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure cxBtnClick(Sender: TObject);
    procedure appendBtnClick(Sender: TObject);
    procedure deleteBtnClick(Sender: TObject);
    procedure FirstButtonClick(Sender: TObject);
    procedure lastButtonClick(Sender: TObject);
    procedure pirorButtonClick(Sender: TObject);
    procedure nextButtonClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    procedure SetContents;
    { Public declarations }
  end;

var
  wzszForm: TwzszForm;

implementation

uses Datamodule;

{$R *.DFM}
procedure TwzszForm.SetContents;
begin
   with dataModule1.publicQuery3 do
   begin
   wzidedit.Text:=FieldByname('wzidh').asstring;
   wzmcedit.Text:=FieldByname('wzmc').asstring;
   xhggedit.Text:=FieldByName('xhgg').asstring;
   end;
end;

procedure TwzszForm.FormActivate(Sender: TObject);
begin
    with datamodule1.publicQuery3 do
    begin
    requestlive:=True;
    close;
    sql.Clear;
    sql.Add('select * From dbo.e_wzdmb');
    prepare;
    open;
    end;
end;

procedure TwzszForm.cxBtnClick(Sender: TObject);
begin
    datamodule1.publicQuery3.First;
    panel2.Enabled:=true;
    deleteBtn.Enabled:=True;
    appendBtn.Enabled:=False;
    setContents;
end;

procedure TwzszForm.appendBtnClick(Sender: TObject);
begin
    if (wzidedit.Text='') or (wzmcedit.Text='') or (xhggedit.text='') then
    begin
    showmessage('请您输入新建的物资信息！');
    exit;
    end;
    with datamodule1.PublicQuery1 do
    begin
    requestlive:=True;
    close;
    sql.Clear;
    sql.Add('select * from dbo.e_wzdmb');
    prepare;
    open;
    append;
    FieldByname('wzidh').asstring:=wzidedit.Text;
    FieldByName('wzmc').asstring:=wzmcedit.Text;
    FieldByname('xhgg').asstring:=xhggedit.Text;
    post;
    end;
end;

procedure TwzszForm.deleteBtnClick(Sender: TObject);
begin
    datamodule1.publicQuery3.Delete;
end;

procedure TwzszForm.FirstButtonClick(Sender: TObject);
begin
    datamodule1.publicQuery3.First;
    setContents;
end;

procedure TwzszForm.lastButtonClick(Sender: TObject);
begin
    datamodule1.publicQuery3.Last;
    setContents;
end;

procedure TwzszForm.pirorButtonClick(Sender: TObject);
begin
    datamodule1.publicQuery3.Prior;
    setContents;
end;

procedure TwzszForm.nextButtonClick(Sender: TObject);
begin
   datamodule1.publicQuery3.next;
   setContents;
end;

procedure TwzszForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   datamodule1.publicQuery1.RequestLive:=false;
end;

end.