?? realtyj4.pas
字號:
unit RealtyJ4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dbcgrids, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ExtCtrls,
StrUtils, ExtDlgs, ComCtrls, math, Menus, ImgList, ToolWin;
type
Tf_RealtyJ4 = class(TForm)
L1: TLabel;
Label4: TLabel;
Edit1: TEdit;
Label1: TLabel;
Label6: TLabel;
Label13: TLabel;
Edit3: TEdit;
Label17: TLabel;
edit9: TEdit;
Label18: TLabel;
Edit5: TEdit;
ListView1: TListView;
Button1: TButton;
edit2: TDateTimePicker;
Button3: TButton;
Label19: TLabel;
edit6: TComboBox;
Label2: TLabel;
Edit4: TEdit;
PopupMenu1: TPopupMenu;
N4: TMenuItem;
N8: TMenuItem;
N10: TMenuItem;
Button6: TButton;
Button8: TButton;
Label5: TLabel;
Edit11: TEdit;
Button2: TButton;
Button4: TButton;
Edit7: TEdit;
Label12: TLabel;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure getId;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ToolButton1Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Button4Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure edit6Select(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
bOK:bool;
ss:string;
end;
var
f_RealtyJ4: Tf_RealtyJ4;
sNum:string;
implementation
uses data, main,RealtyL23,RealtyJ31,Car4s931,RealtyJ1,RealtyChange,
realtyPro,RealtyPrint1,RealtyJA4,realtyA11,RealtyJ6;
{$R *.dfm}
procedure Tf_RealtyJ4.getid;
var
Query:TADOQuery;
s:string;
i:integer;
begin
s := 'select * from 調拔單 where 日期=''' + datetostr(edit2.date)+''' ORDER BY 單號 DESC';
Query:=TADOQuery.Create(nil);
Query.Connection:=DataModuleADO.ADOConnection1;
Query.SQL.Add(s);
Query.Open ;
if query.recordcount > 0 then
begin
s := query.Fieldbyname('單號').AsString;
s := Copy(S, 12, 4);
i := strtoint(s)+1;
if i<10 then Edit1.Text := 'L' + datetostr(date)+'000'+inttostr(i)
else if (i > 9) and (i<100) then Edit1.Text := 'L' + datetostr(date)+'00'+inttostr(i)
else if (i > 99) and (i<1000) then Edit1.Text := 'L' + datetostr(date)+'0'+inttostr(i)
else if i>999 then Edit1.Text := 'L' + datetostr(date)+inttostr(i);
end
else Edit1.Text := 'L' + datetostr(date)+'0001';
Query.Close;
Query.Free;
end;
procedure Tf_RealtyJ4.FormCreate(Sender: TObject);
var
i:integer;
s:string;
query:TADOQuery;
begin
Query:=TADOQuery.Create(nil);
Query.Connection:=DataModuleADO.ADOConnection1;
edit6.items.Add('新增業務類型');
query.SQL.Clear;
query.SQL.Add('select * from 輔助資料 where 類別='''+'業務類型'+'''');
query.Open;
while not query.Eof do
begin
edit6.Items.Add(Query.FieldByName('名稱').Value);
query.next;
end;
if f_RealtyJA4.bNew=true then
begin
edit2.date:=date;
getId;
edit4.Text:=czy;
end;
if f_RealtyJA4.bNew=false then
begin
if f_RealtyJA4.ListView1.Selected.SubItems[6]='Y' THEN
begin
button6.Enabled:=false;
end;
query.SQL.Clear;
query.SQL.Add('select * from 調拔單 where 單號='''+f_RealtyJA4.ListView1.Selected.Caption+'''');
query.open;
if query.RecordCount>0 then
begin
edit1.Text:=query.fieldbyname('單號').Value;
edit2.date:=strtodate(query.fieldbyname('日期').Value);
edit3.Text:=query.fieldbyname('經手人').Value;
edit7.Text:=query.fieldbyname('部門').Value;
edit5.Text:=query.fieldbyname('調出倉庫').Value;
edit6.ItemIndex:=edit6.Items.IndexOf(query.fieldbyname('業務類型').Value);
edit9.Text:=query.fieldbyname('備注').Value;
edit11.Text:=query.fieldbyname('調入倉庫').Value;
edit4.Text:=query.fieldbyname('操作員').Value;
end;
query.SQL.Clear;
query.SQL.Add('select * from 調拔單明細 where 單號='''+edit1.Text+'''');
query.open;
while not query.Eof do
begin
with listview1.Items.Add do
begin
caption:=query.fieldbyname('物料編號').Value;
subitems.Add(query.fieldbyname('物料名稱').value);
subitems.Add(query.fieldbyname('規格型號').value);
subitems.Add(query.fieldbyname('計量單位').value);
subitems.Add(query.fieldbyname('數量').value);
subitems.Add(query.fieldbyname('單價').value);
subitems.Add(query.fieldbyname('金額').value);
end;
query.Next;
end;
end;
query.Close;
query.Free;
end;
//Tab
procedure Tf_RealtyJ4.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
Begin
key:=0;
perform(WM_NEXTDLGCTL,0,0);
end
else if key=VK_ESCAPE then close;
end;
procedure Tf_RealtyJ4.Button1Click(Sender: TObject);
begin
f_RealtyL23:=Tf_RealtyL23.Create(self);
f_RealtyL23.Button2.Visible:=true;
f_RealtyL23.ShowModal;
if f_RealtyL23.bOk=true then
begin
edit3.Text:=f_RealtyL23.sName;
end;
end;
procedure Tf_RealtyJ4.ToolButton10Click(Sender: TObject);
begin
close;
mainform.bRealtyJ4:=false;
end;
procedure Tf_RealtyJ4.Button3Click(Sender: TObject);
begin
f_RealtyJ31:=Tf_RealtyJ31.Create(self);
f_RealtyJ31.Button1.Visible:=true;
f_RealtyJ31.ShowModal;
if f_RealtyJ31.bOk=true then
begin
edit5.Text:=f_RealtyJ31.ListView1.Selected.SubItems[0];
end;
end;
procedure Tf_RealtyJ4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
mainform.bRealtyJ4:=false;
Action := caFree;
end;
procedure Tf_RealtyJ4.ToolButton1Click(Sender: TObject);
begin
//
end;
procedure Tf_RealtyJ4.N4Click(Sender: TObject);
var
query:TADOQuery;
i:integer;
d,d1,d2:double;
begin
if Edit5.Text='' then
begin
showmessage('請先選擇調出倉庫。');
exit;
end;
f_RealtyJ6:=Tf_RealtyJ6.Create(self);
f_RealtyJ6.toolButton6.Visible:=true;
f_RealtyJ6.ShowModal;
if f_RealtyJ6.bOK=true then
begin
Query:=TADOQuery.Create(nil);
Query.Connection:=DataModuleADO.ADOConnection1;
Query.SQL.Add('select * from 庫存 where 庫存數量>0 and 物料編號='''+f_RealtyJ6.sNum+''' and 倉庫='''+edit5.Text+'''');
Query.Open ;
if query.RecordCount>0 then
begin
with listview1.items.add do
begin
caption:=query.fieldbyname('物料編號').value;
subitems.add(query.fieldbyname('名稱').value);
subitems.add(query.fieldbyname('規格型號').value);
subitems.add(query.fieldbyname('計量單位').value);
subitems.add('0');
subitems.add(query.fieldbyname('單價').value);
subitems.add('0');
end;
query.Next;
end
else
begin
showmessage('該倉庫沒有庫存。');
end;
query.Close;
query.Free;
end;
if listview1.Items.Count>0 then listview1.Items.Item[0].Selected:=true;
end;
procedure Tf_RealtyJ4.N8Click(Sender: TObject);
var
d,d1,d2:double;
begin
if listview1.SelCount=0 then exit;
mainform.t1:=listview1.Selected.SubItems[3];
mainform.t2:=listview1.Selected.SubItems[4];
f_RealtyChange:=Tf_RealtyChange.Create(self);
f_RealtyChange.ShowModal;
if f_RealtyChange.bok=true then
begin
listview1.Selected.SubItems[3]:=f_RealtyChange.Edit1.Text;
listview1.Selected.SubItems[4]:=f_RealtyChange.Edit2.Text;
listview1.Selected.SubItems[5]:=floattostr(strtofloat(f_RealtyChange.Edit2.Text)*strtofloat(f_RealtyChange.Edit1.Text));
end;
end;
procedure Tf_RealtyJ4.N10Click(Sender: TObject);
begin
if listview1.SelCount=0 then exit;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -