sydwxx.pas

服务信息管理系统

unit sydwxx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, Db, DBTables, Mask;

type
  Tsydxxform = class(TForm)
    BitBtnsave: TBitBtn;
    BitBtnexit: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Table1: TTable;
    Label13: TLabel;
    Label14: TLabel;
    Edit13: TMaskEdit;
    procedure BitBtnexitClick(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtnsaveClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit13Enter(Sender: TObject);
    procedure Edit13Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sydxxform: Tsydxxform;

implementation

{$R *.DFM}

procedure Tsydxxform.BitBtnexitClick(Sender: TObject);
begin
  Close;
end;

procedure Tsydxxform.BitBtn3Click(Sender: TObject);
begin
  ShowMessage('Hello,World');
end;

procedure Tsydxxform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure Tsydxxform.Edit1Change(Sender: TObject);
begin
  Bitbtnsave.enabled := True
end;

procedure Tsydxxform.FormCreate(Sender: TObject);
begin
  Table1.Open;
  Table1.First;
  Edit1.Text := Trim(Table1.FieldByName('sydw_xx').AsString);
  Table1.Next;
  Edit2.Text := Trim(Table1.FieldByName('sydw_xx').AsString);
  Table1.Next;
  Edit3.Text := Trim(Table1.FieldByName('sydw_xx').AsString);
  Table1.Next;
  Edit4.Text := Trim(Table1.FieldByName('sydw_xx').AsString);
  Table1.Next;
  Edit5.Text := Trim(Table1.FieldByName('sydw_xx').AsString);
  Table1.Next;
  Edit6.Text := Trim(Table1.FieldByName('sydw_xx').AsString);
  Table1.Next;
  Edit7.Text := Trim(Table1.FieldByName('sydw_xx').AsString);
  Table1.Next;
  Edit8.Text := Trim(Table1.FieldByName('sydw_xx').AsString);
  Table1.Next;
  Edit9.Text := Trim(Table1.FieldByName('sydw_xx').AsString);
  Table1.Next;
  Edit10.Text := Trim(Table1.FieldByName('sydw_xx').AsString);
  Table1.Next;
  Edit11.Text := Trim(Table1.FieldByName('sydw_xx').AsString);
  Table1.Next;
  Edit12.Text := Trim(Table1.FieldByName('sydw_xx').AsString);
  Table1.Next;
  Edit13.Text := Trim(Table1.FieldByName('sydw_xx').AsString);
  BitBtnsave.enabled := False
end;

procedure Tsydxxform.BitBtnsaveClick(Sender: TObject);
begin
  if Trim(edit1.text) = '' then
    begin
      Showmessage('单位编号不能为空');
      exit;
    end;
  if Trim(edit2.text) = '' then
    begin
      Showmessage('单位名称不能为空');
      exit;
    end;
  Table1.First;
  Table1.Edit;
  Table1.FieldByName('sydw_xx').AsString := Edit1.Text;
  Table1.Next;
  Table1.Edit;
  Table1.FieldByName('sydw_xx').AsString := Edit2.Text;
  Table1.Next;
  Table1.Edit;
  Table1.FieldByName('sydw_xx').AsString := Edit3.Text;
  Table1.Next;
  Table1.Edit;
  Table1.FieldByName('sydw_xx').AsString := Edit4.Text;
  Table1.Next;
  Table1.Edit;
  Table1.FieldByName('sydw_xx').AsString := Edit5.Text;
  Table1.Next;
  Table1.Edit;
  Table1.FieldByName('sydw_xx').AsString := Edit6.Text;
  Table1.Next;
  Table1.Edit;
  Table1.FieldByName('sydw_xx').AsString := Edit7.Text;
  Table1.Next;
  Table1.Edit;
  Table1.FieldByName('sydw_xx').AsString := Edit8.Text;
  Table1.Next;
  Table1.Edit;
  Table1.FieldByName('sydw_xx').AsString := Edit9.Text;
  Table1.Next;
  Table1.Edit;
  Table1.FieldByName('sydw_xx').AsString := Edit10.Text;
  Table1.Next;
  Table1.Edit;
  Table1.FieldByName('sydw_xx').AsString := Edit11.Text;
  Table1.Next;
  Table1.Edit;
  Table1.FieldByName('sydw_xx').AsString := Edit12.Text;
  Table1.Next;
  Table1.Edit;
  Table1.FieldByName('sydw_xx').AsString := Edit13.Text;
  Table1.Post;
  BitBtnsave.enabled := False
end;

procedure Tsydxxform.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if BitBtnsave.enabled then
    if MessageDlg('数据已修改，是否保存修改？', mtConfirmation, mbYesNoCancel, 0) = mrYes then
      BitBtnsave.Click;
end;

procedure Tsydxxform.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    begin
      SelectNext(ActiveControl, True, True);
      Key := #0;
    end;
end;

procedure Tsydxxform.Edit1Enter(Sender: TObject);
begin
  (Sender as TEdit).color := clGradientActiveCaption;
end;

procedure Tsydxxform.Edit1Exit(Sender: TObject);
begin
  (Sender as TEdit).color := ClWindow;
end;

procedure Tsydxxform.Edit13Enter(Sender: TObject);
begin
  (Sender as TMaskEdit).color := clGradientActiveCaption;
end;

procedure Tsydxxform.Edit13Exit(Sender: TObject);
begin
  (Sender as TMaskEdit).color := ClWindow;
end;

end.