not dm1.tblHuiyuan.Active then
dm1.tblHuiyuan.Open;
if not frmMain.mmregister.AutoGrayScale then
dm1.tblHuiyuan.Insert
else
Dm1.tblHuiyuan.Locate('bm;xm', VarArrayOf([Dm1.qryhuiyuan.FieldByName('bm').AsString, Dm1.qryhuiyuan.FieldByName('xm').AsString]), [loPartialKey]);
end;
procedure Tfrmregister.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if dm1.tblHuiyuan.State in [dsInsert, dsEdit] then
begin
if Application.MessageBox('您还没有保存数据，是否保存?', '询问', MB_YESNO + MB_ICONQuestion) = IDYes then
dm1.tblHuiyuan.Post
else
dm1.tblHuiyuan.Cancel;
end;
end;
procedure Tfrmregister.edtbirthPropertiesEditValueChanged(Sender: TObject);
begin
if edtbirth.Text <> '' then
begin
if dm1.tblHuiyuan.State in [dsInsert, dsEdit] then
begin
dm1.tblHuiyuan.FieldByName('star').AsString := getxingzuo(edtbirth.EditValue);
dm1.tblHuiyuan.FieldByName('shuxian').AsString := getpet(yearof(edtbirth.EditValue));
end;
// cmbxingzuo.text:=getxingzuo(edtbirth.EditValue);
// cmbsx.text:=getpet(yearof(edtbirth.EditValue));
end
else
begin
cmbxingzuo.text := '';
cmbsx.text := '';
end;
end;
procedure Tfrmregister.cmbszqyPropertiesChange(Sender: TObject);
var
bm: string;
begin
Dm1.adoqry1.Close;
Dm1.adoqry1.sql.Clear;
Dm1.adoqry1.sql.Text := 'select * from city where city=''' + cmbszqy.Text + '''';
dm1.adoqry1.Open;
bm := IntToStr(dm1.adoqry1.fieldbyname('bm').asinteger);
Dm1.adoqry1.Close;
cmbcity.Text := '';
if bm = '' then
begin
cmbcity.Properties.Items.Clear;
Exit;
end;
Dm1.adoqry1.sql.Clear;
Dm1.adoqry1.sql.Text := 'select * from city where pbm=' + bm;
dm1.adoqry1.Open;
Dm1.adoqry1.first;
cmbcity.Properties.Items.Clear;
while not dm1.adoqry1.Eof do
begin
cmbcity.Properties.Items.Append(Dm1.adoqry1.fieldbyname('city').asstring);
Dm1.adoqry1.Next;
end;
Dm1.adoqry1.Close;
end;
procedure Tfrmregister.Panel1Click(Sender: TObject);
begin
