【delphi开源代码栏目提醒】：网学会员delphi开源代码为您提供Frm_Trigger.pas参考，解决您在Frm_Trigger.pas学习中工作中的难题，参考学习。

    unit Frm_Trigger;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, StdCtrls, XPMan, Mask,
      DBCtrls;
    
    type
      TFrmTrigger = class(TForm)
        ADOConn: TADOConnection;
        AQTrigger: TADOQuery;
        ATList: TADOTable;
        DSLIst: TDataSource;
        GBxList: TGroupBox;
        DBGList: TDBGrid;
        GBxIn: TGroupBox;
        DBGrid1: TDBGrid;
        ATListIn: TADOTable;
        DSListIn: TDataSource;
        Panel1: TPanel;
        Label2: TLabel;
        DBEName: TDBEdit;
        Label1: TLabel;
        EDInSum: TEdit;
        BtnInStore: TButton;
        BtnClose: TButton;
        procedure FormCreate(Sender: TObject);
        procedure BtnCloseClick(Sender: TObject);
        procedure BtnInStoreClick(Sender: TObject);
        procedure EDInSumKeyPress(Sender: TObject; var Key: Char);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FrmTrigger: TFrmTrigger;
    
    implementation
    
    {$R *.dfm}
    
    procedure TFrmTrigger.FormCreate(Sender: TObject);
    begin
      //AdoConn.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DelphiClassical200';
      //AdoConn.Open;
      ATlist.Open;
      ATListin.Open;
    end;
    
    procedure TFrmTrigger.BtnCloseClick(Sender: TObject);
    begin
      Close;
    end;
    
    procedure TFrmTrigger.BtnInStoreClick(Sender: TObject);
    begin
      if not (Trim(EdinSum.Text) = '') then
       if Strtoint(EdinSum.Text) > 0 then
        begin
          with ATListin do
          begin
            Append;
            FieldByName('Number').AsString:='RK'+Datetostr(Date())+Timetostr(Now());
            FieldByName('GoodsNumber').AsString:=ATlist.fieldByname('Number').AsString;
            FieldByName('InCount').AsInteger:=strtoint(EDInSum.Text);
            FieldByName('HandMan').AsString:='赵智勇';
            post;
            Refresh;
          End;
        ATlist.Close;
        ATlist.Open;
      end;
    end;
    
    procedure TFrmTrigger.EDInSumKeyPress(Sender: TObject; var Key: Char);
    begin
      if not (Key in ['0'..'9',char(vk_back)]) then
      key:=#0;
    end;
    
    end.