D7szYidui/纱线仓库/U_YarnInput.pas

unit U_YarnInput;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, cxPC, cxControls, ComCtrls, ToolWin, StdCtrls, Menus,
  cxTextEdit, cxCurrencyEdit, BtnEdit, cxContainer, cxEdit, cxImage, DB, ADODB,
  cxDBEdit, cxLookAndFeelPainters, cxButtons, strUtils;

type
  TfrmYarnInput = class(TForm)
    ToolBar1: TToolBar;
    ToolButton3: TToolButton;
    TBClose: TToolButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    ADOQueryCmd: TADOQuery;
    ADOQueryTmp: TADOQuery;
    ADOQuerymain: TADOQuery;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label11: TLabel;
    Y_Code: TEdit;
    Y_CodeName: TEdit;
    Y_CF: TEdit;
    Y_Spec: TMemo;
    procedure FormDestroy(Sender: TObject);
    procedure TBCloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    function savedata(): Boolean;
    procedure InitGrid();
 
    { Private declarations }
  public
    FCYID: string;
    fFlileFlag: string;
    CopyInt: Integer;
    { Public declarations }
  end;

var
  frmYarnInput: TfrmYarnInput;

implementation

uses
  U_DataLink, U_Fun10, U_ZDYHelp;
{$R *.dfm}

function TfrmYarnInput.savedata(): Boolean;
begin
  result := false;
  try
    with ADOQueryCmd do
    begin
      Close;
      SQL.Clear;
      sql.Add('select * from BS_SX_YDang where ATID=''' + Trim(FCYID) + '''');
      Open;
      if IsEmpty then
      begin
        append;
        FieldByName('Filler').Value := Trim(DName);
      end
      else
      begin
        Edit;
        FieldByName('Editer').Value := Trim(DName);
        FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTmp);
      end;
      SSetsaveSqlNew(ADOQueryCmd, 'BS_SX_YDang', Panel1, 2);
      FieldByName('ATID').Value := Trim(FCYID);
      FieldByName('Y_Type').Value := 'SX';
      post;
    end;

    result := true;
  except
  end;
end;

procedure TfrmYarnInput.InitGrid();
begin
  with ADOQueryMain do
  begin
    close;
    sql.Clear;
    sql.Add('select * from BS_SX_YDang A');
    sql.Add('where ATID=' + quotedstr(trim(FCYID)));
    open;
  end;
  if not ADOQueryMain.IsEmpty then
  begin
    SCSHDataNew(ADOQueryMain, Panel1, 2);
  end;
end;

procedure TfrmYarnInput.FormDestroy(Sender: TObject);
begin
  frmYarnInput := nil;
end;

procedure TfrmYarnInput.TBCloseClick(Sender: TObject);
begin
  close;
end;

procedure TfrmYarnInput.FormCreate(Sender: TObject);
begin
  Panel1.Align := alclient;
  clearControl(Panel1, 2);
end;

procedure TfrmYarnInput.ToolButton3Click(Sender: TObject);
begin
  if trim(Y_Code.Text) = '' then
  begin
    application.MessageBox('<27><>ƷID<49><44><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
    exit;
  end;
  if trim(Y_CodeName.Text) = '' then
  begin
    application.MessageBox('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
    exit;
  end;

  AdoqueryCmd.Connection.BeginTrans;
  try
    if not savedata() then
    begin
      AdoqueryCmd.Connection.RollbackTrans;
    end;
    AdoqueryCmd.Connection.CommitTrans;
    application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
    self.ModalResult := 1;
  except
    AdoqueryCmd.Connection.RollbackTrans;
    application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
  end;
end;

procedure TfrmYarnInput.FormShow(Sender: TObject);
begin
  initGrid();
  if CopyInt = 99 then
  begin
    FCYID := '';
  end;
  if FCYID = '' then
  begin
    if GetLSNo(ADOQueryCmd, FCYID, 'SX', 'BS_SX_YDang', 4, 1) = False then
    begin
      Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
      Exit;
    end;
    Y_Code.Text := trim(FCYID);
  end;
end;

end.