delphi物资管理系统文档格式.docx

delphi物资管理系统文档格式.docx

《delphi物资管理系统文档格式.docx》由会员分享，可在线阅读，更多相关《delphi物资管理系统文档格式.docx（27页珍藏版）》请在冰豆网上搜索。

3.1表设计

表1Material物资基本信息表

列名

数据类型

可否为空

说明

wzid

varchar

NOTNULL

物资编号

wzname

物资名称

wzspec

NOTNOT

规格型号

wzkind

NULL

类别

wzunit

计量单位

表2msave入库物资信息表

rkno

入库编号

rkid

入库物资编号

rkname

rkspec

rkkind

种类

rkunit

单位

rkaccount

numeric

数量

rkprice

单价

rkvalue

金额

rkdate

datetime

入库时间

rkdeal_person

经办人

rksave_person

保管人

rkbase

仓库

表3msurplus物资余额信息表

yeid

yename

yespec

yekind

yeunit

yeaccount

yevalue

yebase

yememo

text

备注

课程设计说明书NO.4

表4muse出库物资信息表

lyno

出库编号

lyid

出库物资编号

lyname

lyspec

lykind

lyunit

lyaccount

lyprice

lyvalue

lydate

出库时间

lyuse_person

lydeal_person

lybase

lymemo

3.2登录的界面

登录界面用于验证用户登录本系统。

图2登录的界面

部分代码如下：

var

LogoForm:

TLogoForm;

implementation

usesLoginUnit;

{$R*.dfm}

procedureTLogoForm.FormCreate（Sender:

TObject）;

课程设计说明书NO.5

begin

Foundwin:

=FindWindow（nil,'

物资管理系统-'

）;

//查找窗口

ifFoundwin<

>

0thenbegin

//调用Delphi自带的查询窗口函数，查找特定标题的窗体

//若找到则激活已运行的程序，同时结束自身

ShowWindow（Foundwin,SW_RESTORE）;

halt;

end;

end;

procedureTForm1.Button1Click（Sender:

begin

ifedit1.Text='

'

then

MessageDlg（'

请输入用户名！

mtInformation,[mbYes],0）;

exit;

ifedit2.Text='

请输入密码！

ifRadioButton2.Checkedthen

withADOQuery1do

Close;

SQL.Clear;

SQL.Add（'

select*fromT_userwhere（user_id=:

a）and（password=:

b）'

Parameters.ParamByName（'

a'

）.Value:

=Trim（Edit1.Text）;

b'

=Trim（Edit2.Text）;

Open;

end

else

SQL.Clear;

a）and（password=:

b）and（type=:

c）'

c'

=Trim（RadioButton1.Caption）;

ifADOQuery1.RecordCount>

0then

showMessage（'

登陆成功！

）;

form1.hide;

form2.show;

else

课程设计说明书NO.6

sql.Clear;

sql.Add（'

select*fromT_sellwhere'

sql.Add（Trim（ComboBox2.Text））;

='

:

）.value:

=Trim（edit2.Text）;

execsql;

ADOQuery1.Active:

=true;

Application.MessageBox（'

用户名或密码有误，请重新尝试！

'

提示'

MB_OK+MB_ICONWARNING）;

3.3主界面设计

主界面向用户展示本系统的各种主要功能。

图3主界面

unitMainUnit;

interface

uses

Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,

Dialogs,ExtCtrls,TFlatButtonUnit,TFlatPanelUnit,Menus,SHellapi,jpeg;

const

ChildFormNum=10;

课程设计说明书NO.7

type

TMainForm=class（TForm）

MainMenu1:

TMainMenu;

N62:

TMenuItem;

N63:

N64:

N65:

N66:

Image1:

TImage;

N32:

N1:

N2:

N3:

N4:

N5:

N6:

N7:

N8:

N9:

N15:

N16:

N19:

N11:

N20:

N21:

Timer1:

TTimer;

FlatButton1:

TFlatButton;

FlatButton2:

FlatButton3:

FlatButton4:

FlatButton5:

FlatButton6:

FlatButton7:

FlatButton8:

FlatButton10:

FlatButton11:

FlatButton12:

FlatButton13:

FlatButton9:

Panel1:

TPanel;

FlatPanel2:

TFlatPanel;

课程设计说明书NO.8

procedureFormCreate（Sender:

procedureFormShow（Sender:

procedureN6Click（Sender:

procedureN2Click（Sender:

procedureN3Click（Sender:

procedureFlatButton13Click（Sender:

procedureN4Click（Sender:

procedureN15Click（Sender:

procedureN16Click（Sender:

procedureN63Click（Sender:

procedureN64Click（Sender:

procedureN65Click（Sender:

procedureN66Click（Sender:

procedureN19Click（Sender:

procedureN20Click（Sender:

procedureN21Click（Sender:

procedureTimer1Timer（Sender:

procedureFlatButton10Click（Sender:

procedureFlatButton11Click（Sender:

procedureFlatButton12Click（Sender:

procedureN8Click（Sender:

procedureN9Click（Sender:

procedureFormCloseQuery（Sender:

TObject;

varCanClose:

Boolean）;

private

FirstTime:

Boolean;

vmo,vho,vso:

Real;

{Privatedeclarations}

public

QuanXian:

integer;

FName:

String;

{Publicdeclarations}

MainForm:

TMainForm;

PrintFile:

usesHUANYINUnit,DENLUUnit,BangZhuUnit,YHGLUnit,XGKLUnit,HYUnit,

KUUnit,CDUnit,BFHFUnit,FHXXUnit,SHXXUnit,HYDJUnit,DLUnit,

YWYUnit,KHFYUnit,DMUnit,PrintUnit,CallPrint,MonthUnit,YEARUnit;

{$R*.dfm}

procedureTMainForm.FormCreate（Sender:

课程设计说明书NO.9

i:

{ifdate>

strtodate（trim（'

2003-9-30'

））then

try

ShowMessage（'

本系统使用已到期,请注册!

Application.Terminate;

except

}

withMainForm.Image2.Canvasdo

Pen.Color:

=clwhite;

Pen.Style:

=psSolid;

Brush.Color:

Brush.Style:

=bsSolid;

Rectangle（0,0,width,Height）;

pen.Color:

=clBlack;

fori:

=1to12do

Pixels[17+Round（17*sin（i/12.0*2*pi））,17-round（17*cos（i/12.0*2*pi））]:

=clblack;

procedureTMainForm.FormShow（Sender:

DENLUForm:

=TDENLUForm.Create（Application）;

DENLUForm.ShowModal;

procedureTMainForm.N6Click（Sender:

BangZhuForm:

=TBangZhuForm.Create（Self）;

BangZhuForm.ShowModal;

procedureTMainForm.N2Click（Sender:

ifMainForm.QuanXian=2then

你的权限不够！

YHGLForm:

=TYHGLForm.Create（Self）;

YHGLForm.ShowModal;

课程设计说明书NO.10

procedureTMainForm.N3Click（Sender:

XGKLForm:

=TXGKLForm.Create（Self）;

XGKLForm.ShowModal;

procedureTMainForm.FlatButton13Click（Sender:

close;

procedureTMainForm.N4Click（Sender:

BFHFForm:

=TBFHFForm.Create（Self）;

BFHFForm.ShowModal;

procedureTMainForm.N15Click（Sender:

i,j:

Integer;

FindOne:

FindOne:

=False;

Fori:

=0toMDIChildCount-1do

Forj:

=0toChildFormNum-1do

ifMDIChildRen[i]isTFHXXFormthen

=True;

FHXXForm.Show;

Break;

ifnotFindOnethen

FHXXForm:

=TFHXXForm.Create（Self）;

procedureTMainForm.N16Click（Sender:

I,j:

课程设计说明书NO.11

ifMDIChildRen[i]isTSHXXFormthen

SHXXForm.Show;

SHXXFORM:

=TSHXXForm.Create（Self）;

procedureTMainForm.N63Click（Sender:

i,j:

ifMDIChildren[i]isTHYDJFormthen

HYDJForm.Show;

HYDJForm:

=THYDJForm.Create（Self）;

procedureTMainForm.N64Click（Sender:

IfMDIChildRen[i]isTKHFormthen

KHForm.Show;

课程设计说明书NO.12

3.4资金入账界面

资金入账界面用于用户向系统输入资金的入账的情况。

图4资金入账界面

部分代码如下：

objectHYDJForm:

THYDJForm

Left=42

Top=132

Width=1023

Height=516

Caption='

海运单价'

Color=clBtnFace

Font.Charset=DEFAULT_CHARSET

Font.Color=clWindowText

Font.Height=-11

Font.Name='

MSSansSerif'

OldCreateOrder=False

WindowState=wsMaximized

OnClose=FormClose

On