spxxgl.pas

帮助学校更快捷方便的完成考试

unit SPXXGL;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls,Model,gysjcxxgl;

type
  TForm4 = class(TForm)
    Panel1: TPanel;
    Panel3: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    Label8: TLabel;
    Label6: TLabel;
    Label9: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label7: TLabel;
    Label11: TLabel;
    Label10: TLabel;
    Label5: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Edit10: TEdit;
    ComboBox1: TComboBox;
    Edit12: TEdit;
    Edit9: TEdit;
    Edit8: TEdit;
    Edit7: TEdit;
    Edit6: TEdit;
    Edit11: TEdit;
    Edit5: TEdit;
    Edit4: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit1: TEdit;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure EditValue;
    procedure DisableEdit;
    procedure EditClear;
    procedure FindNext;
    Procedure FindPrior;
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    Function IsNullEdit: Boolean;
    procedure Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit1Change(Sender: TObject);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit11KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1Change(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
  aa: Boolean = False ;//设置保存按钮是否可用
  addState: Boolean = False;
implementation

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);
begin
begin
  addState := False;
 ComboBox1.Enabled := False;
 if Not Data.ADOQuery2.Bof  then
  begin
    Data.ADOQuery2.Prior;
    EditValue;
  end
  else
    BitBtn1.Enabled := False;
    BitBtn2.Enabled := True;
    BitBtn5.Enabled := True;
    DisableEdit;
    BitBtn6.Enabled := True;
    BitBtn4.Enabled := False;
end;
end;

procedure TForm4.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Screen.Cursor := -21;
  TBitBtn(Sender).Font.Color := clRed;
end;

procedure TForm4.BitBtn2Click(Sender: TObject);
begin
  addState := False;
  ComboBox1.Enabled := False;
  if Not Data.ADOQuery2.Eof then
  begin
    Data.ADOQuery2.Next;
    EditValue;
  end
  else
    BitBtn2.Enabled := False;
    BitBtn1.Enabled := True;
    BitBtn5.Enabled := True;
    DisableEdit;
    BitBtn6.Enabled := True;
    BitBtn4.Enabled := False;
end;

procedure TForm4.BitBtn3Click(Sender: TObject);
var
  s,m: String;
  i: integer;
begin
  addState := True;
  EditClear;
  Edit7.Enabled := True;
  Edit8.Enabled := True;
  Edit9.Enabled := True;
  aa := True;
  BitBtn5.Enabled := False;
  BitBtn6.Enabled := False;
  s:= 'S'+ FormatDateTime('yyyymmdd',Now());
  With Data.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select max(商品编号) as ss From 商品基础信息表 ');
    Open;
  end;
  If Data.ADOQuery1.FieldByName('ss').Value = null then
    s := s + '001'
  else
  begin
    m:= Trim(Data.ADOQuery1.FieldByName('ss').Value) ;
    i:= StrToInt(Trim(Copy(m,10,5))) ;
    if i<9 then
      s:= s + '00'+ InttoStr(i +1)
    else if i<99 then
      s:= s + '0'+ InttoStr(i +1)
    else
      s:= s +InttoStr(i +1);
  end;
  Edit1.Text := Trim(s);
  Edit2.SetFocus;
  ComboBox1.Enabled :=  True;
end;

procedure TForm4.FormShow(Sender: TObject);
begin
  ComboBox1.Clear;
  with Data.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select distinct 供应商全称  from 供应商基础信息表');
    Open
  end;
  while not Data.ADOQuery1.Eof do
  begin
    ComboBox1.Items.Add(Data.ADOQuery1.FieldByName('供应商全称').Value);
    Data.ADOQuery1.Next;
  end;
  with Data.ADOQuery2 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 商品基础信息表');
    Open;
  end;
  If Data.ADOQuery2.FieldByName('商品编号').Value = null then
  begin
    Application.MessageBox('该表数据为空，请向该表中插入数据。','提示',0+64);
    BitBtn1.Enabled := False;
    BitBtn2.Enabled := False;
    BitBtn5.Enabled := False;
    BitBtn6.Enabled := False;
    BitBtn7.Enabled := False;
  end
  else
    EditValue;
  DisableEdit;
end;

procedure TForm4.EditValue;
begin
  if Data.ADOQuery2.FieldByName('商品编号').Value <> null then
  begin
    Edit1.Text :=  Data.ADOQuery2.FieldByName('商品编号').Value;
    Edit2.Text :=  Data.ADOQuery2.FieldByName('商品名称').Value;
    Edit3.Text :=  Data.ADOQuery2.FieldByName('简称').Value;
    Edit4.Text :=  Data.ADOQuery2.FieldByName('规格').Value;
    Edit5.Text :=  Data.ADOQuery2.FieldByName('产地').Value;
    Edit6.Text :=  Data.ADOQuery2.FieldByName('单位').Value;
    Edit11.Text:=  IntToStr(Data.ADOQuery2.FieldByName('保质期').Value);
    Edit7.Text :=  FloatToStr(Data.ADOQuery2.FieldByName('进价').Value);
    Edit8.Text :=  FloatToStr(Data.ADOQuery2.FieldByName('批发价').Value);
    Edit9.Text :=  FloatToStr(Data.ADOQuery2.FieldByName('零售价').Value);
    Edit12.Text :=  Data.ADOQuery2.FieldByName('供应商编号').Value;
    ComboBox1.Text :=  Data.ADOQuery2.FieldByName('供应商全称').Value;
    Edit10.Text :=  Data.ADOQuery2.FieldByName('备注').Value;
  end
  else
  begin
    Edit1.Clear;
    Edit2.Clear;
    Edit3.Clear;
    Edit4.Clear;
    Edit5.Clear;
    Edit7.Clear;
    Edit8.Clear;
    Edit9.Clear;
    Edit10.Clear;
    Edit11.Clear;
    Edit12.Clear;
    ComboBox1.Text := '';
  end;
end;

procedure TForm4.DisableEdit;
begin
  Edit7.Enabled := False;
  Edit8.Enabled := False;
  Edit9.Enabled := False;
end;
procedure TForm4.EditClear;
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  Edit5.Clear;
  Edit6.Clear;
  Edit7.Clear;
  Edit8.Clear;
  Edit9.Clear;
  Edit10.Clear;
  Edit11.Clear;
  Edit12.Clear;
end;
procedure TForm4.BitBtn5Click(Sender: TObject);
begin
 Try
  if Application.MessageBox('确实要修改该条记录吗？','提示',MB_YESNO )= ID_Yes then
  begin
    AddState := False;
    if IsNullEdit = False then
    with Data.ADOQuery2 do
    begin
      DisableEdit;
      Edit;
      BitBtn4.Enabled := False;
      FieldByName('商品编号').Value := Edit1.Text;
      FieldByName('商品名称').Value := Edit2.Text ;