📄 js220unit.pas

📁 本程序为完整毕业设计作品
💻 PAS
字号:
unit JS220Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, PublicUnit, jpeg, ExtCtrls, StdCtrls, ComCtrls, DBCtrls, Mask,
  Grids, DBGrids;

type
  TJS220Form = class(TPublicUnit)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel3: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Panel1: TPanel;
    Panel2: TPanel;
    Label14: TLabel;
    Label51: TLabel;
    Label7: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBComboBox1: TDBComboBox;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit6: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label15: TLabel;
    Label22: TLabel;
    Label4: TLabel;
    Label8: TLabel;
    Panel4: TPanel;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit26: TDBEdit;
    DBEdit27: TDBEdit;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Button7: TButton;
    DBEdit10: TDBMemo;
    DBCheckBox1: TDBCheckBox;
    DBEdit33: TDBEdit;
    DBEdit32: TDBEdit;
    DBEdit31: TDBEdit;
    DBEdit30: TDBEdit;
    DBEdit29: TDBEdit;
    DBEdit28: TDBEdit;
    DBEdit34: TDBEdit;
    DBEdit35: TDBEdit;
    DBEdit36: TDBEdit;
    DBEdit37: TDBEdit;
    DBEdit38: TDBEdit;
    DBEdit39: TDBEdit;
    DBEdit40: TDBEdit;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label16: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    DBEdit8: TDBEdit;
    DBEdit11: TDBEdit;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure DBComboBox1DropDown(Sender: TObject);
    procedure DBComboBox1Change(Sender: TObject);
    procedure DBEdit3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    procedure CLS; // 清除控件内容
    procedure ENA; // 所有控件可用
    procedure DIS; //  所有控件不可用
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JS220Form: TJS220Form;

implementation

uses DMUnit, main, DateUnit;

{$R *.dfm}


procedure TJS220Form.CLS;
var
  i: Integer;
begin
  for i := ComponentCount - 1 downto 0 do
  begin
      {--- 清除所有的TDBEdit控件的内容  ---}
    if (Components[i] is TDBEDIT) then
      TDBEDIT(components[i]).Clear;
      {--- 清除所有的TDBComboBox控件的内容  ---}
    if (Components[i] is TDBComboBox) then
      TDBComboBox(components[i]).Clear;
    if (Components[i] is TDBCheckBox) then
      TDBCheckBox(components[i]).Checked := False;
      {--- 清除所有的TDBMemo控件的内容  ---}
    if (Components[i] is TDBMemo) then
      TDBMemo(components[i]).Clear;
  end;

end;

procedure TJS220Form.ENA; // 新增记录的时候使所有的控件可用
var
  i: Integer;
begin
  for i := ComponentCount - 1 downto 0 do
  begin
    if (components[i] is TDBEdit) then
    begin {--- 使所有的TDBEdit控件可用  ---}
      TDBEdit(components[i]).Color := clwindow;
      TDBEdit(components[i]).ReadOnly := false;
    end;
    if (components[i] is TDBComboBox) then
    begin {--- 使所有的TDBComboBox控件可用  ---}
      TDBComboBox(components[i]).Color := clWindow;
    end;
    if (Components[i] is TDBCheckBox) then
      TDBCheckBox(components[i]).Enabled := True;
    if (components[i] is TDBMemo) then
    begin {--- 使所有的TDBMemo控件可用  ---}
      TDBMemo(components[i]).Color := clwindow;
      TDBMemo(components[i]).ReadOnly := false;
    end;


  end;
  Button1.Enabled := False; //  '新增'不可用
  Button2.Enabled := False; //  '编辑'不可用
  Button3.Enabled := True; //  '储存'可用
  Button4.Enabled := True; //  '取消'可用
  for i := Panel4.ComponentCount - 1 downto 0 do
  begin // 使所有的TDBEdit控件不可用
    if (Panel4.components[i] is TDBEdit) then
    begin //  改变TDBEdit控件的颜色
      TDBEdit(Panel4.Components[i]).Text := '0';
    end;
  end;
end;

procedure TJS220Form.DIS;
var
  i: Integer;
begin
  for i := ComponentCount - 1 downto 0 do
  begin // 使所有的TDBEdit控件不可用
    if (components[i] is TDBEdit) then
    begin //  改变TDBEdit控件的颜色
      TDBEdit(components[i]).Color := $00D8D8D8;
      TDBEdit(components[i]).ReadOnly := true;
    end;
    if (components[i] is TDBComboBox) then
    begin //  改变TDBEdit控件的颜色
      TDBComboBox(components[i]).Color := $00D8D8D8;
    end;
    if (Components[i] is TDBCheckBox) then
      TDBCheckBox(components[i]).Enabled := False;
    if (components[i] is TDBMemo) then
    begin //  改变TDBEdit控件的颜色
      TDBMemo(components[i]).Color := $00D8D8D8;
      TDBMemo(components[i]).ReadOnly := true;
    end;
  end;
  Button1.Enabled := True; //  '新增'可用
  Button2.Enabled := True; //  '编辑'可用
  Button3.Enabled := False; //  '储存'不可用
  Button4.Enabled := False; //  '取消'不可用
end;


procedure TJS220Form.Button1Click(Sender: TObject);
begin
  inherited;
  CLS;
  ENA;
  DM.FYTJ.Append; //加入新的记录
end;

procedure TJS220Form.Button2Click(Sender: TObject);
begin
  inherited;
  ENA;
  DM.FYTJ.Edit;
end;

procedure TJS220Form.Button3Click(Sender: TObject);
begin
  inherited;
  DM.FYTJ.FieldByName('制单人').AsString := MainForm.Auser.UserName;
  DM.FYTJ.FieldByName('日期').AsString := FormatDateTime('yyyy/mm/dd', Date);
  DM.FYTJ.Post;
  DIS;
end;

procedure TJS220Form.Button4Click(Sender: TObject);
begin
  inherited;
  DM.JSFD.Cancel;
  DIS;
end;

procedure TJS220Form.Button5Click(Sender: TObject);
begin
  inherited;
  if MessageBox(0, '你确定删除该条记录', '提示', MB_YESNO + MB_ICONQUESTION) =
    IDYES then
  begin
    DM.JSFD.Delete;
  end;
end;

procedure TJS220Form.Button6Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TJS220Form.DBComboBox1DropDown(Sender: TObject);
var
  I: Integer;
begin
  inherited;
  DBComboBox1.Clear;
  with DM.Querytemp do
  begin
    SQL.clear;
    SQl.Text := 'select 委托单号 from 货运作业总表 ';
    Close;
    Active := False;
    prepared := False;
    prepared := True;
    Active := True;
    if (recordcount > 0) then
      first;
    for i := 0 to recordcount - 1 do
    begin {--- 取得该列所有的数据到combobox1控件中 ---}
      DBComboBox1.Items.add(FieldByName('委托单号').asstring);
      next;
    end;
  end;
end;

procedure TJS220Form.DBComboBox1Change(Sender: TObject);
begin
  inherited;
  DM.HYZY.Locate('委托单号', DBComboBox1.Text, []);
  DBEdit1.Text := DM.HYZY.FieldByName('经营单位').AsString;
  DBEdit2.Text := DM.HYZY.FieldByName('委托单位').AsString;
  DBEdit7.Text := DM.HYZY.FieldByName('船名航次').AsString;
  DBEdit2.Text := DM.HYZY.FieldByName('合同号').AsString;
  DBEdit5.Text := DM.HYZY.FieldByName('货名').AsString;
  DBEdit4.Text := DM.HYZY.FieldByName('数量箱型').AsString;
  DBEdit9.Text := DM.HYZY.FieldByName('到达港口').AsString;
  DBEdit6.Text := FloatToStr(DM.HYZY.FieldByName('数量').AsFloat * DM.HYZY.FieldByName('件重').AsFloat);
  DBEdit8.Text := DM.HYZY.FieldByName('型号').AsString;

end;

procedure TJS220Form.DBEdit3Click(Sender: TObject);
begin
  inherited;
  try
    DateForm := TDateForm.Create(Application);
    DateForm.ShowModal;
    DBEdit3.Text := FormatDateTime('yyyy/mm/dd', DateForm.date1.Date);
    DateForm.Free;
  except
    MessageBox(0, '日期选择窗体创建错误', '错误', MB_OK + MB_ICONSTOP);
  end;
end;

procedure TJS220Form.FormShow(Sender: TObject);

begin
  inherited;
  DIS;
  CLS;

end;

procedure TJS220Form.Button7Click(Sender: TObject);
begin
  inherited;
  DBEdit11.Text := FloatToStr(
    StrToFloat(DBEdit14.Text) + StrToFloat(DBEdit15.Text) +
    StrToFloat(DBEdit16.Text) + StrToFloat(DBEdit17.Text) +
    StrToFloat(DBEdit18.Text) + StrToFloat(DBEdit19.Text) +
    StrToFloat(DBEdit20.Text) + StrToFloat(DBEdit21.Text) +
    StrToFloat(DBEdit22.Text) + StrToFloat(DBEdit23.Text) +
    StrToFloat(DBEdit24.Text) + StrToFloat(DBEdit25.Text) +
    StrToFloat(DBEdit26.Text) + StrToFloat(DBEdit27.Text) +
    StrToFloat(DBEdit28.Text) + StrToFloat(DBEdit29.Text) +
    StrToFloat(DBEdit30.Text) + StrToFloat(DBEdit31.Text) +
    StrToFloat(DBEdit32.Text) + StrToFloat(DBEdit33.Text) +
    StrToFloat(DBEdit34.Text) + StrToFloat(DBEdit35.Text) +
    StrToFloat(DBEdit36.Text) + StrToFloat(DBEdit37.Text) +
    StrToFloat(DBEdit38.Text) + StrToFloat(DBEdit39.Text) +
    StrToFloat(DBEdit40.Text));
end;

end.
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -