【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供Fjhd.pas参考,解决您在Fjhd.pas学习中工作中的难题,参考学习。
unit Fjhd;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Fbase, StdCtrls, Buttons, Grids, ExtCtrls, ComCtrls, DB, ADODB;
type
TF_jhd = class(TF_base)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
StringGrid1: TStringGrid;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
SpeedButton3: TSpeedButton;
Label6: TLabel;
Edit6: TEdit;
Label7: TLabel;
Panel1: TPanel;
DateTimePicker1: TDateTimePicker;
ADOQuery1: TADOQuery;
procedure SpeedButton3Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure StringGrid1Click(Sender: TObject);
procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);
procedure getspbh(sender:Tobject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure StringGrid1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit4KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure StringGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F_jhd: TF_jhd;
spbh:string;
strdbrows:integer;
implementation
uses Fkcspxz,Fghdw,Fjsr,Fdm,Fzct;
{$R *.dfm}
procedure TF_jhd.getspbh(sender:Tobject); //得到进货单编号
begin
adoquery1.Last;
if adoquery1.RecordCount=0 then
spbh:=formatdatetime('yyyymmdd',datetimepicker1.Date)+'JH'+formatfloat('0000000',1)
else
spbh:=formatdatetime('yyyymmdd',datetimepicker1.Date)+'JH'+formatfloat('0000000',strtoint(copy(adoquery1.Fields[1].asstring,11,7))+1);
end;
procedure TF_jhd.SpeedButton3Click(Sender: TObject);
begin
inherited;
Application.CreateForm(TF_kcspxz, F_kcspxz);
F_kcspxz.ShowModal;
F_kcspxz.Free;
end;
procedure TF_jhd.FormShow(Sender: TObject);
begin
inherited;
F_zct.wf:=1;
DateTimePicker1.Date:=now();
with F_jhd.StringGrid1 do
begin
Cells[1,0]:='商品编号';
Cells[2,0]:='商品全称';
Cells[3,0]:='商品型号';
Cells[4,0]:='商品规格';
Cells[5,0]:='单位';
Cells[6,0]:='产地';
Cells[7,0]:='数量';
Cells[8,0]:='进货价';
Cells[9,0]:='金额';
end;
with adoquery1 do
begin
close;
SQl.Clear;
SQl.Add('select * from tb_warehouse_main');
Open;
end;
F_jhd.getspbh(sender);
Edit2.Text:=spbh;
end;
procedure TF_jhd.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
inherited;
if (Acol=7) or (Acol=8) then
stringgrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goEditing]
else
stringgrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect];
end;
procedure TF_jhd.SpeedButton1Click(Sender: TObject);
begin
inherited;
Application.CreateForm(TF_ghdw, F_ghdw);
F_ghdw.ShowModal;
F_ghdw.Free;
end;
procedure TF_jhd.SpeedButton2Click(Sender: TObject);
begin
inherited;
Application.CreateForm(TF_jsr, F_jsr);
F_jsr.ShowModal;
F_jsr.Free;
end;
procedure TF_jhd.StringGrid1Click(Sender: TObject);
var
xh:integer;
begin
inherited;
for xh:=1 to F_jhd.StringGrid1.RowCount do
begin
if (Trim(StringGrid1.Cells[1,xh])<>''