这是自带的一个例子，看懂这一点东西，基本的操作应该没问题了....
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XLSReadWriteII4, XLSFonts4, CellFormats4, BIFFRecsII4;
type
TfrmMain = class(TForm)
Label1: TLabel;
Button1: TButton;
edFilename: TEdit;
Button2: TButton;
Button3: TButton;
dlgSave: TSaveDialog;
XLS: TXLSReadWriteII4;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
procedure AddFormats;
public
{ Public declarations }
end;
var
frmMain: TfrmMain;
implementation
{$R *.dfm}
procedure TfrmMain.AddFormats;
begin
(*Format a single cell*)
(* 显示字符串 *)
XLS.Sheets[0].AsString[0,1] := 'Cell 1';
(* 字符串颜色 *)
XLS.Sheets[0].Cell[0,1].FillPatternForeColor := xcYellow;
(* 字体 *)
XLS.Sheets[0].Cell[0,1].FontStyle := [xfsBold,xfsItalic];
(*Format a number cell (3 decimals and thousand separator)
(* 格式化字符串，显示小数点后三位，千位和百位之间加个空格 *)
XLS.Sheets[0].AsFloat[0,0] := 12335985394.895634;
XLS.Sheets[0].Cell[0,0].NumberFormat := '# ##0.000';
(* Write a string cell. *)
XLS.Sheet[0].AsStringRef['C2'] := 'Hello';
(* 单元格赋值 *)
(* Set the font size of the cells in the area.
(* 改变区域内的字体大小 *)
XLS.Sheet[0].Range.Items[1,0,3,3].FontSize := 14;
(* Set the color of the cells. *)
(* 设置区域的颜色 *)
XLS.Sheet[0].Range.ItemsRef['B1:D4'].FillPatternForeColor := xcYellow;
(* Set a outline border. *)
(* 设置外框线的外形、颜色 *)
XLS.Sheet[0].Range.ItemsRef['B1:D4'].BorderOutlineStyle := cbsThick; (* Set color of the outline border. *)
XLS.Sheet[0].Range.ItemsRef['B1:D4'].BorderOutlineColor := xcRed; (* Make a copy of the cells. *)
(* 区域复制 *)
XLS.Sheet[0].Range.ItemsRef['B1:D4'].Copy(8,10);
(* Move the cells. *)
(* 区域移动 *)
XLS.Sheet[0].Range.ItemsRef['B1:D4'].Move(8,2);
end;
procedure TfrmMain.Button1Click(Sender: TObject);
begin
AddFormats;
XLS.Filename := edFilename.Text;
(* 保存文件 *)
XLS.Write;
end;
procedure TfrmMain.Button2Click(Sender: TObject);
begin
dlgSave.FileName := edFilename.Text;
if dlgSave.Execute then
edFilename.Text := dlgSave.FileName;
end;
procedure TfrmMain.Button3Click(Sender: TObject);
begin
Close;
end;
end.
/////////////////////////////////////////////////////////////////////////////////////
Delphi中使用XlsReadWriteII
在Delphi中读取Excel文件，使用CreateOleObject的方式挺讨厌的，一直搞不定，输出了文件之后，总会在系统中打开一个Excel，就算Quit也不行，一个程序中使用的多了，还不定搞出什么事情来。狠狠心找个其它的东西来代替，于是发现了XlsReadWriteII。使用之后发现这个东西真不错，简单好用。不管是读还是写均轻松搞定。下面是Demo中的代码。
写文件代码，包括对格式的定制：
XLS.Filename := 'FormatSample.xls';
XLS.Clear;
// Add format #0//先添加格式即ForMat:控件有一个默认的格式，序号为0，以后每添
加一个，序号就加1
with XLS.Formats.Add do begin
FontIndex := XLS.Fonts.AddIndex;
XLS.Fonts[FontIndex].Name := 'Courier new'; XLS.Fonts[FontIndex].Size := 14;
XLS.Fonts[FontIndex].Color := xcRed;
end;
// Add format #1
with XLS.Formats.Add do begin
FontIndex := XLS.Fonts.AddIndex;
XLS.Fonts[FontIndex].AssignTFont(Font); end;
// Add format #2
with XLS.Formats.Add do begin FillPatternForeColor := xcLilac;
end;
// Add format #3
with XLS.Formats.Add do begin BorderTopColor := xcBlue; BorderBottomColor := xcBlue; BorderTopStyle := cbsThin; BorderBottomStyle := cbsThick;
end;
// Add format #4
// ShortDateFormat is a Delphi global variable for the local date format.
with XLS.Formats.Add do begin
NumberFormat := ShortDateFormat;
end;
XLS.Sheets[0].WriteString(1,2,0,'Format #0');
XLS.Sheets[0].WriteString(1,3,1,'Format #1');
XLS.Sheets[0].WriteString(1,4,2,'Format #2');
XLS.Sheets[0].WriteString(1,5,3,'Format #3');
XLS.Sheets[0].WriteNumber(1,6,4,Date);
XLS.Write; //如果需要另存为一个文件，改FileName之后再写一次，如需更改工作簿的名称，设置Sheets[0].Name就可以了。
读取文件代码：
var
Col,Row: integer;
Sum: double;
begin
if edFilename.Text = '' then begin
ShowMessage('Filename is missing');
Exit;
end;
Sum := 0;
XLS.Filename := edFilename.Text;
XLS.Read; //此行不能省，否则读取不到数据
XLS.Sheets[0].LastCol := 255;
XLS.Sheets[0].LastRow := 65535;
for Col := XLS.Sheets[0].FirstCol to XLS.Sheets[0].LastCol do begin
for Row := XLS.Sheets[0].FirstRow to XLS.Sheets[0].LastRow do begin
if (Row < Grid.RowCount) and (Col < Grid.ColCount) then
Grid.Cells[Col + 1,Row + 1] := XLS.Sheets[0].AsFmtString[Col,Row];
if XLS.Sheets[0].CellType[Col,Row] = ctFloat then
Sum := Sum + XLS.Sheets[0].AsFloat[Col,Row];
end;
end;
lblSum.Caption := Format('The sum of all numeric cells are: %.2f',[Sum]); Grid.Invalidate;
end;
///////////////////////////////////////////////////////////////////////// XLsReadWrite 制作Excel时控制列的的格式
分类：delphi2011-08-06 14:35116人阅读评论(0)收藏举报最近研究下XlsReadWrite控件的使用。
其中，学会了在制作Excel时如何控制一整列的格式，如文本格式
先添加格式即ForMat:控件有一个默认的格式，序号为0，以后每添加一个，序号就加1 with XLS.Formats.Add do begin
FormatOptions := [foWrapText];
HorizAlignment := chaCenter;//对齐方式
NumberFormat := '@';//主要设置该属性的值
VertAlignment := cvaCenter;
end;
然后添加当前Sheet中列的格式，语句如下：
with XLS.Sheets[0].ColumnFormats.Add do
begin
Col1:=2;//起始列的位置
Col2:=3;//结束列的位置
FormatIndex:=4;//ForMat对应的序号
end;
///////////////////////////////////////////////////////////////
用XlsReadWrite控件的时候怎样合并单元格？
我查到了，XLSReadWriteII.Sheets[0].MergedCells.Add(Col1,Row1,Col2,Row2);
/////////////////////////////////////////////////////////////////////////////////
Delphi编程保存数据到Excel文件(3)：使用XLSReadWriteII控件
今天采用XLSReadWriteII控件来完成10×10的乘法表，发现它很灵活，实现的功能比较多，基本能满足所以的需求。
代码片断如下：
procedure TForm1.Button1Click(Sender: TObject);
Var
i,j:Integer;
begin
XLS.Sheets[0].Name:= 'Ten times table(乘法表)'; //给工作表命名
//General settings 常规的格式设置
With XLS.Sheet[0].Range.ItemsRef['B2:M14'] do begin
FontSize := 12;
FontStyle:= [xfsBold];
FillPatternForeColor := TExcelColor(45);
HorizAlignment:=chaCenter;
end;
//Title 标题
With XLS.Sheet[0].Range.ItemsRef['B2:M2'] do begin
Merged:=true;
HorizAlignment:=chaCenter;
FontSize := 14;
end;
XLS.Sheet[0].AsStringRef['B2'] := 'Ten Times Table(乘法表)';
//columns header 列头
With XLS.Sheet[0].Range.ItemsRef['C3:M3'] do begin FillPatternForeColor := TExcelColor(53); //Interior.ColorIndex := 53; FontColor := xcWhite;
end;
//rows header 行头
With XLS.Sheet[0].Range.ItemsRef['B4:B14'] do begin FillPatternForeColor := TExcelColor(53);
FontColor := xcWhite;
end;
//Table values 表内值
for j := 0 to 10 do begin //循环各列
//column header 列头(先列后行基于0开始)
XLS.Sheets[0].AsInteger[2+j, 2] := j;
//row header 行头(先列后行基于0开始)
XLS.Sheets[0].AsInteger[1,3+j]:= j;
//time table 表内值
for i := 0 to 10 do begin //循环各行
XLS.Sheets[0].AsInteger[2+j,3+i]:= i * j;
end;
end;
XLS.Filename := 'TenTimesTable.xls'; //保存到文件
XLS.Write;
MessageDlg('TenTimesTable.xls is created', mtInformation, [mbOk], 0); end;
/////////////////////////////////////////////////////////////////////////////////////////////
使用NativeExcel2控件
这个控件非常好，非常的简捷，尤其是Range对象操作使用起来非常方便，值得推荐。代码片断如下：
procedure TForm1.Button1Click(Sender: TObject);
Var Book: IXLSWorkbook; //申明工作薄
ws: IXLSWorksheet; //申明工作表
i, j: integer;
begin
//Create workbook 创建工作薄
Book := TXLSWorkbook.Create;
//Add new sheet 在工作薄中加一个新的工作表
ws := Book.Sheets.Add;
https://www.doczj.com/doc/be15772635.html, := 'Ten times table(乘法表)'; //给工作表命名
//General settings 常规的格式设置
With ws.Range['B2', 'M14'] do begin
Font.Size := 12;
Font.Bold := true;
ColumnWidth := 5.71;
Interior.ColorIndex := 45;
Borders.ColorIndex := xlColorIndexAutomatic;
HorizontalAlignment := xlHAlignCenter;
end;
//Title 标题
With ws.Range['B2', 'M2'] do begin
Merge(false);
Font.Size := 14;
Value := 'Ten Times Table(乘法表)';
end;
//columns header 列头
With ws.Range['C3', 'M3'] do begin
Interior.ColorIndex := 53;
Font.Color := clWhite;
end;
//rows header 行头
With ws.Range['B4', 'B14'] do begin
Interior.ColorIndex := 53;
Font.Color := clWhite;
end;
//Table values 表内值
for i := 0 to 10 do begin
//column header 列头
ws.Cells.Item[3, i + 3].Value := i;
//row header 行头
ws.Cells.Item[i + 4, 2].Value := i;
//time table 表内值
for j := 0 to 10 do begin //先行后列
ws.Range['C4', 'M14'].Item[i + 1, j + 1].Value := i * j;
end;
end;
Book.SaveAs('TenTimesTable.xls'); //保存到文件
MessageDlg('TenTimesTable.xls is created', mtInformation, [mbOk], 0); end;
/////////////////////////////////////////////////////////////////////
下面附带了我写的一个DBGridToExcel控件，功能是把DBGrid中的数据导出到Excel 中。大家可以学习一下，做为参考。为个控件中包括了使用属性，方法和我们将在下一篇中讲到的“事件”。
附1: 安装自制控件的方法：
(1).在Component菜单中，选择"Install Component...".
(2).在Unit File name 后面单击“..."，选择"*.pas"控件的单元文件，再点击OK。在出现的窗口中单击"install"，即安装完毕。
新装的控件即出现在你的面板中。
附2: TDBGridToExcel控件的全部源码，把它拷贝到记事本中，存为.pas文件即可。unit DBGridToExcel;
{********************************************************** *************}
{* *}
{* Export Grid To Word VCL Control for D5 & D6 *}
{* Copyright(C) xiangding 2003.10.1 All rights reserved *}
{* Bug Report: boyxd@https://www.doczj.com/doc/be15772635.html, *}
{* Author : 小熊*}
{* *}
{********************************************************** *************}
{* *}
{* This is a Simple Version *}
{* *}
{********************************************************** *************}
{* *}
{* Install: *}
{* Please Save as file GridToExcel.pas then open the file *}
{* Click the menu item [Component] --> [Install Component] *}
{* Click [Install] button in the Install Component dialog *}
{* after install ,you can find the control at component *}
{* page [sample] *}
{* *}
{********************************************************** *************}
{* *}
{* 安装：*}
{* 把附件保存，然后用Delphi打开这个GridToExcel.Pas文件，*}
{* 选择Delphi菜单--〉Component-->Install Component，*}
{* 然后选择Install即可。安装之后，在控件面板的Samples页面上面，*}
{* 熟悉之后，你可以试着设置一些复杂的属性，其他的自己摸索吧，*}
{********************************************************** *************}
interface
uses
Windows, StdCtrls, ComCtrls, Messages, DBGrids, Graphics, ExtCtrls, Forms, DB, ComObj, Controls, SysUtils, Classes;
ResourceString
SPromptExport = '请等待，正在导出数据……';
SConnectExcel = '正在启动Excel，请稍候……';
SConnectExcelError= '连接Excel失败，可能没有安装Excel,无法导出.'; SCancel = '取消(&C)';
SError = '错误';
SConfirm = '真的要终止数据的导出吗？';
SCaption = '确认';
SGridError = '没有指定数据集，请指定数据集控件！';
type
TDBGridToExcel = class(TComponent)
private
ProgressForm: TForm;
FShowProgress: Boolean;
ExcelApp : Variant;
FTitle: String;
Quit: Boolean;
FOnProgress: TNotifyEvent;
FGrid: TDBGrid; {The Source Grid}
ProgressBar: TProgressBar;
Prompt: TLabel;
FAutoExit: Boolean;
FAutoSize: Boolean;
FDBGrid: TDBGrid;
procedure SetShowProgress(const Value: Boolean);
procedure CreateProgressForm;
procedure ButtonClick(Sender: TObject);
Function ConnectToExcel: Boolean;
procedure ExportDBGrid;
{ Private declarations }
protected
{ Protected declarations }
public
Constructor Create(AOwner: TComponent); override;
Destructor Destroy(); override;
Procedure ExportToExcel; {Export Grid To Excel}
{ Public declarations }
published
{ Published declarations }
property DBGrid: TDBGrid read FDBGrid write FDBGrid;
property Title: String read FTitle write FTitle;
property ShowProgress: Boolean read FShowProgress write SetShowProgress;
property OnProgress: TNotifyEvent read FOnProgress write FOnProgress; end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TDBGridToExcel]);
end;
{ TDBGridToExcel }
procedure TDBGridToExcel.ButtonClick(Sender: TObject);
begin
Quit := MessageBox(ProgressForm.Handle, pchar(SConfirm), pchar(SCaption),
MB_OKCANCEL + MB_ICONINFORMATION) = IDOK;
end;
function TDBGridToExcel.ConnectToExcel: Boolean;
begin
Result := true;
Try
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Visible := False;
if Title<>'' then ExcelApp.Caption := Title;
ExcelApp.WorkBooks.Add;
except
MessageBox(GetActiveWindow,PChar(SConnectExcelError),PChar(SError), Mb_OK+MB_IconError);
result := false;
end;
end;
constructor TDBGridToExcel.Create(AOwner: TComponent);
begin
inherited;
FShowProgress := True; {Default value was Show the Progress} FAutoExit := False;
FAutoSize := True;
end;
procedure TDBGridToExcel.CreateProgressForm;
var
Panel : TPanel;
Button : TButton;
begin
if Assigned(ProgressForm) then exit; {Aready Create?} ProgressForm := TForm.Create(Owner);
With ProgressForm do
begin
https://www.doczj.com/doc/be15772635.html, := '宋体';
Font.Size := 10;
BorderStyle := bsNone;
Width := 280;
Height := 120;
BorderWidth := 1;
Color := clBackground;
Position := poOwnerFormCenter;
end;
Panel := TPanel.Create(ProgressForm);
with Panel do { Create Panel }
begin
Parent := ProgressForm;
Align := alClient;
BevelInner := bvNone;
BevelOuter := bvRaised;
Caption := '';
end;
Prompt := TLabel.Create(Panel);
with Prompt do { Create Label }
begin
Parent := Panel;
Left := 20;
Top := 25;
Caption := SConnectExcel;
end;
ProgressBar := TProgressBar.Create(panel);
with ProgressBar do { Create ProgressBar }
begin
Step := 1;
Parent := Panel;
Smooth := true;
Left := 20;
Top := 50;
Height := 18;
Width := 260;
end;
Button := TButton.Create(Panel);
with Button do { Create Cancel Button }
begin
Parent := Panel;
Left := 115;
Top := 80;
Caption := SCancel;
OnClick := ButtonClick;
end;
ProgressForm.Show;
ProgressForm.Update;
end;
destructor TDBGridToExcel.Destroy;
begin
inherited;
end;
procedure TDBGridToExcel.ExportDBGrid;
var
Data : TDataSet;
ADBGrid: TDBGrid;
i, j : integer;
CurrentPoint : Pointer;
OldBeforeScroll, OldAfterScroll: TDataSetNotifyEvent; begin
Screen.Cursor := crHourGlass;
try
try
TForm(Owner).Enabled := False;
ExcelApp.DisplayAlerts := false;
ExcelApp.ScreenUpdating := false;
Quit := false;
if ShowProgress then Prompt.Caption := SPromptExport;
ADBGrid := DBGrid;
Data := ADBGrid.DataSource.DataSet;
with ADBGrid do { Insert Table Header }
for i := 1 to Columns.Count do
if Columns[i - 1].Visible then
ExcelApp.Cells[1,i].Value :=Columns[i - 1].Title.Caption;
CurrentPoint := Data.GetBookmark; {Save Current Position} OldBeforeScroll := Data.BeforeScroll; { Save Old Before Scroll Event handle }
OldAfterScroll := Data.AfterScroll; { Save Old After Scroll Event Handle } Data.DisableControls; { Disable Control }
Data.BeforeScroll := nil;
Data.AfterScroll := nil;
if ShowProgress then ProgressBar.Max := Data.RecordCount;
i := 2;
Data.First;
while not Data.Eof do { Process All record }
begin
with ADBGrid do { Process one record }
for j := 1 to Columns.Count do
if Columns[j - 1].Visible then
ExcelApp.Cells[i,j].Value := Columns[j - 1].Field.DisplayText;
Inc(i);
Data.Next;
if Assigned(FOnProgress) then FOnProgress(Self);
if ShowProgress then { Update Progress UI }
begin
ProgressBar.StepIt;
Application.ProcessMessages;
if Quit then exit;
end;
end;
except
MessageBox(GetActiveWindow,PChar(SConnectExcelError),Pchar(SError), MB_OK+MB_ICONERROR);
end;
ExcelApp.Visible := False;
TForm(Owner).Enabled := True;
Screen.Cursor := crDefault;
if ShowProgress then FreeAndNil(ProgressForm); { Free Progress Form }
ExcelApp.DisplayAlerts := True;
ExcelApp.ScreenUpdating := True;
finally
Data.BeforeScroll := OldBeforeScroll; { Restore Old Event Handle } Data.AfterScroll := OldAfterScroll;
Data.GotoBookmark(CurrentPoint);
Data.FreeBookmark(CurrentPoint);
Data.EnableControls;
Screen.Cursor := crDefault;
end;
end;
procedure TDBGridToExcel.ExportToExcel;
begin
if DBGrid= nil then raise Exception.Create(SGridError); {No DataSource, then Error}
if ShowProgress then CreateProgressForm; {Whether or not Show the ProgressForm}
if not ConnectToExcel then { Exit when error occer }
begin
if ShowProgress then FreeAndNil(ProgressForm); {release form}
exit;
end;
ExportDBGrid; {begin Export Data}
end;
procedure TDBGridToExcel.SetShowProgress(const Value: Boolean); begin
FShowProgress := Value;
end;
end.
////////////////////////////////////////////////////////////////////////////
转载一个：
https://www.doczj.com/doc/be15772635.html,/delphibbs/dispq.asp?lid=1754027
{ 背景：今天要把DataSet导入Excel，查询以前的贴子，一部分用Ole，速度太慢，一部分用ADO连接到Excel文件，也很慢，一气之下把DBGrigEh的导出部分改了出来，
欢迎大家指教、改进。
功能：将数据集的数据导入Excel;
用法：With TDS2Excel.Create(TDataSet(ADOQuery1)) do
Try
Save2File(SaveDialog1.FileName, True);
finally
Free;
end;
作者：Caidao (核心代码来自Ehlib)
时间：2003-04-09
地点：汕头
}
unit UntObject;
interface
Uses
DB, Classes;
var
CXlsBof: array[0..5] of Word = ($809, 8, 0, $10, 0, 0); CXlsEof: array[0..1] of Word = ($0A, 00); CXlsLabel: array[0..5] of Word = ($204, 0, 0, 0, 0, 0); CXlsNumber: array[0..4] of Word = ($203, 14, 0, 0, 0); CXlsRk: array[0..4] of Word = ($27E, 10, 0, 0, 0); CXlsBlank: array[0..4] of Word = ($201, 6, 0, 0, $17); Type
TDS2Excel = Class(TObject)
Private
FCol: word;
FRow: word;
FDataSet: TDataSet;
Stream: TStream;
FWillWriteHead: boolean;
FBookMark: TBookmark;
procedure IncColRow;
procedure WriteBlankCell;
procedure WriteFloatCell(const AValue: Double); procedure WriteIntegerCell(const AValue: Integer); procedure WriteStringCell(const AValue: string); procedure WritePrefix;
procedure WriteSuffix;
procedure WriteTitle;
procedure WriteDataCell;
procedure Save2Stream(aStream: TStream);
Public
procedure Save2File(FileName: string; WillWriteHead: Boolean); Constructor Create(aDataSet: TDataSet);
end;
implementation
uses SysUtils;
Constructor TDS2Excel.Create(aDataSet: TDataSet);
begin
inherited Create;
FDataSet := aDataSet;
end;
procedure TDS2Excel.IncColRow;
begin
if FCol = FDataSet.FieldCount - 1 then
begin
Inc(FRow);
FCol :=0;
end
else
Inc(FCol);
end;
procedure TDS2Excel.WriteBlankCell;
begin
CXlsBlank[2] := FRow;
CXlsBlank[3] := FCol;
Stream.WriteBuffer(CXlsBlank, SizeOf(CXlsBlank)); IncColRow;
end;
procedure TDS2Excel.WriteFloatCell(const AValue: Double); begin
CXlsNumber[2] := FRow;
CXlsNumber[3] := FCol;
Stream.WriteBuffer(CXlsNumber, SizeOf(CXlsNumber)); Stream.WriteBuffer(AValue, 8);
IncColRow;
procedure TDS2Excel.WriteIntegerCell(const AValue: Integer); var
V: Integer;
begin
CXlsRk[2] := FRow;
CXlsRk[3] := FCol;
Stream.WriteBuffer(CXlsRk, SizeOf(CXlsRk));
V := (AValue shl 2) or 2;
Stream.WriteBuffer(V, 4);
IncColRow;
end;
procedure TDS2Excel.WriteStringCell(const AValue: string); var
L: Word;
begin
L := Length(AValue);
CXlsLabel[1] := 8 + L;
CXlsLabel[2] := FRow;
CXlsLabel[3] := FCol;
CXlsLabel[5] := L;
Stream.WriteBuffer(CXlsLabel, SizeOf(CXlsLabel));
Stream.WriteBuffer(Pointer(AValue)^, L);
IncColRow;
end;
procedure TDS2Excel.WritePrefix;
begin
Stream.WriteBuffer(CXlsBof, SizeOf(CXlsBof));
end;
procedure TDS2Excel.WriteSuffix;
begin
Stream.WriteBuffer(CXlsEof, SizeOf(CXlsEof));
end;
procedure TDS2Excel.WriteTitle;
var
n: word;
begin
for n := 0 to FDataSet.FieldCount - 1 do
WriteStringCell(FDataSet.Fields[n].FieldName);
procedure TDS2Excel.WriteDataCell;
var
n: word;
begin
WritePrefix;
if FWillWriteHead then WriteTitle;
FDataSet.DisableControls;
FBookMark := FDataSet.GetBookmark;
FDataSet.First;
while not FDataSet.Eof do
begin
for n := 0 to FDataSet.FieldCount - 1 do
begin
if FDataSet.Fields[n].IsNull then
WriteBlankCell
else begin
case FDataSet.Fields[n].DataType of
ftSmallint, ftInteger, ftWord, ftAutoInc, ftBytes:
WriteIntegerCell(FDataSet.Fields[n].AsInteger);
ftFloat, ftCurrency, ftBCD:
WriteFloatCell(FDataSet.Fields[n].AsFloat);
else
WriteStringCell(FDataSet.Fields[n].AsString);
end;
end;
end;
FDataSet.Next;
end;
WriteSuffix;
if FDataSet.BookmarkValid(FBookMark) then FDataSet.GotoBookmark(FBookMark);
FDataSet.EnableControls;
end;
procedure TDS2Excel.Save2Stream(aStream: TStream);
begin
FCol := 0;
FRow := 0;
Stream := aStream;
WriteDataCell;
end;
钢结构平台设计计算书 Prepared on 22 November 2020
哈尔滨工业大学（威海）土木工程钢结构课程设计计算书 姓名：田英鹏 学1 指导教师：钱宏亮 二零一五年七月 土木工程系
钢结构平台设计计算书 一、设计资料 某厂房内工作平台，平面尺寸为18×9m 2（平台板无开洞），台顶面标 高为 +，平台上均布荷载标准值为12kN/m 2，设计全钢工作平台。 二、结构形式 平面布置，主梁跨度9000mm ，次梁跨度6000mm ，次梁间距1500mm ，铺 板宽600mm ，长度1500mm ，铺板下设加劲肋，间距600mm 。共设8根柱。 图1 全钢平台结构布置图 三、铺板及其加劲肋设计与计算 1、铺板设计与计算 （1）铺板的设计 铺板采用mm 6厚带肋花纹钢板，钢材牌号为Q235，手工焊，选用E43 型焊条，钢材弹性模量25N/mm 102.06E ?=，钢材密度 33kg/mm 1085.7?=ρ。 （2）荷载计算 平台均布活荷载标准值： 212q m kN LK =
6mm 厚花纹钢板自重： 2D 0.46q m kN K = 恒荷载分项系数为，活荷载分项系数为。 均布荷载标准值： 2121246.0q m kN k =+= 均布荷载设计值： 235.174.1122.146.0q m kN k =?+?= （3）强度计算 花纹钢板0.25.26001500a b >==，取0.100α=，平台板单位宽度最大弯矩设计值为： （4）挠度计算 取520.110, 2.0610/E N mm β==? 设计满足强度和刚度要求。 2、加劲肋设计与计算 图2 加劲肋计算简图 （1）型号及尺寸选择 选用钢板尺寸680?—，钢材为Q235。加劲肋与铺板采用单面角焊缝，焊角尺寸6mm ，每焊150mm 长 度后跳开50mm 。此连接构造满足铺板与加 劲肋作为整体计算的条件。加劲肋的计算截面为图所示的T 形截面，铺板计算宽度为15t=180mm ，跨度为。 （2）荷载计算 加劲肋自重: m kN 003768.05.7866.008.0=?? 均布荷载标准值： m kN k 51.7003768.06.05.12q =+?= 均布荷载设计值： m kN d 455.1003768.02.16.035.17q =?+?= （3）内力计算 简支梁跨中最大弯矩设计值 支座处最大剪力设计值
身体仓库管理系统 1、模块说明：每个模块一般可分为六组：基本资料、日常作业、凭证打印、清单与报表、 批次处理、查询作业 1.1 基本资料：产品类别设定、编码原则设定、产品编码、仓别设定、单据性质设定 1.1.1 产品类别设定：此为后续报表数据收集索引和分类之依据 1.1.2 编码原则设定：据此不同公司可采取不同的分段和方式进行自动编码，包 括产品编码、供应商编码、客户资料编码、人员编码等， 都要依此进行自定义。 Eg: A 一般产品编码通用原则为：大分类(3码)+中分类(3码)+小分类(3码)+ 流水码(4码)，共计13码左右即可。 Eg: B 编码不必赋予太多特殊意义，亦造成编码上的混乱，以简单明了，易 识别为原则。 1.1.3 产品编码：包括基本项目、采购、生管、仓库、业务、品管、生产、财务 会计、其它，其可根据不同部门使用状况来分类定义，同 时便于基础资料的收集与输入，及日后使用之管理和维护。 1.1.4 仓别设定：此为各仓别属性设定之基础 1.1.5 单据性质设定：此为各“日常作业”之单据性质设定基础。 Eg：A库存异动单对库存的影响可分为：增加、减少 调拨单对库存的影响为：平调 成本开帐/调整单对成本的影响可分为：增加、减少 Eg：B可依不的部门或个人进行单据别的区别使用和管理。 Eg：C单据的编码方式：单别+单据号，或可采用自由编码的方式进行等 Eg：D单据表尾的备注与签核流程等。 Eg：E单据电脑审核流程。 1.2 日常作业：库存异动建立作业、调拨建立作业、成本开帐/调整建立作业、盘点资 料建立作业、批号管理建立作业、借入/出建立作业、借入/出还回作 业 1.2.1 库存异动建立作业：此单据适用于非生产性物料的异动(或增或减)，及库存 盘盈亏之调整用，如没有上线制令管理系统亦可通过 此作业进行库存异动作业。 1.2.2 调拨单建立作业：此单据适用于各仓之间的物料调拨之用，不对库存变化 产生影响。 1.2.3 成本开帐/调整建立作业：此单据适用于系统开帐之各仓库存成本资料的输 入，亦是日常“成本重计作业”所产生之单据。 1.2.4 盘点资料建立作业：此单据适用于盘点时库存数量之输入 1.2.5 批号管理建立作业：此单据适用于物料在产品生产过程中的使用和追溯的 管理，及先进先出原理 1.2.6 借入/出建立作业：此单据适用于所有借入/出作业记录之凭证 1.2.7 借入/出还回建立作业：此单据适用所有借入/出还回作业记录之凭证，如无 法归还之作业，则通过进货或销货来做关联性作 业。 1.3 凭证打印：库存异动单凭证、调拨单凭证、成本开帐/调整单凭证、盘点清单凭证、 批号管理凭证、借入/出凭证、借入/出还回凭证
完美破解爱普生墨盒芯片图文教程 当每一个人初踏这个门栏，尝试使用打印机的那一天，是多么希望得到帮助，得到指导，得到学习机会。就是已经取得比较成功的朋友，也会感到前面的道路还很漫长。我们也不要忘了这走过的路程中，取得的成绩，是千万喷友智慧的结晶，是众多朋友的支持。正因为这样，详细探讨喷墨打印机以及墨盒灌墨和连续供墨，大家共同参与，共同探讨，使用好手中武器，很有必要。一是为了提高，二是方便新手，三是便于查找。 墨盒芯片破解 一、对墨盒芯片的认识 二、墨盒无芯片的喷墨打印机在显示“墨尽”以后的处理办法 三、墨盒有芯片的喷墨打印机在显示“墨尽”以后的处理办法 （1）手工调换方法 （2）软件对墨盒芯片刷新。永久“满”的情况 （3）刷卡器。 （4）永久芯片。 （5）多方法的运用
一、对墨盒芯片的认识 近几年爱普生在新出的喷墨打印机中,几乎都在墨盒上面装了一个所谓“智能芯片”，又叫IC芯片，相似电话卡，记录墨水消耗量。最近几年先后推出的爱普生喷墨打印机（型号有680、790、870、875DC、890、895、810、830、830U、900、915、925、950、1270、1290、2100、C41、C60、C61、C63、C80等）全部都在墨盒上带有智能芯
梦话吸引 探花 帖子：539 关注：0 粉丝：0 精华：1 打印纸：1925 Z 币：31 ID ：jiarak 所在地：贵州 注册时间：2009-12-09 ? > 查看资料 ? > 所有帖子 ? 加为好友 ? 发短消息 只看该作者 1楼 沙发 发表于 2011-03-16 16:19:33 二、墨盒无芯片的喷墨打印机在显示“墨尽”以后的处理办法。 目前也还有一些机型（比如EX3、1520K 等）以及较早出厂的机型，其墨盒没有带芯片，这类墨盒不带芯片的打印机，在显示“墨尽”后只要按“换墨盒键”，墨车自动移出后，取出墨盒再装入，打印机就会认为“更换”了一个新墨盒。对于填充墨水比较方便，但是对于连续供墨就显得麻烦。 之所以说对于连续供墨就显得麻烦,主要是爱普生打印机一旦取下一次墨盒都很容易造成打印的断线,特别是在连续供墨后，墨盒上面满是墨水管线的情况下。 1、墨盒无芯片的喷墨打印机是如何检测墨盒中墨水是有还是没有。 将喷头拆开来研究，就会发现其实就是一个类似开关的弹簧片在起作用.
钢结构平台 设计说明书 设计： 校核： 太原市久鼎机械制造有限公司 二零一四年十月
目录 1．设计资料.......................................................................... . (3) 2．结构形式.......................................................................... . (3) 3．材料选择.......................................................................... (3) 4．铺板设计.......................................................................... . (3) 5．加劲肋设计.......................................................................... (5) 6．平台梁.......................................................................... .. (6) 次梁设计.......................................................................... (6) 主梁设 计 ......................................................................... .................... .. (7) 7．柱设计.......................................................................... .. (9) 8. 柱间支撑设置..........................................................................
1. GENEX Probe 3.5的使用： 1.1Probe主界面 其实大多数测试软件的内容都大同小异，只是显示方式不同，关注的指标基本相同；下图为GENEX Probe 3.5测试页面截图。 测试截图 1.1导航树 导航树位于主界面的左侧，提供了系统主要操作任务的快捷图标，包括4个页签：“Project”、“Control”、“Configuration”、“View”，如下图所示：
导航树截图 1.1.1“Project”页签 “Project”页签主要为工程相关项，主要用于新建及打开历史保存工程等，如下图所示： “Project”页签截图
1.1.2“Control”页签 “Control”页签为测试控制项内容 “Control”页签截图 1.1.3“Configuration”页签 “Configuration”页签为设备配置窗口，用于连接配置外接测试设备端口等；
“Configuration”页签截图 1.1.4“View”试图 “View”试图截图 1.2新建工程 新建工程需要根据测试网络的制式选择工程，对应会自动弹出相应的窗口，也可以新建空工程，根据需要自己选择关注窗口；
新建工程截图1
新建工程截图2 新建工程截图3 操作界面用于显示各种视图窗口及配置窗口，可以由多个工作表组成。您可以根据需要，添加多个工作表。右键单击图中的操作界面状态栏，在弹出的右键菜单中可以添加、删除、重命名工作表，如下图所示。 新建工程截图4 1.3外接测试设备连接 3.1在Probe Device Configure”对话框。 3.2选择一个已添加的外部设备。 3.3单击图标，检查该外部设备的端口是否可用。
仓库管理系统 ——使用手册
目录 第1章系统概述 (1) 1.1引言 (1) 1.2系统特点....................................................... 错误！未定义书签。第2章系统安装 ............................................ 错误！未定义书签。 2.1系统环境要求............................................... 错误！未定义书签。 2.2单机版的安装............................................... 错误！未定义书签。 2.3网络版的安装............................................... 错误！未定义书签。 2.3.1 程序包文件介绍....................................................... 错误！未定义书签。 2.3.2 数据库的安装与配置............................................... 错误！未定义书签。 2.3.3 客户端的安装与配置............................................... 错误！未定义书签。 2.4系统注册....................................................... 错误！未定义书签。第3章基本操作 (2) 3.1系统启动 (2) 3.2重新登录 (2) 3.3修改密码 (2) 3.4记录排序 (3) 3.5快速查找功能 (3) 3.7窗口分隔 (3) 3.8数据列表属性设置 (3) 3.9数据筛选 (4) 3.10数据导入 (4) 3.11报表设计 (5)
本软件针对压型钢板、铝合金板进行截面承载力、挠度、施工荷载及排水能力进行验算。在计算过程中，压型板按受弯构件考虑，主要遵循GB50018-2002《冷弯薄壁型钢结构技术规范》中关于压型钢板计算的条文规定、GB 50429-2007 《铝合金结构设计规范》中关于铝合金压型板相关的计算条文规定及《冷弯薄壁型钢结构设计手册》中关于屋面排水计算的相关条文。压型板截面计算过程中，考虑到其实际的受力情况，所以选择了在一个波距范围内进行验算。因为无论是屋面板、墙面板或者是楼承板其实际作用过程中，均是多块板横向搭接成为整体，所以选择其中一个波距来进行计算更贴近于压型板实际工作状态下的受力情况。压型板根据《建筑结构静力计算手册》计算各验算点的弯矩及剪力情况。 压型板的计算过程主要包含以下几个方面：毛截面惯性矩的计算、加劲肋是否有效的判别、腹板剪应力承载能力计算、支座处腹板局部受压承载力验算、跨中位置最大正负弯矩和剪力作用下截面承载力验算、支座位置最大负正弯矩和支座反力下截面承载力验算、最大正负挠度验算、屋面板排水能力验算。上述承载力验算过程中均包含该种情况下该位置的有效截面宽度的验算。 计算采用的组合情况如下： 1.2恒+1.4活； 1.0恒-1.4负风吸； 1.2恒+1.4正风压； 1.2恒+1.4活+0.84正风压； 1.0恒+1.4活-0.84负风吸； 1.2恒+0.98活+1.4正风压； 1.0恒+0.98活-1.4负风吸； 1.2恒+1.0施工（屋面板）； 1.2恒+1.4活载（楼面均布施工荷载）（楼承板）； 1.2恒+1.4施工（楼面集中施工荷载）（楼承板）。 一：压型钢板 一）板材力学参数的确定 对于规范中已给出抗拉、抗剪强度设计值的材料牌号，我们按规范中数值采用，如Q235、Q345等。对现今压型板常用的冷轧板牌号如G300、G550等，规范没有给出明确的抗拉、抗剪强度设计值，厂家在供货的时候仅提供材料的屈服强度为300 N/mm2、550 N/mm2，所以我们根据《冷弯薄壁型钢结构技 术规范》4.1.4条规定，取抗力分项系数，计算其抗拉强度设计值，抗剪强度设计值按抗拉强度设计值除以计。 二）截面惯性矩的计算 软件根据截面几何形状，通过线积分的方法求得截面的惯性矩。在计算过程中忽略了腹板上的一些加劲措施，但上下翼缘的加劲肋是考虑在其中的，其计算结果经过测试满足实际计算要求。用户也可以通过AutoCAD对需计算的板型直接查询面域特性得到截面惯性矩，并可与软件计算所得相比较。 三）上下翼缘加劲肋是否有效的判别 《冷弯薄壁型钢结构技术规范》7.1.4条，受压翼缘纵向加劲肋的规定： 因我们计算过程中取中间一个有效波距进行计算，所以无需考虑边加劲肋的作用效果，仅考虑中间加劲肋的判别。 针对中间加劲肋：
Assistant3.5后台操作指导 1 Assistant操作方法介绍 1.1 数据导入 首先必须确保Assistant版本为3.5或更新的版本，确保可以支持LTE数据分析功能。一般使用support网站发布的最新版本。其步骤如下 1.1.1新建工程 首先，如下图所示，新建工程，选择LTE，输入project名称，选择保存路径，采用默认设置则直接点击保存，若需要设置工程，则可点右边的Manage…来操作。 图1Assistant新建工程 1.1.2导入工参 操作步骤1： 按照下图所示，在左边导航树SITE下的LTE上点击右键，或菜单PROJECT下的站点图标LTE上点击，选择View Engineer Parameter，可打开导入工参对话框。
操作步骤2： 在弹出的“LTE Engineering Parameter”窗口中，单击打开按钮，在弹出的对话框中，打开工参表。 说明 建议按照Assistant的工参模板进行设置，如附件所示。
路测工具工参.xls 操作步骤三： 如果表格中所有的字段匹配，则可按导入按键将工程参数导入。如果表格中的字段没有匹配工程所需参数，则需在下图所示的窗口，右键单击不匹配的列头，选择“Required Fields”，选择匹配的字段，来逐一匹配缺少的工程参数字段。全部匹配完成后，单击，执行数据导入，导入完成后，站点数据会自动显示在地图上。 1.1.3导入地图 导入MapInfo地图和室内图片作为打点底图，操作如下： 在PROJECT菜单的导入地图或左边导航树上的MAP上右键，打开相应的对话框来导入室外或室内地图，通过，弹出打开文件对话框。
智能仓库管理系统 需求规格说明书 拟制：仇璐佳日期：2010年3月17日星期三审核：日期： 批准：日期： 文档编号：DATA-RATE-SRS-01 创建日期：2010-03-17 最后修改日期：2020-04-24 版本号：1.0.0 电子版文件名：智能仓库管理系统-需求规格说明书-
文档修改记录
基于web智能仓库管理系统详细需求说明书（Requirements Specification） 1．引言 1．1 编写目的 本系统由三大模块构成，分别是：系统设置，单据填开，库存查询。 其中： 系统设置包括：管理员的增加，修改，删除，以及权限管理；仓库内货物的基本资料的增加，修改，删除；工人，客户等的基本资料的增加，修改，删除。 单据填开模块包括：出库单，入库单，派工单，等单据的填开及作废操作。 库存查询系统包括：库存情况的查询，各项明细的查询，工人工资的查询，正在加工产品查询等。 报表导出模块包括：按月，按季度，按年的报表导出功能。 1．2 背景说明 (1)项目名称：基于web智能仓库管理系统 (2)项目任务开发者：东南大学成贤学院06级计算机（一）班仇璐佳，软件基本运行环境为Windows环境，使用MyEclipse7.1作为开发工具，使用struts2作为系统基本框架，Spring作为依赖注入工具，hibernate对MySql所搭建的数据库的封装，前台页面采用ext的js框架，动态能力强，界面友好。 (3)本系统可以满足一般企业在生产中对仓库管理的基本需求，高效，准确的完成仓库的进出库，统计，生产，制造等流程。 1．3 术语定义 静态数据－－系统固化在内的描述系统实现功能的一部分数据。
芯片解密方法概述 芯片解密(IC解密)，又称为单片机解密，就是通过一定的设备和方法，直接得到加密单片机中的烧写文件，可以自己复制烧写芯片或反汇编后自己参考研究。 目前芯片解密有两种方法，一种是以软件为主，称为非侵入型攻击，要借助一些软件，如类似编程器的自制设备，这种方法不破坏母片（解密后芯片处于不加密状态）；还有一种是以硬件为主，辅助软件，称为侵入型攻击，这种方法需要剥开母片（开盖或叫开封，decapsulation），然后做电路修改(通常称FIB：focused ion beam)，这种破坏芯片外形结构和芯片管芯线路只影响加密功能，不改变芯片本身功能。 单片机解密常用方法 单片机（MCU）一般都有内部ＲＯＭ／ＥＥＰＲＯＭ／ＦＬＡＳＨ供用户存放程序。为了防止未经授权访问或拷贝单片机的机内程序，大部分单片机都带有加密锁定位或者加密字节，以保护片内程序。如果在编程时加密锁定位被使能（锁定），就无法用普通编程器直接读取单片机内的程序，这就是所谓单片机加密或者说锁定功能。事实上，这样的保护措施很脆弱，很容易被破解。单片机攻击者借助专用设备或者自制设备，利用单片机芯片设计上的漏洞或软件缺陷，通过多种技术手段，就可以从芯片中提取关键信息，获取单片机内程序。因此，作为电子产品的设计工程师非常有必要了解当前单片机攻击的最新技术，做到知己知彼，心中有数，才能有效防止自己花费大量金钱和时间辛辛苦苦设计出来的产品被人家一夜之间仿冒的事情发生。 目前，单片机解密主要有四种技术，分别是： 一、软件攻击 该技术通常使用处理器通信接口并利用协议、加密算法或这些算法中的安全漏洞来进行攻击。软件攻击取得成功的一个典型事例是对早期ＡＴＭＥＬＡＴ８９Ｃ５１系列单片机的攻击。攻击者利用了该系列单片机擦除操作时序设计上的漏洞，使用自编程序在擦除加密锁定位后，停止下一步擦除片内程序存储器数据的操作，从而使加过密的单片机变成没加密的单片机，然后利用编程器读出片内程序。 目前在其他加密方法的基础上，可以研究出一些设备，配合一定的软件，来做软件攻击。 近期国内出现了了一种51单片机解密设备，这种解密器主要针对SyncMos. Winbond,在生产工艺上的漏洞,利用某些编程器定位插字节，通过一定的方法查找芯片中是否有连续空位,也就是说查找芯片中连续的FF FF字节，插入的字节能够执行把片内的程序送到片外的指令,然后用解密的设备进行截获,这样芯片内部的程序就被解密完成了。 二、电子探测攻击 该技术通常以高时间分辨率来监控处理器在正常操作时所有电源和接口连接的模拟特性，并通过监控它的电磁辐射特性来实施攻击。因为单片机是一个活动的电子器件，当它执行不同的指令时，对应的电源功率消耗也相应变化。这样通过使用特殊的电子测量仪器和数学统计方法分析和检测这些变化，即可获取单片机中的特定关键信息。 目前RF编程器可以直接读出老的型号的加密MCU中的程序，就是采用这个原理。
贝雷片-潮白新河钢栈桥及钢平台计算说明书
津汉高速公路工程1标段 潮白新河钢栈桥（贝雷架）计算说明书 工程名称：津汉高速公路工程1标段 编制单位：津汉高速公路工程1标段项目经理部 编制人： 技术负责人： 审批单位： 审批人： 中交一航局津汉高速公路工程1标段项目经理部 2011年12月27日
中交一航局津汉高速公路工程1标段项目经理部潮白新河特大桥钢栈桥计算说明书 目录 1、设计方案 (2) 2、施工方案 (2) 3、注意事项 (3) 4、栈桥检算 (3) 4.1、贝雷片纵梁检算 (5) 4.1.1、荷载计算： (5) 4.1.2、抗弯计算 (6) 4.1.3、抗剪计算 (6) 4.1.4、挠度计算 (6) 4.2、工字钢横梁检算 (7) 4.2.1、抗弯计算 (7) 4.2.2、抗剪计算 (7) 4.2.3、挠度计算 (7) 4.3、钢管桩检算 (7) 4.3.1、钢管桩承载能力检算 (7) 4.3.2、钢管桩摩擦力检算 (8) 4.3.3、钢管桩检算 (9) 1
1、设计方案 潮白新河为一级河道，主要功能为排洪、泄涝、供两岸工农业用水。据天津市宁车沽闸管理所工作人员介绍，当潮白新河水位达到2.9m时即开闸泄洪，以防止周围农田鱼塘等受灾害。综合考虑河道内现有水文地质情况及实际排洪、施工需要，根据现场地形，在潮白新河特大桥主河道范围内修筑钢栈桥便道。在15#～16#墩之间预留航道，设计栈桥长180m，顶宽6m，钢管桩顶高程2.5m，栈桥顶面高程3.77m。河滩部分采用山皮土便道连接钢栈桥与堤岸，便道宽6m。施工期间做好汛期施工工作，并注意加强对便道、栈桥的维修及保养。 全桥分为17跨，共设16个墩。桥梁跨度为第一跨和最后一跨为8m，从第二跨到第十六跨均为9m。桥宽6米，平台宽8米。 主栈桥两侧基础采用混凝土扩大基础，中间均采用钢管桩，钢管桩规格为直径600毫米、壁厚8毫米、长21米的钢管。每个墩设三根钢管桩作为基础。钢管桩顶采用三根45工字钢作为横梁。 副栈桥两侧基础采用混凝土扩大基，中间均采用钢管桩，钢管桩规格为直径600 毫米、壁厚8毫米、长21米的钢管。每个墩设四根钢管桩作为基础。钢管桩顶采用三根45工字钢作为横梁。 栈桥上部结构采用10排贝雷片作为纵梁，分为5组，用45厘米连接片进行连接，两侧纵梁之间采用90厘米连接片进行连接，以增强栈桥的整体稳定性。钢平台上部结构采用10排贝雷片作为纵梁，分为5组，用45厘米连接片进行连接，两侧纵梁之间采用90厘米连接片进行连接，以增强平台的整体稳定性。 桥面系满铺20cm的方木，桥面两侧设防护栏杆。 2 施工方案 （1）施工准备 使用50吨汽车吊装器材，同时在岸上拼装贝雷片，精确计算测量桥台及钢管桩的位置。（2）基础施工 陆地部分采用50吨吊车和10吨震动锤打设，水中墩部分通过测量定位安装导向架，
1引言 (2) 1.1编写目的 (2) 1.2背景 (2) 1.3定义 (3) 1.4参考资料 (3) 2任务概述 (3) 2.1目标 (3) 2.2用户的特点 (9) 2.3假定和约束 (9) 3需求规定 (9) 3.1对功能的规定 (9) 3.2对性能的规定 (9) 3.2.1精度 (9) 3.2.2时间特性要求 (9) 3.2.3灵活性 (9) 3.3输人输出要求 (9) 3.4数据管理能力要求 (10) 3.5故障处理要求 (10) 3.6其他专门要求 (10) 4运行环境规定 (11) 4.1设备 (11) 4.2支持软件 (11) 4.3接口 (11) 4.4控制 (11)
软件需求说明书 1引言 1.1编写目的 企业的物资供应管理往往是很复杂的，烦琐的。由于所掌握的物资种类众多，订货，管理，发放的渠道各有差异，各个企业之间的管理体制不尽相同，各类统计计划报表繁多，因此物资管理必须实现计算机化，而且必须根据企业的具体情况制定相应的方案。 根据当前的企业管理体制，一般物资供应管理系统，总是根据所掌握的物资类别，相应分成几个科室来进行物资的计划，订货，核销托收，验收入库，根据企业各个部门的需要来发放物资设备，并随时按期进行库存盘点，作台帐，根据企业领导和自身管理的需要按月，季度，年来进行统计分析，产生相应报表。为了加强关键物资，设备的管理，要定期掌握其储备，消耗情况，根据计划定额和实际消耗定额的比较，进行定额的管理，使得资金使用合理，物资设备的储备最佳。 所以一个完整的企业物资供应管理系统应该包括计划管理，合同托收管理，仓库管理，定额管理，统计管理，财务管理等模块。其中仓库管理是整个物资供应管理系统的核心。 开发本系统的目的在于代替手工管理、统计报表等工作，具体要求包括： 数据录入：录入商品信息、供货商信息、名片、入库信息、出库信息、退货信息等信息； 数据修改：修改商品信息、供货商信息、名片、帐号等信息； 统计数据：统计仓库里面的商品的数量，种类，并计算库存总价值； 数据查询：输入查询条件，就会得到查询结果； 数据备份：定期对数据库做备份，以免在数据库遇到意外破坏的时候能够恢复数据库，从而减少破坏造成的损失。
二、仓库信息管理系统分析与设计 （一）《仓库信息管理系统》的需求建模 1、需求分析 仓库信息管理系统要能完成以下功能： 仓库存放的货物品种繁多，堆存方式以及处理方式也非常复杂，随着业务量的增加，仓库管理者需要处理的信息量会大幅上升，因此往往很难及时准确的掌握整个仓库的运作状态。针对这一情况，为了减轻仓库管理员和操作员的工作负担，此系统在满足仓库的基本管理功能基础上发挥信息系统的智能化。 根据要求可将系统分为四个模块 （1）用户登录模块 普通操作员和管理人员登录此系统，执行仓库管理的一些操作，但是普通操作员和管理人员所能执行的功能不一样。 （2）仓库管理模块 管理员工作需要登陆系统，才能够进行操作，系统中的各项数据都不允许外人随便查看和更改，所以设置登陆模块是必须的。可以执行仓库进货，退货，领料，退料；商品调拨，仓库盘点等功能。（3）业务查询模块 在用户登录系统后，可以执行库存查询，销售查询，仓库历史记录查询。 （4）系统设置模块 显示当前仓库系统中的信息,在系统中可以执行供应商设置，仓库设置。 2、功能模块分析 （1）登录模块 ①普通操作员：显示当天仓库中的所有库存的信息。 ②管理员：修改仓库中的库存信息。 ③用户注销：在用户执行完仓库功能时，注销。 ④用户退出。 （2）管理模块 ①仓库库存的进货与退货； ②仓库中的库存需要领料和退料功能； ③仓库也可以完成不同地区的商品在此仓库的商品调拨任务； ④用户人员也可以在当天之后对仓库中的库存进行盘点。 （3）查询模块 ①显示当前仓库商品信息，并执行库存查询； ②显示仓库信息，对商品的销售量进行查询； ③此系统还可以对仓库历史记录进行查询。 （4）设置模块 ①供应商设置 ②仓库设置 3、工作内容及要求 ①进一步细化需求分析的内容，识别出系统的参与者，并完成用例图； ②将用例图中的每个用例都写成相应的事件流文档； ③进一步使用活动图来描述每个用例，为后续的系统设计做好准备；
单片机解密方法简单介绍 下面是单片机解密的常用几种方法,我们做一下简单介绍: 1：软解密技术，就是通过软件找出单片机的设计缺陷，将内部OTP/falsh ROM 或eeprom代码读出，但这种方法并不是最理想的，因为他的研究时间太长。同一系列的单片机都不是颗颗一样。下面再教你如何破解51单片机。 2：探针技术，和FIB技术解密，是一个很流行的一种方法，但是要一定的成本。首先将单片机的C onfig.(配置文件)用烧写器保存起来，用在文件做出来后手工补回去之用。再用硝酸熔去掉封装，在显微镜下用微形探针试探。得出结果后在显微镜拍成图片用FIB连接或切割加工完成。也有不用FIB用探针就能用编程器将程序读出。 3：紫外线光技术，是一个非常流行的一种方法，也是最简单的一种时间快、像我们一样只要30至1 20分钟出文件、成本非常低样片成本就行。首先将单片机的Config.(配置文件)用烧写器保存起来，再用硝酸熔去掉封装，在显微镜下用不透光的物体盖住OTP/falsh ROM 或eeprom处，紫外线照在加密位上10到120分钟，加密位由0变为1就能用编程器将程序读出。（不过他有个缺陷，不是对每颗OT P/falsh都有效） 有了以上的了解解密手段，我们开始从最简的紫外光技术，对付它： EMC单片机用紫外光有那一些问题出现呢？：OTP ROM 的地址(Address:0080H to 008FH) or (Address:0280h to 028FH) 即:EMC的指令的第9位由0变为1。因为它的加密位在于第9位，所以会影响数据。说明一下指令格式："0110 bbb rrrrrrr" 这条指令JBC 0x13,2最头痛,2是B，0X13是R。如果数据由0变为1后："0111 bbb rrrrrrr"变成JBS 0x13,2头痛啊，见议在80H到8FH 和280H到28FH多用这条指令。或用"润飞RF-2148"烧录，将IC的 CheckSum变为0000让解密者不知道内部的CheckSum值是多少。因为EMC的烧器会将这个Che ckSum值加上去，即讲给解密者内部CheckSum值是多少。RF-2148烧录器不过有点慢。刚才讲的是普通级的153,156,447,451,458等，但是N级即工业级的加密位在0,1，2位：0000000000XXX，X XX是加密位，见议在80H到8FH和280H到28FH用RETL @0x?? 这条指令,他的格式为：11100 rrrrrrrr。硬件方面加密看下面。 CYPRESS单片机用紫外光有那一些问题出现呢？：常见型号有63001、63723、、、影响数据出现
精心整理 支护计算书 一．设计资料 该项目的支护结构非主体结构的一部分；开挖深度为9.7m<10m；在等于开挖深度的水平距离内无临近建筑物。故可以认为该坑的安全等级为二级。重要性系数取γ0=1.0。 地面标高：-0.5m 基础底面标高：-10.2m 开挖深度：9.7m
2.支点力T c1 设支点位于地面以下4m ，即支点处标高为-4,5m 对反弯点处弯矩为0 3．嵌固深度h d 求最小h d ，用软件解如下方程 161.66*(x+5.7)+(29.45*x+41.04)*(x-1.8)*(x-1.8)/6+19.296*(x-1.39)-1.2*(15.19+275.74+4.125)*x-1.2*845.57=0 解得h d =7.500m 五．弯矩计算 119.73kP a
根据《建筑基坑支护技术规程》（JGJ120-99）的规定按下列规定计算其设计值： 截面弯矩设计值M M ＝1.25γ0M c 式中γ0——重要性系数，取1.0 1. 锚固点弯矩设计值 2. 剪力为0处弯矩设计值（开挖面上方） 设地面到该点距离为2h 3. 剪力为0处弯矩设计值（开挖面下方） 1231231.2.设锚杆锚固长度为10m ，其中点到地面距离为8.31m ，直径为14cm 。 水平分力kN T T c d 49.2425.115.1=?= 若取K=1.50，则 修正为12m 最后确定的锚固段长度为12m 。 3.钢拉杆截面选择 取361φ，则其抗拉强度设计值： 满足要求。 七．围檩受力计算 围檩受到拉锚和钢板桩传来作用力，可按简支梁计算。
选用两排[18的槽钢，333104.2411027.120mm W ?=??= 满足要求。 共需要376m 的[18热轧轻型槽钢。 七．抗倾覆验算 满足要求。
1引言 (3) 1.1编写目的 (3) 1.2背景 (3) 1.3定义 (3) 1.4参考资料 (3) 2程序系统的结构 (4) 3用户登录界面程序设计说明 (5) 3.1程序描述 (5) 3.2功能 (5) 3.3性能 (5) 3.4输人项 (6) 3.5输出项 (6) 3.6算法 (6) 3.7流程逻辑 (6) 3.8接口 (7) 3.9存储分配 (7) 4仓库管理模块（02）设计说明 (7) 4.1程序描述 (7) 4.2功能 (8) 4.3性能 (8) 4.4输人项 (8) 4.5输出项 (8) 4.6算法 (8) 4.7流程逻辑 (9) 4.8接口 (10) 5仓库查询模块（03）设计说明 (11) 5.1程序描述 (11) 5.2功能 (11) 5.3性能 (11) 5.4输人项 (11) 5.5输出项 (11) 5.6算法 (12) 5.7流程逻辑 (12) 6系统设置模块（04）设计说明 (13) 6.1程序描述 (13) 6.2功能 (13) 6.3性能 (13) 6.4输人项 (13) 6.5输出项 (13) 6.6算法 (14)
6.7流程逻辑 (14) 6.8接口 (14) 6.9测试计划 (14)
详细设计说明书 1引言 1.1编写目的 本文档为仓库管理系统详细设计文档(Design Document)，对作品进行系统性介绍，对使用的技术机制进行分析，对各个模块进行功能描述，并给出主要数据流程和系统结构 本文档的预期读者是本系统的需求用户、团队开发人员、相关领域科研人员 1.2背景 项目名称：仓库管理系统--详细设计说明书 项目任务开发者：大连交通大学软件学院R数学072班张同骥06，软件基本运行环境为Windows环境 1.3定义 Mysql：数据库管理软件 DBMS：数据库管理系统 Windows 2003/XP：运行环境 JSP ：软件开发语言 Myeclipse ：开发工具 1.4参考资料 《软件工程应用实践教程》清华大学出版社 《系统分析与设计》清华大学出版社 《数据库系统概论》高等教育出版社 《Windows网络编程》清华大学出版社 《VC技术》清华大学出版社
锁具修配行业专用IC卡读写器 本设备专为锁匠Mifare卡分析软件包定制，兼容著名的ACR122U读写器驱动。采用NXP出品的高集成度PN532读写芯片，符合ISO/IEC18092（NFC）标准，兼容ISO14443（Type A、Type B）标准。采用USB接口与电脑进行通讯及供电，不但可以读取符合Mifare标准的Classics（M1、M4、MUL）和DESFire 卡，还支持FeliCa卡等符合NFC规范的非接触式IC卡。 设备用途： 用于锁具修配行业在信息化时代的产业提升。可实现Mifare One卡（俗称M1卡、S50卡、IC卡）的复制、克隆功能。 同时亦可适用于：一卡通、门禁、停车场、自动贩卖机、电子钱包、电子商务、身份验证等多个领域，在住宅小区、写字楼、工厂、学校、医院等各行业中的非接触式IC卡应用。 设备特点： 1、USB 全速(12 Mbps) 2、支持USB 热插拔 3、双色LED状态指示灯 4、内置天线 5、NFC读写器 符合ISO/IEC18092 (NFC) 标准 以212 Kbps, 242Kbps速度读取NFC标签非接触式智能卡读写器 支持FeliCa卡 支持符合ISO 14443 标准的A类和B类卡 - MIFARE卡(Classics, DESFire) 符合CCID标准 6、用户可控蜂鸣器 7、SAM 卡槽(可选) 设备技术与指标：
1．MIFARE卡标准：13.56MHz 射频IC卡的接收和输出 2．读卡距离：3 ～8 CM 3．电源电压：DC 5V±5% 4．电源电流：≤65mA 5．工作环境：温度：-10℃～70℃湿度：10 ～90％RH 设备尺寸： 尺寸：124mm*78mm*31mm 重量：0.2kg IC卡读写器操作 连接读卡器到电脑的USB口上（最好连接到机箱后的USB口，以保证通讯稳定，供电正常）放置需要分析的Mifare 1 IC卡到读卡器上。正常情况下，读卡器会发出“滴”的一声，同时指示灯会由红转绿。如未发生上述变化，则说明放置的IC卡非Mifare 1兼容类型卡，设备无法识别。 软件操作： 首先我们要将软件压缩包下载到电脑的桌面，下载完成文件：然后将下载下来的文件右键解压出来,软件一定要解压出来，否则等下破解出来也没有文件生成！！！ 一、安装驱动程序： 首先在桌面找到“我的电脑”，或者是“计算机”，单击右键进入最下方的属性，查看系统版本，例如此系统为64位操作系统： ，那么我们就需要安装64位操作系统的驱动：
钢结构平台设计 一.设计题目 某车间工作平台 二.设计目的 《钢结构设计原理课程设计》是土木工程专业学生在学习《钢结构设计原理》课程后一个重要的综合实践性教学环节，目的是培养学生对钢结构的设计和应用能力。通过基本的设计训练，要求学生重点掌握结构内力计算、构件和节点设计及绘制钢结构施工图等专门知识，从而加深对钢结构设计原理基本理论和设计知识的认识，提高对所学知识的综合运用能力。 三.设计资料 不考虑水平向荷载。柱间支撑按构造设置。平台上三个有直径1m检修洞口，位置不限。平台顶面标高为6m,平台下净空至少4m,梁柱铰接连接。平台平面内不考虑楼梯设置。 2. 参考资料： 1）钢结构设计教材 2）钢结构设计规范 3）建筑结构荷载规范 4）钢结构设计手册 四.设计内容 1. 确定结构布置方案及结构布置形式 依题意并经综合比较，平台结构平面布置如图所示 2. 平台铺板设计 1.某冶炼车间检修平台，平台使用钢材材质、平面尺寸为15*15、活荷载为2 3 kN/m 。 a) c) 主梁 4m 主梁 次梁 次J 梁、 5x 3.6=18 H=
(1) 确定有关尺寸 铺板采用有肋铺板，板格尺寸为1000mm< 1500mm根据结构要求及荷载作用情况，取铺板厚6mm板肋尺寸为6mm< 60mm (2) 验算铺板的承载力和钢度 ①承载力验算计算铺板和钢肋的跨中最大弯矩 铺板自重标准值：q 7850 9.8 6 10 30.462kN / m2 板肋自重标准值：q 7850 9.8 6 60 10 60.0277kN/m 板面活荷载标准值：3kN/m 2 计算铺板跨中最大弯矩，铺板按四边简支平板计算： b/a 1500/1000 1.5 2.0 查表得：10.0812 2 铺板面荷载设计值q 1.2 0.462 1.4 3 4.7 54 kN /m 铺板单位宽度最大弯矩为M x 1qa30.0812 4.754 130.386kN ?m 因为b a,所以M x M y,那么M max M x 计算板肋的跨中最大 其中 2弯矩，可按两端只承在平台梁上的简支梁计算加劲肋承受的线荷载, 恒荷载标准值为: 0.462 1 0.0277 0.4897kN /m 活荷载标准值为: 3kN /m 加劲肋的跨中最大弯矩为: 1 2 8ql 1(1.2 0.4897 1.4 3) 1.52 1.347kN?m 8 验算铺板和加劲肋的计算强度 铺板截面的最大应力为s 6M max t2h 6 6210 6 0.38664.33MPa 2 215N /mm 加劲肋可考虑铺板30倍厚度的宽度参与截面共同工作，计算截面如图截面 面积 3-2所示。 6 A (90 2 6 60 6) 10 2 1440mm 截面形心轴到铺板的距离：y 180 6 3 60 6 36 11.25mm 180 8 60 6 0.01125m 截面对形心轴x的截面惯性矩： 632 l x 180 180 6 8.25 8 12 加劲肋截面最大应力为曲8 60 12 2 5 24.75 4.0527 10 mm 4 7 4 4.0527 10 m
（仓库管理）仓库管理系统软件设计说明书改后
仓库管理系统 软件设计说明书
目录 1. 介绍 (1) 1.1 目的 (1) 1.2 范围 (1) 1.3 定义、缩写词 (1) 1.4 内容概览 (1) 2. 体系结构表示方法 (1) 3. 系统要达到的目标和限制 (2) 4. 用例视图 (2) 4.1 系统用例图 (2) 4.2 产品类别 (3) 4.3 检索产品 (4) 4.4 产品详细 (5) 4.5 管理员注册 (6) 4.6 查看订单 (7) 4.7 下订单 (8) 4.8 管理员登录系统 (9) 4.9 管理员退出系统 (10) 4.10 日常管理 (11) 4.11 商品信息管理 (12) 4.12 供应信息管理 (12) 4.13 名片信息管理 (13) 4.14 配送状态处理 (14) 5. 逻辑视图 (16) 5.1 总览 (16) 5.2 主要Package的介绍 (17) 6. 过程视图 (19) 6.1 管理员盘点 (19) 6.2 产品管理 (20) 6.3 订单处理数据 (22) 6.4 仓库物流管理 (23)
6.5 管理员查询 (24) 7. 部署视图 (24) 8. 流程逻辑 (25) 9. 规模和性能 (26) 10. 质量 (26)
软件设计说明书 1. 介绍 1.1 目的 本文档为仓库管理系统详细设计文档(Design Document)，对作品进行系统性介绍，对使用的技术机制进行分析，对各个模块进行功能描述，并给出主要数据流程和系统结构 本文档的预期读者是本系统的需求用户、团队开发人员、相关领域科研人员 1.2 范围 对作品进行系统性介绍，对使用的技术机制进行分析，对各个模块进行功能描述，并给出主要数据流程和系统结构 1.3 定义、缩写词 Mysql：数据库管理软件 DBMS：数据库管理系统 Windows 2003/XP：运行环境 JSP ：软件开发语言 Myeclipse ：开发工具 1.4 内容概览 ?仓库管理系统 管理员将各项产品进行编排设备号，位置号，从而有效划分区域管理 ?设置系统 设置各项分类的标签，便于其他人进行查询及复查 ?仓库查询系统 进入系统后客户或者管理员有效快捷查询产品各项目录 ?用户登录系统 用户如果要进行查询操作，需要输入正确的用户名和密码，如果输入错误，则停留在登录页； 2. 体系结构表示方法 这篇文档使用一系列视图反映系统架构的某个方面； 用例视图：概括了架构上最为重要的用例和它们的非功能性需求； 逻辑视图：展示了描述系统关键方面的重要用例实现场景(使用交互图)； 部署视图：展示构建在处理节点上的物理部署以及节点之间的网络配置(使用部署图)；