📄 u_bgd.pas
字号:
unit U_BGD;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ComCtrls, Grids, DBGrids, Buttons, Mask, DBCtrls,
Menus, Db, ADODB;
type
TF_BGD = class(TForm)
Panel1: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton4: TSpeedButton;
Panel9: TPanel;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
DBEditDingDanNo: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
Panel10: TPanel;
Label45: TLabel;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
Label52: TLabel;
Label53: TLabel;
Label54: TLabel;
Label55: TLabel;
Label56: TLabel;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DateTimePicker1: TDateTimePicker;
DBEdit40: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit11: TDBEdit;
//DateTimePicker2: TDateTimePicker;
Panel11: TPanel;
Label57: TLabel;
Label58: TLabel;
Label59: TLabel;
Label60: TLabel;
Label61: TLabel;
Label62: TLabel;
Label63: TLabel;
Label64: TLabel;
Label65: TLabel;
Label66: TLabel;
Label67: TLabel;
Label68: TLabel;
Label69: TLabel;
Label70: TLabel;
Label71: TLabel;
Label72: TLabel;
Label73: TLabel;
DBEdit13: TDBEdit;
DBEdit16: TDBEdit;
DBEdit17: TDBEdit;
DBEdit19: TDBEdit;
DBEdit20: TDBEdit;
DBEdit21: TDBEdit;
DBEdit22: TDBEdit;
DBEdit23: TDBEdit;
DBEdit24: TDBEdit;
DBEdit25: TDBEdit;
DBEdit26: TDBEdit;
DBEdit27: TDBEdit;
DBEdit28: TDBEdit;
DBEdit29: TDBEdit;
Panel12: TPanel;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
Panel5: TPanel;
Label41: TLabel;
DBMemo1: TDBMemo;
Panel6: TPanel;
Label33: TLabel;
DBMemo2: TDBMemo;
Panel7: TPanel;
Label34: TLabel;
Label74: TLabel;
Label75: TLabel;
Label76: TLabel;
Label77: TLabel;
Label78: TLabel;
DBEdit30: TDBEdit;
DBEdit31: TDBEdit;
DBEdit32: TDBEdit;
DBEdit33: TDBEdit;
DBEdit34: TDBEdit;
DBEdit35: TDBEdit;
Label2: TLabel;
DateTimePicker3: TDateTimePicker;
DBGrid1: TDBGrid;
SpeedButton5: TSpeedButton;
SpeedButton3: TSpeedButton;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N3: TMenuItem;
DBComboBox1: TDBComboBox;
DBComboBox2: TDBComboBox;
DBComboBox3: TDBComboBox;
DBComboBox4: TDBComboBox;
DBComboBox5: TDBComboBox;
DBComboBox6: TDBComboBox;
DBComboBox7: TDBComboBox;
ADOQueryBGDXC: TADOQuery;
DataSourceBGD: TDataSource;
DataSourceBGDChild: TDataSource;
ADOQuerybgd: TADOQuery;
DBEdit1: TDBEdit;
procedure SpeedButton4Click(Sender: TObject);
procedure DateTimePicker1Change(Sender: TObject);
// procedure DateTimePicker2Change(Sender: TObject);
procedure DateTimePicker3Change(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure TabSheet2Show(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Panel1DblClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure DBEdit35KeyPress(Sender: TObject; var Key: Char);
procedure N3Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure DataSourceBGDDataChange(Sender: TObject; Field: TField);
procedure DataSourceBGDChildDataChange(Sender: TObject; Field: TField);
procedure DBEdit24KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit25KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit26KeyPress(Sender: TObject; var Key: Char);
procedure DBEditDingDanNoKeyPress(Sender: TObject; var Key: Char);
procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
procedure DateTimePicker3KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit40KeyPress(Sender: TObject; var Key: Char);
procedure DBComboBox2KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
procedure DBComboBox3KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
procedure DBComboBox4KeyPress(Sender: TObject; var Key: Char);
//procedure DateTimePicker2KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit13KeyPress(Sender: TObject; var Key: Char);
procedure DBComboBox5KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit22KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit19KeyPress(Sender: TObject; var Key: Char);
procedure DBComboBox6KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit16KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit27KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit20KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit17KeyPress(Sender: TObject; var Key: Char);
procedure DBComboBox7KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit28KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit21KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit29KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit23KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit30KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit32KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit31KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit33KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit34KeyPress(Sender: TObject; var Key: Char);
procedure DBMemo1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit24KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBEdit25KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBEdit26KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
procedure HandleMag(var Msg: TMessage);message WM_HOTKEY;
public
{ Public declarations }
end;
var
F_BGD: TF_BGD;
FlagBGD: Boolean; //定义为是否保存过标志，为真：已保存，为假：未保存
RecNoBGD: Integer; //定义为当前所指向的记录
BGDshow:boolean;
implementation
uses umain, U_P_BGD, U_BGDChild, U_BGDCX, U_DM,U_XGDW, U_Modal;
{$R *.DFM}
{*********************************
调用打印预览窗体
*********************************
}
procedure TF_BGD.SpeedButton4Click(Sender: TObject);
begin
Screen.Cursor := -11;
BGDshow:=true;
if F_P_BGD=nil then
F_P_BGD:=TF_P_BGD.Create(self);
Screen.Cursor := 0;
F_P_BGD.QuickRep1.Preview;
BGDshow:=false;
end;
procedure TF_BGD.DateTimePicker1Change(Sender: TObject);
begin
if DBEditDingDanNo.Text='' then
Exit;
DM.ADOTableBGD.Edit;
DM.ADOTableBGD.FieldByName('ChuKouDate').AsDateTime:=DateTimePicker1.Date;//在保存前将日期转为字符串类型
end;
procedure TF_BGD.DateTimePicker3Change(Sender: TObject);
begin
if DBEditDingDanNo.Text='' then
Exit;
DM.ADOTableBGD.Edit;
DM.ADOTableBGD.FieldByName('TZHRiQi').AsDateTime:=DateTimePicker1.Date;//在保存前将日期转为字符串类型
end;
procedure TF_BGD.BitBtn1Click(Sender: TObject);
begin
if DBEditDingDanNo.Text='' then
begin
Application.MessageBox('请先输入订单编号！','报关单货物信息',0+64);
DBEditDingDanNo.SetFocus;
Exit;
end;
if F_BGDChild=nil then
F_BGDChild:=TF_BGDChild.Create(Application);
DM.ADOQueryBGDChild.Close;
DM.ADOQueryBGDChild.SQL.Clear;
DM.ADOQueryBGDChild.SQL.Add('select * from xs_bgdchild where DingDanNo=:DingDanNo ');
DM.ADOQueryBGDChild.Parameters.ParamByName('DingDanNo').value := DBEditDingDanNo.Text;
DM.ADOQueryBGDChild.Open;
DM.ADOQueryBGDChild.Append;
F_BGDChild.ShowModal;
end;
procedure TF_BGD.BitBtn2Click(Sender: TObject);
begin
DM.ADOTableBGDchild.Close;
DM.ADOTableBGDchild.Open;
//DM.ADOTableBGDchild.Refresh;
if DM.ADOtableBGDChild.RecordCount<=0 then
begin
Application.MessageBox('没有记录可以修改！','报关单货物信息',0+64);
FlagBGDChild:=True;
Exit;
end;
if F_BGDChild=nil then
F_BGDChild:=TF_BGDChild.Create(self);
F_BGDChild.Caption:='修改报关单货物信息';
FlagBGDChild:=True;
F_BGDChild.ShowModal;
end;
procedure TF_BGD.TabSheet2Show(Sender: TObject);
begin
if DBEditDingDanNo.Text<>'' then
begin
with DM.ADOQueryBGDChild do
begin
Active:=False;
SQL.Clear;
SQL.Add('select * from xs_BGDChild ');
SQL.Add('where DingDanNo='''+F_BGD.DBEditDingDanNo.Text+''' ');
SQL.Add(';');
ExecSQL;
Active:=True;
end;
end;
end;
procedure TF_BGD.BitBtn3Click(Sender: TObject);
begin
if DM.ADOQueryBGDChild.RecordCount<=0 then
begin
Application.MessageBox('没有记录可以删除！','报关单货物信息',0+16);
FlagBGDChild:=True;
Exit;
end;
if Application.MessageBox('确实要删除此记录？','报关单货物信息',4+32)=IDYES then
begin
DM.ADOQueryBGDChild.Delete;
FlagBGDChild:=True;
end;
end;
procedure TF_BGD.FormShow(Sender: TObject);
begin
FlagBGD:=true;
if DBEditDingDanNo.text<>'' then
begin
DM.ADOTableBGD.Close;
DM.ADOTableBGD.Open;
DateTimePicker1.Date:=DM.ADOTableBGD.FieldByName('ChuKouDate').AsDateTime;
//DateTimePicker2.Date:=DM.ADOTableBGD.FieldByName('ShenBaoDate').AsDateTime;
DateTimePicker3.Date:=DM.ADOTableBGD.FieldByName('TZHRiQi').AsDateTime;
end
else begin
DateTimePicker1.Date:=Now;
//DateTimePicker2.Date:=Now;
DateTimePicker3.Date:=Now;
end;
DM.ADOQueryBGJC.Active:=False;
DM.ADOQueryBGJC.SQL.Clear;
DM.ADOQueryBGJC.SQL.Add('select * from xs_bgjc');
DM.ADOQueryBGJC.Open;
DBComboBox1.Items.Clear;
DBComboBox2.Items.Clear;
DBComboBox3.Items.Clear;
DBComboBox4.Items.Clear;
DBComboBox5.Items.Clear;
DBComboBox6.Items.Clear;
DBComboBox7.Items.Clear;
while not DM.ADOQueryBGJC.Eof do begin
if DM.ADOQueryBGJC.FieldByName('YunShuBy').asString<>'' then
DBComboBox1.Items.Add(DM.ADOQueryBGJC.FieldByName('YunShuBy').asString);
if DM.ADOQueryBGJC.FieldByName('MaoYiBy').asString<>'' then
DBComboBox2.Items.Add(DM.ADOQueryBGJC.FieldByName('MaoYiBy').asString);
if DM.ADOQueryBGJC.FieldByName('FaHuoUnit').asString<>'' then
DBComboBox3.Items.Add(DM.ADOQueryBGJC.FieldByName('FaHuoUnit').asString);
if DM.ADOQueryBGJC.FieldByName('JieHuiBy').asString<>'' then
DBComboBox4.Items.Add(DM.ADOQueryBGJC.FieldByName('JieHuiBy').asString);
if DM.ADOQueryBGJC.FieldByName('YunDiCountry').asString<>'' then
DBComboBox5.Items.Add(DM.ADOQueryBGJC.FieldByName('YunDiCountry').asString);
if DM.ADOQueryBGJC.FieldByName('ZhiYunPort').asString<>'' then
DBComboBox6.Items.Add(DM.ADOQueryBGJC.FieldByName('ZhiYunPort').asString);
if DM.ADOQueryBGJC.FieldByName('ChengJiaoBy').asString<>'' then
DBComboBox7.Items.Add(DM.ADOQueryBGJC.FieldByName('ChengJiaoBy').asString);
DM.ADOQueryBGJC.Next;
end;
DM.ADOQueryBGJC.Active:=False;
end;
procedure TF_BGD.Panel1DblClick(Sender: TObject);
begin
IF F_BGDCX=NIL THEN APPLICATION.CreateForm(TF_BGDCX,F_BGDCX);
//F_BGDCX:=TF_BGDCX.Create(self);
F_BGDCX.PageControl1.ActivePageIndex:=0;
F_BGDCX.Show;
end;
procedure TF_BGD.FormClose(Sender: TObject; var Action: TCloseAction);
begin
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -