?? pfm_jhd2.pas
字號:
unit pfm_jhd2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, Grids, DBGrids, StdCtrls, Mask, DBCtrls, Buttons, ComCtrls,
pfm_jhdsel, ExtCtrls, ADODB, pvar_lib;
type
Tfm_jhd2 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
GroupBox1: TGroupBox;
Label4: TLabel;
Label12: TLabel;
Label13: TLabel;
Label18: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DBEdit18: TDBEdit;
DBEdit23: TDBEdit;
DBEdit24: TDBEdit;
DBEdit25: TDBEdit;
DBEdit26: TDBEdit;
DBEdit27: TDBEdit;
DBEdit28: TDBEdit;
DBEdit29: TDBEdit;
DBEdit30: TDBEdit;
DBEdit31: TDBEdit;
DBEdit32: TDBEdit;
GroupBox2: TGroupBox;
Label1: TLabel;
Label5: TLabel;
Label16: TLabel;
Label11: TLabel;
Label21: TLabel;
Label20: TLabel;
Label22: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Query3: TQuery;
Query3spbm: TStringField;
Query3sptxm: TStringField;
Query3spmc: TStringField;
Query3ggxh: TStringField;
Query3dengji: TStringField;
Query3zhuangtai: TStringField;
Query3baozhuangdw: TStringField;
Query3baozhuangsl: TStringField;
Query3hh: TStringField;
Query3gysmc: TStringField;
Query3cd: TStringField;
Query3xsfs: TStringField;
Query3wsjj: TFloatField;
Query3jhsl: TFloatField;
Query3wsdj: TFloatField;
Query3xssl: TFloatField;
Query3yhl: TFloatField;
Query3splb: TStringField;
DataSource3: TDataSource;
BitBtn_quit: TBitBtn;
GroupBox3: TGroupBox;
LView1: TListView;
Panel1: TPanel;
Edit11: TEdit;
Label2: TLabel;
Label3: TLabel;
Edit12: TEdit;
Label6: TLabel;
Edit13: TEdit;
Query1: TQuery;
Label15: TLabel;
Edit7: TEdit;
Label14: TLabel;
Edit5: TEdit;
Label17: TLabel;
Edit6: TEdit;
lbltishi: TLabel;
BBtnjhd: TBitBtn;
BBtncancel: TBitBtn;
BBtnSave: TBitBtn;
BBtndel: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Edit11KeyPress(Sender: TObject; var Key: Char);
procedure Edit12KeyPress(Sender: TObject; var Key: Char);
procedure Edit13KeyPress(Sender: TObject; var Key: Char);
procedure Edit7KeyPress(Sender: TObject; var Key: Char);
procedure Edit5KeyPress(Sender: TObject; var Key: Char);
procedure Edit6KeyPress(Sender: TObject; var Key: Char);
procedure BBtndelClick(Sender: TObject);
procedure BBtnjhdClick(Sender: TObject);
procedure BBtncancelClick(Sender: TObject);
procedure BBtnSaveClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure LView1Click(Sender: TObject);
private
{ Private declarations }
function MyCheckData():boolean;
function GetSpxx(spcode:string):boolean;
public
{ Public declarations }
end;
var
fm_jhd2: Tfm_jhd2;
implementation
uses pfm_yfkcl;
{$R *.DFM}
procedure Tfm_jhd2.FormCreate(Sender: TObject);
var
i:integer;
lvcol:TListColumn;
begin
lvcol:=lview1.Columns.Add();
lvcol.Caption:='商品編碼';
lvcol.width:=60;
lvcol:=lview1.Columns.Add();
lvcol.Caption:='商品條形碼';
lvcol.width:=110;
lvcol:=lview1.Columns.Add();
lvcol.Caption:='商品名稱';
lvcol.width:=120;
lvcol:=lview1.Columns.Add();
lvcol.Caption:='進貨數量';
lvcol.width:=80;
lvcol:=lview1.Columns.Add();
lvcol.Caption:='進貨單價';
lvcol.width:=80;
lvcol:=lview1.Columns.Add();
lvcol.Caption:='合同號';
lvcol.width:=100;
lvcol:=lview1.Columns.Add();
lvcol.Caption:='單據號';
lvcol.width:=100;
lvcol:=lview1.Columns.Add();
lvcol.Caption:='發票號';
lvcol.width:=100;
for i:= 0 to componentcount-1 do
begin
if components[i].ClassName='TEdit' then
begin
(components[i] as tedit).text:='';
end;
end;
end;
function Tfm_jhd2.MyCheckData():boolean;
begin
myCheckData:=true;
end;
procedure Tfm_jhd2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=caFree;
end;
procedure Tfm_jhd2.Edit11KeyPress(Sender: TObject; var Key: Char);
var
ListItem:Tlistitem;
begin
//商品編碼或條形碼
if key<>#13 then exit;
if getspxx(edit11.text)=false then
begin
edit11.text:='';
lbltishi.caption:='沒有這個商品';
exit;
end;
if not query3.eof then
begin
ListItem:=LView1.items.Insert(0);
ListItem.Caption:=query3.fieldbyname('spbm').asstring;
LIstItem.SubItems.add(query3.fieldbyname('sptxm').asstring);
LIstItem.SubItems.add(query3.fieldbyname('spmc').asstring);
LIstItem.SubItems.add('1');// 2-進貨數量
LIstItem.SubItems.add(query3.fieldbyname('wsjj').asstring);//3-無稅進價
LIstItem.SubItems.add(edit7.text);//4－合同號
LIstItem.SubItems.add(edit5.text);//5－單據號
LIstItem.SubItems.add(edit6.text);//6－發票號
ListItem.selected:=true;
edit12.text:='1';
edit13.Text:=query3.fieldbyname('wsjj').asstring;
edit12.SetFocus;
end
else
begin
edit11.text:='';
lbltishi.caption:='沒有這個商品';
end;
end;
function Tfm_jhd2.GetSpxx(spcode:string):boolean;
var
spcodelen:integer;
tmpstr:string;
begin
spcodelen:=length(spcode);
if spcodelen<=6 then
begin
tmpstr:='000000'+spcode;
spcode:=copy(tmpstr,spcodelen+1,6);
spcodelen:=6;
end
else if spcodelen<>13 then //輸入的編碼位數>6但不是13位
begin
GetSpxx:=false;
exit;
end;
edit11.text:=spcode;
query3.close;
query3.sql.clear;
if spcodelen=6 then
begin
query3.sql.add('select * from t_spxx where spbm='''+spcode+'''');
end
else
begin
query3.sql.add('select * from t_spxx where sptxm='''+spcode+'''');
end;
query3.open;
GetSpxx:=true;
end;
procedure Tfm_jhd2.Edit12KeyPress(Sender: TObject; var Key: Char);
var
retcode,num:integer;
begin
if key<>#13 then exit;
if lview1.SelCount=0 then exit;
val((sender as Tedit).text,num,retcode);
if retcode=0 then
begin
lview1.Selected.SubItems.strings[2]:=(sender as Tedit).text;
lbltishi.caption:='請輸入商品的進貨單價';
edit13.SetFocus;
end
else
begin
lbltishi.caption:='請輸入整數';
(sender as tedit).text:='';
end;
end;
procedure Tfm_jhd2.Edit13KeyPress(Sender: TObject; var Key: Char);
begin
if key<>#13 then exit;
if lview1.SelCount=0 then exit;
try
strtofloat((sender as tedit).text);
lview1.Selected.SubItems.strings[3]:=(sender as tedit).text;
lbltishi.caption:='請輸入合同號';
edit7.setfocus;
except
on EConvertError do
begin
lbltishi.caption:='你輸入的不是數字';
end;
end;
end;
procedure Tfm_jhd2.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
if key<>#13 then exit;
if lview1.SelCount=0 then exit;
lview1.Selected.SubItems.strings[4]:=(sender as tedit).text;
edit5.setfocus;
lbltishi.caption:='請輸入單據號碼';
end;
procedure Tfm_jhd2.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if key<>#13 then exit;
if lview1.SelCount=0 then exit;
lview1.Selected.SubItems.strings[5]:=(sender as tedit).text;
edit6.setfocus;
lbltishi.caption:='請輸入發票號';
end;
procedure Tfm_jhd2.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
if key<>#13 then exit;
if lview1.SelCount=0 then exit;
lview1.Selected.SubItems.strings[6]:=(sender as tedit).text;
edit1.setfocus;
lbltishi.caption:='請輸入商品編碼或條形碼';
edit11.setfocus;
end;
procedure Tfm_jhd2.BBtndelClick(Sender: TObject);
begin
if lview1.SelCount=0 then exit;
if application.MessageBox(pchar('確定要刪除選中進貨記錄'),pchar('警告'),mb_YESNO)<>IDYES then exit;
lview1.Selected.Delete;
end;
procedure Tfm_jhd2.BBtnjhdClick(Sender: TObject);
begin
fm_jhdsel:=Tfm_jhdsel.create(self);
if fm_jhdsel.showmodal=IdOK then
begin
edit3.text:=datetimetostr(fm_jhdsel.mDateTime);
edit1.text:=inttostr(fm_jhdsel.mLsh);
edit2.text:=fm_jhdsel.mCkmc;
edit4.text:=fm_jhdsel.mGysmc;
edit8.text:=fm_jhdsel.mJbrm;
edit9.text:=fm_jhdsel.mShrm;
edit10.text:=fm_jhdsel.mCzym;
end;
fm_jhdsel.free;
end;
procedure Tfm_jhd2.BBtncancelClick(Sender: TObject);
begin
if application.MessageBox(pchar('不保存而退出？'),pchar('警告'),mb_YESNO)<>IDYES then exit;
close;
end;
procedure Tfm_jhd2.BBtnSaveClick(Sender: TObject);
var
insertsql:string;
lsh,ckmc,rq,gysmc,jbrm,shrm,czym:string;
spbm,sptxm,jhnum,jhdj,djhm,hthm,fph:string;
i:integer;
begin
if application.MessageBox(pchar('保存后而退出？'),pchar('警告'),mb_YESNO)<>IDYES then exit;
if length(edit1.text)<1 then
begin
showmessage('還未填寫進貨單');
exit;
end;
if lview1.Items.Count<1 then
begin
showmessage('尚未錄入進貨單明細記錄');
exit;
end;
lsh:=edit1.text;
ckmc:=edit2.text;
datetimetostring(rq,'yyyy-mm-dd',strtodatetime(edit3.text));
gysmc:=edit4.text;
jbrm:=edit8.text;
shrm:=edit9.text;
czym:=edit10.text;
query1.Active:=false;
query1.sql.clear;
insertsql:='insert into tb_jhd(lsh,ckmc,gysmc,rq,czym,jbrm,shrm) values(';
query1.sql.add(insertsql);
insertsql:=lsh+','''+ckmc+''','''+gysmc+''','''+rq+''','''+czym+''','''+jbrm+''','''+shrm+''')';
query1.sql.add(insertsql);
query1.ExecSQL;
for i:=0 to lview1.items.count-1 do
begin
spbm:=lview1.items[i].caption;
sptxm:=lview1.items[i].subitems[0];
jhnum:=lview1.items[i].subitems[2];
jhdj:=lview1.items[i].subitems[3];
djhm:=lview1.items[i].subitems[5];
hthm:=lview1.items[i].subitems[4];
fph:=lview1.items[i].subitems[6];
query1.sql.clear;
query1.sql.add('insert into tb_jhdmx(lsh,spbm,sptxm,jhnum,jhdj,djhm,hthm,fph) values(');
query1.sql.add(lsh+','''+spbm+''','''+sptxm+''','+jhnum+','+jhdj+','''+djhm+''','''+hthm+''','''+fph+''')');
query1.ExecSQL;
end;
lview1.Items.Clear;
AddOptRecord('生成進貨入庫單:流水號('+lsh+'),倉庫代碼('+ckmc+'),供應商代碼('+gysmc+')');
close;
end;
procedure Tfm_jhd2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if lview1.Items.count=0 then exit;
if application.MessageBox(pchar('不保存而退出？'),pchar('警告'),mb_YESNO)<>IDYES then
canclose:=false;
end;
procedure Tfm_jhd2.LView1Click(Sender: TObject);
var
i:integer;
begin
if lview1.SelCount>0 then
begin
i:=lview1.Selected.Index;
edit11.text:=lview1.items[i].caption; //spbm
//:=lview1.items[i].subitems[0]; //sptxm
edit12.text:=lview1.items[i].subitems[2]; //jhnum
edit13.text:=lview1.items[i].subitems[3]; //jhdj
edit5.text:=lview1.items[i].subitems[5]; // djhm:=
edit7.text:=lview1.items[i].subitems[4];//hthm:=
edit6.text:=lview1.items[i].subitems[6];//fph:=
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -