input.cpp

数据采集

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "input.h"
#include "main.h"
#include  "global.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tform_input *form_input;
//---------------------------------------------------------------------------
__fastcall Tform_input::Tform_input(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall Tform_input::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if(Key==F11_KEY) Button1Click(NULL);
  else if(Key==Esc_KEY)Button2Click(NULL);        
}
//---------------------------------------------------------------------------


void __fastcall Tform_input::FormShow(TObject *Sender)
{
  StringGrid1->SetFocus();
  for(int i=0;i<StringGrid1->RowCount && i<MAX_CE;i++){
    StringGrid1->Cells[0][i+1]=IntToStr(i+1);
    StringGrid1->Cells[1][i+1]=input_cehao[i];
    StringGrid1->Cells[2][i+1]=input_clh[i]; //材料号
  }
}
//---------------------------------------------------------------------------

void __fastcall Tform_input::FormCreate(TObject *Sender)
{
  form_input->Caption=bd.name;
  StringGrid1->RowCount = MAX_CE;
  StringGrid1->ColWidths[1] = 64;
  StringGrid1->ColWidths[2] = 64;
  StringGrid1->Cells[0][0]="序";
  StringGrid1->Cells[1][0]="车号";
  StringGrid1->Cells[2][0]="货名";
}
//---------------------------------------------------------------------------

void __fastcall Tform_input::Button1Click(TObject *Sender)
{
  for(int i=1;i<StringGrid1->RowCount && i<MAX_CE;i++){
    input_cehao[i-1]=StringGrid1->Cells[1][i];
    input_clh[i-1]=StringGrid1->Cells[2][i];
  }
  //input_lch=Edit1->Text;
  Hide();
  form_main->Show();  
}
//---------------------------------------------------------------------------

void __fastcall Tform_input::Button2Click(TObject *Sender)
{
  Hide();
  form_main->Show();  
}
//---------------------------------------------------------------------------