?? ywgl_pxgl_bjform.pas
字號:
unit YWGL_PXGL_BJFORM;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Grids, ExtCtrls, Db, ADODB, DBGrids;
type
TYWGL_PXGL_BJ = class(TForm)
BitBtn1: TBitBtn;
Edit1: TEdit;
Edit2: TEdit;
StringGrid1: TStringGrid;
Label1: TLabel;
Label2: TLabel;
Bevel1: TBevel;
ADOTable1: TADOTable;
Label4: TLabel;
Shape1: TShape;
ADOTable1DSDesigner: TStringField;
ADOTable1DSDesigner2: TStringField;
ADOTable1DSDesigner3: TStringField;
ADOTable1DSDesigner4: TStringField;
ADOTable1DSDesigner5: TStringField;
ADOTable1DSDesigner6: TIntegerField;
ADOTable1DSDesigner7: TBCDField;
ADOTable1DSDesigner8: TBCDField;
ADOTable1DSDesigner9: TIntegerField;
ADOTable1DSDesigner10: TIntegerField;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ADOTable2: TADOTable;
ADOTable3: TADOTable;
ADOTable2DSDesigner: TDateTimeField;
ADOTable2DSDesigner2: TStringField;
ADOTable2DSDesigner3: TStringField;
ADOTable2DSDesigner4: TStringField;
ADOTable2DSDesigner5: TStringField;
ADOTable2DSDesigner6: TStringField;
ADOTable2DSDesigner7: TIntegerField;
ADOTable2DSDesigner8: TBCDField;
ADOTable2DSDesigner9: TStringField;
ADOTable2DSDesigner10: TBCDField;
ADOTable2DSDesigner11: TStringField;
ADOTable2DSDesigner12: TStringField;
ADOTable2DSDesigner13: TStringField;
ADOTable3DSDesigner: TDateTimeField;
ADOTable3DSDesigner2: TStringField;
ADOTable3DSDesigner3: TStringField;
ADOTable3DSDesigner4: TStringField;
ADOTable3DSDesigner5: TStringField;
ADOTable3DSDesigner6: TStringField;
ADOTable3DSDesigner7: TIntegerField;
ADOTable3DSDesigner8: TIntegerField;
ADOTable3DSDesigner9: TBCDField;
ADOTable3DSDesigner10: TBCDField;
ADOTable3DSDesigner11: TStringField;
ADOTable3DSDesigner12: TBCDField;
ADOTable3DSDesigner13: TIntegerField;
ADOTable3DSDesigner14: TStringField;
ADOTable3DSDesigner15: TStringField;
ADOTable3DSDesigner16: TStringField;
ADOTable2DSDesigner14: TStringField;
ADOTable1DSDesigner11: TStringField;
ADOTable3DSDesigner17: TStringField;
ADOQuery1: TADOQuery;
Edit3: TEdit;
procedure BitBtn1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure StringGrid1GetEditMask(Sender: TObject; ACol, ARow: Integer;
var Value: String);
procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);
procedure StringGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBGrid1DblClick(Sender: TObject);
procedure StringGrid1Click(Sender: TObject);
procedure Edit3Change(Sender: TObject);
private
beix,beiy:integer;
{ Private declarations }
public
{ Public declarations }
end;
var
YWGL_PXGL_BJ: TYWGL_PXGL_BJ;
implementation
uses YWGL_PXGLFORM;
{$R *.DFM}
procedure TYWGL_PXGL_BJ.BitBtn1Click(Sender: TObject);
begin
stringgrid1.Row:=stringgrid1.Row+1;
close;
end;
procedure TYWGL_PXGL_BJ.FormShow(Sender: TObject);
var i,x:integer;
begin
for i:=1 to 20 do begin
stringgrid1.Cells[0,i]:=inttostr(i);
for x:=1 to 8 do begin
stringgrid1.Cells[x,i]:='';
end;
end;
stringgrid1.cells[1,0]:='物品名稱';
stringgrid1.cells[2,0]:='型號';
stringgrid1.cells[3,0]:='單位';
stringgrid1.cells[4,0]:='數量';
stringgrid1.cells[5,0]:='單價';
stringgrid1.cells[6,0]:='金額';
stringgrid1.cells[7,0]:='損耗';
end;
procedure TYWGL_PXGL_BJ.StringGrid1GetEditMask(Sender: TObject; ACol,
ARow: Integer; var Value: String);
var i:integer; strbj:string; strji:double;
begin
strbj:='';
strji:=0;
If beiy <> ARow Then begin
for i:=1 to 20 do begin
if stringgrid1.cells[1,i]<>'' then begin
strbj:=strbj+stringgrid1.cells[1,i]+stringgrid1.cells[4,i]+
stringgrid1.cells[3,i]+'('+stringgrid1.cells[6,i]+'元);';
strji:=strji+strtofloat(stringgrid1.cells[6,i]);
end;
end;
edit1.text:=strbj;
edit2.text:=floattostr(strji);
end;
beix:=acol;
beiy:=arow;
end;
procedure TYWGL_PXGL_BJ.StringGrid1KeyPress(Sender: TObject; var Key: Char);
var i:integer;
begin
if stringgrid1.Cells[1,beiy-1]='' then begin
key:=#0;
end else begin
case beix of
1: begin
dbgrid1.Visible:=true;
if stringgrid1.cells[1,beiy]<>'' then begin
if key=#13 then begin
stringgrid1.cells[1,beiy]:=adotable1.fieldbyname('物品名稱').asstring;
stringgrid1.cells[2,beiy]:=adotable1.fieldbyname('型號').asstring;
stringgrid1.cells[3,beiy]:=adotable1.fieldbyname('單位').asstring;
stringgrid1.Cells[4,beiy]:='0';
stringgrid1.cells[5,beiy]:='0';
stringgrid1.cells[6,beiy]:='0';
stringgrid1.cells[7,beiy]:='0';
stringgrid1.col:=4;
dbgrid1.Visible:=false;
end else begin
adotable1.locate('物品名稱',stringgrid1.cells[1,beiy],[loPartialKey]);
end;
end;
end;
2: begin
if key=#13 then stringgrid1.col:=stringgrid1.col+1 else key:=#0;
end;
3: begin
if key=#13 then stringgrid1.col:=stringgrid1.col+1 else key:=#0;
end;
4: begin
if key=#13 then begin
if stringgrid1.Cells[4,beiy]='' then stringgrid1.Cells[4,beiy]:='0';
if stringgrid1.cells[5,beiy]='' then stringgrid1.cells[5,beiy]:='0';
if strtoint(stringgrid1.cells[4,beiy])>adotable1.FieldByName('數量').asinteger then begin
showmessage('該備件數量以不足,請從新添加.');
exit;
end;
if adotable1.FieldByName('數量').asinteger<adotable1.fieldbyname('提示下限').asinteger then begin
showmessage('該備件數量以低于'+adotable1.fieldbyname('提示下限').asstring+',請三思.');
end;
stringgrid1.Cells[6,beiy]:=floattostr(strtofloat(stringgrid1.cells[4,beiy])*
strtofloat(stringgrid1.cells[5,beiy]));
stringgrid1.col:=stringgrid1.col+1;
end else begin
if key<>#8 then begin
if (key>'9') or (key<'0') then key:=#0;
end ;
end;
end;
5: begin
if key=#13 then begin
if stringgrid1.Cells[4,beiy]='' then stringgrid1.Cells[4,beiy]:='0';
if stringgrid1.cells[5,beiy]='' then stringgrid1.cells[5,beiy]:='0';
stringgrid1.Cells[6,beiy]:=floattostr(strtofloat(stringgrid1.cells[4,beiy])*
strtofloat(stringgrid1.cells[5,beiy]));
stringgrid1.col:=stringgrid1.col+1;
end else begin
if key<>#8 then begin
if key='.' then begin
for i:=1 to length(stringgrid1.cells[beix,beiy]) do begin
if stringgrid1.Cells[beix,beiy][i]='.' then key:=#0;
end;
end else begin
if (key>'9') or (key<'0') then
key:=#0;
end;
end;
end;
end;
6: begin
if key=#13 then begin
stringgrid1.Col:=stringgrid1.Col+1;
end else begin
key:=#0;
end;
end;
7: begin
if key=#13 then begin
stringgrid1.Col:=1;
stringgrid1.Row:=stringgrid1.Row+1;
end else begin
if key<>#8 then begin
if (key>'9') or (key<'0') then key:=#0;
end;
end;
end;
end;
end;
end;
procedure TYWGL_PXGL_BJ.StringGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case beix of
1: begin
If dbgrid1.Visible Then begin
if key=$26 then begin
adotable1.Prior;
stringgrid1.Cells[1,beiy]:=adotable1.fieldbyname('物品名稱').asstring;
key:=$0;
end;
if key=$28 then begin
adotable1.next;
stringgrid1.Cells[1,beiy]:=adotable1.fieldbyname('物品名稱').asstring;
key:=$0;
end;
if key=$27 then begin
dbgrid1.Visible:=false;
stringgrid1.Cells[1,beiy]:='';
stringgrid1.cells[2,beiy]:='';
stringgrid1.cells[3,beiy]:='';
end;
end;
end;
end;
end;
procedure TYWGL_PXGL_BJ.DBGrid1DblClick(Sender: TObject);
begin
stringgrid1.cells[1,beiy]:=adotable1.fieldbyname('物品名稱').asstring;
stringgrid1.cells[2,beiy]:=adotable1.fieldbyname('型號').asstring;
stringgrid1.cells[3,beiy]:=adotable1.fieldbyname('單位').asstring;
stringgrid1.Cells[4,beiy]:='0';
stringgrid1.cells[5,beiy]:='0';
stringgrid1.cells[6,beiy]:='0';
stringgrid1.cells[7,beiy]:='0';
stringgrid1.col:=4;
dbgrid1.Visible:=false;
end;
procedure TYWGL_PXGL_BJ.StringGrid1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From 備件庫存');
ADOQuery1.SQL.Add('Where 編號'+' Like'''+ stringgrid1.cells[1,1] +'%''');
ADOQuery1.Open;
IF StringGrid1.Col=1 THEN DBGrid1.Visible:=True;
end;
procedure TYWGL_PXGL_BJ.Edit3Change(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From 備件庫存');
ADOQuery1.SQL.Add('Where 編號'+' Like'''+ stringgrid1.cells[1,1] +'%''');
ADOQuery1.Open;
IF STRINGGRID1.Col=1 THEN DBGrid1.Visible:=True;
end;
End
.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -