📄 umakenotice.~pas
字号:
Label2.Caption:='粮 油 移 库 通 知 单 ';
Label4.Caption:='移出单位：';
Label5.Caption:='移入单位：';
Label7.Caption:='移库起讫时间：';
NewNotice:=2; //新建移库通知;
s:='select ID=MAX(NOTY_ID) from ENT_NOTY';
MaxNotQuery.SQL.Clear;
MaxNotQuery.SQL.Add(s);
MaxNotQuery.Open;
if MaxNotQuery.FieldByName('ID').AsInteger=0 then
MaxNotId:=1
else
MaxNotId:=MaxNotQuery.FieldByName('ID').AsInteger+1;
notyid:=maxnotid;
Edit10.text:='';
Edit2.text:='';
unitdblookupcombobox.keyvalue:=null;
combobox1.text:='';
DateTimePicker2.DateTime:=date;
DateTimePicker1.DateTime:=date;
memo1.Text:='';
edit3.text:='';
edit4.text:='';
edit8.text:='';
edit9.text:='';
edit11.Text:='';
kudianDBLookupComboBox.keyvalue:=null;
changhaoDBLookupComboBox.keyvalue:=null;
huowuDBLookupComboBox.keyvalue:=null;
fukuanDBLookupComboBox.keyvalue:=null;
chubeiDBLookupComboBox.keyvalue:=null;
guishuDBLookupComboBox.keyvalue:=null;
yewuDBLookupComboBox.keyvalue:=null;
edit5.text:='';
edit6.text:='0';
edit7.text:='';
memo2.text:='';
notyitemlistquery.Close;
end;
procedure Tfmakenotice.cancelBitBtnClick(Sender: TObject);
begin
additemflag:=0;
Edit10.Enabled:=false;
speedbutton2.Enabled :=false;
Edit2.Enabled:=false;
unitdblookupcombobox.Enabled:=false;
combobox1.Enabled:=false;
DateTimePicker2.Enabled:=false;
DateTimePicker1.Enabled:=false;
memo1.Enabled:=false;
edit3.Enabled:=false;
edit4.Enabled:=false;
OkBitBtn.Enabled:=false;
CancelBitBtn.Enabled:=false;
// exitBitBtn.Enabled:=false;
edit8.Enabled:=false;
edit9.Enabled:=false;
edit11.Enabled:=false;
kudianDBlookupCombobox.Enabled:=false;
changhaoDBlookupCombobox.Enabled:=false;
huowuDBlookupCombobox.Enabled:=false;
huoweidblookupcombobox.Enabled :=false;
fukuanDBlookupCombobox.Enabled:=false;
chubeiDBlookupCombobox.Enabled:=false;
guishuDBlookupCombobox.Enabled:=false;
yewuDBlookupCombobox.Enabled:=false;
edit5.Enabled:=false;
edit6.Enabled:=false;
edit7.Enabled:=false;
memo2.Enabled:=false;
additembitbtn.Enabled:=true;
deleteitembitbtn.Enabled:=true;
modifyitembitbtn.Enabled:=true;
cancelitembitbtn.Enabled :=true;
notelistquery.Close;
notelistquery.Open;
if ((NewNotice=1) or (NewNotice=2)) then
begin
MaxNotId:=MaxNotId-1;
Edit10.text:='';
Edit2.text:='';
unitdblookupcombobox.keyvalue:=null;
combobox1.text:='';
DateTimePicker2.DateTime:=date;
DateTimePicker1.DateTime:=date;
memo1.Text:='';
edit3.text:='';
edit4.text:='';
edit8.text:='';
edit9.text:='';
edit11.Text:='';
kudianDBLookupComboBox.keyvalue:=null;
changhaoDBLookupComboBox.keyvalue:=null;
huoweidblookupcombobox.KeyValue:=null;
huowuDBLookupComboBox.keyvalue:=null;
fukuanDBLookupComboBox.keyvalue:=null;
chubeiDBLookupComboBox.keyvalue:=null;
guishuDBLookupComboBox.keyvalue:=null;
yewuDBLookupComboBox.keyvalue:=null;
edit5.text:='';
edit6.text:='0';
edit7.text:='';
memo2.text:='';
end
else if (NewNotice=3) then
begin
NoticeQuery.Close;
NoticeQuery.Open;
end;
end;
procedure Tfmakenotice.modifynotyClick(Sender: TObject);
begin
Edit10.Enabled:=true;
speedbutton2.Enabled :=true;
Edit2.Enabled:=true;
unitdblookupcombobox.Enabled:=true;
combobox1.Enabled :=true;
DateTimePicker2.Enabled:=true;
DateTimePicker1.Enabled:=true;
memo1.Enabled:=true;
edit3.Enabled:=true;
edit4.Enabled:=true;
OkBitBtn.Enabled:=true;
CancelBitBtn.Enabled:=true;
// exitBitBtn.Enabled:=true;
edit8.Enabled:=true;
edit9.Enabled:=true;
Edit8.SetFocus;
// edit11.ReadOnly :=false;
kudianDBlookupCombobox.Enabled:=true;
changhaoDBlookupCombobox.Enabled:=true;
huoweidblookupcombobox.Enabled :=true;
huowuDBlookupCombobox.Enabled:=true;
fukuanDBlookupCombobox.Enabled:=true;
chubeiDBlookupCombobox.Enabled:=true;
guishuDBlookupCombobox.Enabled:=true;
yewuDBlookupCombobox.Enabled:=true;
edit5.Enabled:=true;
edit6.Enabled:=true;
edit7.Enabled:=true;
memo2.Enabled:=true;
additembitbtn.Enabled:=false;
deleteitembitbtn.Enabled:=false;
modifyitembitbtn.Enabled:=false;
cancelitembitbtn.Enabled:=false;
if noticequery.IsEmpty then
Begin
Edit10.Enabled:=false;
Edit2.Enabled:=false;
unitdblookupcombobox.Enabled:=false;
combobox1.Enabled :=false;
DateTimePicker2.Enabled:=false;
DateTimePicker1.Enabled:=false;
memo1.Enabled:=false;
edit3.Enabled:=false;
edit4.Enabled:=false;
OkBitBtn.Enabled:=false;
CancelBitBtn.Enabled:=false;
// exitBitBtn.Enabled:=false;
edit8.Enabled:=false;
edit9.Enabled:=false;
edit11.Enabled:=false;
kudianDBlookupCombobox.Enabled:=false;
changhaoDBlookupCombobox.Enabled:=false;
huowuDBlookupCombobox.Enabled:=false;
fukuanDBlookupCombobox.Enabled:=false;
chubeiDBlookupCombobox.Enabled:=false;
guishuDBlookupCombobox.Enabled:=false;
yewuDBlookupCombobox.Enabled:=false;
edit5.Enabled:=false;
edit6.Enabled:=false;
edit7.Enabled:=false;
memo2.Enabled:=false;
end
else
NewNotice:=3; //修改通知;
NoticeQuery.ParamByName('NotListId').AsInteger:=NotListId;
NoticeQuery.Close;
NoticeQuery.Open;
end;
procedure Tfmakenotice.notelistqueryAfterScroll(DataSet: TDataSet);
begin
notyid:=dataset.FieldByName('NOTY_ID').AsInteger;
NotListId:=DataSet.FieldByName('NOTY_ID').AsInteger;
NoticeQuery.ParamByName('NotListId').AsInteger:=DataSet.FieldByName('NOTY_ID').AsInteger;
NoticeQuery.Close;
NoticeQuery.Open;
if NoticeQuery.FieldByName('NOTY_TYPE').AsInteger=1 then
Label2.Caption:='粮 油 入 库 通 知 单'
else Label2.Caption:='粮 油 移 库 通 知 单';
Edit10.text:=noticequery.fieldbyname('plan_id').AsString;
Edit2.text:=noticequery.fieldbyname('authority_no').AsString;
unitdblookupcombobox.keyvalue:=noticequery.fieldbyname('unit_id').AsString;
combobox1.text:=noticequery.fieldbyname('counterpart').AsString;
if noticequery.fieldbyname('start_time').Asstring<>'' then
DateTimePicker1.DateTime:=strtodatetime(noticequery.fieldbyname('start_time').Asstring);
if noticequery.fieldbyname('finish_time').Asstring<>'' then
DateTimePicker2.DateTime:=strtodatetime(noticequery.fieldbyname('finish_time').Asstring);
memo1.Text:=noticequery.fieldbyname('memo').AsString;
edit3.text:=noticequery.fieldbyname('manager').AsString;
edit4.text:=noticequery.fieldbyname('clerk').AsString;
edit8.text:=Copy(NoticeQuery.FieldByName('NOTY_NO').AsString,1,4);
edit9.text:=Copy(NoticeQuery.FieldByName('NOTY_NO').AsString,7,Length(NoticeQuery.FieldByName('NOTY_NO').AsString)-6);
notyitemlistquery.ParamByName('notlistid').AsInteger:=dataset.fieldbyname('noty_id').AsInteger ;
notyitemlistquery.Close;
notyitemlistquery.Open;
additemflag:=0;
{ if DataSet.IsEmpty then
begin
InsertBitBtn.Enabled:=false;
DeleteBitBtn.Enabled:=false;
UpdateBitBtn.Enabled:=false;
end
else
begin
InsertBitBtn.Enabled:=true;
DeleteBitBtn.Enabled:=true;
UpdateBitBtn.Enabled:=true;
end;
}
kudianquery.ParamByName('unit_id').AsInteger :=unitdblookupcombobox.KeyValue ;
kudianquery.Close;
kudianquery.Open;
end;
procedure Tfmakenotice.delnotyClick(Sender: TObject);
begin
if NotelistQuery.IsEmpty then
begin
application.MessageBox('通知列表中没有通知可供删除!','删除通知时出错',MB_OK+MB_ICONEXCLAMATION);
Exit;
end;
if MessageDlg('确实要删除这项通知?',mtInformation,[mbYes,mbNo],0)=mrYes then
begin
dtmdl.Database1.StartTransaction;
DeleteNotItemQuery.ParamByName('NotListId').AsInteger:=NotListId;
try
DeleteNotItemQuery.ExecSQL;
except
//Transaction uncompiete!
dtmdl.Database1.Rollback;
Application.MessageBox('删除通知项时出错!','系统错误',MB_OK+MB_ICONERROR);
Exit;
end;
DeleteQuery.ParamByName('NotListId').AsInteger:=NotListId;
try
DeleteQuery.ExecSQL;
except
//Transaction uncompiete!
dtmdl.Database1.Rollback;
Application.MessageBox('删除通知时出错!','系统错误',MB_OK+MB_ICONERROR);
Exit;
end;
//Transaction complete successfully!
dtmdl.Database1.Commit;
NoteListQuery.Close;
NoteListQuery.Open;
end;
end;
procedure Tfmakenotice.additemBitBtnClick(Sender: TObject);
begin
newnotice:=4;
okbitbtn.Enabled:=true;
if additemflag=1 then
begin
if edit11.Text ='' then
begin
application.MessageBox('还没有填写通知细目!','请填写细目',MB_OK+MB_ICONEXCLAMATION);
edit11.SetFocus;
exit;
end;
if huowudblookupcombobox.Text ='' then
begin
application.MessageBox('还没有填写货物名称!','请填写细目',MB_OK+MB_ICONEXCLAMATION);
huowudblookupcombobox.SetFocus;
exit;
end;
if edit5.Text ='' then
begin
application.MessageBox('还没有填写货物数量!','请填写细目',MB_OK+MB_ICONEXCLAMATION);
edit5.SetFocus;
exit;
end;
if edit6.Text ='' then
begin
application.MessageBox('还没有填写货物单价!','请填写细目',MB_OK+MB_ICONEXCLAMATION);
edit6.SetFocus;
exit;
end;
newnotyitemquery.ParamByName('notlistid').AsInteger:=notlistid;
newnotyitemquery.ParamByName('itemlistid').AsString:=inttostr(notyid)+'_'+edit11.Text;
newnotyitemquery.ParamByName('sitename').AsString:=kudiandblookupcombobox.Text;
newnotyitemquery.ParamByName('depotname').AsString:=changhaodblookupcombobox.text;
newnotyitemquery.ParamByName('foodposition').AsString:=huoweidblookupcombobox.text;
newnotyitemquery.ParamByName('FOOD_TYPE').AsString:=huowudblookupcombobox.text;
newnotyitemquery.ParamByName('SETTLEMENT').AsString:=fukuandblookupcombobox.text;
newnotyitemquery.ParamByName('ATTRIBUTE').AsString:=chubeidblookupcombobox.text;
newnotyitemquery.ParamByName('ATTACHMENT').AsString:=guishudblookupcombobox.text;
newnotyitemquery.ParamByName('BUSINESS_TYPE').AsString:=yewudblookupcombobox.text;
newnotyitemquery.ParamByName('QUANTITY').Asfloat:=strtofloat(edit5.Text);
newnotyitemquery.ParamByName('PRICE').Asfloat:=strtofloat(edit6.Text);
newnotyitemquery.ParamByName('memo').Asstring:=memo2.Text;
NewnotyitemQuery.ParamByName('status').AsInteger:=0;
try
newnotyitemquery.ExecSQL;
except
application.MessageBox('新建通知细目时出错','系统错误',MB_OK+MB_ICONERROR);
exit;
end;
notyitemlistquery.Close;
notyitemlistquery.Open;
notelistquery.Close;
notelistquery.Open;
end;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -