void __fastcall TForm9::BitBtn2Click(TObject *Sender)
{
if(Form38->TBdata=="5")
{
ShowMessage("正在同步移库数据");
return;
}
BitBtn1Click(Sender);
String Dir;
if(SelectDirectory("Directory Name","",Dir))
{
if(Dir.SubString(Dir.Length(),1)!="\\")
{
Dir=Dir+"\\";
}
TStringList *SaveList=new TStringList();
int selectnum=Form1->YK_ADOQuery->RecordCount;
String str="";
String FileName="移库表";
String datetime= Now().FormatString("yyyymmddhhnnss");
SaveList->Text="";
for(int i=0;i<selectnum;i++)
{
str="";
// RK_Grid->Columns->Items[0]->Field->
str="YK,"+
Form1->YK_ADOQuery->FieldByName("条码")->AsString+","+
Form1->YK_ADOQuery->FieldByName("名称")->AsString+","+
Form1->YK_ADOQuery->FieldByName("货号")->AsString+","+
Form1->YK_ADOQuery->FieldByName("规格")->AsString+","+
Form1->YK_ADOQuery->FieldByName("型号")->AsString+",";
if(Form1->Pshow=="show")str+=Form1->YK_ADOQuery->FieldByName("进价")->AsString+",";
str+=Form1->YK_ADOQuery->FieldByName("售价")->AsString+","+
Form1->YK_ADOQuery->FieldByName("单位")->AsString+","+
Form1->YK_ADOQuery->FieldByName("备注一")->AsString+","+
Form1->YK_ADOQuery->FieldByName("备注二")->AsString+","+
Form1->YK_ADOQuery->FieldByName("备注三")->AsString+","+
Form1->YK_ADOQuery->FieldByName("原仓库")->AsString+","+
Form1->YK_ADOQuery->FieldByName("目的仓库")->AsString+","+
Form1->YK_ADOQuery->FieldByName("数量")->AsString+","+
Form1->YK_ADOQuery->FieldByName("移库时间")->AsString+","+
Form1->YK_ADOQuery->FieldByName("员工编号")->AsString+","+
Form1->YK_ADOQuery->FieldByName("员工姓名")->AsString;
SaveList->Add(str);
Form1->YK_ADOQuery->Next();
}
Form1->SaveExcel(SaveList,Dir.Trim()+FileName+"-"+datetime+".xls") ;
MessageDlg("导出完成",mtInformation,TMsgDlgButtons()<<mbOK,0);
delete SaveList;
}
else
return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmPelengCharacteristic::FormShow(TObject *Sender)
{
Caption = ProjectCaption + "Пеленгационные характеристики нормированной ДНА";
// --------
//!!!!!!!!!!!!!!!!!!!!!
/* egBeginTeta->Set_Gradus_Value(BeginTeta);
egEndTeta ->Set_Gradus_Value(EndTeta);
egTetaStep ->Set_Gradus_Value(TetaStep);*/
// --------
BitBtn1Click(Sender);
}
void __fastcall TForm9::BitBtn3Click(TObject *Sender)
{
if(Form38->IPTB=="0")
{
Form38->ClientSocket1->Active=false;
Form38->IPTB="1";
}
if(Form38->ClientSocket1->Active==false)
{
try
{
StatusBar1->Panels->Items[0]->Text="正在连接服务器";
Form38->ClientSocket1->Host=Form38->Edit2->Text.Trim();
Form38->ClientSocket1->Port=Form38->Edit3->Text.Trim().ToInt();
Form38->ClientSocket1->Active=true;
}
catch(...)
{
MessageDlg("服务器连接失败，请确认服务器是否开启，或者服务器信息是否设置成功",mtInformation,TMsgDlgButtons()<<mbOK,0);
}
}
if(Form38->TBdata!="0")
{
MessageDlg("有数据正在同步，请稍等",mtInformation,TMsgDlgButtons()<<mbOK,0);
return;
}
BitBtn1Click(Sender);
if(Form1->YK_ADOQuery->RecordCount==0)
{
MessageDlg("没有数据需要同步",mtInformation,TMsgDlgButtons()<<mbOK,0);
return;
}
if(mrYes!=MessageDlg("您将同步表格里边所有显示的数据，是否确定同步？",mtInformation,TMsgDlgButtons()<<mbYes<<mbNo,0))
{
return;
}
DBGrid1->Enabled=false;
Form38->sendnum=0;
Form38->runningnum=21;
Form38->TBdata="5";
Form38->Timer1->Enabled=true;
}
void __fastcall TForm9::Button1Click(TObject *Sender)
{
if(Form38->TBdata=="5")
{
ShowMessage("正在同步移库数据");
return;
}
if(CheckBox7->Checked==false||Edit6->Text.Trim().Length()==0)
{
ShowMessage("只能按照单据打印，请先填写单据号！");
return;
}
BitBtn1Click(Sender);
Form29->Show();
}
void __fastcall TForm12::Button1Click(TObject *Sender)
{
BitBtn1Click(Sender);
String Dir;
if(SelectDirectory("Directory Name","",Dir))
{
if(Dir.SubString(Dir.Length(),1)!="\\")
{
Dir=Dir+"\\";
}
try
{
TStringList *SaveList=new TStringList();
int selectnum=Form1->KC_ADOQuery->RecordCount;
String str="";
SaveList->Text="";
for(int i=0;i<selectnum;i++)
{
str="";
str=
Form1->KC_ADOQuery->FieldByName("条码")->AsString+","+
Form1->KC_ADOQuery->FieldByName("库存")->AsString+","+
Form1->KC_ADOQuery->FieldByName("仓库")->AsString;
SaveList->Add(str);
Form1->KC_ADOQuery->Next();
}
SaveList->Add("");
String FileName="DRKC";
SaveList->SaveToFile(Dir+FileName+".txt") ;
MessageDlg("导出成功",mtInformation,TMsgDlgButtons()<<mbOK,0);
delete SaveList;
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
else
return;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
BitBtn1Click(Sender);
}
