unitmain.pas

绿色衡器称重系统(串口）

 begin
  frmCarHistory:=TfrmCarHistory.Create(application);
  frmCarHistory.Show;
 end
 else
 begin
 frmCarHistory.Show;
 end;
 FHelper.Speak('此模块主要管理汽车最后一次称重的历史记录!','');
end;

procedure TfrmMain.ADOTable1AfterPost(DataSet: TDataSet);
begin
 if (Trim(DataSet.FieldByName('ChePai').AsString)='') and (Trim(DataSet.FieldByName('ChePaiN').AsString)='') and (Trim(DataSet.FieldByName('HuoPin').AsString)='') and (Trim(DataSet.FieldByName('HuoPin').AsString)='') and (Trim(DataSet.FieldByName('FaHuoDW').AsString)='') and (Trim(DataSet.FieldByName('ShouHuoDW').AsString)='') then
 begin
  adoTable1.Delete;
 end
 else
  if (Trim(DataSet.FieldByName('ChePai').AsString)='') or (Trim(DataSet.FieldByName('ChePaiN').AsString)='') and ((Trim(DataSet.FieldByName('HuoPin').AsString)='') and (Trim(DataSet.FieldByName('HuoPin').AsString)='') and (Trim(DataSet.FieldByName('FaHuoDW').AsString)='') and (Trim(DataSet.FieldByName('ShouHuoDW').AsString)='')) then
   begin
    adoTable1.Delete;
   end;
end;

procedure TfrmMain.N16Click(Sender: TObject);
begin
  if Not assigned(frmHuiZongRep) then
 begin
  frmHuiZongRep:=TfrmHuiZongRep.Create(application);
  frmHuiZongRep.Show;
 end
 else
 begin
 frmHuiZongRep.Show;
 end;
 FHelper.Speak('此模块主要对称重做汇总、统计、查询报表。!','');
end;

procedure TfrmMain.N19Click(Sender: TObject);
begin
 FHelper.Speak('关于本软件的一些相关信息。','');
   if Not assigned(frmAbout) then
 begin
  frmAbout:=TfrmAbout.Create(application);
  frmAbout.SHowModal;
 end
 else
 begin
 frmAbout.SHowModal;
 end;
end;

procedure TfrmMain.N21Click(Sender: TObject);
begin
ShellAbout ( Handle, '青岛东亚电子衡器有限公司', '青岛东亚电子衡器有限公司',Application.Icon.Handle );
end;

procedure TfrmMain.N22Click(Sender: TObject);
begin
  FHelper.Show(0);
end;

procedure TfrmMain.N23Click(Sender: TObject);
begin
 FHelper.Hide(0);
end;

procedure TfrmMain.dbcHPMCKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (Key=13) and (trim(dbcHPMC.Text)<>'') then
 begin
 dbcHPMC.DataSource.DataSet.FieldByName('HuoPin').AsString:=objFun.GetDictInfo('dHuoPin',Trim(dbcHPMC.Text));
 dbcFHDW.SetFocus;
 end
 else
 dbcHPMC.SetFocus;
end;

procedure TfrmMain.dbcCPHKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (Key=13) and (trim(dbcCPH.Text)<>'') then
 begin
  dbcCPH.DataSource.DataSet.FieldByName('ChePai').AsString:=objFun.GetDictInfo('dChePaiQ',Trim(dbcCPH.Text));
  dbcCPHN.SetFocus;
 end
 else
 dbcCPH.SetFocus;
end;

procedure TfrmMain.dbcCPHNKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (Key=13) and (trim(dbcCPHN.Text)<>'') then
 begin
  dbcHPMC.SetFocus;
 end
 else
 dbcCPHN.SetFocus;
end;

procedure TfrmMain.dbcFHDWKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key=13) and (trim(dbcFHDW.Text)<>'') then
 begin
  dbcFHDW.DataSource.DataSet.FieldByName('FaHuoDW').AsString:=objFun.GetDictInfo('dDanWei',Trim(dbcFHDW.Text));
  dbcSHDW.SetFocus;
 end
 else
 dbcFHDW.SetFocus;
end;

procedure TfrmMain.dbcSHDWKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key=13) and (trim(dbcSHDW.Text)<>'') then
 begin
  dbcSHDW.DataSource.DataSet.FieldByName('ShouHuoDW').AsString:=objFun.GetDictInfo('dDanWei',Trim(dbcSHDW.Text));
  BitBtn5.SetFocus;
 end
 else
 dbcSHDW.SetFocus;
end;

procedure TfrmMain.DBMemo1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (Key=13) and (Shift=[ssCtrl]) and (Trim(DBMemo1.Text)<>'') then
 begin
 BitBtn5.SetFocus;
 end
 else
  DBMemo1.SetFocus;
end;



procedure TfrmMain.N27Click(Sender: TObject);
begin
 FHelper.Speak('请注意平日备份数据库。','');
   if Not assigned(frmDataBaseSave) then
 begin
  frmDataBaseSave:=TfrmDataBaseSave.Create(application);
  frmDataBaseSave.SHow;
 end
 else
 begin
 frmDataBaseSave.SHow;
 end;
end;

procedure TfrmMain.N28Click(Sender: TObject);
begin
 FHelper.Speak('您打开了恢复数据库模块窗口。','');
   if Not assigned(frmDataBaseOpen) then
 begin
  frmDataBaseOpen:=TfrmDataBaseOpen.Create(application);
  frmDataBaseOpen.SHow;
 end
 else
 begin
 frmDataBaseOpen.SHow;
 end;
end;

procedure TfrmMain.N30Click(Sender: TObject);
var
 str:String;
 Reg:TRegistry;
begin
  Reg:=TRegistry.Create;
 if (N30.Checked) and (not N31.Checked) then
 begin
 FHelper.Speak('Windows启动后管理软件将自动启动!','');
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  str:='SOFTWARE\Microsoft\Windows\CurrentVersion\Run\';
  if  Reg.OpenKey(str,True) then
  begin
   Reg.WriteString('DYapp',application.ExeName);
  end;
  Reg.CloseKey;
 end
 else
 begin
 FHelper.Speak('Windows启动后管理软件将不会自动启动!','');
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  str:='SOFTWARE\Microsoft\Windows\CurrentVersion\Run\';
  if  Reg.OpenKey(str,True) then
  begin
   Reg.DeleteKey('DYapp');
  end;
  Reg.CloseKey;
 end;
   Reg.Free;
end;

procedure TfrmMain.N31Click(Sender: TObject);
var
 str:String;
 Reg:TRegistry;
begin
  Reg:=TRegistry.Create;
 if (N30.Checked) and (not N31.Checked) then
 begin
  FHelper.Speak('Windows启动后管理软件将自动启动!','');
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  str:='SOFTWARE\Microsoft\Windows\CurrentVersion\Run\';
  if  Reg.OpenKey(str,True) then
  begin
   Reg.WriteString('DYapp',application.ExeName);
  end;
  Reg.CloseKey;
 end
 else
 begin
  FHelper.Speak('Windows启动后管理软件将不会自动启动!','');
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  str:='SOFTWARE\Microsoft\Windows\CurrentVersion\Run\';
  if  Reg.OpenKey(str,True) then
  begin
   Reg.DeleteValue('DYapp');
  end;
  Reg.CloseKey;
 end;
   Reg.Free;
end;

procedure TfrmMain.N33Click(Sender: TObject);
begin
 FHelper.Speak('您打开了公司名称信息模块窗口。','');
   if Not assigned(frmCompany) then
 begin
  frmCompany:=TfrmCompany.Create(application);
  frmCompany.Show;
 end
 else
 begin
 frmCompany.Show;
 end;
end;

procedure TfrmMain.N35Click(Sender: TObject);
var
 Reg:TRegistry;
 str:String;
begin
try
 Reg:=TRegistry.Create;
if N35.Checked then
begin
 Reg.RootKey:=HKEY_LOCAL_MACHINE;
 str:='SOFTWARE\Microsoft\Windows\CurrentVersion\QDDYDZ\';
   if  Reg.OpenKey(str,True) then
  begin
   Reg.WriteString('nohelper','yes');
  end;
  Reg.CloseKey;
 FHelper.Hide(0);
end
else
begin
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
 str:='SOFTWARE\Microsoft\Windows\CurrentVersion\QDDYDZ\';
   if  Reg.OpenKey(str,True) then
  begin
   Reg.DeleteValue('nohelper');
  end;
  Reg.CloseKey;
 FHelper.Show(0);
end;
 Reg.Free;
except
end;
end;

procedure TfrmMain.SpeedButton1Click(Sender: TObject);
begin
WinExec('calc.exe',SW_SHOWNORMAL);
end;

procedure TfrmMain.N36Click(Sender: TObject);
begin
if not assigned(frmFieldManage) then
begin
 frmFieldManage:=TfrmFieldManage.Create(Application);
 frmFieldManage.ShowModal;
end
else
begin
 frmFieldManage.ShowModal;
end;
end;

procedure TfrmMain.controlDBGridFieldVisible;
var
 str:String;
 fini:TIniFile;
begin
 try
  str:=ExtractFilePath(Paramstr(0))+'FieldManage.dyh';
  fini:=TIniFile.Create(str);
  DBGrid1.Columns[0].Visible:=fini.ReadBool('FieldManage','ListID',DBGrid1.Columns[0].Visible);
  DBGrid1.Columns[1].Visible:=fini.ReadBool('FieldManage','ChePai',DBGrid1.Columns[1].Visible);
  DBGrid1.Columns[2].Visible:=fini.ReadBool('FieldManage','ChePaiN',DBGrid1.Columns[2].Visible);
  DBGrid1.Columns[4].Visible:=fini.ReadBool('FieldManage','FaHuoDW',DBGrid1.Columns[4].Visible);
  DBGrid1.Columns[3].Visible:=fini.ReadBool('FieldManage','ShouHuoDW',DBGrid1.Columns[3].Visible);
  DBGrid1.Columns[5].Visible:=fini.ReadBool('FieldManage','HuoPin',DBGrid1.Columns[5].Visible);
  DBGrid1.Columns[6].Visible:=fini.ReadBool('FieldManage','MaoZhong',DBGrid1.Columns[6].Visible);
  DBGrid1.Columns[7].Visible:=fini.ReadBool('FieldManage','MaoZhongRQ',DBGrid1.Columns[7].Visible);
  DBGrid1.Columns[8].Visible:=fini.ReadBool('FieldManage','PiZhong',DBGrid1.Columns[8].Visible);
  DBGrid1.Columns[9].Visible:=fini.ReadBool('FieldManage','PiZhongRQ',DBGrid1.Columns[9].Visible);
  DBGrid1.Columns[10].Visible:=fini.ReadBool('FieldManage','JingZhong',DBGrid1.Columns[10].Visible);
  DBGrid1.Columns[11].Visible:=fini.ReadBool('FieldManage','JingZhongRQ',DBGrid1.Columns[11].Visible);
  DBGrid1.Columns[12].Visible:=fini.ReadBool('FieldManage','SiBangYuan',DBGrid1.Columns[12].Visible);
  fini.Free;
 except
  DBGrid1.Columns[0].Visible:=True;
  DBGrid1.Columns[1].Visible:=True;
  DBGrid1.Columns[2].Visible:=True;
  DBGrid1.Columns[4].Visible:=True;
  DBGrid1.Columns[3].Visible:=True;
  DBGrid1.Columns[5].Visible:=True;
  DBGrid1.Columns[6].Visible:=True;
  DBGrid1.Columns[7].Visible:=True;
  DBGrid1.Columns[8].Visible:=True;
  DBGrid1.Columns[9].Visible:=True;
  DBGrid1.Columns[10].Visible:=True;
  DBGrid1.Columns[11].Visible:=True;
  DBGrid1.Columns[12].Visible:=True;
 end;
end;


end.